Ich suche eine Möglich, dass wenn ich runterfahren egal wo hin schreibe der pc heruntergefahren wird.
Vielen Dank für Antworten
Ispress Wort pc runterfahren
-
- [ offen ]
-
NonStop -
13. November 2009 um 14:07 -
Geschlossen -
Erledigt
-
-
Spoiler anzeigen
[autoit]; Authors: Manadar, GarryFrost
[/autoit]
; Contributor: WideBoyDixon
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include-once
Dim $hHook
Dim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Dim $hmod = _WinAPI_GetModuleHandle(0)
Dim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
Dim $buffer = ""
Dim $hotstrings[1]
Dim $hotfuncs[1]
Dim $hWnd = GUICreate("")
GUIRegisterMsg($WM_KEYDOWN, "_GUIKeyProc")
;; ========================== ;
; This is your actual script.
;; ========================== ;
#include <HotString.au3>
HotStringSet("runterfahren","shutdownme")
While 1
Sleep(10)
WEnd
Func shutdownme()
Shutdown(8)
EndFunc
;; ==========================
;; End of actual script.
;; The part above the start of the actual script
;; and below this comment
;; script can be put in another
;; file and included.
;; ==========================
Func HotStringSet($hotstring, $func)
_ArrayAdd($hotstrings, $hotstring)
_ArrayAdd($hotfuncs, $func)
EndFunc
Func EvaluateKey($keycode)
If (($keycode > 64) And ($keycode < 91)) _ ; A - Z
Or (($keycode > 47) And ($keycode < 58)) Then ; 0 - 9
$buffer &= Chr($keycode)
Print($buffer)
$a = _ArraySearch($hotstrings, $buffer)
If ( $a >= 0 ) Then
Call($hotfuncs[$a])
EndIf
ElseIf ($keycode > 159) And ($keycode < 164) Then
Return
Else
$buffer = ""
EndIf
EndFunc ;==>EvaluateKey
Func _GUIKeyProc($hWnd, $Msg, $wParam, $lParam)
EvaluateKey(Number($wParam))
EndFunc
;===========================================================
; callback function. This function must return as quickly as possible or it will stall and block user input ;===========================================================
Func _KeyProc($nCode, $wParam, $lParam)
Local $tKEYHOOKS
$tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
If $nCode < 0 Then
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndIf
If $wParam = $WM_KEYDOWN Then
$vkKey = DllStructGetData($tKEYHOOKS, "vkCode")
_WinAPI_PostMessage($hWnd, $WM_KEYDOWN, $vkKey, 0)
EndIf
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc ;==>_KeyProc
Func Print($s)
ConsoleWrite($s & @CRLF)
EndFunc
Func OnAutoItExit()
_WinAPI_UnhookWindowsHookEx($hHook)
DllCallbackFree($hStub_KeyProc)
EndFunc ;==>OnAutoItExit -
Das du die Frage verstanden hast, wundert mich
-
kaum ist die Glaskugel mal richtig poliert, laufen die Scripte wie von alleine aus den Fingern....wobei sich mir die Frage stellt, wozu man ein Keyloggerderivat braucht um 12 Tasten abzufragen, anstatt dasselbe mit einem Einzeiler und EINEM(oder 2) Tastendrücken zu machen...
-
Naja
ich finde es hat mehr Styl runterfahren z.b in den browser zu schreiben.und ich würde das script ja selbst schreiben nur leider hab ich keine idee wie ich anfangen soll.
_ispressed geht ja schlecht oder?L3viathan2142 Danke fürs erstellen nur leider klappt das script bei mir nicht.
Gruß Non -
Was soll denn an der Funktion von leviathan nicht klappen?!
Zitat[autoit]Alles anzeigen
[/autoit]
...
HotStringSet("runterfahren","shutdownme")
...
Func shutdownme()
Shutdown(8)
EndFunc
...du gibts runterfahren ein, und er fährt runter.