Contatta Lovato Damiano via mail
|  HOME  |  CURRICULUM  |  PROGETTI  |  GUESTBOOK  |          
 
SCRIPT IN VISUAL BASIC PER LA NAVIGAZIONE AUTOMATICA TRAMITE INTERNET EXPLORER

 

Creare un nuovo file di testo in cui inserire il codice qui di seguito riportato; una volta fatto sarà sufficiente rinominarlo con estensione VBS e avviarlo; lo script avvierà internet explorer e comincierà a navigare i siti indicati ad intervalli di tempo fissati; una volta terminato avviserà l'utente.

 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Lovato Damiano 04/06/2009
'
' Script di navigazione automatica tramite Internet Explorer
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SETTAGGIO DEI PARAMETRI ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Inserire il numero di indirizzi che verranno visitati
Dim ArrayIndirizzi(7)
' Inserire le URL da visitare (devono essere tante quante il numero inserito precedentemente)
ArrayIndirizzi(0) = "www.indirizzo1davisitare.com"
ArrayIndirizzi(1) = "www.indirizzo2davisitare.com"
ArrayIndirizzi(2) = "www.indirizzo3davisitare.com"
ArrayIndirizzi(3) = "www.indirizzo4davisitare.com"
ArrayIndirizzi(4) = "www.indirizzo5davisitare.com"
ArrayIndirizzi(5) = "www.indirizzo6davisitare.com"
ArrayIndirizzi(6) = "www.indirizzo7davisitare.com"
' Inserire il tempo minimo di attesa in millisecondi tra le navigazioni (5000 sono pari a 5 secondi)
Dim TempoDiAttesa
TempoDiAttesa = 5000
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = 1
' Definizione del contatore e inizializzazione del ciclo che scorrerà l'array
Dim x
For x = 0 To UBound(ArrayIndirizzi)-1
' Navigazione all' indirizzo presente nell' array
IE.navigate ArrayIndirizzi(x)
' Attende che la pagina sia caricata sul browser e fà trascorrere il tempo di attesa
Do While IE.Busy = True
WScript.Sleep TempoDiAttesa
Loop
Next
' Avvisa che la navigazione è terminata
MsgBox "La navigazione di " & UBound(ArrayIndirizzi) & " indirizzi è terminata",vbExclamation+vbMsgBoxSetForeground, "Navigazione terminata !"