Bonjour,
Je suis d=E9butant en VB, et je d=E9sirais, via un script VB=20
automatiser une installation de logiciel, en appelant=20
l'application et en faisant de l'=E9mulation clavier=20
ensuite. je sais faire l'=E9mulation clavier via ses lignes=20
de commandes:
o_shell.sendkeys "{LEFT}"
wscript.sleep 200
o_shell.sendkeys "{LEFT}"
...
mais je ne sais pas lancer un setup.exe par exemple...
Je sais que c'est basic, mais je ne sais pas faire...
merci d'avance ...
Thomas
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour, lancer un exe: Shell
Dim x x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice. AppActivate r ' Active l'application Calculatrice. For i = 1 To 100 SendKeys i & "{+}", True ' Envoie des frappes de touches à application Next i 'Calculatrice pour ajouter chaque valeur de I. SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String Site = "http://www.iFrance.com/A" ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
-- Merci, @+, bye, Joe EhJoe AROBASE hotmail.com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Thom" a écrit dans le message de news:06c701c4a21c$4cddba00$ Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses lignes de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ...
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas
Bonjour, lancer un exe:
Shell
Dim x
x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i
r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice.
AppActivate r ' Active l'application Calculatrice.
For i = 1 To 100
SendKeys i & "{+}", True ' Envoie des frappes de touches à application
Next i 'Calculatrice pour ajouter chaque valeur de I.
SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String
Site = "http://www.iFrance.com/A"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
--
Merci, @+, bye, Joe
EhJoe AROBASE hotmail.com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"Thom" <thomas_scordiaNOSPAM@hotmail.com> a écrit dans le message de
news:06c701c4a21c$4cddba00$a501280a@phx.gbl...
Bonjour,
Je suis débutant en VB, et je désirais, via un script VB
automatiser une installation de logiciel, en appelant
l'application et en faisant de l'émulation clavier
ensuite. je sais faire l'émulation clavier via ses lignes
de commandes:
o_shell.sendkeys "{LEFT}"
wscript.sleep 200
o_shell.sendkeys "{LEFT}"
...
mais je ne sais pas lancer un setup.exe par exemple...
Je sais que c'est basic, mais je ne sais pas faire...
merci d'avance ...
Thomas
Dim x x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice. AppActivate r ' Active l'application Calculatrice. For i = 1 To 100 SendKeys i & "{+}", True ' Envoie des frappes de touches à application Next i 'Calculatrice pour ajouter chaque valeur de I. SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String Site = "http://www.iFrance.com/A" ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
-- Merci, @+, bye, Joe EhJoe AROBASE hotmail.com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Thom" a écrit dans le message de news:06c701c4a21c$4cddba00$ Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses lignes de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ...
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas
Set shell = WScript.CreateObject("WScript.Shell")
codRet = Shell("c:setup.exe")
sinon regarde par exemple ici, il y a quelque exemple...
http://www.vbfrance.com/code.aspx?ID51
RV
-----Message d'origine----- Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses
lignes
de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ....
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas .
Set shell = WScript.CreateObject("WScript.Shell")
codRet = Shell("c:setup.exe")
sinon regarde par exemple ici, il y a quelque exemple...
http://www.vbfrance.com/code.aspx?ID=8151
RV
-----Message d'origine-----
Bonjour,
Je suis débutant en VB, et je désirais, via un script VB
automatiser une installation de logiciel, en appelant
l'application et en faisant de l'émulation clavier
ensuite. je sais faire l'émulation clavier via ses
lignes
de commandes:
o_shell.sendkeys "{LEFT}"
wscript.sleep 200
o_shell.sendkeys "{LEFT}"
....
mais je ne sais pas lancer un setup.exe par exemple...
Je sais que c'est basic, mais je ne sais pas faire...
merci d'avance ...
Thomas
.
sinon regarde par exemple ici, il y a quelque exemple...
http://www.vbfrance.com/code.aspx?ID51
RV
-----Message d'origine----- Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses
lignes
de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ....
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas .
Guy DETIENNE
Salut ;O)
Lis mieux la question ! Il te parle de VBScript et non de VB. Ta réponse n'est donc pas adaptée.
VBScript ne connait pas la commande Shell.... Il faut donc lui la faire connaitre en instanciant un objet WScript.Shell :
Set shell = WScript.CreateObject("WScript.Shell")
RetVal = Shell("c:setup.exe")
Guy
"le_troll" a écrit dans le message de news:
Bonjour, lancer un exe: Shell
Dim x x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice. AppActivate r ' Active l'application Calculatrice. For i = 1 To 100 SendKeys i & "{+}", True ' Envoie des frappes de touches à application Next i 'Calculatrice pour ajouter chaque valeur de I. SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String Site = "http://www.iFrance.com/A" ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
-- Merci, @+, bye, Joe EhJoe AROBASE hotmail.com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Thom" a écrit dans le message de news:06c701c4a21c$4cddba00$ Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses lignes de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ...
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas
Salut ;O)
Lis mieux la question ! Il te parle de VBScript et non de VB.
Ta réponse n'est donc pas adaptée.
VBScript ne connait pas la commande Shell.... Il faut donc lui la faire
connaitre en instanciant un objet WScript.Shell :
Set shell = WScript.CreateObject("WScript.Shell")
RetVal = Shell("c:setup.exe")
Guy
"le_troll" <le_trol@paris.fr> a écrit dans le message de news:
ewYOE5hoEHA.3712@TK2MSFTNGP15.phx.gbl...
Bonjour, lancer un exe:
Shell
Dim x
x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i
r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice.
AppActivate r ' Active l'application Calculatrice.
For i = 1 To 100
SendKeys i & "{+}", True ' Envoie des frappes de touches à application
Next i 'Calculatrice pour ajouter chaque valeur de I.
SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String
Site = "http://www.iFrance.com/A"
ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
--
Merci, @+, bye, Joe
EhJoe AROBASE hotmail.com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"Thom" <thomas_scordiaNOSPAM@hotmail.com> a écrit dans le message de
news:06c701c4a21c$4cddba00$a501280a@phx.gbl...
Bonjour,
Je suis débutant en VB, et je désirais, via un script VB
automatiser une installation de logiciel, en appelant
l'application et en faisant de l'émulation clavier
ensuite. je sais faire l'émulation clavier via ses lignes
de commandes:
o_shell.sendkeys "{LEFT}"
wscript.sleep 200
o_shell.sendkeys "{LEFT}"
...
mais je ne sais pas lancer un setup.exe par exemple...
Je sais que c'est basic, mais je ne sais pas faire...
merci d'avance ...
Thomas
Lis mieux la question ! Il te parle de VBScript et non de VB. Ta réponse n'est donc pas adaptée.
VBScript ne connait pas la commande Shell.... Il faut donc lui la faire connaitre en instanciant un objet WScript.Shell :
Set shell = WScript.CreateObject("WScript.Shell")
RetVal = Shell("c:setup.exe")
Guy
"le_troll" a écrit dans le message de news:
Bonjour, lancer un exe: Shell
Dim x x = Shell("NotePad.exe " & App.Path & "NomFic.txt", 1)
-----------------------
Dim r, i r = Shell("calc.exe", 1) ' Exécute l'application Calculatrice. AppActivate r ' Active l'application Calculatrice. For i = 1 To 100 SendKeys i & "{+}", True ' Envoie des frappes de touches à application Next i 'Calculatrice pour ajouter chaque valeur de I. SendKeys "=", True ' Fait le total général.
------------------------------
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
Dim Site As String Site = "http://www.iFrance.com/A" ShellExecute Me.hwnd, "Open", Site, "", App.Path, 1
-- Merci, @+, bye, Joe EhJoe AROBASE hotmail.com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Thom" a écrit dans le message de news:06c701c4a21c$4cddba00$ Bonjour, Je suis débutant en VB, et je désirais, via un script VB automatiser une installation de logiciel, en appelant l'application et en faisant de l'émulation clavier ensuite. je sais faire l'émulation clavier via ses lignes de commandes: o_shell.sendkeys "{LEFT}" wscript.sleep 200 o_shell.sendkeys "{LEFT}" ...
mais je ne sais pas lancer un setup.exe par exemple... Je sais que c'est basic, mais je ne sais pas faire... merci d'avance ... Thomas
