[Maza Faka]

Positiv
Попробуй так:

Код:

If _GetConnectState() = 1 Then Exit

Global Const $INTERNET_AUTODIAL_FORCE_UNATTENDED = 0x02

$ConNumber = DllStructCreate("int")
DllStructSetData($ConNumber, 1, 0)

DllCall("wininet.dll", "int", "InternetDial", "hwnd", 0, _
        "ptr", 0, _
        "int", $INTERNET_AUTODIAL_FORCE_UNATTENDED, _
        "ptr", DllStructGetPtr($ConNumber), _
        "int", 0)

Func _GetConnectState()
    Local Const $INTERNET_CONNECTION_MODEM = 0x1
    Local $InetStruct = DllStructCreate("int")

    DllCall("wininet.dll", "int", "InternetGetConnectedState", "ptr", DllStructGetPtr($InetStruct), "dword", 0)

    If BitAND(DllStructGetData($InetStruct, 1), $INTERNET_CONNECTION_MODEM) Then Return 1
EndFunc