Lancer le navigateur avec shellRésolu

Question

Bonjour,
je voudrai savoir si on peux lancer le navigateur par defaut avec une url défini en utilisant la commande shell?
Merci beaucoup

cs_cheyenne · Accepted Answer

Bonjour lolpop,

Shell "explorer " & strUrl, vbNormalFocus

@+ Cheyenne

lolpop · Answer

Merci de ta réponse.

Mais la ca va lancer internet exporer.
Hors je voudrai savoir si on peu le faire avec le navigateur par defaut?
Merci

lolpop · Answer

c'est bon je pense avoir trouvé
Shell "D:\Program Files\Mozilla Firefox\firefox.exe " & url , vbNormalFocus ca marche

Donc je vais faire un petit script pour récupérer le lien du navigateur par defaut.

Merci

Kristof_Koder · Answer

si tu executes une url directment avec l'API ShellExecute, elle devrait se lancer dan sle navigateur par défaut.

lolpop · Answer

Oui mais le soucis c'est que j'ai besoin de handle du processus lancé avec shell je l'ai directement avec shellexecute je ne l'ai pas

PCPT · Answer

salut,
on peut l'avoir tant avec shell qu'avec shellexecute....

SHELL => renvoie le PID
http://www.codyx.org/snippet_recuperer-hwnd-handle-partir-pid-process-id_451.aspx#1462

SHELLEXECUTE : If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application. 

de plus en lançant firefox (en plus par TON chemin qui risque de ne pas être le même , surtout sur D), ce n'est pas non plus le browser par défaut....

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Kristof_Koder · Answer

et tu peux toujous cherche un renard qui se mord la queue sur mon PC, tu n'en trouveras aucun !!

lolpop · Answer

j'ai fait ceci d'aprés ton message : 

Private Sub Command1_Click()
retval = ShellExecute(actualfrmHWND, "open", "D:\Program Files\Mozilla Firefox\firefox.exe ", _
            "http://www.google.fr", Dummy, SW_SHOWNORMAL)



ok = InstanceToWnd(retval)
MsgBox ok
End Sub


Mais ca me retoutnr toujours 0

lolpop · Answer

Pour ce qui est de mon chemin du navigateur par defaut, j'avais vu un script sur le web pour trouver le chemin du navigateur par defaut, je pourrai peu etre faire avec cela.

Merci de votre aide

PCPT · Answer

chemin du nav = > 
CHEMIN = GetExePathFileFromExtention("htm")

http://www.codyx.org/snippet_recuperer-chemin-programme-associe-fichier-apres-son-extension_544.aspx

normal que OK soit à 0, tu fais InstanceToWnd sur le retour de SHELLEXECUTE qui ne renvoie  pas  de PID, revoir mon précédent message ;)
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

tabarouit · Answer

le navigateur par defaut

Private Declare Function ShellExecute Lib _
     "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hWnd As Long, ByVal lpOperation _
     As String, ByVal lpFile As String, ByVal _
     lpParameters As String, ByVal lpDirectory _
     As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
ShellExecute 0&, vbNullString, "http://www.vbfrance.com/forum/sujet-LANCER-NAVIGATEUR-AVEC-SHELL_1086145.aspx", vbNullString, _
      vbNullString, SW_SHOWNORMAL
End Sub

salut a tous

Lancer le navigateur avec shell

11 réponses

Votre réponse

Discussions similaires