ho creato un programma client server, sul mio pc si connette ma se installo il server su un altro pc, di un altra casa, nn si collega. e forse ip che sbaglio ad inserire, io metto il seguente 192.168.1.--- è giusto?vi posto il codice.
Client
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Text1.Text, Text2.Text
End Sub
Private Sub Command3_Click()
Winsock1.SendData "1"
End Sub
Server
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = "7890"
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati
msgbox "ciao"
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Listen
End Sub
Ultima modifica effettuata da sparano97 il 12/07/2012 alle 22:46 |