PDA

View Full Version : چطوری میشه متصل بودن به اینترنت رو چک کرد؟



ali2914
دوشنبه 18 خرداد 1383, 21:30 عصر
سلام دوستان .چطوری می شه متصل بودن به اینتر نت رو چک کرد؟کی کد داره؟

sh
دوشنبه 18 خرداد 1383, 21:57 عصر
Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Me.AutoRedraw = True
'retrieve the connection status
InternetGetConnectedState Ret, 0&
'show the result
If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
End Sub

sh
دوشنبه 18 خرداد 1383, 21:58 عصر
یا این یکی :


Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
MsgBox "Is connected to the internet: " + CStr(IsConnected)
End Sub
Public Function IsConnected() As Boolean
If InternetGetConnectedState(0&, 0&) = 1 Then
IsConnected = True
Else
IsConnected = False
End If
End Function

ali2914
چهارشنبه 20 خرداد 1383, 08:03 صبح
قربان همه شما :heart: :mrgreen: من اگه شما رو نداشتم چه کار می کردم؟! :heart: :گیج:

hamid20live
سه شنبه 12 مرداد 1389, 23:01 عصر
دستتون درد نکنه بچه ها

|Smyty|
سه شنبه 12 مرداد 1389, 23:44 عصر
دستتون درد نکنه بچه ها

میدونی ؟ قسمت جالبش اینجاست که ایشون زیاد هم بچه نیستن :لبخند: و فکر کنم این پست مربوط به 6 سال پیشه ! جالبه

shaparak631
جمعه 13 تیر 1393, 01:21 صبح
جالب تر از همه اینه که من الان دارم یه پست که مال 10! سال پیش بوده رو میخونم!!:متعجب:
خیلی جالبه ها فک کن!! من اون موقع 12 سالم بوده خخخخ. یه ذره هم ترســـناکه
البته ببخشید این قسمت از فروم رو با یه پست فاقد محتوی اشغال کردم! پاک نکنیدااا بزارید باشه خاطره میشه برای آینده:خجالت::بامزه:
مثلا 10 سال دیگه میام این پستو میبینم ذوق میکنم:خجالت:

Rasul75
شنبه 14 تیر 1393, 19:25 عصر
me 2:خجالت::خجالت: