Page 1 sur 1

[Résolu] Comment lancer un script VBS depuis PureBasic

Publié : dim. 20/sept./2015 18:23
par jambon
Bonjour à tous et à toute voila pour mon utilisation.
J'écrit un fichier .vbs dans %TEMP% via PureBasic.


Jusque que là tout fonctionne, quand je double clique j'ai ma popup "UAC" de windows qui me demande les droits. (vu que y'a un manifest dans mon script .vbs) et le script fonctionne.


Maintenant je souhaite l'executer ce script .vbs depuis purebasic.
Donc naturellement j'utilise RunProgram(), puis voyant que cela ne fonctionnait pas j'ai utiliser ShellExecute_.

Mais rien à faire.... le script ne se lance pas, alors que ce même script ce lance en double cliquant..
Si quelqu'un à une solution.

Cdt
Edit par TazNormand le 23 septembre 2015 a écrit :Jambon, j'ai édité ton titre comme l'a suggéré Spock, puisque ce n'est pas un problème avec ces commandes, mais une "mauvaise" utilisation que tu en as faite.

Re: RunProgram,ShellExecute ne marche pas

Publié : dim. 20/sept./2015 19:19
par celtic88
essayer quelque chose comme ça

Code : Tout sélectionner

Win_dir.s=Space(#MAX_PATH)
SHGetSpecialFolderPath_(#Null,@Win_dir,#CSIDL_SYSTEM,#False)
Debug Win_dir
Votre_Script.s="" ; <=== la ecrivez le chemin ver ton script
ShellExecute_(#False,#False,Win_dir +"\WScript.exe", Votre_Script,#False,#True)

Re: RunProgram,ShellExecute ne marche pas

Publié : lun. 21/sept./2015 14:16
par jmg49
ou aussi avec un :

Code : Tout sélectionner

 RunProgram("c:\windows\system32\cscript.exe" ,"tonscriptvbs","", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide) ; ouvre les canaux de com + lecture possible sur sortie + le tout caché

les .vbs ne sont pas des "programs" il faut le passer en paramètre,

l' API ShellExecute, pareil bon pour .exe .com , apres la différence profonde wscript , cscript ....

Re: RunProgram,ShellExecute ne marche pas

Publié : mar. 22/sept./2015 20:01
par jambon
Bien le bonjour, enfaite j'ai oublié d'écrire la solution.
Avec RunProgram sa fonctionne bien il faut juste préciser "wscript".

Comme ceci:
RunProgram("c:\windows\system32","script.vbs",#PB_Program_Open)

Cdt