aiuto, non mi riesce questo programmino ;(

[superOC]

esperti di visual basic aiutatemi , sto tentando di fare un programmino in visual basic che si metta in ascolto su una porta tcp definita dall'utente e appena qualcuno si connette alla porta il suo ip viene (dovrebbe) venire incollato su una casella di testo, ma ecco il codice:

Private Sub Command1_Click()
Winsock1.LocalPort Text1
Winsock1.Listen
End Sub

Private Sub Form_Load()

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
Text1 = Winsock1.RemoteHostIP
End Sub

quando qlcn prova a connettersi (ma anche da locale) il programmino mi crasha dandomi un run time error, ho proprio adesso una guida tra le mani x tirare fuori un programma simile ma non m riesce proprio

grazie anticipatamente

[Kleidemos]

innanzi tutto prova con

Private Sub Command1_Click()
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
End Sub

Poi dimmi

[cionci]

A me così funziona :

Private Sub Command1_Click()
    Winsock1.LocalPort = Text1
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   If Winsock1.State <> sckClosed Then Winsock1.Close
   Winsock1.Accept requestID
   Text1 = Winsock1.RemoteHostIP
End Sub

[Kleidemos]

Originally posted by "cionci"

A me così funziona :

Private Sub Command1_Click()
    Winsock1.LocalPort = Text1
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   If Winsock1.State <> sckClosed Then Winsock1.Close
   Winsock1.Accept requestID
   Text1 = Winsock1.RemoteHostIP
End Sub

allora anche io avevo un po ragione, no?

[cionci]

Sì

[Kleidemos]

Originally posted by "cionci"

Sì

miracolo!

[superOC]

grazie per l'aiuto, in pratica senza la funzione
If Winsock1.State <> sckClosed Then Winsock1.Close
non va nulla, come mai?

[cionci]

Boh... Io l'ho trovato sul MSDN...
Probabimente il socket è settato per fare una connessione in uscita e quindi è aperto...e va chiuso prima di fargli accettare la conenssione in ingresso...

[superOC]

Originally posted by "cionci"

Boh... Io l'ho trovato sul MSDN...
Probabimente il socket è settato per fare una connessione in uscita e quindi è aperto...e va chiuso prima di fargli accettare la conenssione in ingresso...

probabile...cmq grazie ancora per l'aiuto