🚀 go-pugleaf

per assicurarmi che il mio computer sia sempre connesso a internet, ho
fatto questo programmino

Private Type RASDIALPARAMS
    dwSize As Long
    szEntryName As String * RAS_MaxEntryName
    szPhoneNumber As String * RAS_MaxPhoneNumber
    szCallbackNumber As String * RAS_MaxCallbackNumber
    szUserName As String * UNLEN
    szPassword As String * PWLEN
    szDomain As String * DNLEN
End Type

Private Declare Function rasDial Lib "RasApi32.DLL" Alias "RasDialA"
(lpRasDialExtensions As Any, ByVal lpszPhonebook As String,
lprasdialparams As Any, ByVal dwNotifierType As Long, lpvNotifier As
Long, lphRasConn As Long) As Long
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias
"RasHangUpA" (ByVal hRasConn As Long) As Long

Function dial(nomeCon$, user$, pass$) As Long
    Dim RasDialP As RASDIALPARAMS
    Dim hRasConn As Long
    
    With RasDialP
        .dwSize = 1052
        .szPhoneNumber = vbNullChar
        .szCallbackNumber = vbNullChar
        .szDomain = vbNullChar
        .szEntryName = nomeCon & vbNullChar
        .szUserName = user & vbNullChar
        .szPassword = pass & vbNullChar
    End With

    Do
        While InternetGetConnectedState(0&, 0&)
            DoEvents
        Wend
        
        dial = rasDial(ByVal 0&, vbNullString, RasDialP, &HFFFF, hWnd,
hRasConn)
        
        If dial <> 0 Then
            MsgBox "errore " & dial
            RasHangUp ByVal dial
        End If
    Loop
End Function

per� come al solito c'� un problema.
Appena lo lancio la connessioene viene stabilita regolarmente, ma se
poi mi disconnetto di proposito, e ovviamente il programma tenta la
riconnessione, la variabile dial mi restituisce il codice di errore
756.
Cosa significa?