Discussion :

[zaza78]

Bonjour,

Je rencontre un petit problème dans mon application crée sur Visual Basic, je m'explique

Voila j'ai crée une interface ou l'on peut choisir un ou plusieurs scripts vbs à exécuter en même temps.
Pour cela, j'utilise des chekbox. Quand l'utilisateur coche la case, le script sera exécuté etc..

Mon problème est que quand je veux exécuter les scripts, une fenêtre s'affiche en me demandant si je veux Ouvrir, Enregistrer ou Annuler et une seconde fenêtre me demande si je veux l'exécuter ou non car l'éditeur est inconnue.

Voici le code que j'utilise dans mon application pour provoquer cette action.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ShellExecute(Handle, "explorer", r, vbNullString, _
                             "C:\", SW_SHOWNORMAL) <= 32 Then
                    MsgBox("erreur")
End If

"r" représente le nom de mon fichier vbs

J'ai testé avec la commande open à la place de explorer mais rien ne se passe.

Comment peux t'on désactiver ces alertes afin que les scripts vbs soient exécuter en toutes transparences?

[DarkVader]

Bonjour,
avec open comme paramètre, ton code devrait fonctionner -
Es-tu sur que SW_shownormal vaille 1 sinon il s'exécute en mode caché (0) ?
Sinon, essaye avec une chaine vide à la place de open.


PS : si tu exécutes plusieurs scripts en cascade, il est probable qu'il soit utile d'utiliser shellexecute conjointement à waitforsingleobject.

[zaza78]

Merci DarkVader d'avoir répondu

J'ai testé tes recommandations mais le problème persiste.

J'ai modifié la valeur de SW_SHOWNORMAL pour la mettre à 1 mais rien n'y fait
Aussi j'ai testé en mettant une valeur null à la place de open mais rien non plus.

La seul commande qui passe est explorer.

J'ai effectué un autre test avec une autre application pour ouvrir par exemple IE8 mais rien non plus.

Ah j'oublié de préciser, je suis débutant !!!

J'ai regardé dans plusieurs forums et la solution est d'utiliser open comme paramètre.

Je pense qu'il doit manquer quelque chose à mon code

Voici les paramètres que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Const SW_SHOWNORMAL = 1
    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
    Public i As Integer
    Private Const GWL_STYLE As Long = -16

et voila comment j'exécute le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ShellExecute(Handle, "explorer", r, vbNullString, _
                             "C:\", SW_SHOWNORMAL) <= 32 Then
                    MsgBox("erreur")
End If

[DarkVader]

.../...
Aussi j'ai testé en mettant une valeur null à la place de open mais rien non plus.

La seul commande qui passe est explorer.
.../...

Rien ou un message d'erreur ?
Tel que tu le décris il semblerait qu'il s'agisse d'un problème d'association dans la base de registre
(=> erreur 31 en retour à vérifier)

[zaza78]

Rien ou un message d'erreur ?
Tel que tu le décris il semblerait qu'il s'agisse d'un problème d'association dans la base de registre
(=> erreur 31 en retour à vérifier)

Bonjour DarkVader

Et bien pour information je n'ai aucun message d'erreur. J'ai l'impression qu'il ne reconnait pas la commande OPEN. Mon fichier est à la racine "C:\".

[DarkVader]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim ret as long
ret=ShellExecute(Handle, "explorer", r, vbNullString, "C:\", SW_SHOWNORMAL)
msgbox "1: " & ret

ret=ShellExecute(Handle, "open", r, vbNullString, "C:\", SW_SHOWNORMAL)
msgbox "2: " & ret

C'est le code de retour qu'il faut connaitre.

[zaza78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim ret as long
ret=ShellExecute(Handle, "explorer", r, vbNullString, "C:\", SW_SHOWNORMAL)
msgbox "1: " & ret

ret=ShellExecute(Handle, "open", r, vbNullString, "C:\", SW_SHOWNORMAL)
msgbox "2: " & ret

C'est le code de retour qu'il faut connaitre.

Merci

J'ai testé tes deux commandes et j'ai bien un code en retour, mais je vais te paraitre un peu bizarre, mais que représente le code en retour de la commande ?

[ProgElecT]

ALLAPI

Valeurs de retour
Si la fonction réussit, la valeur de retour est le handle d'instance de l'application qui a été exécuté, ou le manche d'un échange dynamique de données (DDE) du serveur d'applications.
Si la fonction échoue, la valeur de retour est une valeur d'erreur est inférieure ou égale à 32. Le tableau suivant présente ces valeurs d'erreur:
0 Le système d'exploitation n'a plus de mémoire ou de ressources.

ERROR_BAD_FORMAT (11&)
Le fichier. EXE est invalide (non-Win32. EXE ou erreur dans. Image EXE).

SE_ERR_ACCESSDENIED (5)
Le système d'exploitation refuser l'accès au fichier spécifié.

SE_ERR_ASSOCINCOMPLETE (27)
L'association nom de fichier est incomplète ou invalide.

SE_ERR_DDEBUSY (30)
La transaction DDE n'a pas pu être terminée, car d'autres opérations DDE étaient en cours de traitement.

SE_ERR_DDEFAIL (29)
La transaction DDE a échoué.

SE_ERR_DDETIMEOUT (28)
La transaction DDE n'a pas pu être terminée, car la demande a expiré.

SE_ERR_DLLNOTFOUND (32)
La bibliothèque de liens dynamiques spécifié est introuvable.

SE_ERR_FNF (2)
Le fichier spécifié est introuvable.

SE_ERR_NOASSOC (31)
Il n'existe aucune application associée à l'extension de fichier donnée.

SE_ERR_OOM (8)
Il n'y avait pas assez de mémoire pour terminer l'opération.

SE_ERR_PNF (3)
Le chemin d'accès spécifié est introuvable.

SE_ERR_SHARE (26)
Une violation de partage s'est produite.

Je pense que DarkVader va te demander quels codes tu as eu en retour

[zaza78]

Bonjour ProgElecT,

Alors concernant le message d'erreur, je n'ai toujours rien. Je m'explique

Voila j'ai testé les deux commandes que DarkVader m'a proposé et voici les résultats :
Pour le 1er msgbox --> 1: 317785265886199810

Pour le 2nd msgbox --> 2: 227994735430598658

Je ne sais pas à quoi corresponds ces deux codes mais en tt cas je n'ai aucuns messages du type "erreur ......".

Pour revenir sur mon code
j'ai crée un forms
Avec les paramètres suivants

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Const SW_SHOWNORMAL = 1
    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
 
    Public i As Integer
    Const GWL_STYLE As Long = -16

Ensuite je fais un banal test pour exécuter mon fichier de type "VBS"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ShellExecute(Handle, "open", "C:\test.vbs", vbNullString, _
                             "C:\", SW_SHOWNORMAL) <= 32 Then
                    MsgBox("erreur")

Voila.
Juste pour information j'ai testé une autre commande afin d'ouvrir par exemple "notepad.exe " avec la commande suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim ret As Long
ret = Shell("notepad.exe", vbNormalFocus)

Et sa marche !!!
A j'oublié je développe sur Visual Basic 2008 Express Studio
Donc pouvez-vous me dire si les déclarations sont correctes ou non ? Ou bien me proposer une autre solution plus adéquate à mon problème !!

[DarkVader]

C'est sur que si tu travailles en .net, les déclarations en Long ne vont pas le faire
Va voir sur le forum dédié.

PS: Penses aux balises de code.

[zaza78]

Bonjour DarkVader

J'ai réussi à résoudre mon problème, logique puisque je n'étais pas au bon endroit .

Mais je tiens quand même à donner la réponse

Alors la méthode la plus simple est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Process.Start("C:\test.vbs")

Voila et merci pour ton aide !!