رجاءً كود قطع لاتصال بالانترنت

بسم الله والصلاة والسلام علي من لا نبي بعده

اخي الكريم السلام عليكم ورحمة الله وبركاته

هذا الكود بمعرفة اسم الإتصال يمكنك قطعه وبدون API

ولكن هل لي ان اسألك فيما ستسخدمه

Private Sub Form_Load()
    Dim sDuName As String
    sDuName = InputBox("أدخل اسم الاتصال")
    If DisconnectDUN(sDuName) = True Then
        MsgBox "تم قطع الاتصال"
    Else
        MsgBox "لا يوجد اتصال بهذا الاسم"
    End If
    End
End Sub
Function DisconnectDUN(DUNName As String) As Boolean
    On Error GoTo errhandler
    AppActivate "Connected to " & DUNName
    SendKeys "c"
    DisconnectDUN = True
errhandler:
End Function

السلام عليكم ورحمة الله وبركاته

مشكور أخي العزيز Sism على تجاوبك ولكن هذا الكود موجود عندي بس للأسف كل ما أدخل اسم الاتصال والي هوة عندي اسمه (Dial-up Connection)

تطلع رساله تقول(لايوجد اتصال بهذا الاسم):(

أما عن سؤالك فيما سأستخدمه

سأستخدمه في إضافة مميزات جديدة لبرنامج من برمجتي من ضمنها قطع الاتصال بالانترنت

وتقدر تنزل البرنامج من هنا

http://www.3e6r.com/upload/uploads/NEwPrO.zip

وإذا كنت تستخدم وندوز 98 نزل هذه النسخة

http://www.3e6r.com/upload/uploads/NEwPro98.zip

للرفع:(

^^^^^^:(