اين هو الخطأ في هذا البرنامج؟؟

للرفع

للرفع مرة اخرى

وش السالفة ؟؟؟؟؟

السلام عليكم

صديقي المشكلة في قبول الاتصال

جرب و خبرني شو بيصير معك

Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then _

Winsock1.Close

Winsock1.Accept requestID

End Sub

 
السيرفر
Private Sub Form_Load()
winsock1.LocalPort = 55555
winsock1.Listen

End Sub

Private Sub winsock1_Close()
winsock1.Close

winsock1.LocalPort = 55555
winsock1.Listen

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
winsock1.GetData Data
MsgBox Data
End Sub
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
winsock1.Close

winsock1.Accept requestID
Form1.Caption = "connected"
List1.AddItem winsock1.RemoteHostIP

End Sub

Private Sub winsock1_Connect()
Form1.Caption = "connected"
List1.AddItem winsock1.RemoteHostIP

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.LocalPort = 55555
winsock1.Listen
End Sub


الكلينت


Dim ip
Private Sub Form_Load()
Winsock1.Connect Text1.Text, 55555

ip = Winsock1.LocalIP
'Winsock1.SendData ip
'Winsock1.SendData (Winsock1.LocalPort)
End Sub

Private Sub winsock1_connect()
Winsock1.SendData ip
'Winsock1.SendData (Winsock1.LocalPort)
End Sub

كان هناك خلل في بعض المسميات و هناك فرق بين المتغير المحلي و العالمي

و انت لم تكتب اي شيء يفيد الاضافه للقائمه

و انا افضل ان لا يتم ارسال الي بي بل يحدد

السيرفر هو الاي بي كما انا فاعل لان هناك من يستخدم الشبكات