Как использовать InternetGetConnectedState? - VB
Формулировка задачи:
Народ, объясните как юзать.
Все мои попытки с ней что-либо сделать приводят к тому, что она возвращает 0.
Судя по хелпу она должна выдать true в случае, если коннект установлен (подключен через modem).
Решение задачи: «Как использовать InternetGetConnectedState?»
textual
Листинг программы
//Ispolzui : RasEnumConnectionsA
Private Type RASCONN
dwSize As Long
hRasConn As Long
szEntryName(256) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
End Type
Private Declare Function RasEnumConnectionsA& Lib 'RasApi32.DLL' (lprasconn As Any, lpcb&, lpcConnections&)
Private Sub Command1_Click()
Dim Verbindung As RASCONN
Dim size, Anz As Long
Verbindung.dwSize = 412
size = Verbindung.dwSize
If RasEnumConnectionsA(Verbindung, size, Anz) = 0 Then
If Anz = 0 Then
MsgBox ('You are Not connected To the net.')
Else
MsgBox ('You are connected To the net.')
End If
End If
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д