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

Visual Basic 6

توسط moeinmq در 5 سال پیش
0 1.2k 3 4 سال پیش
moeinmqalidevelopervc3000
0

قبلا یه سروس دیده بوتم که تا طرف به اینتر نت وصل میشد فرمان کلیدF5میداد و نمیذاشت صفحه باز بشه. اون سروس رو میخوام لطفا با آموزش کامل برام بذارید ممنون میشم. درضمن نمیشه یکاری کرد بازه زمانیش بیشتر بشه؟مثلا هر5یا10ثانیه رفرش انجام بده(چیکار باید بکنم؟اگه تایمر داره اینترول تایمرو زیاد کنم؟؟؟)؟؟؟

0

سلام داداش اول اینکه سروس نیست سورسه دوم اینکه با رفرش اینترنت قطع نمیشه پس عنوان تاپیکت رو اصلاح کن سوم نداریم! :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 رو از حالت کامنت در بیار .

0

> سلام داداش اول اینکه سروس نیست سورسه دوم اینکه با رفرش اینترنت قطع نمیشه پس عنوان تاپیکت رو اصلاح کن سوم نداریم! :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 رو از حالت کامنت در بیار .

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

0

دقیقا

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.

لطفا ابتدا لاگین کنید