PDA

View Full Version : CONNESSIONE AUTOMATICA


x110
08-02-2003, 14:23
IN QUALE MODO SI DICE ALLA CONNESSIONE AD INTERNET
DI CONNETTERI AUTOMATICAMENTE E DI SALVARE LA PASSWORD?
VB6 NON STO FACENDO UNO SPYWARE, TRANQUILLI....
QUALI SONO EVENTUALMENTE LE CHIAVI DI REGISTRO DA CAMBIARE????
GRAZIE MILLE. :cool:

csvqkm
26-02-2003, 10:33
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
'To prompt the user to connect to the Net
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If

'To automatically start dialling
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
MsgBox "You're Connected!", vbInformation
End If
'To disconnect an automatically dialled connection
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub


Prova cosė anche se nn l'ho mai testato
fammi sapere