Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Firefox - Autologin (Ff.Au3)

hfaua

Rekomendowane odpowiedzi

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Część I - AutoLogin

 

 

Dzięki bibliotece FF.au3 możemy zrobić boty do gier via internet takich jak: OGame, Plemiona, Wolni Farmerzy, The-West, itp.

Program wykona za nas wszystko w tle, więc będziemy mogli sobie w coś pograć wink.gif

 

W tym krótkim tutorialu pokażę wam jak zrobić AutoLogin do gry PrisonWars.

Potem każdy z was będzie mógł rozbudować tego bota według swoich potrzeb.

 

1. Biblioteka FF.au3:

Download: 

http://www.thorsten-willert.de/index.php/software/autoit/ff/ff-au3
 

Skana nie daję bo plik au3 tongue.gif

Bibliotekę należy skopiować do folderu Include(C:\\Program Files\AutoIt\Include\).

 

Potrzebujemy też kilku dodatków do FireFoxa:

a. MozRepl 

https://github.com/bard/mozrepl/wiki
 

b. FireBug 

http://getfirebug.com/
 

c. WebDeveloper 

https://addons.mozilla.org/pl/firefox/addon/60/
 

Po zainstalowaniu przechodzimy dalej.

 

2. Wprowadzenie biblioteki do skryptu.

Na samym początku skryptu deklarujemy, że będziemy używać pliku FF.au3 poprzez użycie komendy: 

#include <FF.au3>
 

 

3. Następnie tworzymy proste GUI:

 

  

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FF.au3>

GUICreate("AutoLogin", 200, 90)
$login_input = GUICtrlCreateInput("", 5, 5, 100)
$haslo_input = GUICtrlCreateInput("", 5, 30, 100)
GUICtrlCreateLabel("Login", 108, 8)
GUICtrlCreateLabel("Hasło", 108, 32)
$loguj = GUICtrlCreateButton("Loguj", 140, 5, 55, 40)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $loguj
		login()
EndSwitch
WEnd
 

 

 

Chyba nie muszę wyjaśniać GUI?

3 Inputy (login, hasło, serwer)

1 Przycisk do włączenia bota

 

4. Tworzymy funkcję logowania:

Będziemy do tego potrzebowali kilku funkcji FF.au3 : 

_FFStart() - jak sama nazwa mówi, służy do włączenia FireFoxa.
_FFConnect() - służy do łączenia się z dodatkiem MozRepl. Nie będę tej funkcji używał, ponieważ jest ona w _FFStart, ale dużo osób nie pamięta o niej.
_FFOpenURL() - otwiera stronę w obecnej zakładce.
_FFObjGet() - pobiera obiekt w FF (potem powiem więcej)
_FFObj() - zwraca, bądź ustawia jakiś parametr w obiekcie
_FFFormSubmit() - wysyła formularz
 

Dobra, myślę że dobrze wytłumaczone i wszystko rozumiecie (taa... jasne)

 

Zacznijmy pisać w końcu tą funkcję AutoLoginu :

Najpierw musimy stworzyć tą funkcję, więc: 

Func login()
[ENTER]
EndFunc
 

Teraz trzeba by jakoś wypełnić te inputy na stronie smile.gif

Posłużą nam do tego funkcjie _FFObjGet (do pobrania obiektu) i _FFObj (do ustawienia wartości inputa).

 

Teraz krótki poradnik do wyciągania danych o obiekcie:

1. Klikamy na pożądany obiekt PPM i wybieramy z listy "Zbadaj element".

2. Otworzy się okienko na dole strony.

3. W przypadku inputu na hasło zobaczymy takie coś: 

<div class="loginDiv"><input type='password' name='password'
 

3. Mamy takie oto parametry obiektu:

1) class="loginDiv"

2) name='password'

Szkoda, że tylko 2, ale i tak sobie poradzimy. (My byśmy se nie poradzili?)

 

Czytamy w dokumentacji, że w funkcji _FFObjGet możemy użyć takich parametrów obiektu: 

id	= ID of the element
name	= name of the element
class	= class of the element
tag	= tag-name of the element
 

My mamy name i class.

Lepiej użyć name, bo kilka obiektów może mieć tą samą klasę tongue.gif

 

Piszemy na początku funkcji: 

$login = GUICtrlRead($login_input)
$haslo = GUICtrlRead($haslo_input); o tym też

_FFStart("http://prisonwars.gry.epuls.pl/"); włącza nam stronkę PrisonWarsa
$obiekt_login = _FFObjGet("login", "name"); pobiera do zmiennej $obekt_login obiekt o parametrze name = "login"
$obiekt_haslo = _FFObjGet("password", "name"); pobiera do zmiennej $obekt_haslo obiekt o parametrze name = "pass"
 

Tak oto mamy już te obiekty w naszych zmiennych smile.gif

Teraz możemy już je czymś wypełnić smile.gif

 

W dokumentacji czytamy (ja się stamtąd wszystkiego nauczyłem, co wiem o FF.au3:)), że funkcja _FFObj ma mniej więcej taką składnię: 

_FFObj($obiekt_z__FFObjGet, "prametr", wartość)
 

Więc możecie się domyśleć, że nasze użycie tej funkcji będzie wyglądało tak: 

_FFObj($obiekt_login, "value", $login)
oraz
_FFObj($obiekt_haslo, "value", $haslo)
 

 

Teraz wystarczy wysłać formularz 

_FFFormSubmit()
 

I gotowe! biggrin.gif

Właśnie napisałeś swojego bota w FF.au3 smile.gif

 

Teraz cały kod:

 

  

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FF.au3>

GUICreate("AutoLogin", 200, 90)
$login_input = GUICtrlCreateInput("", 5, 5, 100)
$haslo_input = GUICtrlCreateInput("", 5, 30, 100)
GUICtrlCreateLabel("Login", 108, 8)
GUICtrlCreateLabel("Hasło", 108, 32)
$loguj = GUICtrlCreateButton("Loguj", 140, 5, 55, 40)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $loguj
		login()
EndSwitch
WEnd

Func login()
$login = GUICtrlRead($login_input); zapomniałbym o tym :P
$haslo = GUICtrlRead($haslo_input); o tym też

_FFStart("http://prisonwars.gry.epuls.pl/"); włącza nam stronkę PrisonWars'a
$obiekt_login = _FFObjGet("login", "name"); pobiera do zmiennej $obekt_login obiekt o parametrze name = "login"
$obiekt_haslo = _FFObjGet("password", "name"); pobiera do zmiennej $obekt_haslo obiekt o parametrze name = "pass"

_FFObj($obiekt_login, "value", $login); ustawia wartość obiektu na nasz login
_FFObj($obiekt_haslo, "value", $haslo); ustawia wartość obiektu na nasze hasełko

_FFFormSubmit(); wysyła formularz
EndFunc   ;==>login
 

 

Dziękuję za uwagę. Wszystkie błędy zgłaszajcie tu w tym temacie, a ja lub ktoś inny postaramy się wam pomóc smile.gif

Możecie podać jakąś grę to zrobię tutka, jak zrobić do niej bota, który robi więcej, a nie tylko się loguje smile.gif

 

_FFXPath

 

Czas na następną lekcję smile.gif

Funkcja _FFXPath służy do pobierania wartości elementu HTML podanego w ścieżce XPath. Ścieżkę tą możemy łatwo zdybyć klikają na interesujący nas text, link, obrazek PPM i wybierając "Zbadaj Element" (musimy mieć FireBuga). Potem Klikamy na kod HTML odpowiedzialny za ten element PPM i wybieramy "Kopiuj wyrażenie XPath". Ok, skoro już mamy tą ścieżkę to czas na użycie funkcji. Składnia funkcji: 

_FFXpath("Ścieżka XPath", "Atrybut", "Typ zwracanej wartosci", "Filtr")
 

Ścieżkę XPath już mamy, więc możemy ją wkleić. Teraz wypiszę wszystkie Atrybuty, typy zwracanych wartości i Filtry wink.gif Wszystko jest oczywiście w dokumentacji, ale znając was nikt się tam nie pofatyguję...

Atrybuty:

- "textContent" <- Domyślnie

- src, title, id, name, class itp.

 

Typy zwracanych wartości: 

0	= ANY_TYPE
1	= NUMBER_TYPE
2	= (Default) STRING_TYPE
3	= BOOLEAN_TYPE
6	= UNORDERED_NODE_SNAPSHOT_TYPE
7	= ORDERED_NODE_SNAPSHOT_TYPE
8	= ANY_UNORDERED_NODE_TYPE
9	= FIRST_ORDERED_NODE_TYPE
10	= COUNT (returns the number of matches)
11	= CONTAINS (stringValue contains substring in $sAttribute)
12	= STARTS-WITH (stringValue start-with string in $sAttribute)
13	= SUBSTRING-AFTER (stringValue substring-after in $sAttribute)
14	= SUBSTRING-BEFORE (stringValue substring-bevore in $sAttribute)
 

Ktoś chce może przetłumaczyć

Ja już nie mam czasu :]

 

Filtry: 

0	= Disabled
1	= Non ASCII chars
2	= Double whitespaces
4	= Double linefeeds
8	= HTML tags
16	= Simple HTML tags
 

 

Dobra, teraz może jakieś przykłady:

Na potrzeby tego tutka napisałem sobie prostą stronkę na której będę to prezentował, jeśli chcecie sprawdzać przykłady to tu macie kod:

  

<html>
<body>
	<a href="http://www.google.com">Google</a>
	<font size="5">1000</font>
	<table>
		<tr><td>100</td></tr>
		<tr><td>200</td></tr>
		<tr><td>300</td></tr>
	</table>
</body>
</html>
 

 

Dobra teraz spróbujmy jakoś wyciągnąć wartość 1000 smile.gif

#include <FF.au3>
_FFConnect()
$xxx = _FFXPath("/html/body/font", "textContent")
MsgBox(64, "Kwota:", $xxx)
 

Ok, mamy ten 1000. Teraz spróbujmy pozostałe wartości

 

Spróbujmy teraz wyciągnąć z tabelki wartości 100, 200, 300

Oto ich XPath'y: 

/html/body/table/tbody/tr/td <- 100
/html/body/table/tbody/tr[2]/td <- 200
/html/body/table/tbody/tr[3]/td <- 300
 

Jak za pewne zauważyliście zmienia się wartość w kwadratowym nawiasie smile.gif Jest to nr. danego elementu w kodzie. Czyli np. mamy 100 obrazkow to kazdy bedzie po kolei img[1], img[2] img[3] itd.

Ok, teraz kod: 

#include <FF.au3>
_FFConnect()
$xxx = ''
For $i = 1 to 3
$xxx &= _FFXPath('/html/body/table/tbody/tr[ & $i & ']/td', 'textContent') & @CRLF
Next
MsgBox(64, "Wartości", $xxx)
 

Jak widzimy działa pięknie i mamy wszystkie dane z tabelki.

 

Dobra teraz może użyjemy innych atrybutów tej funkcji. Spróbujmy wyciągnąć link Googla

Zobaczymy jaką ścieżkę wygeneruje nam FireBug 

//*[@id="link"]
 

blink.gif WTF? Jak widzicie jest to znacznie krótsza i wygodniejsza w użyciu ścieżka XPath.

Oznacza ona obiekt o id = "link", jeśli będzie więcej takich elementów to ścieżk będzie normalna (/html/body/a).

Spróbujmy więc wciągnąć ten link 

#include <FF.au3>
_FFConnect()
$xxx = _FFXPath('//*[@id="link"]', 'href')
MsgBox(64, "Link", $xxx)
 

 

To już koniec tego tutka o _FFXPath, następna część o FF.au3 może za tydzień, a może za miesiąc..

Wszystko zależy od tego czy mi się będzie chciało i czy będę miał czas. No i oczywiście czy Fli da jakieś fajne azjatki biggrin.gif

 

Miłego pisania botków.

 

PS. W trakcie pisania jest polska dokumentacja tej biblioteki, tłumaczę sam i nie wiem kiedy skończe (po formacie wszystko co juz przetłumaczyłem poszło się jebać :/), jak tylko przetłumaczę to dam linka.

PPS. Na waszym miejscu za bardzo bym nie liczył na to tłumaczenie biggrin.gif

PPPS. No nie! MPC mi wywala jakiś błąd, że nie mogę więcej emotek sad.gif

 

Od 4ggr: _FFClick nie działa z _FFXPath!

 

Pozdrawiam, hfaua cool.gif

7
  • Odpowiedzi 131
  • Dodano
  • Ostatniej odpowiedzi
TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

a mi wyskakuje blad jak zrobilem :

skopiowalem kod i wkleilem i zapisalem nazwalem FF.au3

w moim kodzie napisalem linijke #inlude <FF.au3>

i tam dalej GUI

i jak klikam zeby otworzyl to co wyszlo wyskakuje "Line 7(tam gdzie napisałem #include <ff.au3>) Error: Error opening the file"

NIe wiem dlaczego nie chce otworzyc ff.au3 cos zle w kodzie czy jak ? PRobowałem zaznaczać w ff.au3 tylko do odczytu ale zawsze tak samo jest

@EDIT

a jak dalem nazwe FF bez .au3 to wyskakuje taki błąd :

,,Line 4190 (File"c:\....\Include\FF.au3):

Error: Untermiated group of comments."

-1

//Za duża sygnaturka.

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

to wkoncu dałeś nazwe : FF.au3 czy ff.au3 ? case sensitive

 

 

ale chyba widze błąd , jak kopiowałeś to piszesz ze napisałeś : #inlude <FF.au3>

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

matu691 Budowniczy

matu691

Opublikowano
Budowniczy

matu691

Opublikowano

No a mnie nie loguje tylko otwiera stronę (ale to i tak nie od razu muszę dość długo poczekać) i dalej nic nie robi.

 

@Edit

skopiowałem twojego gotowca(ten ostatni kod).

mpcforum.pl

18706.png

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

  • Autor
Opublikowano

W Inpucie Server musisz wpisać sam nr serwera. Może to masz źle.

Mi to działa ;)

Będę kontynuował pisanie bota do ZI i może potem napiszę pełnego tutka, do całego bota :P

1
TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

ehh no mi to średnio dziala, no bo napisalem taki kod :

te wszytkie include

moje gui

i na koniec 

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
				Case $Button1 
			_FFStart("http://members.ayuwage.com/enter.php")
				Case  $button5 
	_FFStart("http://trekpay.com")
       EndSwitch
WEnd

ale nic sie nie dzieje nawet jak klikne na X to bot sie nie wylaczy

@EDIT

No dobra jakos sobie poradzilem tylko mam pytanie :

bo jak mialem taki kod jak wyzej albo taki : 

Func ayuwage()
			_FFStart("http://members.ayuwage.com/enter.php")
		EndFunc
If $Button1 Then
	ayuwage()
ElseIf $Button5 then 
	_FFStart("www.trekpay.com")
	EndIf

to czemu po wcisnieciu buttona nic sie nie robilo ?

oczywiscie mialem te include i gui wczesniej.

Dopiero jak dalem GuiSetoneventmode czy cos to zadzialalo a tak to nic :/

//Za duża sygnaturka.

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

  • Autor
Opublikowano

Może tak zadziała?

 

Func ayuwage()
   _FFStart("http://members.ayuwage.com/enter.php")
EndFunc
       If GUIGetMsg() = $Button1 Then
               ayuwage()
       ElseIf GUIGetMsg() = $Button5 then 
               _FFStart("www.trekpay.com")
               EndIf

 

2
TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

nie niestety tylko z GuiCtrlSetOnEvent dziala zeby otworzylo strone

a i takie male pytanko da sie zrobic zeby otworzyc klika stron w 1 ff ?

tzn. jak klikne button1 to jakas tam strona jak button 2 to inna strona ale nie w nowym oknie

@ a i nie wiem dlaczego ale zawsze jak klikne na X w rogu u gory to nic sie nie dzieje a w kodzie nic nie zmieniam

raz probowalem if $gui_event_close then exit ale nic nie daje nadal tak jakbym nie napisal co sie stanie kiedy klikne X

//Za duża sygnaturka.

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

wygląda na uwalony kod w gui , cześć przycisków używa GuiCtrlSetOnEvent a cześc nie , musisz wybrać jedną metode bo cięzko połączyć obie w jednym gui

1

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

  • Autor
Opublikowano

@matu691

Skopiowałem mojego gotowca i mi wszystko działa

W login wpisujesz swój login

W hasło swoje hasło

A w serwer nr servera ;)

Masz ss:

loginuz.png

Dane oczywiście zmyślone :P

2
matu691 Budowniczy

matu691

Opublikowano
Budowniczy

matu691

Opublikowano

jak sie nie zainstalowało mozrep albo nie włączyło to jak ma działać ?!

 

punkt 1a tutorialu ale chyba z tego linku szybciej http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi

Zainstalowałbym Mozrepa tylko że jak to robię to wywala mi błąd że nie może być zainstalowany, ponieważ nie jest kompatybilny z mozilla 3.6.6 <_< - z twojego linku zadziałało :)

Ale i tak nadal wyskakuje mi ten błąd i gdy kliknę ok to otwiera drugą mozille i już poprawnie loguje. - Ok już wszystko działa.

mpcforum.pl

18706.png

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

nie wydaje mi sie zeby bylo skopane gui (robilem w kodzie) ale dam wam caly kod jak bede przy kompie bo narazie na siostry lapie siedze

//Za duża sygnaturka.

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

mało ważne ze robiszw kodzie koda nie sprawdza poprawnosci działania kodu tylko wykonanie kodu a to odmienne rzeczy

1

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

moj kod 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <FF.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\JMK\Pulpit\Jacek\boty\koda\Forms\Bot FF.kxf
$Form1 = GUICreate("Bot FF", 282, 457, 420, 202, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("AYUWAGE", 8, 0, 129, 113)
$Button1 = GUICtrlCreateButton("Start", 16, 72, 113, 33, 0)
$Input1 = GUICtrlCreateInput("Input1", 72, 16, 57, 21)
$Input2 = GUICtrlCreateInput("Input2", 72, 48, 57, 21)
$Label1 = GUICtrlCreateLabel("login", 16, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("haslo", 16, 48, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Greenbux", 8, 120, 129, 113)
$Button2 = GUICtrlCreateButton("Start", 16, 192, 113, 33, 0)
$Input3 = GUICtrlCreateInput("Input3", 72, 144, 57, 21)
$Input4 = GUICtrlCreateInput("Input4", 72, 168, 57, 21)
$Label3 = GUICtrlCreateLabel("login", 16, 144, 26, 17)
$Label4 = GUICtrlCreateLabel("haslo", 16, 168, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("neobux", 8, 240, 129, 105)
$Button3 = GUICtrlCreateButton("Start", 16, 312, 113, 33, 0)
$Input5 = GUICtrlCreateInput("Input5", 72, 256, 57, 21)
$Input6 = GUICtrlCreateInput("Input6", 72, 288, 57, 21)
$Label5 = GUICtrlCreateLabel("login", 16, 256, 26, 17)
$Label6 = GUICtrlCreateLabel("haslo", 16, 288, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Jmgold", 8, 344, 129, 97)
$Button6 = GUICtrlCreateButton("Start", 16, 408, 113, 33, 0)
$Input11 = GUICtrlCreateInput("Input11", 72, 360, 49, 21)
$Input12 = GUICtrlCreateInput("Input12", 72, 384, 49, 21)
$Label11 = GUICtrlCreateLabel("login", 16, 360, 26, 17)
$Label12 = GUICtrlCreateLabel("haslo", 16, 384, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("trekpay", 144, 120, 129, 113)
$Button5 = GUICtrlCreateButton("Start", 152, 192, 113, 33, 0)
$Input9 = GUICtrlCreateInput("Input9", 216, 168, 49, 21)
$Input10 = GUICtrlCreateInput("Input10", 216, 136, 49, 21)
$Label9 = GUICtrlCreateLabel("login", 152, 144, 26, 17)
$Label10 = GUICtrlCreateLabel("haslo", 152, 168, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("bninvestmentsbux", 144, 0, 129, 113)
$Button4 = GUICtrlCreateButton("Start", 152, 72, 113, 33, 0)
$Input7 = GUICtrlCreateInput("Input7", 208, 48, 57, 21)
$Input8 = GUICtrlCreateInput("Input8", 208, 24, 57, 21)
$Label7 = GUICtrlCreateLabel("login", 152, 24, 26, 17)
$Label8 = GUICtrlCreateLabel("haslo", 152, 48, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("wszystko", 144, 240, 129, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
WEnd
		Func ayuwage()
   _FFStart("http://members.ayuwage.com/enter.php")
EndFunc
       If GUIGetMsg() = $Button1 Then
               ayuwage()
       ElseIf GUIGetMsg() = $Button5 then 
               _FFStart("www.trekpay.com")
               EndIf

//Za duża sygnaturka.

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

  • Autor
Opublikowano

Masz pętle zrąbaną zaczyna się i zaraz się kończy?

Tu masz działający kod:

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <FF.au3>

$Form1 = GUICreate("Bot FF", 282, 457, 420, 202, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("AYUWAGE", 8, 0, 129, 113)
$Button1 = GUICtrlCreateButton("Start", 16, 72, 113, 33, 0)
$Input1 = GUICtrlCreateInput("Input1", 72, 16, 57, 21)
$Input2 = GUICtrlCreateInput("Input2", 72, 48, 57, 21)
$Label1 = GUICtrlCreateLabel("login", 16, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("haslo", 16, 48, 29, 17)
$Group2 = GUICtrlCreateGroup("Greenbux", 8, 120, 129, 113)
$Button2 = GUICtrlCreateButton("Start", 16, 192, 113, 33, 0)
$Input3 = GUICtrlCreateInput("Input3", 72, 144, 57, 21)
$Input4 = GUICtrlCreateInput("Input4", 72, 168, 57, 21)
$Label3 = GUICtrlCreateLabel("login", 16, 144, 26, 17)
$Label4 = GUICtrlCreateLabel("haslo", 16, 168, 29, 17)
$Group3 = GUICtrlCreateGroup("neobux", 8, 240, 129, 105)
$Button3 = GUICtrlCreateButton("Start", 16, 312, 113, 33, 0)
$Input5 = GUICtrlCreateInput("Input5", 72, 256, 57, 21)
$Input6 = GUICtrlCreateInput("Input6", 72, 288, 57, 21)
$Label5 = GUICtrlCreateLabel("login", 16, 256, 26, 17)
$Label6 = GUICtrlCreateLabel("haslo", 16, 288, 29, 17)
$Group4 = GUICtrlCreateGroup("Jmgold", 8, 344, 129, 97)
$Button6 = GUICtrlCreateButton("Start", 16, 408, 113, 33, 0)
$Input11 = GUICtrlCreateInput("Input11", 72, 360, 49, 21)
$Input12 = GUICtrlCreateInput("Input12", 72, 384, 49, 21)
$Label11 = GUICtrlCreateLabel("login", 16, 360, 26, 17)
$Label12 = GUICtrlCreateLabel("haslo", 16, 384, 29, 17)
$Group5 = GUICtrlCreateGroup("trekpay", 144, 120, 129, 113)
$Button5 = GUICtrlCreateButton("Start", 152, 192, 113, 33, 0)
$Input9 = GUICtrlCreateInput("Input9", 216, 168, 49, 21)
$Input10 = GUICtrlCreateInput("Input10", 216, 136, 49, 21)
$Label9 = GUICtrlCreateLabel("login", 152, 144, 26, 17)
$Label10 = GUICtrlCreateLabel("haslo", 152, 168, 29, 17)
$Group6 = GUICtrlCreateGroup("bninvestmentsbux", 144, 0, 129, 113)
$Button4 = GUICtrlCreateButton("Start", 152, 72, 113, 33, 0)
$Input7 = GUICtrlCreateInput("Input7", 208, 48, 57, 21)
$Input8 = GUICtrlCreateInput("Input8", 208, 24, 57, 21)
$Label7 = GUICtrlCreateLabel("login", 152, 24, 26, 17)
$Label8 = GUICtrlCreateLabel("haslo", 152, 48, 29, 17)
$Group7 = GUICtrlCreateGroup("wszystko", 144, 240, 129, 201)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $button1
		;funkcja
	Case $button2
		;funkcja
	Case $button3
		;funkcja
EndSwitch
WEnd

Func ayuwage()
   _FFStart("http://members.ayuwage.com/enter.php")
EndFunc

 

 

I kod dawaj w 

[*code][*/code]

i w spoilerze 

[*spoiler][*/spoiler]

Oczywiście bez gwiazdek.

2
TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

ee wiem ze petla dziwnie byla ale nic nie da to i tak jak klikne na x to sie nie wylaczy 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <FF.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\JMK\Pulpit\Jacek\boty\koda\Forms\Bot FF.kxf
$Form1 = GUICreate("Bot FF", 282, 457, 420, 202, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("AYUWAGE", 8, 0, 129, 113)
$Button1 = GUICtrlCreateButton("Start", 16, 72, 113, 33, 0)
GUICtrlSetOnEvent($Button1, "ayuwage")
$Input1 = GUICtrlCreateInput("", 72, 16, 57, 21)
$Input2 = GUICtrlCreateInput("", 72, 48, 57, 21)
$Label1 = GUICtrlCreateLabel("login", 16, 16, 26, 17)
$Label2 = GUICtrlCreateLabel("haslo", 16, 48, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Greenbux", 8, 120, 129, 113)
$Button2 = GUICtrlCreateButton("Start", 16, 192, 113, 33, 0)
GUICtrlSetOnEvent($Button2, "greenbux")
$Input3 = GUICtrlCreateInput("", 72, 144, 57, 21)
$Input4 = GUICtrlCreateInput("", 72, 168, 57, 21)
$Label3 = GUICtrlCreateLabel("login", 16, 144, 26, 17)
$Label4 = GUICtrlCreateLabel("haslo", 16, 168, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("neobux", 8, 240, 129, 105)
$Button3 = GUICtrlCreateButton("Start", 16, 312, 113, 33, 0)
GUICtrlSetOnEvent($Button3, "neobux")
$Input5 = GUICtrlCreateInput("", 72, 256, 57, 21)
$Input6 = GUICtrlCreateInput("", 72, 288, 57, 21)
$Label5 = GUICtrlCreateLabel("login", 16, 256, 26, 17)
$Label6 = GUICtrlCreateLabel("haslo", 16, 288, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Jmgold", 8, 344, 129, 97)
$Button6 = GUICtrlCreateButton("Start", 16, 408, 113, 33, 0)
GUICtrlSetOnEvent($Button6, "jmgold")
$Input11 = GUICtrlCreateInput("", 72, 360, 49, 21)
$Input12 = GUICtrlCreateInput("", 72, 384, 49, 21)
$Label11 = GUICtrlCreateLabel("login", 16, 360, 26, 17)
$Label12 = GUICtrlCreateLabel("haslo", 16, 384, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("trekpay", 144, 120, 129, 113)
$Button5 = GUICtrlCreateButton("Start", 152, 192, 113, 33, 0)
GUIctrlSetOnEvent($Button5, "trekbux")
$Input9 = GUICtrlCreateInput("", 216, 168, 49, 21)
$Input10 = GUICtrlCreateInput("", 216, 136, 49, 21)
$Label9 = GUICtrlCreateLabel("login", 152, 144, 26, 17)
$Label10 = GUICtrlCreateLabel("haslo", 152, 168, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("bninvestmentsbux", 144, 0, 129, 113)
$Button4 = GUICtrlCreateButton("Start", 152, 72, 113, 33, 0)
GUICtrlSetOnEvent($Button4, "bninvestmentsbux")
$Input7 = GUICtrlCreateInput("", 208, 48, 57, 21)
$Input8 = GUICtrlCreateInput("", 208, 24, 57, 21)
$Label7 = GUICtrlCreateLabel("login", 152, 24, 26, 17)
$Label8 = GUICtrlCreateLabel("haslo", 152, 48, 29, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("wszystko", 144, 240, 129, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $msg = GUIGetMsg()
               Switch $msg
				Case $GUI_EVENT_CLOSE
                       Exit
   EndSwitch
  WEnd

Func trekbux()
	        _FFTabAdd("https://www.trekpay.com/signin.asp")
			_FFStart("https://www.trekpay.com/signin.asp")

			$login1=GuiCtrlRead($Input10)
               $haslo1=GuiCtrlRead($Input9)

$username = _FFObjGet("user_name", "name")
_FFObj($username, "value", $login1)
$pass = _FFObjGet("user_password", "name")
_FFObj($pass, "value", $haslo1)
Send("{ENter}")
		     EndFunc
Func ayuwage()
			_FFTabAdd("http://members.ayuwage.com/enter.php")
		EndFunc
Func bninvestmentsbux()
_FFTabAdd("www.bninvestmentsbux.com")
EndFunc
Func jmgold()
_FFTabAdd("www.jmgold.info")
EndFunc
Func greenbux()
_FFTabAdd("www.greenbux.info")
EndFunc
Func neobux()
_FFTabAdd("www.neobux.com")
EndFunc

 

nie wiem co jest zle ale w kazdym bocie nie moge wylaczyc bota "iksem"

 

A i też chcialbym jak juz wbija na strone i bot wpisuje login i passsy to zeby kliknal Sign in zeby sie zalogowac probowalem z FFClick ale cos nie wyszlo oto jak probowalem:

 

$username = _FFObjGet("user_name", "name")
_FFObj($username, "value", $login1)
$pass = _FFObjGet("user_password", "name")
_FFObj($pass, "value", $haslo1)
_FFFormSubmit("login.asp?action=1", "action")
$klik = _FFObjGet("sign in", "value")
_FFClick($klik)

 

tam w linijce gdzie jest $klik = ... to probowalem zamiast sing in w nawiasie to submit i potem "class" ale efekt ten sam

//Za duża sygnaturka.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...