kleines script für battleknight(browsergame)

    Hier is das script... leider muss ich es öffters erneuern weil die alle paar wochen die seite ändern -.-

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.4.1
    Author: monk3y5hit

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    HotKeySet("^a", "MeinExit")

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

    #include <IE.au3>

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


    $aufgabe=InputBox("Aufgabe","Was soll der Ritter machen? Drücken sie 1 für quests oder 2 für arbeit")
    $acc=InputBox("Account", "Wie heisst ihr Account?")
    $pw=InputBox("Passwort", "Wie ist ihr passwort?", "", "†")
    $server=InputBox("Server", "Auf wechem Server sind sie angemeldet?"&@CRLF&"Drücken sie 1 um sich in den server 1 einzuloggen usw.")
    if $aufgabe=2 Then
    $stunden=inputbox("Stunden", "Wie lange soll der Ritter arbeiten?"&@CRLF&"(1,2,3,4,5,6,7,8)")
    EndIf
    if $aufgabe=1 then

    _IECreate("http://www.battleknight.de", 1, 1, 1)
    Winmove("BattleKnight - Microsoft Internet Explorer","", 0, 0, 1288, 1000)
    mouseclick("left", 301, 168,1)
    send($acc)
    MouseClick("left", 476, 168,1)
    send($pw)
    if $server =1 Then
    send("{enter}")
    EndIf
    if $server =2 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 196,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =3 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 208,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =4 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 223,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =5 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 233,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =6 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 247,1)
    MouseClick("left", 605, 165,1)
    endif
    send("{Enter}")
    sleep("18000")
    MouseClick("left", 228, 209, 1)
    sleep("8000")
    MouseClick("left", 669, 436, 1)
    sleep("3000")
    MouseClick("left", 451, 426, 1)
    MouseClick("left", 451, 472, 1)
    MouseClick("left", 500, 425, 1)
    sleep ("6000")
    MouseClick("left", 451, 426, 1)
    MouseClick("left", 451, 463, 1)
    MouseClick("left", 500, 425, 1)
    sleep ("6000")
    MouseClick("left", 451, 426, 1)
    MouseClick("left", 451, 446, 1)
    MouseClick("left", 500, 425, 1)
    sleep("6000")
    WinKill("BattleKnight - Microsoft Internet Explorer")
    Exit
    EndIf

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

    if $aufgabe=2 then
    _IECreate("http://www.battleknight.de", 1, 1, 1)
    Winmove("BattleKnight - Microsoft Internet Explorer","", 0, 0, 1288, 1000)
    mouseclick("left", 301, 168,1)
    send($acc)
    MouseClick("left", 476, 168,1)
    send($pw)
    if $server =1 Then
    send("{enter}")
    EndIf
    if $server =2 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 196,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =3 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 208,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =4 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 223,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =5 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 233,1)
    MouseClick("left", 605, 165,1)
    endif
    if $server =6 Then
    MouseClick("left",565, 165,1)
    mouseclick("left", 535, 247,1)
    MouseClick("left", 605, 165,1)
    endif
    send("{Enter}")
    sleep("18000")
    mouseclick("left", 228, 236, 1)
    sleep("8000")
    MouseClick("left", 669, 436, 1)
    sleep("3000")
    mouseclick("left", 422, 481, 1)
    if $stunden=1 Then
    MouseClick("left", 414, 497, 1)
    EndIf
    if $stunden=2 Then
    MouseClick("left", 414, 507, 1)
    EndIf
    if $stunden=3 Then
    MouseClick("left", 414, 523, 1)
    EndIf
    if $stunden=4 Then
    MouseClick("left", 414, 534, 1)
    EndIf
    if $stunden=5 Then
    MouseClick("left", 414, 547, 1)
    EndIf
    if $stunden=6 Then
    MouseClick("left", 414, 564, 1)
    EndIf
    if $stunden=7 Then
    MouseClick("left", 414, 579, 1)
    EndIf
    if $stunden=8 Then
    MouseClick("left", 414, 589, 1)
    EndIf
    MouseClick("left", 496, 480, 1)
    sleep("2000")
    winkill("BattleKnight - Microsoft Internet Explorer")
    exit
    EndIf

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

    Func MeinExit()
    Exit
    EndFunc

    [/autoit]

    Mfg
    monkey

    Monkey - die finale Potenz von göttlich!
    Sloganizer

    Einmal editiert, zuletzt von monkey (15. Juni 2007 um 14:04)

    [list=1]
    [*]ehm schau dir mal die IE.au3 an!!!
    [*] jeder user würde ausflippen wenn seine maus immer irgendwo her wandert und nen browserfenster in den vordergrund kommt....
    [*]ob das jemals von anderen genutzt wird ist die frage
    [*]der sinn an einem online spiel ist sicherlich NICHT dass sich irgendwer nen bot dafür baut(okay gibts immer wieder)
    [*]browser bots haben meiner meinung nach eher in der abteilung "Meine privaten Scripte" verloren und nicht unbedingt hier(ansichtssache)
    [*]ich aus user würde niemals meine daten in einen bot eintragen den ich nicht selbst geschrieben hätte(naja bin bei persönlichen daten (e.g.:passwörter) so oder so vorsichtig
    [*]ich persönlich sehe für mich kein nutzen in diesem script
    [*]nur als vorschlag empfehle ich dir: such dir sinnvollere aufgaben!
    [/list=1]

    noch was wichtiges vergessen?

    snoozer

    PS: ich weiß keiner mag mich aber einer muss es ja sagen!