kostenloser Webspace werbefrei: lima-city


VB: Annahme eine Requests über ein Winsocket

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    n*k

    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 :biggrin:

    Gruss NGK

    Beitrag geaendert: 27.2.2007 19:05:47 von ngk
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. b*********t

    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
  4. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!