وضعیت کانک بودن یا نبودن

[aleas2]

سلام برهمگی دوستان تو vb6 چطور میشه فهمید به اینترنت وصل هستیم یانه؟

[saeedvir]

بفرما :



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
Private Sub Form_Load()
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 Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long

Private Sub Form_Load()
If InternetAttemptConnect(ByVal 0&) = 0 Then
MsgBox "You can connect to the Internet", vbInformation
Else
MsgBox "You cannot connect to the Internet", vbInformation
End If
End Sub

[aleas2]

مرسی ممنون راستی میشه فهمید سرعت اینترنت چقدره؟

[xxxxx_xxxxx]

سلام،
قبل از ایجاد تاپیک باید جستجو کنید. تاپیک های مشابه:
تست اتصال به اینترنت (http://barnamenevis.org/forum/showthread.php?t=150782) ‏
اتصال به اينترنت (http://barnamenevis.org/forum/showthread.php?t=171297)
چطوری میشه متصل بودن به اینترنت رو چک کرد؟ (http://barnamenevis.org/forum/showthread.php?t=8461)

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

قفل شد/