ok habs mal so gemacht, hier das ganze Script:
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]; Main GUI
$MainGUI = GUICreate("Main GUI Titel", 960, 586)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetState(@SW_SHOW, $MainGUI)
; Main GUI Object - Create Button:
$create = GUICtrlCreateButton("Create a Habbo", 856, 555, 100, 20)
GUICtrlSetOnEvent($create, "CREATEButton")
; Main GUI Object - Browser:
$B_oIE1 = ObjCreate("Shell.Explorer.2")
$Breaktime = GUICtrlCreateObj($B_oIE1, 109, 0, 741, 586)
$html = "about:Welcome Message here." & @CR
$B_oIE1.navigate ( $html)
; SubGUI:
$SubGUI = GUICreate("Sub GUI Titel", 380, 609, 250, 500, $WS_EX_LAYERED)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE2Clicked")
; SubGUI Object - Create Button:
$create2 = GUICtrlCreateButton("OK", 177, 551, 25, 14)
GUICtrlSetOnEvent($create2, "CREATE2Button")
; SubGUI Object - Input Fields:
$name = GUICtrlCreateInput ( "", 34, 58, 145, 30 )
$password = GUICtrlCreateInput ( "", 202, 58, 145, 30 )
$sex = GUICtrlCreateInput ( "", 34, 114, 145, 30 )
$hmail = GUICtrlCreateInput ( "", 202, 114, 145, 30 )
$augent = GUICtrlCreateInput ( "", 34, 170, 145, 30 )
$hautf = GUICtrlCreateInput ( "", 202, 170, 145, 30 )
$haart = GUICtrlCreateInput ( "", 34, 226, 145, 30 )
$haarf = GUICtrlCreateInput ( "", 202, 226, 145, 30 )
$oberteilt = GUICtrlCreateInput ( "", 34, 282, 145, 30 )
$oberteilf = GUICtrlCreateInput ( "", 202, 282, 145, 30 )
$unterteilt = GUICtrlCreateInput ( "", 34, 338, 145, 30 )
$unterteilf = GUICtrlCreateInput ( "", 202, 338, 145, 30 )
$schuht = GUICtrlCreateInput ( "", 34, 394, 145, 30 )
$schuhf = GUICtrlCreateInput ( "", 202, 394, 145, 30 )
$email = GUICtrlCreateInput ( "", 34, 450, 145, 30 )
$gmonat = GUICtrlCreateInput ( "", 202, 450, 145, 30 )
$gtag = GUICtrlCreateInput ( "", 34, 506, 145, 30 )
$gjahr = GUICtrlCreateInput ( "", 202, 506, 145, 30 )
; MainGUI Function - General:
While 1
Sleep ( 1000 )
WEnd
; MainGUI Function - Close Button:
Func CLOSEClicked()
Exit
EndFunc
; MainGUI Function - Create Button Function:
Func CREATEButton()
GUISetState(@SW_SHOW, $SubGUI)
EndFunc
;SubGUI Function - Close Button:
Func CLOSE2Clicked()
Exit
EndFunc
; SubGUI - Function - Create Button:
Func CREATE2Button()
MouseClick("left", 753, 329, 1)
Sleep(5000)
MouseClick("left", 799, 626, 1)
MouseClick("left", 856, 474, 1)
Sleep(1000)
MouseClick("left", 625, 566, 1)
MouseClick("left", 851, 626, 1)
Send(GUICtrlRead($name))
Sleep(1000)
MsgBox(0, "", $sex)
If $sex = 1 Then
MouseClick("left", 715, 386, 1)
ElseIf $sex = 0 Then
Sleep(1)
EndIf
MouseClick("left", 682, 411, GUICtrlRead($haart))
MouseClick("left", 861, 411, GUICtrlRead($haarf))
MouseClick("left", 682, 453, GUICtrlRead($augent))
MouseClick("left", 861, 453, GUICtrlRead($hautf))
MouseClick("left", 682, 495, GUICtrlRead($oberteilt))
MouseClick("left", 861, 495, GUICtrlRead($oberteilf))
MouseClick("left", 682, 538, GUICtrlRead($unterteilt))
MouseClick("left", 861, 538, GUICtrlRead($unterteilf))
MouseClick("left", 682, 582, GUICtrlRead($schuht))
MouseClick("left", 861, 582, GUICtrlRead($schuhf))
MouseClick("left", 853, 626, 1)
Sleep(1000)
Send(GUICtrlRead($password))
Sleep(1000)
MouseClick("left", 653, 393, 1)
Send(GUICtrlRead($password))
Sleep(1000)
MouseClick("left", 691, 478, 1)
Send(GUICtrlRead($email))
Sleep(1000)
Opt("MouseClickDragDelay", 1000)
MsgBox(0, "", $gmonat)
If $gmonat = 1 Then
MouseClickDrag ( "left", 706, 543, 661, 344, 1)
ElseIf $gmonat = 2 Then
MouseClickDrag ( "left", 706, 543, 661, 362, 1)
ElseIf $gmonat = 3 Then
MouseClickDrag ( "left", 706, 543, 661, 380, 1)
ElseIf $gmonat = 4 Then
MouseClickDrag ( "left", 706, 543, 661, 397, 1)
ElseIf $gmonat = 5 Then
MouseClickDrag ( "left", 706, 543, 661, 415, 1)
ElseIf $gmonat = 6 Then
MouseClickDrag ( "left", 706, 543, 661, 433, 1)
ElseIf $gmonat = 7 Then
MouseClickDrag ( "left", 706, 543, 661, 451, 1)
ElseIf $gmonat = 8 Then
MouseClickDrag ( "left", 706, 543, 661, 469, 1)
ElseIf $gmonat = 9 Then
MouseClickDrag ( "left", 706, 543, 661, 488, 1)
ElseIf $gmonat = 10 Then
MouseClickDrag ( "left", 706, 543, 661, 506, 1)
ElseIf $gmonat = 11 Then
MouseClickDrag ( "left", 706, 543, 661, 524, 1)
ElseIf $gmonat = 12 Then
MouseClickDrag ( "left", 706, 543, 661, 543, 2)
EndIf
Opt("MouseClickDragDelay", 250)
Sleep(1000)
MouseClick("left", 749, 542, 1)
Send(GUICtrlRead($gtag))
Sleep(1000)
MouseClick("left", 820, 542, 1)
Send(GUICtrlRead($gjahr))
Sleep(1000)
MouseClick("left", 851, 623, 1)
Sleep(1000)
MsgBox(0, "", $hmail)
If $hmail = 0 Then
MouseClick("left", 627, 566, 1)
ElseIf $hmail = 1 Then
Sleep(1)
EndIf
Sleep(1000)
MouseClick("left", 854, 626, 1)
Sleep(1000)
MouseClick("left", 854, 626, 1)
EndFunc
Folgende Meldungen für die Werte erschienen:
4105
4118
4106
Edit by bernd670: spoiler- und autoit-tags eingesetzt