الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال للجميع

مغلق
بدأه زكريا1 في 19 أغسطس 2004 · 5 رد · 535 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لمادا ادا ادخلت الكود التالي لما ادخل ال IP ADDRESS واضغط كونكت مايصير اي شي

ولما ارجع ادخل IP ADDRESS كل شي يصير اوكي ولما استخدم البرنامج على كمبيوترين وادخل ال ip address مايصير كونكت

Dim b As Integer




Private Sub CONNECT_Click()

wsk.Close
wsk.CONNECT IP.Text, Val(PO.Text)



End Sub





Private Sub SEND_Click()
If wsk.State = 7 Then
wsk.SendData " hi bi "
DoEvents
End If


End Sub



Private Sub wsk_Connect()
Label1.Caption = " CONNECTION IS ESTABLISHED ....."
SEND.Enabled = True

End Sub

Private Sub wsk_SendComplete()
Label1.Caption = " COMPLETE SENDING DATA..."
SEND.Enabled = False

End Sub

Private Sub wsk_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Label1.Caption = " DATA SEND IS IN PROGRESS ..."

End Sub
Private Sub IP_Change()

Label1.Caption = IP.Text


End Sub

Private Sub PO_Change()
b = Val(PO.Text)
Label1.Caption = b

End Sub
#2

لقد قمت بتكرير الموضوع لكن هذا الموضوع مرتب اكثر من السابق.. على كل حال قلنا انا و الاخت بنت اليمن ان تقوم بارفاق المشروع كاملا لننظر بالمشكلة لكن وردت لي فكرة الان و هي ان هذا البرنامج لن يقوم بالشبك مع الطرف الاخر الا اذا كان هناك برنامج server يستمع الى connection requests

راكان الحنيطي

Be Open Source

opensource-550x4752.gif

#3

يوجد برنا مج server لكن المشكلة في بالتحديد في سطر

wsk.CONNECT IP.Text, Val(PO.Text)

ارجو ملاحضة الخطاء

ماهو لا اعلم

#4

برنا مج ال server هو

Private Sub Form_Load()
wsk.LocalPort = 1234
wsk.Listen
Label1.Caption = " LISTENING......."

End Sub

Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
If wsk.State <> 0 Then
With wsk
.Close
.Accept requestID
Label1.Caption = " CONNECTIN REQUEST IS ACCEPTED..."

End With
End If


End Sub

Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Label1.Caption = " ZAKARYA : HI SAIED HOW ARE YOU "

End Sub
#5

لا يوجد خطا في تلك العبارة... على كل تاكد من وضع نفس رقم البورت الذي تستمع فيه اداة السيرفر

و اذا لم يعمل قم بارفاق المشروع

راكان الحنيطي

Be Open Source

opensource-550x4752.gif

#6

المشروع يعمل ادا كتبت رقم ip

وبعدين كتبته مرت ثانية

هذا الموضوع مغلق.

مواضيع مشابهة