devi fare 2 programmi
che comunicano uno con l'altro
uno è il server (aspetta la connessione)
e l'altro è il client (si connette)
CLIENT
un Winsock che si chiami tcpClient
una textbox che si chiami txtSendData
una textbox che si chiami txtOutput
una textbox che si chiami txtIP
un bottone che si chiami cmdConnect
CODICE CLIENT
codice:
Private Sub cmdConnect_Click()
tcpClient.RemoteHost = txtIP.Text
tcpClient.RemotePort = 1001
tcpClient.Connect
End Sub
Private Sub txtSendData_Change()
tcpClient.SendData txtSendData.Text
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub
SERVER
un Winsock che si chiami tcpServer
una textbox che si chiami txtSendData
una textbox che si chiami txtOutput
CODICE SERVER
codice:
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then _
tcpServer.Close
tcpServer.Accept requestID
End Sub
Private Sub txtSendData_Change()
tcpServer.SendData txtSendData.Text
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
Componi questi due programmi (differenti)
poi avvia i due EXE Client e Server
sul client scrivi nella textbox txtIP
il numero IP del server (in questo caso
lo stesso computer quindi
localhost oppure 127.0.0.1
poi clikka il button cmdConnect
a quel punto il Server e il Client si comunicano
e se scrivi sulla text di uno, appare in quella
dell'altro (programma)
chiaro?
se non riesci a farli fungere, ti posso mandare il
programma già fatto...
mi basta la tua email...
CIAO!