Visual Basic 6 - aiuto codice

Forum - Visual Basic 6 - aiuto codice

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Avrei un problema

sto creando un programma client server ma quando clikko sul pulsante connetti due volte e mi appare...
errore di run-time (40020)
operazione non valida nello stato corrente

allora per ulteriori dettagli ho messo
Private Sub sockclient_error ecc.ecc.
MsgBox"errore di connessione" & description

ammacco f5 e mi appare il msgbox con scritto
errore di connessione!la socket non é connessa

non capisco
:-?

che devo fare? :k:

MeTeMpSiCoSi (Ex-Member)
Pro

Messaggi: 159
Iscritto: 14/03/2007

Postato alle 16:10
Giovedì, 31/05/2007

ciao, se posti il codice vediamo un pò se c'è qualcosa che non va.

motoboy (Ex-Member)
Pro

Messaggi: 152
Iscritto: 05/04/2007

Postato alle 18:24
Giovedì, 31/05/2007

Sono sicuro, che sia un problema dovuto agli Stati

Posta il Codice che diamo un'occhiata.

Ma prima di postarlo, leggi queste mie due riga:

nel Command Button (CONNETTI)
inserisci:

if winsock.state = sckConnected Then
winsock.Connect ip, porta
End If

oppure

if winsock.State = sckConnected then
winsock.connect RemoteIp
winsock.connect remotePort
End if

Ti consiglio il primo!

Del resto, purché hai dall'altrà parte un Server, postato in:

Server.Listen

ovviamente con una porta (POSTATA) in ascolto!

()
Newbie

Messaggi:
Iscritto:

Postato alle 20:26
Giovedì, 31/05/2007

Codice sorgente - presumibilmente Plain Text

Private Sub Form_Load()
sockclient.RemotePort = 2007
sockclient.Listen
Sockclient.Close
e altre cose che non c'entrano
Private Sub cmdconnetti_Clik()
txteventi.Text = "mi sto connettendo"
sockclient.Connect (Text1.Text, 2007
txteventi.Text = "connesso"
End Sub

postatemi il codice giusto

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 11:28
Venerdì, 01/06/2007

Private Sub Form_Load()
sockclient.RemotePort = 2007
'sockclient.Listen '/non ha senso aprire e poi chiudere!!
'Sockclient.Close
end sub

Private Sub cmdconnetti_Clik()
txteventi.Text = "mi sto connettendo"
sockclient.RemoteHost = Text1.Text
sockclient.Connect
txteventi.Text = "connesso"
End Sub