به انجمن های تخصصی دانلود رایگان خوش آمدید
نام کاربری یا ایمیل:  
پسورد:     
ثبت نام | بازیابی پسورد
ثبت نام راهنما لیست اعضا مشاهده ارسال های جدید مشاهده ارسال های امروز
X اطلاعات تالار نشان میدهد که شما عضو نیستید. لطفا از این لینک در کمتر از 1 دقیقه ثبت نام کنید



ارسال موضوع  ارسال پاسخ 
 
امتیاز موضوع:
  • 1 رأی - میانگین امیتازات : 5
  • 1
  • 2
  • 3
  • 4
  • 5

اتصال به اينترنت

نویسنده پیام
*
ارسال ها: 122
اعتبار: 7
سپاس کرده: 37
سپاس شده: 98 در 68 موضوع

امتياز: 730.20

ارسال: #1
اتصال به اينترنت
سلام

این کد برای فهمیدن وصل بود یا نبودن به اینترنت



Private Const INTERNET_CONNECTION_LAN As Long = &H2

Private Const INTERNET_CONNECTION_PROXY As Long = &H4

Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8

Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

Private Const INTERNET_RAS_INSTALLED As Long = &H10

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

Private Sub Form_Load()

If InternetGetConnectedState(&H2, 0&) = 0 Then

MsgBox "you are offline", vbExclamation

Else

MsgBox "you are online", vbInformation

End If

End Sub

امضا كاربر
پنج شنبه ۵ آبا ۱۳۹۰ ۲۳:۰۱ عصر
یافتن تمامی ارسال های این کاربر سپاس نقل قول این ارسال در یک پاسخ
ارسال موضوع  ارسال پاسخ 






تالار گفتمان اف دی ال - انجمن تخصصی دانلود رایگان - تالار گفتگوی ایرانیان © 1397.