Hintergrundbild

    ok habs mal so gemacht, hier das ganze Script:

    Spoiler anzeigen
    [autoit]

    #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)

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Create Button:
    $create = GUICtrlCreateButton("Create a Habbo", 856, 555, 100, 20)
    GUICtrlSetOnEvent($create, "CREATEButton")

    [/autoit] [autoit][/autoit] [autoit]

    ; 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)

    [/autoit] [autoit][/autoit] [autoit]

    ; SubGUI:
    $SubGUI = GUICreate("Sub GUI Titel", 380, 609, 250, 500, $WS_EX_LAYERED)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE2Clicked")

    [/autoit] [autoit][/autoit] [autoit]

    ; SubGUI Object - Create Button:
    $create2 = GUICtrlCreateButton("OK", 177, 551, 25, 14)
    GUICtrlSetOnEvent($create2, "CREATE2Button")

    [/autoit] [autoit][/autoit] [autoit]

    ; 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 )

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - General:
    While 1
    Sleep ( 1000 )
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - Close Button:
    Func CLOSEClicked()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - Create Button Function:
    Func CREATEButton()
    GUISetState(@SW_SHOW, $SubGUI)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ;SubGUI Function - Close Button:
    Func CLOSE2Clicked()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; 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

    [/autoit]

    Folgende Meldungen für die Werte erschienen:

    4105
    4118
    4106

    Edit by bernd670: spoiler- und autoit-tags eingesetzt

    Einmal editiert, zuletzt von Deadman (26. Oktober 2006 um 18:57)

    Funtzts?

    Bei mir ist dein GUI nämlich ganz leer :D


    ps bei mir ist der Wert $hmail 4105? =)

    Einmal editiert, zuletzt von huggy (26. Oktober 2006 um 19:01)

    Jo bei mir auch..

    hab kA was das script tun soll, und da

    $hmail = GUICtrlCreateInput ( "", 202, 114, 145, 30 )

    So definiert wird, frag ich mich wie der auf diese zahlen kommt..


    p.s welche I net seite will er da eig. aufmachen?

    Einmal editiert, zuletzt von huggy (26. Oktober 2006 um 19:02)

    Es soll eigentlich ein kleines Programm sein, dass alle Habbohotel (https://autoit.de/www.habbohotel.ch, .de, usw.) laden soll mit einer Form ausgestattet ist, bei der man z.B. Name des Account der Erstellt werden soll eingeben kann und der dies dann automatisch macht.

    Ich hatte eigentlich nicht vor mein ganzes bisheriges Script zu posten, aber ich werd wohl nicht drum herumkommen :P. Also hier nochmal das ganze:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI
    $MainGUI = GUICreate("Basic Habbo Browser", 960, 586)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUISetState(@SW_SHOW, $MainGUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Groups:
    $Habbo_Loaders_Group = GuiCtrlCreateGroup("Habbo Loaders", 853, 0, 105, 580)
    $Habbo_Site_Loaders_Group = GuiCtrlCreateGroup("Habbo Site Loaders", 2, 0, 105, 580)

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Create a Habbo Button:
    $create = GUICtrlCreateButton("Create a Habbo", 856, 555, 100, 20)
    GUICtrlSetOnEvent($create, "CREATEButton")

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Habbo Loader Buttons:
    $comauloadbutton = GUICtrlCreateButton("Australia (.com.au)", 856, 15, 100, 20)
    GUICtrlSetOnEvent($comauloadbutton, "comauLOADButton")
    $combrloadbutton = GUICtrlCreateButton("Brazil (.com.br)", 856, 35, 100, 20)
    GUICtrlSetOnEvent($combrloadbutton, "combrLOADButton")
    $caloadbutton = GUICtrlCreateButton("Canada (.ca)", 856, 55, 100, 20)
    GUICtrlSetOnEvent($caloadbutton, "caLOADButton")
    $cnloadbutton = GUICtrlCreateButton("China (.cn)", 856, 75, 100, 20)
    GUICtrlSetOnEvent($cnloadbutton, "cnLOADButton")
    $dkloadbutton = GUICtrlCreateButton("Denmark (.dk)", 856, 95, 100, 20)
    GUICtrlSetOnEvent($dkloadbutton, "dkLOADButton")
    $filoadbutton = GUICtrlCreateButton("Finland (.fi)", 856, 115, 100, 20)
    GUICtrlSetOnEvent($filoadbutton, "fiLOADButton")
    $frloadbutton = GUICtrlCreateButton("France (.fr)", 856, 135, 100, 20)
    GUICtrlSetOnEvent($frloadbutton, "frLOADButton")
    $deloadbutton = GUICtrlCreateButton("Germany (.de)", 856, 155, 100, 20)
    GUICtrlSetOnEvent($deloadbutton, "deLOADButton")
    $itloadbutton = GUICtrlCreateButton("Italy (.it)", 856, 175, 100, 20)
    GUICtrlSetOnEvent($itloadbutton, "itLOADButton")
    $jploadbutton = GUICtrlCreateButton("Japan (.jp)", 856, 195, 100, 20)
    GUICtrlSetOnEvent($jploadbutton, "jpLOADButton")
    $beloadbutton = GUICtrlCreateButton("Netherlands (.be)", 856, 215, 100, 20)
    GUICtrlSetOnEvent($beloadbutton, "beLOADButton")
    $nlloadbutton = GUICtrlCreateButton("Netherlands (.nl)", 856, 235, 100, 20)
    GUICtrlSetOnEvent($nlloadbutton, "nlLOADButton")
    $noloadbutton = GUICtrlCreateButton("Norway (.no)", 856, 255, 100, 20)
    GUICtrlSetOnEvent($noloadbutton, "noLOADButton")
    $comptloadbutton = GUICtrlCreateButton("Portugal (.com.pt)", 856, 275, 100, 20)
    GUICtrlSetOnEvent($comptloadbutton, "comptLOADButton")
    $ptloadbutton = GUICtrlCreateButton("Portugal (.pt)", 856, 295, 100, 20)
    GUICtrlSetOnEvent($ptloadbutton, "ptLOADButton")
    $ruloadbutton = GUICtrlCreateButton("Russia (.ru)", 856, 315, 100, 20)
    GUICtrlSetOnEvent($ruloadbutton, "ruLOADButton")
    $comsgloadbutton = GUICtrlCreateButton("Singapore (.com.sg)", 856, 335, 100, 20)
    GUICtrlSetOnEvent($comsgloadbutton, "comsgLOADButton")
    $sgloadbutton = GUICtrlCreateButton("Singapore (.sg)", 856, 355, 100, 20)
    GUICtrlSetOnEvent($sgloadbutton, "sgLOADButton")
    $clloadbutton = GUICtrlCreateButton("Spain (.cl)", 856, 375, 100, 20)
    GUICtrlSetOnEvent($clloadbutton, "clLOADButton")
    $comesloadbutton = GUICtrlCreateButton("Spain (.com.es)", 856, 395, 100, 20)
    GUICtrlSetOnEvent($comesloadbutton, "comesLOADButton")
    $commxloadbutton = GUICtrlCreateButton("Spain (.com.mx)", 856, 415, 100, 20)
    GUICtrlSetOnEvent($commxloadbutton, "commxLOADButton")
    $esloadbutton = GUICtrlCreateButton("Spain (.es)", 856, 435, 100, 20)
    GUICtrlSetOnEvent($esloadbutton, "esLOADButton")
    $seloadbutton = GUICtrlCreateButton("Sweden (.se)", 856, 455, 100, 20)
    GUICtrlSetOnEvent($seloadbutton, "seLOADButton")
    $atloadbutton = GUICtrlCreateButton("Switzerland (.at)", 856, 475, 100, 20)
    GUICtrlSetOnEvent($atloadbutton, "atLOADButton")
    $chloadbutton = GUICtrlCreateButton("Switzerland (.ch)", 856, 495, 100, 20)
    GUICtrlSetOnEvent($chloadbutton, "chLOADButton")
    $coukloadbutton = GUICtrlCreateButton("UK (.co.uk)", 856, 515, 100, 20)
    GUICtrlSetOnEvent($coukloadbutton, "coukLOADButton")
    $comloadbutton = GUICtrlCreateButton("USA (.com)", 856, 535, 100, 20)
    GUICtrlSetOnEvent($comloadbutton, "comLOADButton")

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Habbo Site Loader Buttons:
    $comausiteloadbutton = GUICtrlCreateButton("Australia (.com.au)", 5, 15, 100, 20)
    GUICtrlSetOnEvent($comausiteloadbutton, "comausiteloadbutton")
    $combrsiteloadbutton = GUICtrlCreateButton("Brazil (.com.br)", 5, 35, 100, 20)
    GUICtrlSetOnEvent($combrsiteloadbutton, "combrsiteloadbutton")
    $casiteloadbutton = GUICtrlCreateButton("Canada (.ca)", 5, 55, 100, 20)
    GUICtrlSetOnEvent($casiteloadbutton, "casiteloadbutton")
    $cnsiteloadbutton = GUICtrlCreateButton("China (.cn)", 5, 75, 100, 20)
    GUICtrlSetOnEvent($cnsiteloadbutton, "cnsiteloadbutton")
    $dksiteloadbutton = GUICtrlCreateButton("Denmark (.dk)", 5, 95, 100, 20)
    GUICtrlSetOnEvent($dksiteloadbutton, "dksiteloadbutton")
    $fisiteloadbutton = GUICtrlCreateButton("Finland (.fi)", 5, 115, 100, 20)
    GUICtrlSetOnEvent($fisiteloadbutton, "fisiteloadbutton")
    $frsiteloadbutton = GUICtrlCreateButton("France (.fr)", 5, 135, 100, 20)
    GUICtrlSetOnEvent($frsiteloadbutton, "frsiteloadbutton")
    $desiteloadbutton = GUICtrlCreateButton("Germany (.de)", 5, 155, 100, 20)
    GUICtrlSetOnEvent($desiteloadbutton, "desiteloadbutton")
    $itsiteloadbutton = GUICtrlCreateButton("Italy (.it)", 5, 175, 100, 20)
    GUICtrlSetOnEvent($itsiteloadbutton, "itsiteloadbutton")
    $jpsiteloadbutton = GUICtrlCreateButton("Japan (.jp)", 5, 195, 100, 20)
    GUICtrlSetOnEvent($jpsiteloadbutton, "jpsiteloadbutton")
    $besiteloadbutton = GUICtrlCreateButton("Netherlands (.be)", 5, 215, 100, 20)
    GUICtrlSetOnEvent($besiteloadbutton, "besiteloadbutton")
    $nlsiteloadbutton = GUICtrlCreateButton("Netherlands (.nl)", 5, 235, 100, 20)
    GUICtrlSetOnEvent($nlsiteloadbutton, "nlsiteloadbutton")
    $nositeloadbutton = GUICtrlCreateButton("Norway (.no)", 5, 255, 100, 20)
    GUICtrlSetOnEvent($nositeloadbutton, "nositeloadbutton")
    $comptsiteloadbutton = GUICtrlCreateButton("Portugal (.com.pt)", 5, 275, 100, 20)
    GUICtrlSetOnEvent($comptsiteloadbutton, "comptsiteloadbutton")
    $ptsiteloadbutton = GUICtrlCreateButton("Portugal (.pt)", 5, 295, 100, 20)
    GUICtrlSetOnEvent($ptsiteloadbutton, "ptsiteloadbutton")
    $rusiteloadbutton = GUICtrlCreateButton("Russia (.ru)", 5, 315, 100, 20)
    GUICtrlSetOnEvent($rusiteloadbutton, "rusiteloadbutton")
    $comsgsiteloadbutton = GUICtrlCreateButton("Singapore (.com.sg)", 5, 335, 100, 20)
    GUICtrlSetOnEvent($comsgsiteloadbutton, "comsgsiteloadbutton")
    $sgsiteloadbutton = GUICtrlCreateButton("Singapore (.sg)", 5, 355, 100, 20)
    GUICtrlSetOnEvent($sgsiteloadbutton, "sgsiteloadbutton")
    $clsiteloadbutton = GUICtrlCreateButton("Spain (.cl)", 5, 375, 100, 20)
    GUICtrlSetOnEvent($clsiteloadbutton, "clsiteloadbutton")
    $comessiteloadbutton = GUICtrlCreateButton("Spain (.com.es)", 5, 395, 100, 20)
    GUICtrlSetOnEvent($comessiteloadbutton, "comessiteloadbutton")
    $commxsiteloadbutton = GUICtrlCreateButton("Spain (.com.mx)", 5, 415, 100, 20)
    GUICtrlSetOnEvent($commxsiteloadbutton, "commxsiteloadbutton")
    $essiteloadbutton = GUICtrlCreateButton("Spain (.es)", 5, 435, 100, 20)
    GUICtrlSetOnEvent($essiteloadbutton, "essiteloadbutton")
    $sesiteloadbutton = GUICtrlCreateButton("Sweden (.se)", 5, 455, 100, 20)
    GUICtrlSetOnEvent($sesiteloadbutton, "sesiteloadbutton")
    $atsiteloadbutton = GUICtrlCreateButton("Switzerland (.at)", 5, 475, 100, 20)
    GUICtrlSetOnEvent($atsiteloadbutton, "atsiteloadbutton")
    $chsiteloadbutton = GUICtrlCreateButton("Switzerland (.ch)", 5, 495, 100, 20)
    GUICtrlSetOnEvent($chsiteloadbutton, "chsiteloadbutton")
    $couksiteloadbutton = GUICtrlCreateButton("UK (.co.uk)", 5, 515, 100, 20)
    GUICtrlSetOnEvent($couksiteloadbutton, "couksiteloadbutton")
    $comsiteloadbutton = GUICtrlCreateButton("USA (.com)", 5, 535, 100, 20)
    GUICtrlSetOnEvent($comsiteloadbutton, "comsiteloadbutton")

    [/autoit] [autoit][/autoit] [autoit]

    ; Main GUI Object - Browser:
    $B_oIE1 = ObjCreate("Shell.Explorer.2")
    $Breaktime = GUICtrlCreateObj($B_oIE1, 109, 0, 741, 586)
    $html = "about:Welcome to the Basic Habbo Browser. You can select now one of the Hotels to Load." & @CR
    $B_oIE1.navigate ( $html)

    [/autoit] [autoit][/autoit] [autoit]

    ; SubGUI:
    $SubGUI = GUICreate("Create a Habbo", 380, 609, 250, 500, $WS_EX_LAYERED)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE2Clicked")

    [/autoit] [autoit][/autoit] [autoit]

    ; SubGUI Object - OK Button:
    $create2 = GUICtrlCreateButton("OK", 177, 551, 25, 14)
    GUICtrlSetOnEvent($create2, "CREATE2Button")

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreatePic(@DesktopDir & "\SubGUI.ico", 0, 0, 380,609)

    [/autoit] [autoit][/autoit] [autoit]

    ; 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 )

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - General:
    While 1
    Sleep ( 1000 )
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - Close Button:
    Func CLOSEClicked()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - Create a Habbo Button:
    Func CREATEButton()
    GUISetState(@SW_SHOW, $SubGUI)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; MainGUI Function - Habbo Loader Buttons:
    Func atLOADButton()
    $B_oIE1.navigate ('http://www.habbo.at/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func beLOADButton()
    $B_oIE1.navigate ('http://www.habbo.be/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func caLOADButton()
    $B_oIE1.navigate ('http://www.habbo.ca/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func chLOADButton()
    $B_oIE1.navigate ('http://www.habbo.ch/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func clLOADButton()
    $B_oIE1.navigate ('http://www.habbo.cl/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func cnLOADButton()
    $B_oIE1.navigate ('http://www.habbo.cn/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comauLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.au/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func combrLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.br/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comesLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.es/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func commxLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.mx/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comptLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.pt/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comsgLOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.sg/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func coukLOADButton()
    $B_oIE1.navigate ('http://www.habbo.co.uk/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func deLOADButton()
    $B_oIE1.navigate ('http://www.habbo.de/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func dkLOADButton()
    $B_oIE1.navigate ('http://www.habbo.dk/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func esLOADButton()
    $B_oIE1.navigate ('http://www.habbo.es/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func fiLOADButton()
    $B_oIE1.navigate ('http://www.habbo.fi/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func frLOADButton()
    $B_oIE1.navigate ('http://www.habbo.fr/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func itLOADButton()
    $B_oIE1.navigate ('http://www.habbo.it/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func jpLOADButton()
    $B_oIE1.navigate ('http://www.habbo.jp/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func nlLOADButton()
    $B_oIE1.navigate ('http://www.habbo.nl/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func noLOADButton()
    $B_oIE1.navigate ('http://www.habbo.no/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ptLOADButton()
    $B_oIE1.navigate ('http://www.habbo.pt/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ruLOADButton()
    $B_oIE1.navigate ('http://www.habbo.ru/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func seLOADButton()
    $B_oIE1.navigate ('http://www.habbo.se/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func sgLOADButton()
    $B_oIE1.navigate ('http://www.habbo.sg/client.action')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; Habbo Site Loader Functions:
    Func atSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.at')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func beSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.be')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func caSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.ca')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func chSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.ch')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func clSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.cl')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func cnSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.cn')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comauSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.au')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func combrSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.br')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comesSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.es')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func commxSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.mx')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comptSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.pt')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func comsgSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.com.sg')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func coukSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.co.uk')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func deSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.de')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func dkSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.dk')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func esSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.es')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func fiSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.fi')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func frSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.fr')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func itSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.it')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func jpSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.jp')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func nlSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.nl')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func noSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.no')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ptSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.pt')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ruSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.ru')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func seSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.se')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func sgSITELOADButton()
    $B_oIE1.navigate ('http://www.habbo.sg')
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ;SubGUI Function - Close Button:
    Func CLOSE2Clicked()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ; SubGUI Function - OK Button:
    Func CREATE2Button()
    MouseClick("left", 753, 329, 1) ; Erstelle hier gratis einen!
    Sleep(5000) ; Pause 5s
    MouseClick("left", 799, 626, 1) ; Ich bin UEBER 10 Jahre
    MouseClick("left", 856, 474, 1) ; Scrollbar
    Sleep(1000) ; Pause 1s
    MouseClick("left", 625, 566, 1) ; Ja ich habe die Habbo Hotel Nutzungsbedingungen gelesen, verstanden und akzeptiere sie.
    MouseClick("left", 851, 626, 1) ; Weiter
    Send(GUICtrlRead($name)) ; Habboname
    Sleep(1000) ; Pause 1s
    If $sex = 1 Then
    MouseClick("left", 715, 386, 1) ; Bei weiblichem Habbo (männlich fällt dies weg)
    ElseIf $sex = 0 Then
    Sleep(1)
    EndIf
    MouseClick("left", 682, 411, GUICtrlRead($haart)) ; Haartyp 1 mal weiter - Standart fällt die weg (männlich: 18 Klicks / weiblich: 19 Klicks)
    MouseClick("left", 861, 411, GUICtrlRead($haarf)) ; Haarfarbe
    MouseClick("left", 682, 453, GUICtrlRead($augent)) ; Augen (männlich: 7 / weiblich: 7)
    MouseClick("left", 861, 453, GUICtrlRead($hautf)) ; Hautfarbe (männlich: 10 / weiblich: 13)
    MouseClick("left", 682, 495, GUICtrlRead($oberteilt)) ; Shirt (männlich: 17 / weiblich: 18)
    MouseClick("left", 861, 495, GUICtrlRead($oberteilf)) ; Shirtfarbe
    MouseClick("left", 682, 538, GUICtrlRead($unterteilt)) ; Hose (männlich: 4 / weiblich: 6)
    MouseClick("left", 861, 538, GUICtrlRead($unterteilf)) ; Hosefarbe
    MouseClick("left", 682, 582, GUICtrlRead($schuht)) ; Schuhe (männlich: 3 / weiblich: 3)
    MouseClick("left", 861, 582, GUICtrlRead($schuhf)) ; Schuhefarbe
    MouseClick("left", 853, 626, 1) ; Weiter
    Sleep(1000) ; Pause 1s
    Send(GUICtrlRead($password)) ; Habbopasswort
    Sleep(1000) ; Pause 1s
    MouseClick("left", 653, 393, 1) ; Habbopasswort wiederholung
    Send(GUICtrlRead($password)) ; Habbopasswort wiederholung
    Sleep(1000) ; Pause 1s
    MouseClick("left", 691, 478, 1) ; Habboemail
    Send(GUICtrlRead($email)) ; Habboemail
    Sleep(1000) ; Pause 1s
    Opt("MouseClickDragDelay", 1000);250 milliseconds
    If $gmonat = 1 Then
    MouseClickDrag ( "left", 706, 543, 661, 344, 1) ; HabboGeburtsMonat
    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) ;250 milliseconds
    Sleep(1000) ; Pause 1s
    MouseClick("left", 749, 542, 1) ; HabboGeburtsTag
    Send(GUICtrlRead($gtag)) ; HabboGeburtsTag
    Sleep(1000) ; Pause 1s
    MouseClick("left", 820, 542, 1) ; HabboGeburtsJahr
    Send(GUICtrlRead($gjahr)) ; HabboGeburtsJahr
    Sleep(1000) ; Pause 1s
    MouseClick("left", 851, 623, 1) ; Weiter
    Sleep(1000) ; Pause 1s
    If $hmail = 0 Then
    MouseClick("left", 627, 566, 1) ; Emails vom Habbo bekommen abwählen
    ElseIf $hmail = 1 Then
    Sleep(1)
    EndIf
    Sleep(1000) ; Pause 1s
    MouseClick("left", 854, 626, 1) ; Weiter
    Sleep(1000) ; Pause 1s
    MouseClick("left", 854, 626, 1) ; Fertig
    EndFunc

    [/autoit]

    Edit by bernd670: spoiler- und autoit-tags eingesetzt

    2 Mal editiert, zuletzt von Deadman (26. Oktober 2006 um 19:21)

    klappts?


    p.s du hast Austria vergessen und .at zu Switzerland gegeben =(


    Wie fies :weinen: :weinen: