Sujet Précédent Sujet Suivant

VBS - Lancer Internet Explorer en fenêtre agrandie

cs_fraise2 Messages postés 6 Date d'inscription mercredi 26 décembre 2007 Statut Membre Dernière intervention 28 mars 2012 - 28 mars 2012 à 17:21
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 31 mars 2012 à 16:18

Bonjour,

J'utilse ce script VBS pour lancer une page Internet :

Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.navigate "http://www.google.fr"

Comment faire en sorte que ma fenêtre soit agrandie sans passer par des Sendkeys, que je ne trouve pas très propres et un peu hasardeux ?

Merci par avance

A voir également:

Internet explorer vbs
Vbs internet explorer - Meilleures réponses
Internet explorer vbscript - Meilleures réponses
Modele site internet - Conseils pratiques -PHP
Msgbox vbs - Conseils pratiques -Visual Basic / VB.NET
Win explorer - Forum Java
Vbs to exe ✓ - Forum Visual Basic
Convertir un vbs en vbe ou en exe - Forum Visual Basic 6

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
31 mars 2012 à 15:43

Bonjour,
Essaie ceci:

Dim wShell 
set wShell = CreateObject("Shell.Application")
wShell.Open "http://www.google.fr"

@+Le Pivert

Réponse 2 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
31 mars 2012 à 15:47

Ou alors cela:

Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.vbfrance.com/listecodes.aspx"

@+Le Pivert

Réponse 3 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
31 mars 2012 à 16:18

J'ai trouvé ce snippet de PCPT:

Dim sUrl 
Dim oShell
sUrl = "http://www.codyx.org/snippet_lancer-page-web-url-avec-navigateur-defaut_723.aspx"
Set oShell = WScript.CreateObject("WSCript.shell")
 If bMaximized = True Then
    oShell.run sUrl, 3
 Else
    oShell.run sUrl, 1
 End If
 Set oShell = Nothing

Discussions similaires

création d'un portail de réservation d'un club de tennis

Devis pour un site

test de connexion internet

envoi mail avec SFR et club–Internet

transformer les fichiers .vbs en .exe

Votre réponse

Discussions similaires