• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 4 رای - 2.5 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد بررسی وضعیت اتصال به اینترنت
حالت موضوعی
#1
کد:
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Dim sConnType As String * 255

Sub CheckNetCon()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
    MsgBox "You are connected to Internet via a " & sConnType, vbInformation
Else
    MsgBox "You are not connected to internet", vbInformation
End If

End Sub

Private Sub Form_Load()
CheckNetCon
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 12,503 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 5,125 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 7,028 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  سورس کد ذخیره میخوام روشنا 5 6,798 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 3,721 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 6,693 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 2,536 05-20-2014، 12:17 AM
آخرین ارسال: aleas
  مشکل در سورس ثبت نام tiktak990 3 4,438 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 5,877 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  سورس کد دانلود فایل Amin_Mansouri 1 6,917 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra

پرش به انجمن:


Browsing: 1 مهمان