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
Ultima modifica effettuata da M@d_Hacker 31/07/08 15:16
aaa
31/07/08 15:31
GrG
guarda ke aveva risolto...
aaa