Autologin Plemiona

[Xist]

Witam napisałem w AutoIt z nudów bota do plemion

Polega on na autologowaniu się do gry.

Serwery do wyboru.

Dla niedowierzających skrypt:

 

 

 

#include <FF.au3>

#include <GUIComboBox.au3>

#include <GUIConstantsEx.au3>

#include <EditConstants.au3>

 

Global $server_list = ""

For $i = 1 To 51

$server_list &= $i & "|"

Next

$server_list &= "Special"

 

Dim $ItemColor[2] = [0x6795EA, 0x5976AB]

 

Global $Check[5]

Global $Tab[4]

 

Global $login = ""

Global $haslo = ""

Global $swiat = ""

 

Global $Polaczony = 0

Global $zalogowany = ""

 

$hGUI = GUICreate("Qpsko-Plemiona", 201, 189, 397, 234)

 

$login_input = GUICtrlCreateInput($login, 66, 8, 121, 21)

$Haslo_input = GUICtrlCreateInput($haslo, 66, 33, 121, 21, $ES_PASSWORD)

$Swiat_combo = GUICtrlCreateCombo("", 66, 58, 121, 25)

GUICtrlSetData(-1, $server_list)

_GUICtrlComboBox_SetCurSel($Swiat_combo, 42)

 

GUICtrlCreateLabel("Login", 8, 8, 54, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x316AC5)

GUICtrlCreateLabel("Hasło", 8, 32, 54, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x316AC5)

GUICtrlCreateLabel("Świat", 8, 56, 54, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x316AC5)

 

$Start_button = GUICtrlCreateButton("Start", 10, 88, 180, 40)

$Exit_button = GUICtrlCreateButton("Wyjscie", 10, 138, 180, 40)

 

GUISetState()

 

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE

Exit

Case $Start_button

_Login()

Case $Exit_button

Exit

EndSwitch

WEnd

 

Func _Login()

$login = GUICtrlRead($login_input)

$haslo = GUICtrlRead($Haslo_input)

$swiat = GUICtrlRead($Swiat_combo)

 

_FFStart("http://plemiona.pl/")

 

$obiekt_login = _FFObjGet("user", "name")

$obiekt_haslo = _FFObjGet("password", "name")

 

_FFObj($obiekt_login, "value", $login)

_FFObj($obiekt_haslo, "value", $haslo)

 

_FFClick("button_middle", "class")

 

For $i = 1 To 100

If _FFXPath("/html/body/div[2]/div/div[2]/div/div[2]/div[2]/div/div[2]/form/div/a[" & $i & "]/span", "textContent") = "Zwiat " & $swiat Then

_FFClick(_FFXPath("/html/body/div[2]/div/div[2]/div/div[2]/div[2]/div/div[2]/form/div/a[" & $i & "]/span", ""))

ExitLoop

EndIf

Next

 

$zalogowany = $login

EndFunc

 

 

 

 

 

Przejdźmy do downloadu;] :

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

 

Licze na +

[OstryZielarz]

Hehe działa.

 

 

+sik

[Xist]

Dzieki Moze potem rozbuduje to napisze całego botka

[toiman]

Nie wiem po co komu bot do logowania ale masz +sa :P

[Xist]

Zauważ jak on to szybko robi wchodzi na plemiona i automatycznie loguje

a dodatkowo można nawet włączyć plemiona z pulpitu.

 

Jutro i pojutrze zabieram sie za bota i bede próbował zrobić farmienie ;]

[keps]

Dzięki za bota napewno się przyda