VB: Annahme eine Requests über ein Winsocket
lima-city → Forum → Programmiersprachen → Basic
-
Hallo zusammen.
Ich habe ein Problem mit Visual Basic. Und zwar habe ich grad versucht damit ein Programm zu entwickeln mit dem man übers Internet Texte verschicken kann. Das ist, soweit ich weiss, mit dem Winsocket realisierbar...
Hier mein Code:
Private Sub Form_Load()
wsckserver.LocalPort = 18023
wsckserver.Listen
End Sub
Private Sub wsckserver_ConnectionRequest(ByVal requestID As Long)
wsckserver.Accept (requestID)
lblstatus.Caption = "Online!"
End Sub
Private Sub wsckserver_DataArrival(ByVal allebytes As Long)
Dim nachricht_got As String
wsckserver.GetData nachricht_got
lblnachricht.Caption = nachricht_got
End Sub
Wenn die Gegenseite mit einem etwas abgeänderten Programm jetzt versucht zu connecten, (Code:)
Private Sub cmdconnect_Click()
wsckclient.RemoteHost = txtip.text
wsckclient.RemotePort = 18023
wsckclient.Connect
End Sub
[wsckclient und wsckserver sind hierbei jeweils die Winsockets; in txtip steht die ip]
dann kommt auf dem Server-Programm zwar ein connection Request, nur VB gibt dann einen Runtime error aus. Es liegt an der fett markierten Zeile, da sie gelb markiert wird.
Ich hoffe ihr habt mein Problem verstanden und könnt mir helfen
Gruss NGK
Beitrag geaendert: 27.2.2007 19:05:47 von ngk -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
schreib vor accept ein .close, dann gehts. Außerdem lässt man die Klammern bei Subs zumindest in VB6 weg: wckserver.Close un wckserver.Accept requestID
Mfg
Philipp -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage