[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
 

[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") 


[PeterGhattas082460]

(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

[a.ahmed]

RequireAdministrator

[Meroo1809]

(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