begin process at 2008 07 05 14:49:51
1 205 205 membres
181 nouveaux aujourd'hui
14 119 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VBS ECRIVANT DANS LE BLOC-NOTE...


Information sur la source

Catégorie :VBScript Classé sous : sendkeys Niveau : Débutant Date de création : 21/07/2005 Date de mise à jour : 21/07/2005 11:56:31 Vu : 13 967

Note :
7,89 / 10 - par 9 personnes
7,89 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (22)
Ajouter un commentaire et/ou une note

Description

Ce vbs écrit dans le bloc note a la vitesse de frappe d'un humain
( Vous savez, comme on vois toujours dans les films ou le gars se fait pénétré dans son pc par un hacker ki lui ecrit des menaces via le pc... )
Eh bien maintenant vous allez pouvoir simulez ce genre de choses grace à sendkeys.

Source

  • '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\notepad.exe")
  • 'patiente 5 millisecondes ( je crois ) pour laisser le temps au pc de s'executer.
  • wscript.sleep 5
  • 'é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 ("L")
  • 'Laisse un intervale entre chaque lettre pour, donc, simuler une frappe humaine...
  • wscript.sleep 121 '
  • variable.SendKeys ("O")
  • wscript.sleep 121
  • variable.SendKeys ("L")
  • wscript.sleep 121
  • variable.SendKeys (" ")
  • wscript.sleep 121
  • variable.SendKeys ("!")
  • wscript.sleep 121
  • '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 121
  • variable.SendKeys ("C'est rigolo !")
  • Set WshShell = Nothing
'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\notepad.exe")        
                                                      
'patiente 5 millisecondes ( je crois ) pour laisser le temps au pc de s'executer.

wscript.sleep 5                                        

'é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 ("L")                                 
                                                      
'Laisse un intervale entre chaque lettre pour, donc, simuler une frappe humaine...
                                                      
wscript.sleep 121                                     '

variable.SendKeys ("O")
wscript.sleep 121
variable.SendKeys ("L")
wscript.sleep 121
variable.SendKeys (" ")
wscript.sleep 121
variable.SendKeys ("!")
wscript.sleep 121

'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 121
variable.SendKeys ("C'est rigolo !")

Set WshShell = Nothing

Conclusion

Voila, ce n'est pas très utile, mais dans la catégorie faux virus je trouve sa plus marant que "do msgbox loop"...
Ne pas utiliser à mauvaix essient !
21 juillet 2005 10:30:33 :
modification de la présentation du code.....
21 juillet 2005 11:56:31 :
mise a jour presentation
  • signaler à un administrateur
    Commentaire de BZY1 le 21/07/2005 14:12:40

    Pour les commentaires et pour l'utilisation de sendkey c'est pas trop mal
    8/10
    bon prog a+

  • signaler à un administrateur
    Commentaire de Alain Proviste le 21/07/2005 15:49:57 administrateur CS

    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.

  • signaler à un administrateur
    Commentaire de tekila_bandita le 22/07/2005 08:35:01

    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...

  • signaler à un administrateur
    Commentaire de BZY1 le 22/07/2005 08:42:02

    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+

  • signaler à un administrateur
    Commentaire de grosbidou21 le 22/07/2005 16:32:42

    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.
    @ +

  • signaler à un administrateur
    Commentaire de Julien39 le 23/07/2005 21:28:17

    C'est original bravo.

  • signaler à un administrateur
    Commentaire de tekila_bandita le 28/07/2005 09:15:39

    oui, parfois, il faut du temps au pc pour laner l'application mais le script s'execute quand même...

  • signaler à un administrateur
    Commentaire de tekila_bandita le 28/07/2005 10:07:43

    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.....

  • signaler à un administrateur
    Commentaire de BZY1 le 28/07/2005 10:12:31

    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

  • signaler à un administrateur
    Commentaire de tekila_bandita le 28/07/2005 18:04:21

    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)

    ;)

  • signaler à un administrateur
    Commentaire de BZY1 le 29/07/2005 08:48:15

    je sais j'étais aussi une des personne à t'avoir répondu sur le forum ;)

  • signaler à un administrateur
    Commentaire de tekila_bandita le 08/08/2005 11:52:22

    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 !
    ;)

  • signaler à un administrateur
    Commentaire de tekila_bandita le 11/08/2005 09:59:40

    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!

  • signaler à un administrateur
    Commentaire de MoRpHeUsTyLe le 28/08/2005 21:34:37

    cé vrémen pa mal ton code !Vrémen pratik...

  • signaler à un administrateur
    Commentaire de yunderwo le 18/11/2005 18:57:29

    A 150 ca marche terrible !!!

    wscript.sleep 150

  • signaler à un administrateur
    Commentaire de viran le 06/02/2006 13:28:27

    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

    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.

  • signaler à un administrateur
    Commentaire de RavenShadoW le 23/05/2006 14:43:33

    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}")

    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 :)

  • signaler à un administrateur
    Commentaire de antho2005 le 19/07/2006 17:43:26

    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

  • signaler à un administrateur
    Commentaire de antho2005 le 20/07/2006 17:57:22

    Ou peut-être variable.SendKeys ("{alt+enter}") j'ai pas essayé.

    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

  • signaler à un administrateur
    Commentaire de antho2005 le 20/07/2006 18:51:33

    En fait pour faire alt + entrer tu peut faire variable.SendKeys ("%~") ou variable.SendKeys ("%{enter}")

    voici les code pour maj, ctrl, alt

    Touche Code
    MAJ    +
    CTRL   ^
    ALT    %

  • signaler à un administrateur
    Commentaire de yannd0307 le 25/11/2006 13:29:26

    Bonjour,
    je n'y connais rien en VBS. Pouvez-vous me dire comment exécuter ce script s'il vous plaît?
    Merci.
    Cordialement.

  • signaler à un administrateur
    Commentaire de yannd0307 le 25/11/2006 13:34:04

    Oubliez mon dernier post j'ai trouvé :).
    Désolé.
    Cordialement.

Ajouter un commentaire

Pub



Appels d'offres

Plugin Dialer outlook
Budget : 2 000€
Redaction texte pour s...
Budget : 180€
Travail graphique- ill...
Budget : 1 000€

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS