Как отследить подключение к инету и отключение от него - VB
Формулировка задачи:
Как отследить подключение к инету и отключение от него?
Спасибо Заранене
Решение задачи: «Как отследить подключение к инету и отключение от него»
textual
Листинг программы
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Timer1_Timer()
Dim ret&
ret = InternetGetConnectedState(0&, 0&)
If ret = 1 Then
Call zapici
Else
MsgBox 'No Connect!'
End If
End Sub
Sub zapici()
MsgBox ("Connect!!!!")
End Sub