بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاتة
اولا اشكركم على هذا المجهود الرهيب الذى فى هذا المنتدى وارجو من الله تعالى ان يعزز من جهودكم وان يتسمر الموقع فى نجاح
لدى سوال ومشكلة
اولا بالنسبة للاداه winsock لقد عملت بعمل برنامج صغير للتصنت على البورت المفتوح وذلك لمعرفة اذا كان هناك شخص يعزم على الاتصال بجهازى ام لا عن طريق هذا البورت ( باتش الاختراق )
عندما فتحت برنامج الاختراق وجربتة على نفسى بنفس بورت البرنامج الاختراق الذى فية وكمثال برنامج برورات البرنامج عمل بصورة ممتازة وارسل لى تنبية بان هناك شى يتصل بهذا البورت ولكن عندما ارسل لى صديق ملف باتش او سيرفر وقمت بفتحة وانا اتصنت بالبرنامج على البورت المفتوح الذى يعمل به البرنامج تم الاتصال بى ولم يقم البرنامج باعطائى اى تنبية بالاتصال فارجو ان تساعدونى هل هناك فرق بين ان اتصل بجهازى الشخص وان اتصل بشخص اخر
وهذا هو مثال السورس
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox "Someone is trying to connect Port " + Text2.Text
Text5.Text = "Some is trying to Connect: Port " + Text2.Text + " his IP, " + Winsock1.RemoteHostIP
Winsock1.Close
Winsock1.LocalPort = Text2.Text
Winsock1.Listen
MsgBox "Resuming listen on port " + Text2.Text, vbInformation, "Resuming "
Label1.Caption = "Some is trying to Connect: Port " + Text2.Text
End Sub
Winsock1.LocalPort = Text2.Text
Winsock1.Listen
end sub
private sub command1_click
وهل هذة الطريقة مجدية فعلا فى ايقاف التسلل عبر البورتات واذا كان فى هذا الكود شى ناقص فارجو ان تنبهونا له جزاكم الله خير
وهل هناك طريقة لاغلاق البورت المفتوح بعد التعرف علية واذا كان يوجد مثال ارجو ان يتم شرحة وارفاقة
السوال الثانى ( معذرة اثقلنا عليكم )
اذا لدى لست بوكس تتضمن مجموعة من الكلمات كمثل
ana
howa
heay
اريد ان اعطى امر فى حالة اذا زاد اى شى عن اللستة ان تظهر نافذة مثلا وكانها from2
وشكرا لكم جزيلا وننتظر ردكم
