Brauche Hilfe bei !EINFACHEN! Icq clone

Übersicht

BlitzBasic

BlitzPlus

	desperado Betreff: Brauche Hilfe bei !EINFACHEN! Icq clone	Mo, Aug 09, 2004 20:21 Antworten mit Zitat
Hi, ich versuche einen einfachen ICQ clone zu programmieren er soll so laufen das jeder am anfang seine ip angibt die in einer html datei mit dem namen des users gespeichert und an den server gesendet wird. ein anderer gibt seine ip ein und den namen des partners mit dem er chatten will. er server sucht dann nach der datei "name".html und liest die ip aus... ich möchte mal den code posten und bei der ip abfrage um hilfe bitten. bitte nur helfende posts machen und keine sinlos posts. Danke Code: [AUSKLAPPEN] [EINKLAPPEN] datei = WriteFile(".\ip.html") fenster = CreateWindow("IP - Abfrage",100,100,210,120) button = CreateButton("OK",168,20,30,20,fenster) label = CreateLabel("Ihre IP:",5,3,120,17,fenster) eingabe$ = CreateTextField (5,20,160,20,fenster) ActivateGadget eingabe SetStatusText fenster, " Tipp: www.deineip.de.vu" b=WaitEvent() If EventSource() = button Then WriteLine datei, eingabe$ CloseFile datei EndIf WaitMouse End
Hier sollte eigentlich eine Signatur stehen

desperado

Betreff: Brauche Hilfe bei !EINFACHEN! Icq clone

Mo, Aug 09, 2004 20:21
Antworten mit Zitat

Hi, ich versuche einen einfachen ICQ clone zu programmieren er soll so laufen das jeder am anfang seine ip angibt die in einer html datei mit dem namen des users gespeichert und an den server gesendet wird. ein anderer gibt seine ip ein und den namen des partners mit dem er chatten will. er server sucht dann nach der datei "name".html und liest die ip aus... ich möchte mal den code posten und bei der ip abfrage um hilfe bitten. bitte nur helfende posts machen und keine sinlos posts. Danke

Code: [AUSKLAPPEN]

datei = WriteFile(".\ip.html")
fenster = CreateWindow("IP - Abfrage",100,100,210,120)
button = CreateButton("OK",168,20,30,20,fenster)
label = CreateLabel("Ihre IP:",5,3,120,17,fenster)
eingabe$ = CreateTextField (5,20,160,20,fenster)
ActivateGadget eingabe
SetStatusText fenster, " Tipp: www.deineip.de.vu"

b=WaitEvent()
If EventSource() = button Then
WriteLine datei, eingabe$
CloseFile datei
EndIf
WaitMouse
End

Hier sollte eigentlich eine Signatur stehen