Vbs ecrivant dans le bloc-note...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 638 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

medas918
Messages postés
45
Date d'inscription
lundi 14 juin 2010
Statut
Membre
Dernière intervention
28 mai 2012
-
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és
94
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013
-
dim variable
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
yannd0307
Messages postés
22
Date d'inscription
dimanche 18 septembre 2005
Statut
Membre
Dernière intervention
7 novembre 2007
-
Oubliez mon dernier post j'ai trouvé :).
Désolé.
Cordialement.
yannd0307
Messages postés
22
Date d'inscription
dimanche 18 septembre 2005
Statut
Membre
Dernière intervention
7 novembre 2007
-
Bonjour,
je n'y connais rien en VBS. Pouvez-vous me dire comment exécuter ce script s'il vous plaît?
Merci.
Cordialement.
cs_antho2005
Messages postés
153
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
1 -
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 %

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.