Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Winsock1.Close Winsock1.RemoteHost = Winsock1.LocalIP Winsock1.RemotePort = 4365 Winsock1.Connect Winsock1.SendData tee '* End If End Sub
Miksi tuo valittaa tähdellä merkittyä kohtaa, kun ohjelma suorittaa tuon koodin?
Olethan määrittänyt kyseisen muuttujan? Olisi hyvä, jos liittäisit mukaan virheilmoituksen.
Olenhan minä. Seuraavassa on virheilmoitus:
Wrong protocol or connection state for the request transaction or request
Winsocki ei ole yhdistänyt tossa vaiheessa. Tee vaikka näin
Winsock1.Close Winsock1.RemoteHost = Winsock1.LocalIP Winsock1.RemotePort = 4365 Winsock1.Connect Do: DoEvents: Loop Until Winsock1.State = sckConnected 'odota kunnes yhdistetty Winsock1.SendData tee '*
Ja sullahan pitää olla samalla koneella listenoimassa sitten samassa portissa toinen winsock. :)
Tiedän. Se serveripuoli on jo valmis.
Aihe on jo aika vanha, joten et voi enää vastata siihen.