#include <GUIConstants.au3>
#Include <File.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 304, 72, 177, 89, 0)
$button2 = GUICtrlCreateButton("buttontext", 88, 280, 345, 105, 0)
$txtbox1 = GUICtrlCreateInput("", 40, 120, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("!p","Kill")

func Kill()
MsgBox(0, "Script Killed","Succsessfully Terminated")
Exit
EndFunc



func test1()
$path=GUICtrlRead($txtbox1)
_FileCreate(@scriptdir&"\operapfad.ini")
$file = FileOpen(@scriptdir&"\operapfad.ini", 1)
FileWrite($file,"[settings]"& @CRLF)
Filewrite($file,"pfad=")
FileClose($file)
IniWrite ( @scriptdir&"\operapfad.ini", "settings", "pfad", $path )
Filecopy ( @scriptdir&"\operapfad.ini", @scriptdir&"\WTF2.ini" ,9)
EndFunc

func test2()
$Pfad = IniRead ( "WTF2.ini", "settings", "pfad", "error" )
Run ( $Pfad)
winwait("Google - Opera")
WinSetState("Google - Opera","", @SW_RESTORE)
sleep(1000)
ControlMove("Google - Opera", "", "", 0, 0, 812, 512)
$verschiebungszahlx = Random ( 12 , 100 , 1)
$verschiebungszahly = Random ( 12 , 100 , 1)
ControlMove("Google - Opera", "", "", $verschiebungszahlx,$verschiebungszahly)
sleep(500)
$fensterposition = WinGetPos ("Google - Opera")
MouseClick("left",253+$fensterposition[0],33+$fensterposition[1],1,0)
send("google.de{ENTER}")
sleep(3000)
MouseMove(512,256,5)
sleep(500)
MouseClick("left",69+$fensterposition[0],97+$fensterposition[1],1,0)
sleep(3000)
MouseClick("left",396+$fensterposition[0],273+$fensterposition[1],1,0)
send("funny{ENTER}")
sleep(3000)
$pixeldown=0
While 1
MouseclickDrag("left",796+$fensterposition[0],165+$fensterposition[1]+$pixeldown,796+$fensterposition[0],165+$fensterposition[1]+$pixeldown+10)
sleep(500)
$bildiwas = Pixelsearch($fensterposition[0],$fensterposition[1],$fensterposition[0]+812,$fensterposition[1]+512,0x5B231C)
if @error then
    $pixeldown = $pixeldown+10
    MouseclickDrag("left",796+$fensterposition[0],165+$fensterposition[1]+$pixeldown,796+$fensterposition[0],165+$fensterposition[1]+$pixeldown+10)
sleep(500)
Else
    ExitLoop
EndIf
WEnd
sleep(500)
Mouseclick("right", $bildiwas[0],$bildiwas[1])
Mouseclick("left",602,681)
sleep(500)
Endfunc


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            test1()
        Case $button2
            test2()
    EndSwitch
WEnd

;;beim cas ekommt alles hin was hald bei dme buttondruck passiert....   bis zum nächsten case....
;;ich tu da gern funktionen rein.. is einfach übersichtlicher und so weist schon :Ping

;;;;DEINE INI FÜR SPÄTER
;;;;[settings]
;;;;pfad="PFAD"
;;;;
;;;;uff öhm joar genau :P komm ts xD


;; 0x0A6523