Question simple ..

Question

Bonjour &#224; tous,

Ma question est simple :
Quelle commande faut il entrer pour ouvrir &#224; partir de VB une page HTML du genre toto.htm ???

J'ai bien essay&#233; shelle mais sans succ&#233;s, je crois que ca marche que pour les ex&#233;cutables ..
Merci d'avance ! 

Phil

BruNews · Answer

ShellExecute

ciao...
BruNews, MVP VC++

kakenette · Answer

Ouvrire a l'interne de ton app vb ou ouvrire avec ton Navigateur par default ?

Ps: (je te soutiens)
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e. 

kakenette

violent_ken · Answer

Violent Ken

Salut !

Tu d&#233;clares &#231;&#224; 
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

et tu mets cette ligne de commande :

ShellExecute Me.hwnd, "open", "c:\fichier.htm", vbNullString, App.Path, SW_SHOWNORMAL

@+

BruNews · Answer

Passer ZERO au lieu de Me.hwnd, idem en + rapide.

ciao...
BruNews, MVP VC++

philippe laschweng 1 · Answer

violent_Ken :
Bah ca ne fonctionne pas, je dois mal avoir fait un truc !!! Je creuse ... lol. J'utilisais d&#233;j&#224; une fonction semblable API plut&#244;t, mais pour ouvrir du .txt

Kakenette :
D&#233;sol&#233; c'est vrai je n'ai pas pr&#233;cis&#233;, je veu en fait l'ouvrir en externe dans l'exploreur (pas dans VB)

violent_ken · Answer

Violent Ken

Hum. Alors tu as peut-&#234;tre un firewall qui bloque l'acc&#232;s &#224; VB pour ouvrir des pages htm.
Essaie de remplacer "c:\fichier.htm" par "c:\fichier.doc" (fichier.doc que tu auras cr&#233;&#233;, bien sur) pour voir si le bug vient de l'api.

BruNews · Answer

Redeclare ainsi:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (Bidon0 As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal Bidon1 As Long, ByVal Bidon2 As Long, ByVal nShowCmd As Long) As Long

ShellExecute 0, "open", "c:\fichier.htm", 0, 0, SW_SHOWNORMAL

0 est impec pour params inutilis&#233;s.

ciao...
BruNews, MVP VC++

violent_ken · Answer

Violent Ken

Ah pardon, &#231;&#224; vient peut-&#234;tre plutot du SW_SHOWNORMAL dont je n'ai pas donn&#233; la d&#233;claration :
Const SW_SHOWNORMAL = 1
(&#224; rajouter l&#224; ou tu declares l'api)
@+

philippe laschweng 1 · Answer

Avec le Option explicit de mon prog, il g&#233;n&#233;re une erreur &#224; SW_SHOWNORMAL ! Mais c'est une constante non? De toute mani&#232;re m&#234;me en virant le Option Explicit, ca fait rien (plus d'erreur mais fonctionne pas)

Au lieu de mettre c:\... j'ai mis App.path & "	oto.htm" si le fichier toto est dans le m&#234;me dossier que l'executable/projet. Pas d'erreur l&#224; dessus ???

violent_ken · Answer

Violent Ken

Pas d'erreur l&#224; dessus, mais regarde ma remarque pr&#233;c&#233;dente pour SW_SHOWNORMAL
@+

BruNews · Answer

si est dans ton dossier alors impec ton truc.

ciao...
BruNews, MVP VC++

antoineraymond · Answer

Si tu ouvre ton navigateur et que tu lui donne en param&#232;tre la page que tu veux ouvrir.



Environ("ProgramFiles") & "\Internet Explorer\IEXPLORE.EXE toto.htm" 

Antoine

philippe laschweng 1 · Answer

Non impossible de fonctionner j(ai essay&#233; ces 2 m&#233;thodes :
ShellExecute 0, vbNullString, App.path & "\Q2400.htm", 0, 0, 1
ShellExecute 0, "open", App.path & "\Q2400.htm", 0, 0, 1

J'ai v&#233;rifi&#233; que le fichier n'est pas v&#233;rol&#233; et qu'il est bien dans le r&#233;p&#233;rtoire. J'ai essay&#233; &#224; partir de VB et de l'ex&#233;cutable et idem ......

Vais essayer ton truc Antoine

philippe laschweng 1 · Answer

Antoine :
Mais ou je sp&#233;cifi le chemin de toto.htm?

Pur&#233;e je pensais pas que c'&#233;tait une telle mis&#233;re. Avec des .txt ca passe nickel !

violent_ken · Answer

Violent Ken

Et t'as v&#233;rifi&#233; ton firewall (si t'en as un ?)

philippe laschweng 1 · Answer

Baj l&#224; je bosse sous une vieille b&#233;canne (NT) au boulot dans le cadre d'un stage !! Mais croispas qu'il y'en est 1 !!!!

Imcompr&#233;hensible ct'histoire! Mais j'essairai sur ma b&#233;canne ce soir ... histoire de cvoir !

violent_ken · Answer

Violent Ken

Copie &#231;&#224; dans un bloc-notes

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   855
      Left            =   2280
      TabIndex        =   0
      Top             =   1080
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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
Const SW_SHOWNORMAL = 1


Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:\fichier.htm", vbNullString, App.Path, SW_SHOWNORMAL
End Sub

Ensuite tu enregistres en *.frm et tu doubles cliques sur ton fichier *.frm.
VB s'ouvre.
Ensuite tu d&#233;poses ton fichier *.htm dans le r&#233;pertoire "c:" et tu le renommes "fichier.htm".
D&#233;marre le projet et clique sur command1. Que se passe t-il ?
Chez moi, mon fid&#232;le ZoneAlarm me notifie que vb6.exe tente d'acc&#233;der &#224; internet. Si je refuse l'acc&#232;s, rien ne se passe. Si j'accepte, la page htm s'ouvre normalement, tout fonctionne.
Alors essaie ce code et tiens moi au courant du r&#233;sultat!
@+

antoineraymond · Answer

Environ("ProgramFiles") & "\Internet Explorer\IEXPLORE.EXE " & App.path & "	oto.htm" 
 Environ("ProgramFiles") & "\Internet Explorer\IEXPLORE.EXE c:	oto.htm"


Antoine

philippe laschweng 1 · Answer

Non plus !!!
Je n'arrive m&#234;me pas &#224; lancer juste IE avec la commande :
ShellExecute 0, "open", "c:\Plus!\Microsoft Internet\Iexplore.exe", 0, 0, 1

violent_ken · Answer

Violent Ken

Je te renvoie &#224; mon message pr&#233;c&#233;dent : dis moi, apr&#232;s avoir fait ce que je t'ai conseill&#233;, ce qui se passe sur ton PC !
@+

violent_ken · Answer

Violent Ken

On ne lance pas des *.exe comme &#231;&#224;.
Utilises ShellExecute pour les fichiers "normaux" et Shell pour les *.exe
Exemple : Shell "C:\Program Files\Internet Explorer\Iexplore.exe"

Et pour ta page *.htm, regarde mon pr&#233;c&#233;dent message, tiens moi au courant.

256727  antoineraymond ==>Environ("ProgramFiles") & "\Internet Explorer\IEXPLORE.EXE c:	oto.htm" 
cela ne marche pas.

@+

BruNews · Answer

ShellExecute lance tout, EXEs y compris.

ciao...
BruNews, MVP VC++

violent_ken · Answer

Violent Ken

Oui, ShellExecute lance tout, m&#234;me les *.exe

Mais ShellExecute a besoin d'&#234;tre d&#233;clar&#233;.
ShellExecute n&#233;cessite 6 arguments.

Alors pour ne pas encombrer le code, et pour d&#233;clarer le moins d'apis possible, mieux vaut utiliser Shell.

Shell ne n&#233;cessite aucune d&#233;claration, et le seul argument (obligatoire) est le path+nom de l'exe.

Alors quand j'ai dit "On ne lance pas des *.exe comme &#231;&#224;.", je me suis tromp&#233;, effectivement. 
Mais cela ne change pas au fait que "Utilises ShellExecute pour les fichiers "normaux" et Shell pour les *.exe"

@+

antoineraymond · Answer

Moi je l'utilise dans une de mes application et quand je vais voir le contenu de la variable j'ai



stAppName = C:\Program Files\Internet Explorer\IEXPLORE.EXE ServeurTest/Rapport/RAP_Fournisseur.asp


OU



ServeurWEB = "ServeurTest"

stAppName = Environ("ProgramFiles") & "\Internet
Explorer\IEXPLORE.EXE " & ServeurWEB &
"/Rapport/RAP_Fournisseur.asp"



Call Shell(stAppName, 1)


Antoine

cs_franckydeluka · Answer

Voil&#224; ce que tu fais ("j'ai test&#233; &#231;a marche sans probl&#232;me")

Tu cr&#233;e un nouveau projet puis dans ta form1 tu met &#231;a:

Private Sub Form_Load()
Dim ret

ret = ShellExecute(hwnd, "open", "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "www.vbfrance.fr", 0, 1)

End Sub

puis tu ajoute un nouveau module et tu met &#231;a : 

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

voil&#224; voil&#224; y a pas de raison que ca marche pas 

si tu veux mettre un autre fichier qui s'ouvre avec iexplorer tu met ton c:	ot.htm &#224; la place de www.vbfrance.fr



Deluka.

Question simple ..

25 réponses

Discussions similaires