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

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

كود:



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