[VB6] Connessione Automatica ad internet

[omarbs]

Ciao a tutti ragazzi!
Mi serve un aiuto, sto cercando di fare in VB6 un programmin o che ogni 5 minuti si connette automaticamente ad internet esegue delle operazioni e successivamente si disconnette.

Girando un po su internet ho trovato questo script

Private Sub StartConnection()
Dim X
X = Shell("rundll32.exe rnaui.dll,RnaDial " & Nome_Connessione, 1)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub


Non mi funziona !!!

Il messaggio d'errore è

ERRORE DURANTE IL CARICAMENTO DI RNAU.DLL
IMPOSSIBILE TROVARE LA PROCEDURA SPECIFICATA


Da premettere che ho installa to Windows XP

Qualcuno mi puo aiutare????

[mickeycc]

A me funziona bene,

Private Sub AttivaConnessione()

Dim ret As Long

If WinVer = 1 Then
ret = Shell("rundll32.exe rnaui.dll,RnaDial " & Connessione,1)
SendKeys "{ENTER}"
SendKeys "{ENTER}"

Else
ret = Shell("Rasphone -d """ & Connessione & """", 1)
SendKeys ("{ENTER}")
End If

End Sub

Ma come vedi di SendKeys ne ho messi due perchè non sempre ci prende al primo.
Ehm, il WinVer controlla la versione del windows e 1 è win 9x.
Io invece ho un'altro problema:
come faccio ad aspettare che sia completato il ciclo di connessione per inviare una email? Boh!
Chi cerca trova. Buon lavoro.