اتصال به اینترنت [بایگانی]

MrDuke

شنبه 30 مهر 1384, 18:05 عصر

سلام
من می خواهم ببینم که به اینترنت متصل شده ام یا خیر

Hamedm

شنبه 30 مهر 1384, 18:26 عصر

سلام
من می خواهم ببینم که به اینترنت متصل شده ام یا خیر

سلام

قبلا این سوال مطرح شده و پاسخ هم داده شده است. اگه جستجو کنی راحت پیدا میکنید.

در پناه حق موفق باشید و پرتوان

MrDuke

شنبه 30 مهر 1384, 20:58 عصر

اگرممکن آدرس تاپیک را برای من قرار بدهید اینجا چون من گشتم چیزی پیدا نکردم .

hatefsoltani

یک شنبه 01 آبان 1384, 13:10 عصر

لطف کنید آدرس تاپیک رو لطف کنید

alireza_CBoy

دوشنبه 02 آبان 1384, 00:18 صبح

سلام
دوست عزیز این کار با یک تابع API انجام میشه بنام : InetIsOffline
که اگر به اینترنت وصل باشید مقدار بازگشتی صفر و اگر وصل نباشید مقدار بازگشتی تابع یک می باشد .

اینم کدش :

Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long

Private Sub Form_Load()

Form1.AutoRedraw = True

Form1.Print "Connected to Internet: " + CStr(CBool(Not (InetIsOffline(0))))

End Sub

موفق باشی .