[Help]Tastatur-Maus beweg melder

[RealEmX]

Multitask und Multithreading ist was anderes :P

[PenGuin :O]

Multithreading ist in AutoIt nicht möglich, Ende.

[lolkop]

echtes multithreading ist soweiso nicht möglich.

wenn mir jemand etwas zeigt was zu einem zeitpunkt 2 aktionen durchführen kann, dann respekt.

aber auch autoit ist wie alle anderen sprachen in der lage dazu, so schnell zu arbeiten, das es für menschen so aussieht, als würde es mehrere dinge gleichzeitg tun. natürlich muss man hierbei auf funktionen wie sleep oder wait, die das script blockieren verzichten.

[Shkal]

Um mal wieder zurück zum Thema zu kommen:

Wenn man _Timer_GetIdleTime benutzt hätte, hätte man sich unglaublich viel Code erspart...

[lolkop]

hier mal das script ohne script blockierende befehle:

#include <Misc.au3>
Dim $timer, $zaehler = 0
$user32 = DllOpen('user32.dll')

GUICreate("Maus & Tastatur Melder © by SaneX/Yannik", 450, 198, 217, 172)
$Label1 = GUICtrlCreateLabel("Das Programm starten", 16, 32, 167, 24)
GUICtrlSetFont(-1, 12, 400, 2, "Impact")
$Button1 = GUICtrlCreateButton("Start", 24, 96, 99, 25, 0x20000)
$Button2 = GUICtrlCreateButton("Stopp", 24, 128, 99, 25, 0x20000)
$Group1 = GUICtrlCreateGroup("Starten und Stoppen", 16, 72, 153, 97)
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Credits", 213, 8, 219, 177, 0x20000)
GUICtrlSetFont(-1, 16, 800, 6, "Verdana")
GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case -3
			DllClose($user32)
			Exit
		Case $Button1
			$zaehler = 1
			$timer = TimerInit()
		Case $Button2
			$zaehler = 0
		Case $Button3
			MsgBox(0,"Credits","Made by Yannik auch bekannt als SaneX bzw. ToThePub"&@CRLF&"am 03.10.2010 um genau 14:00 Uhr"&@CRLF&"Anlass deswegen ist , da ich gerade etwas downloade"&@CRLF&"und nicht will das jemand an mein PC geht")
		Case Else
			If $zaehler > 0 And $zaehler < 12 Then
				If TimerDiff($timer) >= $zaehler*1000 Then
					TrayTip('Info', 'Die Überwachung startet in genau '&11-$zaehler&' sekunden.', 3)
					$zaehler += 1
					$maus_alt = MouseGetPos()
				EndIf
			ElseIf $zaehler > 0 Then
				$maus_neu = MouseGetPos()
				If $maus_alt[0] <> $maus_neu[0] Or $maus_alt[1] <> $maus_neu[1] Then 
					MsgBox(0, "Maus bewegt", "Du hast die Maus bewegt, du sollst doch nicht an meinen PC" & @CRLF & "während ich was downloade :( , hör docheinmal auf mich")
					$maus_alt = MouseGetPos()
				EndIf
				For $i = 5 To 255
					If _IsPressed($i, $user32) Then MsgBox(0, "Tastatur wurde bewegt", "Ich downloade gerade etwas oder mache etwas anderes!" & @CRLF & "Deshalb gehe bitte nicht an meinen PC!" & @CRLF & "Sonst wird Yannik Sauer ;D")
				Next
			EndIf
	EndSwitch
WEnd

pinguin94 meinte zwar das man kein globales handle zur dll benötigt, jedoch wäre das 250malige öffnen der dll (pro schleifen durchlauf) ein doch recht unnötiger aufwand.
da das ganze ja leider global laufen soll, und nicht nur wenn das gui aktiv ist, kann man hier ja leider nicht mit GetKeyboardState arbeiten, was das ganze nochmal deutlich ressourcen schonender machen würde.

[suiluJ.]

^.^
Zu deiner Frage:

Func _IsPressed($sHexKey, $vDLL = 'user32.dll')
	Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
	If @error Then Return SetError(@error, @extended, False)
	Return BitAND($a_R[0], 0x8000) <> 0
EndFunc   ;==>_IsPressed

Er callt die Funktion "GetAsyncKeyState" die in der User32.dll aufgeführt ist ...
jezz kann man noch sowas einbauen:

#RequireAdmin
#NoTrayIcon
#include <Misc.au3>
$dll = DllOpen("user32.dll")

While 1
	   If _IsPressed(26,$dll) Then ;up
		Exit
		endif
    $maus = MouseGetPos()
    For $i = 0 To 256
        If _IsPressed($i) Then
            MsgBox(0, "Tastatur wurde bewegt", "Ich downloade gerade etwas " & @CRLF & "Deshalb gehe bitte nicht an meinen PC!",0.8)
        EndIf

    Next
    $maus2 = MouseGetPos()
    If $maus[0] <> $maus2[0] Or $maus[1] <> $maus2[1] Then
        MsgBox(0, "Maus bewegt", "Ich downloade was !" & @CRLF & "gehe nicht an meinen PC!",0.8)
		MouseMove($maus[0],$maus[1])
        $maus = MouseGetPos()
    EndIf
WEnd

[lolkop]

das wurde doch schon längst geposted -.- und mal davon abgesehn hast du das dllclose vergessen.

[PenGuin :O]

Deshalb erst gar nicht die DLL öffnen im Script! xD

[lolkop]

Originally Posted by pinguin94

Deshalb erst gar nicht die DLL öffnen im Script! xD

naja das wäre eben nicht gut :P

DllCall('blah.dll', ....) (1. parameter = string != variable)
macht ja folgendes:

Local $dll = DllOpen('blah.dll')
DllCall($dll, ...)
DllClose($dll)

klar wenn man nur einmal die dll nutzen möchte, kann man das dllopen und close also auch weglassen, da er es dann automatisch macht.

wenn ich allerdings wiederholten zugriff auf die dll brauche, brauch ich ja nicht wiederholt die dll öffnen und schließen, sondern tuhe das nur einmalig am anfang bzw ende des scripts