[Help]Tastatur-Maus beweg melder

[.BritainAndy]

Hi liebe Comm,
ja da ich gerade etwas downloade (und einen kleinen bruder hat der gerne ma an mein pc geht wenn ich weg bin weil er zu faul ist seinen anzumachen) was ca 9 h dauert, hab ich gedacht bau ich ein script, was sobald die maus bewegt worden ist oder deine tastatur-taste eine meldung gibt, in der irgendwie was drin steht wie:
"ja du hats die maus bewegt, ich hab doch gesagt du solls nich an meinen pc während ich was downloade".

Das mit der Tastatur klappt hervorragend, aber das mit der Maus irgendwie nicht.
Ich weiß nicht woran es liegt, ich kann meine Maus hin und her bewegen und nichts kommt.

Hier mein Code:

PHP Code:

;header includieren
#Include <Misc.au3>

;dll includieren (frag mich nicht wieso, steht so in der hilfe beschrieben)
$dll = DllOpen("user32.dll")



;Tastatur

while 1
    sleep(150)
for $i=0 to 256
if _ispressed($i) 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")
endif
next
WEnd

;Maus

$maus = MouseGetPos()
$maus2=MouseGetPos()
while 1
    sleep(150)
 if $maus[0]<>$maus2[0] or $maus[1]<>$maus2[1] then
MsgBox(0,"Maus bewegt","Du hast die Maus bewegt, du sollst doch nicht an meinen PC"&@crlf&"während ich was download")
sleep(500)
  $maus=MouseGetPos()
 endif
wend 


Wäre nett wenn ich mir helfen könntet

[BlackHybrid]

Nerviges ding . So Läufts .

PHP Code:

;;header includieren
#include <Misc.au3>

;dll includieren (frag mich nicht wieso, steht so in der hilfe beschrieben)
$dll = DllOpen("user32.dll")



;Tastatur


While 1
    $maus = MouseGetPos()

    For $i = 0 To 256
        If _IsPressed($i) 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")
        EndIf

    Next
    $maus2 = MouseGetPos()

    If $maus[0] <> $maus2[0] Or $maus[1] <> $maus2[1] Then
        MsgBox(0, "Maus bewegt", "Du hast die Maus bewegt, du sollst doch nicht an meinen PC" & @CRLF & "während ich was download")
        $maus = MouseGetPos()
    EndIf
WEnd 


[omer36]

PHP Code:

#Include <Misc.au3>

While 1
    $maus = MouseGetPos()
    $maus2 = MouseGetPos()
    Sleep(150)
    For $i = 0 To 256
        If _IsPressed($i) 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")
        ElseIf $maus[0] <> $maus2[0] Or $maus[1] <> $maus2[1] Then
            MsgBox(0, "Maus bewegt", "Du hast die Maus bewegt, du sollst doch nicht an meinen PC" & @CRLF & "während ich was download")
            Sleep(500)
            $maus = MouseGetPos()
        EndIf
    Next
WEnd 


[BlackHybrid]

@omer36 Bei mir gehts nicht, was du gemacht hast

Du Ließt gleichzeitig $maus und $maus2 aus und das bedeutet $maus = $maus2 kann ja net klappen

[omer36]

hab deins einfach mal übernommen und anstelle des endif elseif gemacht,
wenn maus bewegt wird dies das, andernfalls wenn tastertur wird, dies das.. ^^

wenn dann (sein bruder) mit der maus irgentwohin drückt, kommt die meldung, oder er etwas eintippt...


aber er könnte ja auch einmal mit
BlockInput(1) alles blockieren ^^


€ah stimmt... "denkfehler" dass macht der jetz nur mit der IsPressed und dazu zählt ja der mausklick dazu ..

[.BritainAndy]

Danke an euch, habs von Hybrid übernommen kann mir vll noch einer sagen wieso ich die dll includieren muss?

[BlackHybrid]

Originally Posted by omer36

wenn dann (sein bruder) mit der maus irgentwohin drückt, kommt die meldung, oder er etwas eintippt...

Wenn er wo mit der maus hinklick hat das aber mit _IsPressed zu tun und das mit der maus muss hinters next da er es sonst ignoriert

@SaneX: Ich denke es liegt dara dass AutoIt ins System eingreifen muss, was es von sich aus eig nicht kann. Würde auch erklären warum die Tasten in Hex angegeben werden müssen.

Aber bei mir muss ich die nicht angeben warum auch immer

[.BritainAndy]

Okay, so ich hab nochn Problem ich hab jetzt soweit alles, nur jetzt gibts das Problem, dass ich dann halt auch ncihtmehr auf den stopp button klicken kann, hier mal der ganze code incl. GUI , wäre super nett wenn ihr nochmal helfen könntet.

 Spoiler

PHP Code:


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = 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, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stopp", 24, 128, 99, 25, $WS_GROUP)
$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, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 6, "Verdana")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$name=GUICtrlRead(9)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            $name =InputBox("Name","Wie ist dein Name?")
            msgbox(0,"Es geht los","Mach dich bereit,"&$name&" , jetzt gehts los. Ich gebe dir 10 Sekunden das Programm zu Minimieren, dann reagiert er auf jede Bewegung.")
            sleep(250)

            $zahl = 10

Do
$zahl = $zahl - 1
ToolTip ("Zeit:"&$zahl)
sleep (1000)
Until $zahl = 1


sleep(250)

;dll includieren (frag mich nicht wieso, steht so in der hilfe beschrieben)
$dll = DllOpen("user32.dll")

;Tastatur und Maus

While 1
    
    $maus = MouseGetPos()   ;maus postion

     For $i = 0 To 256       ;tastatur-> jede taste ist einer zahl zugewiesen, von  bis 85 oder so, abe rich nehm einfahc ma da shöchste ;D 256
        If _IsPressed($i) 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")
        EndIf

    Next
    $maus2 = MouseGetPos()  ;immer noch maus psotion, das is abe rnur damit ich später abgleiche kann da man nicht eine variable mit der selben vergleichen kann

    If $maus[0] <> $maus2[0] Or $maus[1] <> $maus2[1] Then ; [0] = x koordinate [1] = y koordinate (siehe hilfe).. hier ist das jetzt mit dem abgleichen
        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 = MouseGetPos()  ;hier wird dann die neue maus position gespeichert
    EndIf
WEnd

        Case $Button2
            Exit
        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")
    EndSwitch
WEnd 


kein sonderlich schöner code :P

[BlackHybrid]

Machst doch mit HotKeys is leichter und besser weil wer würde nicht auf die Idee kommen auf pause zu klicken Ich denke du findest heraus was die HotKeys sind^^
Dazu Verschwindet jetzt die GUI wenn man das Tool startet.
Beim Pausieren Taucht die GUI wieder auf.

PHP Code:

Global $paused
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
HotKeySet("{NUMPADDIV}", "_Pause")
HotKeySet("{NUMPADMULT}", "_Exit")

#Region ### START Koda GUI section ### Form=
$Form1 = 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, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stopp", 24, 128, 99, 25, $WS_GROUP)
$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, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 6, "Verdana")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$name = GUICtrlRead(9)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            $name = InputBox("Name", "Wie ist dein Name?")
            MsgBox(0, "Es geht los", "Mach dich bereit," & $name & " , jetzt gehts los. Ich gebe dir 10 Sekunden das Programm zu Minimieren, dann reagiert er auf jede Bewegung.")
            Sleep(250)
            $zahl = 10
            Do
                $zahl = $zahl - 1
                ToolTip("Zeit:" & $zahl)
                Sleep(1000)
            Until $zahl = 1
            GUISetState(@SW_HIDE)
            _Start()
        Case $Button2
            Exit
        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")
    EndSwitch
WEnd



Sleep(250)

;dll includieren (frag mich nicht wieso, steht so in der hilfe beschrieben)
$dll = DllOpen("user32.dll")

Func _Pause()
    GUISetState(@SW_HIDE)
    $paused = Not $paused
    While $paused
        GUISetState(@SW_SHOW)
        Sleep(50)
    WEnd
EndFunc   ;==>_Pause

Func _Start()
    While 1

        $maus = MouseGetPos() ;maus postion

        For $i = 0 To 256 ;tastatur-> jede taste ist einer zahl zugewiesen, von  bis 85 oder so, abe rich nehm einfahc ma da shöchste ;D 256
            If _IsPressed($i) 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")
            EndIf

        Next
        $maus2 = MouseGetPos() ;immer noch maus psotion, das is abe rnur damit ich später abgleiche kann da man nicht eine variable mit der selben vergleichen kann

        If $maus[0] <> $maus2[0] Or $maus[1] <> $maus2[1] Then ; [0] = x koordinate [1] = y koordinate (siehe hilfe).. hier ist das jetzt mit dem abgleichen
            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 = MouseGetPos() ;hier wird dann die neue maus position gespeichert
        EndIf
    WEnd
EndFunc   ;==>_Start


Func _Exit()
    Exit
EndFunc   ;==>_Exit 


[.BritainAndy]

Jo, kenne hotkeys hab überlegt mit den zu arbeiten, wollte aber auch ein gui haben und deshalb wusste ich nciht wie ich das kombinieren kann.

Dankeschoen

[PenGuin :O]

DLL muss nicht includiert werden
Kannste rausnehmen.

[RealEmX]

Du kannst die Mausbewegung aber auch leichter abfragen.
Musst aber dann den Eventloop rausnehmen und OnEventMode anmachen.

GUISetOnEvent($GUI_MOUSEMOVE, "_mm")
[...]
Func _mm()
    MsgBox(48, "", "Maus wurde bewegt!")
EndFunc

erspart ein paar Zeilen Code


Edit: Was mir grad einfällt, dafür muss multiThreading funktionieren D:
Hat ja soweit ich weiß bis heute niemand wirklich hinbekommen...

[BlackHybrid]

Ich hab schonmal im autoit forum ein post mit multiThreading gesehen, wos auch geklappt hatte

[RealEmX]

Jow, aber nur teilweiße.
Ich mein peethebee hat's damals rausgefunden und es auch zack im englischen veröffentlicht, dort wurden aber einige Fehler festgestellt (Das ist so lang her das ich mich nicht mehr dran errinern kann, was im übrigen auch 2 Tage sein können XD)

Ich meine (echtes) MultiThreading gibt's noch nicht für AutoIt, lasse mich aber gene eines besseren belehren ;-)

[BlackHybrid]

Ich kugg nochmal nach. Damals hatte soweit ich weis sich auch ein Mod dich geaußert und gemeint dass es natürlich möglich sei. Ist aber min schon 3/4 bis 1 jahr her^^

Edit: hab nochmal nachgekuggt war nur multi-task^^