كود برمجي فحص المنافذ

[الفارس]

كود برمجي فحص المنافذ

On Error GoTo opn:
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
Text2.Text = "المنفذ غير مفتوح"

Exit Sub
opn:
If Err.Number = 10048 Then
Text2.Text = "المنفذ مفتوح"

Text2.Text = "يوجد مشكلة"

Winsock1.Close
End Sub


--------------------------------------------------------------------------------
البرنامج يعمل على القرص المدمج (السيدي رووم) فقط
*كود برمجي*


--------------------------------------------------------------------------------



(ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim driveType As Long
driveType = GetDriveType(Mid(App.Path, 1, 3))
If driveType <> 5 Then
'إنهاء البرنامج إذا كان لايشتغل من القرص المدمج

End If
End Sub