[VB6]Definire Winsock

[Luc@s]

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?????

[xegallo]

cancella la prima riga
inserisci un oggetto winsock nel tu form e imposti la prop Name = wt

[Luc@s]

Originariamente inviato da xegallo
[B]cancella la prima riga
inserisci un oggetto winsock nel tu form e imposti la prop Name = wt

mi spieghi da dove inserirlo?????

Non lo trovo:(

E il mio primo progetto:D

[xegallo]

Originariamente inviato da Luc@s
[B]

mi spieghi da dove inserirlo?????

Non lo trovo:(

E il mio primo progetto:D
apri vb il tuo progetto
dal menù progetto scegli componenti e dalla lista dei componenti winsock alchè ce l'hai nella casella deggli strumenti poi lo butti in un form

[Luc@s]

Originariamente inviato da xegallo
[B]
apri vb il tuo progetto
dal menù progetto scegli componenti e dalla lista dei componenti winsock alchè ce l'hai nella casella deggli strumenti poi lo butti in un form

tnk