Mon script fonctionne bien , mais fini par s'arrêter .
Je précise que ce n'est pas du tout un keylogger mais juste pour un outils de test.
► Afficher le texte
Code : Tout sélectionner
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$MainGUI = GUICreate("Skinner Tool ", 500, 300, -1, -1)
$Tools = GUICtrlCreateButton("Tools", 430, 30, 60, 30, $BS_ICON, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -166, 0)
GUISetState()
;Gui Tools
$ToolsGUI = GUICreate("", 82, 150, 410, 60,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_CLIPSIBLINGS),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$KeyCode = GUICtrlCreateButton("Key Code", 2, 1, 80, 25, $BS_ICON)
GUISetState(@SW_HIDE,$ToolsGUI)
$ToolsGUIStatus = False
;Gui Key Code
$KeyCodeGUI = GUICreate("",100,70,505,-25,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_CLIPSIBLINGS,$WS_MINIMIZEBOX),bitor($WS_EX_MDICHILD,$WS_EX_CLIENTEDGE),$MainGUI)
$KeyCodeLabel = GUICtrlCreateLabel("Key Code :",5,5,100,30)
GUISetState(@SW_HIDE,$KeyCodeGUI )
$KeyCodeGUIStatus = False
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Tools
GUISwitch($ToolsGUI)
if $ToolsGUIStatus = true Then
GUISetState(@SW_HIDE,$ToolsGUI)
$ToolsGUIStatus = False
Else
GUISetState(@SW_SHOW,$ToolsGUI)
$ToolsGUIStatus = True
EndIf
;Key Code
Case $KeyCode
GUISwitch($KeyCodeGUI)
if $KeyCodeGUIStatus = true Then
GUISetState(@SW_HIDE,$KeyCodeGUI)
$KeyCodeGUIStatus = False
Else
GUISetState(@SW_SHOW,$KeyCodeGUI)
While 1
sleep(100)
For $i = 1 to 255
If _IsPressed($i,'user32.dll') Then
GUICtrlSetData($KeyCodeLabel,asc($i))
EndIf
Next
Wend
EndIf
EndSwitch
Wend
