Script vbs prenant place du raccourci internet explorer et permettant de changer la page de démarrage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 390 fois - Téléchargée 26 fois

Contenu du snippet

Bonjour à tous,
ce petit script permet de changer à chaque lancement d'IE la page de démarrage.
Comme vous le constaterez, vous mettez ce que vous voulez comme nombre de pages, il suffit de supprimer les tests imbriqués ou en rajouter.
Je vous conseille de mettre ce script sur votre disque dur et de mettre des raccourcis pointant sur le script comme ça vous pourrez changer très simplement l'icône VBS en IE.
Merci pour votre indulgence car je ne connait pas vraiment le VBS...
@ bientôt
AlCapoon

Source / Exemple :


' ----------------------------------------------------------
' Script VBS de lecture de clef de la BDR
' JCB - © 2002
' ----------------------------------------------------------
Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Set oIE = CreateObject("InternetExplorer.Application")
' ----------------------------------------------------------
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.clubic.com/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/BusinessTechnologies/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/BusinessTechnologies/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/MicroPerso/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/MicroPerso/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://telecharger.01net.com/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://telecharger.01net.com/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/actus/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/actus/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/produits/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/produits/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.01net.com/distribution/"
Else
If Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page") = "http://www.01net.com/distribution/" then
	Shell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.clubic.com/"
End If
End If
End If
End If
End If
End If
End If
End If
oIE.navigate Shell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page")
oIE.visible=1

A voir également

Ajouter un commentaire

Commentaires

kickbar
Messages postés
44
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
19 mars 2011
-
c pas mal mais t'aurai du utiliser la randomization si tu connais pas sa donne sa :

Randomize
a = Int((10 * rnd ) + 1 )
if a = 1 then
...........................
end if
if a = 2 then
...............................
end if
ect ................................................

tu ajoute sa a ton code il sera un petit peu moin previsible mais il faut laisser la verification de la clé presente sa permer de ne pas metre la meme mais sinon tres bonne idee c'est pas si mal que sa pour apprendre un peu de code
tekila_bandita
Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
3 -
La fonction regread ne sert pas à vérifier si une clé existe...
Moi aussi je recherche une fonction pour vérifier si elle existe!!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.