شرح كيفة صنع برنامج يعطيك الأرقام المتصلة بك والمنافذ

[Ram]

[CENTER][=AsbMay]بسم الله الرحمن الرحيم
يناء على طلب سبايدر هاكر
http://www.xp10.org/showthread.php?t=1203
أقدم لكم شرح بسيط لكيفية عمل برنامج يكشف حالتك من حيث الإتصال بالمنافذ وألأرقام التى متصل به
-: الفكرة :-
تصميم برنامج يقوم بقرآة النت ستيت NetStat من الدوس ويترجمها فى ملف ومن ثم استعداء هذا الملف ومسحه بعد قرائته
http://www.asbmay.net/L/NetStat/5.PNG
-: الشرح :-
افتح مشروع عادى جداً
http://www.asbmay.net/L/NetStat/1.PNG
عدل حدوده وتسميته
http://www.asbmay.net/L/NetStat/2.PNG
ضيف الكائنات زى ما بالصورة
http://www.asbmay.net/L/NetStat/3.PNG
غير التسميات
واضبط التكست من الخاصية MultiLine إلى True والخاصية ScrollBars إلى 2- Vertical
http://www.asbmay.net/L/NetStat/4.PNG
الآن انتهت الكائنات
-----------------------------

[Ram]

-----------------------------
-: الأكواد :-
1- كود زر احضر الحالة
بالطبع الكود راح يختلف من ويندوز لآخر فالدوس الجديد كما فى الإكس بى امر إستعدائه مختلف عن القديم مثل ويندوز 98
لمستخدمى ويندوز XP أو 2000 أو 2003
Shell "Cmd.exe /c netstat > c:net.tmp", vbHide
Label1.Caption = "جارى إحضار الحالة ...."
Timer1.Interval = 5000
Timer1.Enabled = True

لمستخدمى ويندوز X9 أو Me
1- كود زر احضر الحالة
Shell "Command.com /c netstat > c:net.tmp", vbHide
Label1.Caption = "جارى إحضار الحالة ...."
Timer1.Interval = 5000
Timer1.Enabled = True

2- كود التايمر
Dim lijn As String
Open "c:net.tmp" For Input As #1
Line Input #1, lijn
Do While Not EOF(1)
If lijn <> "" Then
Text1 = Text1 & lijn & vbCrLf
End If
Line Input #1, lijn
Loop
Close #1
Timer1.Enabled = False
Label1.Caption = "تم إحضار الحالة بنجاح"
Call Kill("C:net.tmp")

مبروك انتهى البرنامج بنجاح
جربه وراح يعطيك الأرقام المتصلة بك بالمنافذ
مع تحياتى

Ram

اذا ماطلعه الاكواد بجيبها قريبا جدا

[سامي الشمري]

تسلم يا رام

بس الظاهر فيه خلل بالصندوق السحري

لعدم ظهور الأكواد


شاكر لك على موضوعك


تحياتي لك