-----------------------------
-: الأكواد :-
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
اذا ماطلعه الاكواد بجيبها قريبا جدا