vbs et navigateurs par defaut

Question

Bonsoir,

je souhaite en vbs lacer un site predefini avec le navigateur par defaut de l'user et en pleine page si possible

merci à vous
++

Claiyah · Answer

sa  c'est pour internet explorer

Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.vbfrance.com"

Les yeux montrent la force de l'âme

Claiyah · Answer

voila pour le navigatuer par default 

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "www.vbfarnce.com"

Les yeux montrent la force de l'âme

narco4 · Answer

merci bien,
petit soucie la page ne s'ouvre pas en pleine ecrans
possible?
merci pr tous!

PCPT · Answer

salut, étonnamment ce sujet n'était pas présent sur codyx, voilà chose faite :p

' LANCER UNE PAGE WEB (URL) AVEC LE NAVIGATEUR PAR DÉFAUT ' http://www.codyx.org/snippet_lancer-page-web-url-avec-navigateur-defaut_723.aspx#2128 ' Posté par [ PCPT ] le 02/11/2008

Sub RunUrl(sUrl, bMaximized) Dim oShell Set oShell = WScript.CreateObject("WSCript.shell") If bMaximized = True Then oShell.run sUrl, 3 Else oShell.run sUrl, 1 End If Set oShell = Nothing End Sub ++ Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

narco4 · Answer

ok merci,

encore un soucis

exemple

dim reponse
reponse = MsgBox ("Une ou plusieurs infections détectées",vbYesNo+VBcritical," lol")                                               
If reponse = VbYes Then      
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "www.vbfarnce.com"
Else      
MsgBox "Vous avez cliqué sur Non",vbinformation 
End If  

mon soucie c'est que qd je clique sur oui j'ai une erreur, pas sur non.
je comprend pas

merci bcp

PCPT · Answer

peut-être à cause de l'espace, ou du manque de "http"
mais à quoi bon avoir une procédure si c'est pour ne pas l'utiliser !!



If 
MsgBox
(
"Une 
ou plusieurs infections détectées"
, vbYesNo 
Or 
vbCritical, 
"Encore une blaggue de 
virus stupide"
) = vbYes 
Then

  RunUrl "http://www.vbfrance.com", True
Else
  MsgBox "Vous avez cliqué sur 
Non", vbInformation
End If





ps : avec un YES-NO, on attend souvent une question.... 

 
Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

narco4 · Answer

ok mais ça ne marche pas

Sub  RunUrl(sUrl, bMaximized) 
 Dim oShell
 Set oShell = WScript.CreateObject("WSCript.shell")
 If bMaximized = True Then
    oShell.run sUrl, 3
 Else
    oShell.run sUrl, 1
 End If
 Set oShell = Nothing
End Sub
If  MsgBox ( "Une ou plusieurs infections détectées" , vbYesNo  Or  vbCritical,  "Encore une blaggue de virus stupide" ) = vbYes  Then 
  RunUrl "http://www.vbfrance.com", True
Else
  MsgBox "Vous avez cliqué sur Non", vbInformation
End If

PCPT · Answer

j'ai copié collé exactement ton dernier message dans un fichier x.vbs, et çà marche sans problème !!

narco4 · Answer

pas chez moi snif

PCPT · Answer

ok et donc "pas chez moi" = à nous de deviner?

marche pas = erreur? marche à moitié? si tu es sous vista, ton vbs est lancé avec les droits d'administrateur?

on te fournie le code sur un plateau, tu pourrais au moins te donner la peine de faire quelques tests avant juste un snif...

 
Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

narco4 · Answer

desolé, oui je suis sous vista, uac desactivé.
erreur qui me dit "le fichier spécifié est introuvable"
mon navigateur par defaut est ff est c'est ie qui tente de s'ouvrir, puis j'ai le message d'erreur
encore desolé!

narco4 · Answer

re,

si tu veut le script marche si tu as un autre navigateur par defaut de IE
si FF pas de soucis si IE fichier introuvable
je voudrais trouver comment lancer une page à chaque fois IE,FF ou autre toujours avec le navig par defaut
merci.

PCPT · Answer

re testé à l'instant,
fonctionne également avec IE6 par défaut.....

tu as essayé sur d'autres postes?

narco4 · Answer

merci

non, pas tester 
mais pourquoi cela ne marcherai pas chez moi?
vista, UAC desactiver
je comprend pas
ce script servira à des users sous xp et vista
si ça ne fonctionne pas chez moi je ne peut le proposer en téléchargement.

PCPT · Answer

non mais si çà fonctionne ailleurs dont sur des vista, tu peux essayer d'isoler le problème qui forcément ne sera pas dû au code

(ps : testé sous win2000, IE6, FF2)

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Vbs et navigateurs par defaut

15 réponses

Votre réponse