Beiträge von L3viathan

;(c) 2010 by L3viathan ([email='mail@l3viathan.de'][/email])
;cc-by-sa-nc-Antibot-Lizenz:
;Ihr dürft das hier frei verwenden, solange ihr
;1.) meinen Namen und die Lizenz nicht aus dem Quellcode entfernt,
;2.) Veränderungen nur unter den selben Bedingungen vornehmt,
;3.) es nicht kommerziell verwertet
;und
;4.) ihr es nicht für die Automatisierung von Spielen jeglicher Art verwendet.
;-----------------------------------------------------------------------------
Global $tln=False
#include <ButtonConstants.au3>
#include <File.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$ClickR = GUICreate("ClickR", 290, 57);194
$RecordBtn = GUICtrlCreateButton("Mausweg aufzeichnen", 8, 8, 129, 41, $WS_GROUP)
GUICtrlSetResizing(-1,802)
$RecordTLNBtn = GUICtrlCreateButton("Mausroute aufzeichnen", 152, 8, 129, 41, $WS_GROUP)
GUICtrlSetResizing(-1,802)
$Einstellungen = GUICtrlCreateGroup("Einstellungen", 8, 64, 273, 121)
GUICtrlSetResizing(-1,802)
$RptChkBx = GUICtrlCreateCheckbox("Repetiv", 16, 88, 425, 25)
GUICtrlSetResizing(-1,802)
$Label1 = GUICtrlCreateLabel("Abstand zwischen einzelnen Klicks (in ms):", 16, 120, 205, 17)
GUICtrlSetResizing(-1,802)
$Label2 = GUICtrlCreateLabel("Abstand zwischen Klickreihen (in ms):", 16, 152, 181, 17)
GUICtrlSetResizing(-1,802)
$SingleTIn = GUICtrlCreateInput("0", 224, 120, 49, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetResizing(-1,802)
$TIn = GUICtrlCreateInput("0", 224, 152, 49, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetResizing(-1,802)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetResizing(-1,802)
$GoBtn = GUICtrlCreateButton("Los!", 8, 180, 265, 41, $WS_GROUP)
GUICtrlSetResizing(-1,802)
GUICtrlSetState($GoBtn,$GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $RecordBtn
GUICtrlSetState($RptChkBx,$GUI_CHECKED)
GUISetState(@SW_HIDE)
_record()
GUISetState(@SW_SHOW)
_enlarge()
Case $RecordTLNBtn
GUISetState(@SW_HIDE)
_recordTLN()
GUISetState(@SW_SHOW)
_enlarge()
case $Label1
GUICtrlSetState($SingleTIn,$GUI_FOCUS)
Case $Label2
GUICtrlSetState($TIn,$GUI_FOCUS)
case $GoBtn
_go()
EndSwitch
WEnd
Func _enlarge()
GUICtrlSetState($GoBtn,$GUI_ENABLE)
GUICtrlSetState($RecordBtn,$GUI_DISABLE)
GUICtrlSetState($RecordTLNBtn,$GUI_DISABLE)
For $i=57 to 260 Step 3
WinMove("ClickR","",Default,Default,290,$i)
Next
EndFunc
Func _record()
$hFile=FileOpen("mgp.txt",2)
HotKeySet("{NUMPADADD}","_d")
HotKeySet("{ENTER}","_d")
TrayTip("ClickR","Bewegen Sie die Maus über den ersten Punkt und drücken Sie ""+"" zum Aufzeichnen",10)
Do
Until _IsPressed("6B")
$mgp=MouseGetPos()
FileWrite($hFile,$mgp[0] & " " & $mgp[1] & @CRLF)
Sleep(200)
While 1
TrayTip("ClickR","Bewegen Sie die Maus über den nächsten Punkt und drücken Sie ""+"" zum Aufzeichnen, oder ENTER zum Beenden.",10)
Do
If _isPressed("0D") then ExitLoop 2
Until _IsPressed("6B")
$mgp=MouseGetPos()
FileWrite($hFile,$mgp[0] & " " & $mgp[1] & @CRLF)
Sleep(200)
WEnd
FileClose($hFile)
EndFunc
Func _recordTLN()
$hFile=FileOpen("mgp.txt",2)
HotKeySet("{NUMPADADD}","_d")
TrayTip("ClickR","Bewegen Sie die Maus über den ersten Punkt und drücken Sie ""+"" zum Aufzeichnen",10)
Do
Until _IsPressed("6B")
$mgp1=MouseGetPos()
Sleep(200)
TrayTip("ClickR","Bewegen Sie die Maus über den zweiten Punkt (Abstand) und drücken Sie ""+"" zum Aufzeichnen",10)
Do
Until _IsPressed("6B")
$mgp2=MouseGetPos()
Sleep(200)
TrayTip("ClickR","Bewegen Sie die Maus über den letzten Punkt und drücken Sie ""+"" zum Aufzeichnen",10)
Do
Until _IsPressed("6B")
$mgp3=MouseGetPos()
$hx=$mgp2[0]-$mgp1[0]
$hy=$mgp2[1]-$mgp1[1]
$tx=($mgp3[0]-$mgp1[0])/$hx
$ty=($mgp3[1]-$mgp1[1])/$hy
If $tx>$ty Then $tx=$ty
For $i=0 To Ceiling($ty)
FileWrite($hFile,$mgp1[0]+$i*$hx & " " & $mgp1[1]+$i*$hy & @CRLF)
Next
FileClose($hFile)
EndFunc
Func _d()
EndFunc
Func _go()
HotKeySet("{ESC}","_x")
GUISetState(@SW_HIDE)
TrayTip("ClickR","Press ESC to cancel",10)
$hFile=FileOpen("mgp.txt",0)
$Sbtw=GUICtrlRead($SingleTIn)
$btw=GUICtrlRead($TIn)
$chk=GUICtrlRead($RptChkBx)
$lines=_FileCountLines("mgp.txt")
Do
For $i=1 To $lines
$line=FileReadLine($hFile,$i)
$coord=StringSplit($line," ")
MouseClick("left",$coord[1],$coord[2],1,0)
If $Sbtw <> 0 Then Sleep($Sbtw)
Next
If $btw <> 0 Then Sleep($btw)
Until $chk <> $GUI_CHECKED
GUISetState(@SW_SHOW)
EndFunc
Func _x()
Exit
EndFunc