peethebee presents: ChangeAlarm

**peethebee**

Hallo!

Das Skript einfach mal ausführen. Dann wählt man die Ecken des Bereiches, der gescannt werden soll. Wenn sich darin was ändert, dann spielt der PC eine kurze Melodie über den Speaker aus. Man könnte auch eine MP3- oder WAV-Datei abspielen.

Spoiler anzeigen

Code

ToolTip("ChangeAlarm gestartet." & @CRLF & "Bitte Maus über linker oberer Scanecke positionieren!", 0, 0, "Los geht's!")
Sleep(10000)
$mouse1_x = MouseGetPos(0)
$mouse1_y = MouseGetPos(1)
ToolTip("Erste Koordinaten ausgelesen." & @CRLF & "Bitte Maus über rechter unterer Scanecke positionieren!", 0, 0, "Weiter geht's!")
Sleep(5000)
$mouse2_x = MouseGetPos(0)
$mouse2_y = MouseGetPos(1)


$sleep = InputBox("Wie lange warten?", "Bitte Zeit in Sekunden eingeben:", 10) * 1000
ToolTip("Scan beginnt.", 0, 0, "Ab geht's!")


$reference_cs = PixelChecksum($mouse1_x, $mouse1_y, $mouse2_x, $mouse2_y, 4)
Sleep(2000)
ToolTip("")


While 1
	Sleep($sleep)
	$new_cs = PixelChecksum($mouse1_x, $mouse1_y, $mouse2_x, $mouse2_y, 4)
	ToolTip($reference_cs & @CRLF & $new_cs, 0, 0)
	If $new_cs <> $reference_cs Then 
		Beep(250, 1000)
		Beep(500, 500)
		Beep(750, 500)
		Beep(1000, 1500)
	EndIf
WEnd

Alles anzeigen

Feedback natürlich erwünscht. Wenn es fertig ist, kommt es auch in die DB.

peethebee

**GtaSpider**

Hallo!

Ein Sehr schönes Skript finde ich. Sehr Praktisch.
Es gibt auch neue "Klingeltöne" zum Download.
GtaSpider present: The New Generation of "Klingeltöne"(Einfach ersetzen mit den Bisherigen beeps) (KEIN ABO!!!)
Im angebot:

Code

Beep(500,200)
Beep(400,100)
Beep(500,200)
Beep(200,100)
Beep(750,200)
Beep(500,300)
Sleep(500)
Beep(1000,200)
Beep(800,100)
Beep(600,200)
Beep(500,100)
Beep(700,200)
Beep(200,300)

Alles anzeigen

oder

Code

Beep(500,200)
Beep(400,100)
Beep(500,200)
Beep(200,100)
Beep(750,200)
Beep(500,100)

Weitere werden noch Folgen