منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ما هو الكود الخاص بـ Enable and Disable to Local Area Connection ؟

السلام لكم
اريد الكود اللازم لعمل لتشغيل وتعطيل للانترنت Local Area Connection
لاستخدامه في برنامج VS 2010

لقد استطعت عمل Enable للـ Local Area Connection بستخدام هذا الكود

Lable1.Text = (IO.Directory.GetCurrentDirectory) + "Local Area Connection.lnk"
Process.Start(Lable1.Text)

لو فيه طريقة تاني لعمل Enable يريت حد يكتب اذي
بس مش عارف اعمل Disable للـ Local Area Connection

و أيضاً اريد كود لمعرفة اذا كان الـ Local Area Connection = Connected or Unconnected ؟
اريد كود لمعرفة اذا كانت ايقونة الانترنت شغالة ولا لا
يعني اذا كانت شغالة فا تظهر لي Mgsbox بتقول لي كذا
واذا كانت Disable تظهر لي Msgbox بتقول لي كذا
لاستخدامه في برنامج VS 2010

Run As Administrator

Enable

PHP كود :

Process.Start("netsh interface set interface ""Local Area Connection"" enabl") 

Disable

PHP كود :

Process.Start("netsh interface set interface ""Local Area Connection"" disabl") 

(19-10-17, 07:30 PM)a.ahmed كتب : [ -> ]Run As Administrator

Enable

PHP كود :

Process.Start("netsh interface set interface ""Local Area Connection"" enabl")

Disable

PHP كود :

Process.Start("netsh interface set interface ""Local Area Connection"" disabl")

للأسف الكود ده مش شغال صح عندي في VS 2010

RequireAdministrator

(19-10-17, 06:39 PM)PeterGhattas082460 كتب : [ -> ] السلام لكم
اريد الكود اللازم لعمل لتشغيل وتعطيل للانترنت Local Area Connection
لاستخدامه في برنامج VS 2010

لقد استطعت عمل Enable للـ Local Area Connection بستخدام هذا الكود

Lable1.Text = (IO.Directory.GetCurrentDirectory) + "Local Area Connection.lnk"
Process.Start(Lable1.Text)

لو فيه طريقة تاني لعمل Enable يريت حد يكتب اذي
بس مش عارف اعمل Disable للـ Local Area Connection

و أيضاً اريد كود لمعرفة اذا كان الـ Local Area Connection = Connected or Unconnected ؟
اريد كود لمعرفة اذا كانت ايقونة الانترنت شغالة ولا لا
يعني اذا كانت شغالة فا تظهر لي Mgsbox بتقول لي كذا
واذا كانت Disable تظهر لي Msgbox بتقول لي كذا
لاستخدامه في برنامج VS 2010

كود :

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, _

ByVal dwReserved As Int32) As Boolean

Private Declare Function InternetDial Lib "Wininet.dll" (ByVal hwndParent As IntPtr, _

ByVal lpszConnectoid As String, ByVal dwFlags As Int32, ByRef lpdwConnection As Int32, _

ByVal dwReserved As Int32) As Int32

Private Declare Function InternetHangUp Lib "Wininet.dll" _

(ByVal lpdwConnection As Int32, ByVal dwReserved As Int32) As Int32

Private Enum Flags As Integer

 'Local system uses a LAN to connect to the Internet.

 INTERNET_CONNECTION_LAN = &H2

 'Local system uses a modem to connect to the Internet.

 INTERNET_CONNECTION_MODEM = &H1

 'Local system uses a proxy server to connect to the Internet.

 INTERNET_CONNECTION_PROXY = &H4

 'Local system has RAS installed.

 INTERNET_RAS_INSTALLED = &H10

End Enum

'Declaration Used For InternetDialUp.

Private Enum DialUpOptions As Integer

 INTERNET_DIAL_UNATTENDED = &H8000

 INTERNET_DIAL_SHOW_OFFLINE = &H4000

 INTERNET_DIAL_FORCE_PROMPT = &H2000

End Enum

Private Const ERROR_SUCCESS = &H0

Private Const ERROR_INVALID_PARAMETER = &H87

Private mlConnection As Int32

كود :

Dim lngFlags As Long

If InternetGetConnectedState(lngFlags, 0) Then

    'connected.

    If lngFlags And Flags.INTERNET_CONNECTION_LAN Then

        'LAN connection.

        MsgBox("LAN connection.")

    ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then

        'Modem connection.

        MsgBox("Modem connection.")

    ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then

        'Proxy connection.

        MsgBox("Proxy connection.")

    End If

Else

    'not connected.

    MsgBox("Not connected.")

End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

PeterGhattas082460

a.ahmed

PeterGhattas082460

a.ahmed

Meroo1809