Oppure

Loading
31/07/08 15:10
M@d_Hacker
finiamola qui..

Crea 2 progetti vb6.. Uno il client e l'altro il server..

Client
Aggiungi il componente winsock..

Private Sub cmdconnect_Click()
Winsock1.Close
Winsock1.Connect "127.0.0.1",80
'Connetti il winsock del client al localhost sulla porta 80.
End Sub


Private Sub cmddisabilitacmd_Click()
Winsock1.SendData "$Disabilitacmd"
End Sub


Server

Private Sub Form_Load()
Winsock1.LocalPort = 80
Winsock1.Listen
End Sub


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


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati
If dati = "$Disabilitacmd" Then
CmdDaDISABILITARE.Enabled = False
End If
End Sub
:alert:
Ultima modifica effettuata da M@d_Hacker 31/07/08 15:16
aaa
31/07/08 15:31
GrG
guarda ke aveva risolto...
aaa
31/07/08 15:41
M@d_Hacker
NN avevo letto..:-|:-|:-|
aaa
31/07/08 15:48
GrG
ok nn fa niente
:k:
aaa