connect بودن یا نبودن

[هانی هاشمی]

با سلام
می خواستم 1 برنامه بنویسم که بفهمد که کامپیوتر کانکت هست و یا خیر :kaf:
ممنونم

[mohsengrisly]

سلام
شما هم با تابع زیر می توانید این کار را انجام دهید
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long,ByVal dwReserved As Long) As Long

می توان مشخص کرد که سیستمبه نت متصل است و از چه طریقی به نت متصل شده
البته شما هم ببخشید که نتونستم نمونه بذارم چون هنوزم امکان ارسال فایل خرابه
اما این کد رو توی یه فرم بذاری حل میشه
مشکلی بود در خدمتم

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 Retval As Long

Me.AutoRedraw = True
InternetGetConnectedState Retval, 0

If (Retval And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then
Me.Print "A valid connection to the Internet, but it may or may not be Connected."
End If
If (Retval And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
Me.Print "use a LAN"
End If
If (Retval And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
Me.Print "use a MODEM"
End If
If (Retval And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then
Me.Print "Offline mode"
End If
If (Retval And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
Me.Print "use a proxy server"
End If
If (Retval And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
Me.Print "RAS installed"
End If
Me.Print "Connected to Internet: " + CStr(IsConnected)
End Sub

Private Function IsConnected() As Boolean
If InternetGetConnectedState(0, 0) = 1 Then
IsConnected = True
Else
IsConnected = False
End If
End Function

[هانی هاشمی]

دستت درد نکنه
اما من می خوام گوشی تلفن را نیز اگر برداری connect=true شود

[mohsengrisly]

برای این کار باید پورت مودم رو چک کنی که ایا باز است یا خیر
یکی دو روز که نیستم برگشتم چشم