هذا الكود لما اشغله تظهر فيه هذى الرسالة ليش
invalid operation at current state
هذا كود العميل
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect "127.0.0.1", "1112"
End Sub
Private Sub Timer1_Timer()
Text1.Text = Winsock1.State
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "WaaaaaaaaaaaW"
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)
Print "ERROOOOOOR"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim GD As String
Winsock1.GetData (GD)
List1.AddItem GD
End Sub
وهذا كود الخادم
Private Sub Command1_Click()
Winsock1.Close
Winsock1.LocalPort = 1112
Winsock1.Listen
If Winsock1.State = 7 Then Print "......... OK ........."
End Sub
Private Sub Timer1_Timer()
Text1.Text = Winsock1.State
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "ÚãáíÉ ÇáÅÊÕÇá ÊãÊ ÈäÌÇÍ "
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
Winsock1.SendData "ÚãáíÉ ÇáÅÊÕÇá ÊãÊ ÈäÌÇÍ "
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim GD As String
Winsock1.GetData (GD)
List1.AddItem GD
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)
Print "ERROOOOOOR"
End Sub
