Autologin + Farmerbot

[Xist]

Witam chciałbym wam przedstawić FarmerBota + Autologin Napisanego przez mnie.

 

Instrukcja

 

1.Wpisujemy passy

2.Wpisujemy współrzędne atakowaniej wioski

3.Klikamy Loguj I atakuj

4.Gdy chcemy tylko się zalogować wpisujemy passy i klikamy loguj

 

Dziala tylko gdy mamy 1 wioskę jak ktos chce na więcej Pisać pw Ale wątpie ze mi się bedzie chciało robić

 

Bot Działa tylko na MOZILLI i musimy mieć dodatek MOZREPL. BOT ROIONY NA WERSJI 7.0 . NIEWIEM JAK DZIALA NA INNYCH

 

MOZREPL:

http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi

 

skan: Zaufane źródło

 

 

 

 

Dla niedowierzających skrypt AutoiT:

 

 

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

 

AutoIt Version: 3.3.6.1

Author: Qpsko

 

Script Function:

Plemiona Farm Bot.

 

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

#include <FF.au3>

#include <GUIComboBox.au3>

#include <GUIConstantsEx.au3>

#include <EditConstants.au3>

#include <WindowsConstants.au3>

#include <ButtonConstants.au3>

 

;Deklarowanie zmiennych Globalych

Global $server_list = ""

For $i = 1 To 51

$server_list &= $i & "|"

Next

$server_list &= "Special"

 

Global $login = ""

Global $haslo = ""

Global $Wspx_input = ""

 

Global $Wspx = ""

Global $Wspy = ""

;Koniec deklaracji zmiennych Globalnych

 

;Tworzenie GUI

$hGUI = GUICreate("Plemiona Farmer", 266, 470, 254, 155)

 

$login_input = GUICtrlCreateInput($login, 98, 24, 121, 21)

$Haslo_input = GUICtrlCreateInput($haslo, 98, 49, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))

$Swiat_combo = GUICtrlCreateCombo("", 98, 74, 121, 25)

GUICtrlSetData(-1, $server_list)

$Wsp1 = GUICtrlCreateInput($Wspx, 40, 232, 185, 21)

$Wsp2 = GUICtrlCreateInput($Wspy, 40, 264, 185, 21)

_GUICtrlComboBox_SetCurSel($Swiat_combo, 42)

 

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

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

GUICtrlSetColor(-1, 0x316AC5)

GUICtrlCreateLabel("Hasło", 40, 48, 54, 24)

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

GUICtrlSetColor(-1, 0x316AC5)

GUICtrlCreateLabel("Świat", 40, 72, 54, 24)

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

GUICtrlSetColor(-1, 0x316AC5)

GUICtrlCreateLabel("y", 24, 264, 12, 24)

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

GUICtrlCreateLabel("x", 24, 232, 12, 24)

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

 

$Vill1Start = GUICtrlCreateButton("Start", 40, 104, 185, 50, $WS_GROUP)

$Group1 = GUICtrlCreateGroup("Logowanie", 16, 8, 233, 185)

$Group2 = GUICtrlCreateGroup("Farmer (Wszystkie Wojska)", 16, 208, 233, 145)

$Attack_button = GUICtrlCreateButton("Atakuj", 40, 296, 185, 41, $WS_GROUP)

$Exit_button = GUICtrlCreateButton("Wyjscie", 40, 160, 185, 25, $WS_GROUP)

$Allin1 = GUICtrlCreateButton("Loguj i atakuj", 40, 384, 185, 57, $WS_GROUP)

$Group3 = GUICtrlCreateGroup("(Atak+Login)(WYPEŁNIJ POLA!)", 16, 360, 233, 97)

GUICtrlCreateGroup("", -99, -99, 1, 1)

 

 

 

GUISetState()

;Koniec tworzenia GUI

 

;Funkcje pod buttony

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE

Exit

Case $Vill1Start

_Login()

Case $Exit_button

Exit

Case $Attack_button

_Farmer()

Case $Allin1

_Login()

_Farmer()

EndSwitch

WEnd

;Koniec Funkcji pod buttony

 

;Funkcje

Func _Login() ;Loguje sie (Wypełnia pole login,haslo,swiat z inputów).

$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

 

Func _Farmer() ;Wypisuje współzędne z inputa x,y (wybiera wszystkie wojska i atakuje).

_FFConnect()

$Koszary = _FFXPath('//*[@id=map_place]', 'href')

_FFOpenUrl($Koszary)

 

$Wspx = GUICtrlRead($Wsp1)

$Wspy = GUICtrlRead($Wsp2)

 

$obiekt_login = _FFObjGet("inputx", "id")

$obiekt_haslo = _FFObjGet("inputy", "id")

 

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

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

 

_FFClick("selectAllUnits", "id")

 

_FFClick("attack", "name")

 

_FFFormSubmit()

EndFunc

 

;Koniec funkcji

 

 

 

 

Okej teraz download:

 

http://www.speedyshare.com/files/28012896/Plemiona_FarmerBot.exe

 

Skan : http://www.virustotal.com/file-scan/report.html?id=ee721a2324467b559887f69f38ededef1ec312d823511977e80162975a117a9e-1303049592

 

Sam go pisalem wiec te antywirusy są do dupy

 

 

Licze na +

[Xist]

Dlaczego ;D? Zły?

[Xist]

Refresh

[fninmm]

Jeśli pisałeś go w AutoIT to bym się zdziwił gdyby antyvirus nic nie wykrył, bo jeśli piszesz program w autoit to traktują go jako virusa przez sam ten fakt. No, taki język.

[Ramzesso]

Działa on sprawdzał ktos? Chyba linki wygasły?

[Ronon9449]

Można prosić o odświeżenie linku?

[Mastick]

Link wygasł, kosz.