Vbs ecrivant dans le bloc-note...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 549 fois - Téléchargée 29 fois

Contenu du snippet

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 / 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\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 !

A voir également

Ajouter un commentaire

Commentaires

BZY1
Messages postés
215
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
12 avril 2008
-
Pour les commentaires et pour l'utilisation de sendkey c'est pas trop mal
8/10
bon prog a+
cs_Alain Proviste
Messages postés
910
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
1 -
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.
tekila_bandita
Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
1 -
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...
BZY1
Messages postés
215
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
12 avril 2008
-
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+
grosbidou21
Messages postés
74
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
5 février 2010
1 -
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.
@ +

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.