تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام اداة الوينسوك لاكثر من بورت
#1
السلام عليكم ورحمة الله وبركاته

كيف اجعل الوينسوك تنتظر الاتصال علي اكثر من بورت في نفس الوقت ، بس البورتات موجودة في ليست بوكس

يعني عندي لليست بوكس فيه عدد من البورتات تحت بعضيها علي سبيل المثال
50
60
70
كيف اجعل الوينسوك تنتظر الاتصال علي كل هذه البورتات

يعني Listen هتساوي ايه ؟

Winsock1.Listen

بارك الله فيكم انتظر الاجابة من الاسود
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- أدرج أداة ونسوك وضع قيمة الخاصية Index تساوي صفر . ثم إستخدم هذا الكود :

كود :
Private Function Is_PortInUse(zPort As Long) As Boolean
On Error GoTo zER

Is_PortInUse = True

Winsock1(0).Close
DoEvents
Winsock1(0).LocalPort = zPort
DoEvents
Winsock1(0).Listen
DoEvents
Winsock1(0).Close
DoEvents

Is_PortInUse = False
Exit Function

zER:
   If Err.Number <> 0 Then
      Is_PortInUse = True
      Exit Function
   Else
      Err.Clear
   End If
  
End Function


Private Sub Form_Load()

If List1.ListCount > 0 Then

   Dim I As Integer
   Dim R As Integer
  
   For I = 0 To List1.ListCount - 1
      
       If Trim$(List1.List(I)) <> "" And IsNumeric(Trim$(List1.List(I))) = True Then
          
          If Is_PortInUse(Val(Trim$(List1.List(I)))) = False Then
             R = R + 1
             DoEvents
             Load Winsock1(R)
             DoEvents
             Winsock1(R).LocalPort = Val(Trim$(List1.List(I)))
             DoEvents
             Winsock1(R).Listen
             DoEvents
          End If
          
       End If
  
   Next
  
End If

End Sub


Private Sub Form_Unload(Cancel As Integer)

If Winsock1.Count > 1 Then

   Dim I As Integer
   Dim zCount As Integer
  
   zCount = Winsock1.Count - 1
  
   For I = 1 To zCount
       Unload Winsock1(I)
       DoEvents
   Next
  
End If

End Sub
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك ، وجزاك الله خير
ما شاء الله عليك مجهودك جبار في المنتدي
الرد }}}}
تم الشكر بواسطة:
#4
شكرررررررررررراً وانا محتاج هذا الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 129 23-11-16, 09:41 AM
آخر رد: amer2000
  وجدت مشروع على اداة Treeview algroob 5 1,088 31-05-16, 04:45 PM
آخر رد: طه القدسي
  [vb6.0] مشكلة مع اداة ocx chaabane 3 248 08-12-15, 05:24 PM
آخر رد: chaabane
  [vb6.0] مشكلة مع اداة ocx chaabane 1 185 08-12-15, 03:32 PM
آخر رد: Rahf Azezi
  [سؤال] مشكله فى اداة Calendar aboezzat84 4 547 22-08-15, 10:06 AM
آخر رد: aboezzat84
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,170 03-06-15, 05:48 PM
آخر رد: ghost_programmer
Heart [vb6.0] استخدام kodakimg.exe اسماعيل اللامي 3 423 11-05-15, 10:56 AM
آخر رد: Ashraf Elafify
  اداة يتم الكتابة عليها مثل الدتا للجريد magic200100 4 726 02-04-15, 11:18 PM
آخر رد: ahmedabdelaliem
  من فضلكم اريد اداة XP COMMAND BUTTON.OCX الخاصة بي WIN7 64BIT chaabane 3 768 28-02-15, 04:19 PM
آخر رد: InJuries
  اريد اداة السكين لو سمحتو طارق 1 603 29-08-13, 06:39 PM
آخر رد: ahmed3d

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم