PDA

Visualizza la versione completa : [VB6]Definire Winsock


Luc@s
13-10-2002, 20:48
Ho questo codice:


Dim ws As
' L\' ascolto
Private Sub cmdascolta_Click()
ws.LocalPort = txtport.Text
ws.Listen
MsgBox "Servizio in ascolto sulla porta:" & txtport.Text, vbInformation
End Sub
' La disconnessione
Private Sub cmddisconnetti_Click()
ws.Close
MsgBox "Sessione terminata", vbInformation
End Sub
' Chi
Private Sub ws_ConnectionRequest(ByValrequestID As Long)
If ws.State <> sckClosed Then ws.Close
ws.Accept requestID
lstlog.AddItem "Connesione di:" & ws.RemoteHostIP & "sulla porta" & txtport.Text
For i = 1 To 10000
ws.SendData "Togliti dai piedi lamerone, sei stato loggato ------>" & ws.RemoteHostIP & vbCrLf
Netx i
End Sub


Ma come definosco ws come winsock?????

steno12
13-10-2002, 23:04
immetti un controllo winsock1 sul form e nella sua proprietÓ nome lo chiami ws...... come nel codice da te postato

Loading