Changer un texte dans un .vbs

Version imprimable

Bonjour,

En gros voila ma question.
Je cherche une commande pour changer un texte depuis un bat (ligne définie) dans un fichier vbs.
En gros dans mon bat j'ai un
Code:

1 2 3 4 5 6 7 8 9 set /p nom=Entrer un nom: variable que je connais pas pour éditer le vbs et changer un bout de la ligne 10 par %nom% enregistrer le vbs echo vous allez être redirigé vers %nom% pause cls call fichier.vbs exit

14/09/2015, 16h23
devilsnake88

Bonjour,
Je n'ai rien compris... :weird:
14/09/2015, 16h42
hackoofr

:salut:
Soyez plus explicite en postant aussi le code du vbscript

Désolé si cela n'est pas très clair...
Depuis mon BAT il faut que je change le texte en rouge.
Ce même texte que je demande en
Code:

1 2 3 4 5 set /p nom=Entrer un nom: variable que je connais pas pour éditer le vbs et changer un bout de la ligne 10 par %nom% enregistrer le vbs echo vous allez être redirigé vers %nom% pause
Le code VBS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 'VBScript Set WshShell = WScript.CreateObject("WScript.Shell") 'WshShell.Run "C:\Program Files (x86)" WshShell.AppActivate "Programme que je lance" WshShell.SendKeys "^{a}" WScript.Sleep 500 WshShell.SendKeys "{DEL}" WScript.Sleep 500 WshShell.SendKeys "le texte à changer correspondant à %nom%" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" WScript.Sleep 2500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" WScript.Sleep 500
N'hésitez pas à me redire si vous comprenez pas ma demande... Je n'ai pas de termes précis à vous donner n'étant pas du métier...

Citation:
Envoyé par Hbswmx
Désolé si cela n'est pas très clair...
Depuis mon BAT il faut que je change le texte en rouge.
Ce même texte que je demande en
Code:

1 2 3 4 5 set /p nom=Entrer un nom: variable que je connais pas pour éditer le vbs et changer un bout de la ligne 10 par %nom% enregistrer le vbs echo vous allez être redirigé vers %nom% pause
Le code VBS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 'VBScript Set WshShell = WScript.CreateObject("WScript.Shell") 'WshShell.Run "C:\Program Files (x86)" WshShell.AppActivate "Programme que je lance" WshShell.SendKeys "^{a}" WScript.Sleep 500 WshShell.SendKeys "{DEL}" WScript.Sleep 500 WshShell.SendKeys "le texte à changer correspondant à %nom%" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" WScript.Sleep 2500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" WScript.Sleep 500
N'hésitez pas à me redire si vous comprenez pas ma demande... Je n'ai pas de termes précis à vous donner n'étant pas du métier...
:salut:
Est-ce-que au moins sais-tu ce qu'il va faire ce vbscript ? je le trouve un peu ....
C'est quoi le but d'utiliser ce vbscript avec ton batch ? car tu as deux solutions pour atteindre ton but:

1ère solution tu le fais entièrement en Vbscript et pas besoin de passer par un batch
2ème solution c'est de générer le vbscript à partir du batch (exemple : générer du vbscript à partir du batch : DJ Batch Music Player.bat)

15/09/2015, 14h37
Hbswmx

Salut,

En gros :

C'est pour faire un botclic pour du référencement, principe:
:d,but :mouarf:
-1 ) Mettre la version payante de hotspotshield (c'est le seul point noir pour le moment, si vous avez le même en open source :) )
-2 ) Mettre mozilla ou chrome ou un autre en fonction de ;)
-3) Lancer le batch, avec demande du site et des mots clés à référencer (je suis arrivé la, en gros pas loin mais je débute et je suis autodidacte donc c'est déjà mieux que rien...)
-4) Edition du fichier VBS par le BAT et remplacement des mots clés/nom du site.
-5) le VBS lance des simulations de touches afin d'aller sur le mot clé/ou le site en question. (Pour l'instant c'est en test avec des tempos et des touches pré-entrées)
-6) Un autre VBS (qu'il faut que je commence) lance hotspotshield et change les adresses VPN.
-7) tempo de 1 à 10 min
goto d,but

pause
cls

-8) Attention tous ça est fait avec des tempos afin d'éviter que certains considère cela comme des attaques envers tels ou tels site, il sera utilisé uniquement à titre personnel pour le référencement des site que l'on a fait avec un pote. C'est pour faire une version qui sera open source donc il faut que je prévois une partie protection du "logiciel/pluggin" finale, afin d'éviter les dérives.

Cordialement.

Pourquoi ne lançes-tu pas directement le VBS avec en argument le nom ???????

Ton BAT :

Code:

1
2
3
4
5
6
7
set /p "nom=Entrer un nom: "
echo vous allez être redirigé vers %nom%
 
::Tu lançes ton VBS avec en argument le NOM
cscript Ton_VBS.vbs "%nom%"
 
pause

et ton VBS :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set WshShell = WScript.CreateObject("WScript.Shell")

'WshShell.Run "C:\Program Files (x86)"
WshShell.AppActivate "Programme que je lance"

WshShell.SendKeys "^{a}"
WScript.Sleep 500
WshShell.SendKeys "{DEL}"
WScript.Sleep 500
WshShell.SendKeys chr(34)&"{"&WScript.Arguments(0)&"}"&chr(34)
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500

Ou sinon 100% VBS

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set WshShell = WScript.CreateObject("WScript.Shell")

strMessage =Inputbox("Ton nom")

'WshShell.Run "C:\Program Files (x86)"
WshShell.AppActivate "Programme que je lance"

WshShell.SendKeys "^{a}"
WScript.Sleep 500
WshShell.SendKeys "{DEL}"
WScript.Sleep 500
WshShell.SendKeys chr(34)&"{"&strMessage&"}"&chr(34)
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500