21-12-22, 01:05 PM
(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
