چک کردن ارتباط اینترنت؟

[mohsen57]

چجوری میشه فهمید به اینترنت کانکت هستیم یا نه؟

[xxxxx_xxxxx]

بارها و بارها بحث شده. اين يكيش:
http://barnamenevis.org/forum/showthread.php?t=60413
لطفاً جستجو كنيد

[sinashahab]

چرا لغمه رو دور سرتون می پیچونین و می خورید .
api یا راه های دیگه همشون مشکلاتشو داره ولی نتها راهی که کشف کردم این بود :
یه وینسوک و یک تامر بزار و مدت تایمر رو روی 5000 بزار و این کد رو وارد کن :
WINSOCK1.connect "makrosoft.ir" , 80
این بی مشکل ترین و بهترن روش است .

[mohsen57]

api یا راه های دیگه همشون مشکلاتشو داره
چه مشکلی داره؟
روشی که شما گفتی مد نظر خودم هم بود ولی گفتم حتما تابعی برای این کار وجود داره که استاندارد هست.

[xxxxx_xxxxx]

ثابت هاي همون تابعي كه تو پست قبلي لينك دادم:


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

هميشه استفاده از API مطمعاً (همينطوري نوشته ميشه؟!) تره. چون داريم از توابع كتابخونه اي خود ويندوز استفاده مي كنيم. و برنامه وابسته به ابزار اضافي ديگه اي نيست.

[xxxxx_xxxxx]

يك روش ديگه، به روش پست شماره 3 ولي با API:


Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
If InternetCheckConnection("http://www.yahoo.com/", &H1, 0&) = 0 Then
MsgBox "Failed!"
Else
MsgBox "Succeeded!"
End If
End Sub

موفق باشيد/