سورس قطع کردن اتصال به اینترنت با رفرش کردن

سلام داداش
اول اینکه سروس نیست سورسه
دوم اینکه با رفرش اینترنت قطع نمیشه پس عنوان تاپیکت رو اصلاح کن
سوم نداریم! :tonguesmiley:

اینم سورس:

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Function IsInternetOn() As Boolean
   IsInternetOn = InternetGetConnectedState(0&, 0&)
End Function

Private Sub Timer1_Timer()
If (IsInternetOn) Then
    Label1.Caption = "Connected."
    SendKeys "{f5}"
    'Shell "rasdial /d", vbHide
Else
    Label1.Caption = "Disconnected."
End If
End Sub

اگر میخوای اینترنت رو کلا قطع کنی کد Shell "rasdial /d", vbHide رو از حالت کامنت در بیار .

<br> > سلام داداش اول اینکه سروس نیست سورسه دوم اینکه با رفرش اینترنت قطع نمیشه پس عنوان تاپیکت رو اصلاح کن سوم نداریم! :tonguesmiley: اینم سورس: ``` Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Function IsInternetOn() As Boolean IsInternetOn = InternetGetConnectedState(0&, 0&) End Function Private Sub Timer1_Timer() If (IsInternetOn) Then Label1.Caption = "Connected." SendKeys "{f5}" 'Shell "rasdial /d", vbHide Else Label1.Caption = "Disconnected." End If End Sub ``` اگر میخوای اینترنت رو کلا قطع کنی کد Shell "rasdial /d", vbHide رو از حالت کامنت در بیار . <br>

حاللا...!!!!!

دقیقا