[Nostale] Jak napisać Bota w AutoIT

TheAlsenPL · 11 Października 2012

Witam! Postanowiłem napisać daaaaawno już planowany tutorial.

Będziemy potrzebowali oczywiście AutoIT, do którego link tutaj wstawie.

http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe

Skanu nie daje bo to z strony autora

Zaczniemy od prostego GUI, które już wam zrobiłem. Będzie to małe okienko z przyciskiem "Start".

#include <GUIConstants.au3>

$Form1 = GUICreate("nazwa", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)

Oczywiście w "nazwa" wpisujemy nazwę naszego bota jaką chcemy zastosować.

Nie jest to całość. Reszta jest tu:

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Następnym krokiem będzie wyznaczyć zadania temu przyciskowi z napisem "Start"

Naciskamy enter i jedziemy:

Case $Button1
GUISetState(@SW_HIDE, $Form1)

Po nacisnieciu "Start" bot ukrywa się.

Teraz opcja niekonieczna. Jest to odliczanie do startu. Przyda to się na pewno, zwracając uwagę na to, że bot nie będzie działał w tle.

Możemy to zrobić w taki, krótszy sposób:

TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)

Albo taki - obszerniejszy

TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(1000)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(1000)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(1000)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(1000)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(1000)
TrayTip("Bot","Bot rozpoczął atak!.",2,1)

Jednak ma to podobny efekt. W rogu ekranu widać będzie odliczanie.

Teraz już atakowanie. Otwieramy pętlę:

While 2

Teraz czytajcie uważnie. Możecie wybrać kilka funkcji z tych, które podam i nie musicie wpisywać wszystkich.

Pamiętajcie aby wpisywać je po enterze!

Ale przed tym jeszcze jedno - między funkcjami wstawiajcie taki kod:

Sleep(300)

Zapobiegnie on nadmiernemu naciskaniu klawiszy przez program

Funkcja na wciskanie spacji:

Send("{Space}")

Funkcja na wciskanie np. 1

Send("{1}")

I tak możecie ze wszystkim ;P

Wystarczy, że zmienicie wartość w nawiasie.

W ten sposób możecie zrobić aby bot naciskał klawisze np. w takiej kolejności: Spacja 1 spacja 2 spacja 3

I tak w kółko. Czyli używa skilli i atakuje

Wystarczy, że napiszecie JEDEN RAZ to co bot ma wciskać a on będzie to powtarzać dzięki otworzonej wcześniej przez nas pętli.

Skończyliście? To teraz pozostało nam zamknąć naszą pętle:

WEnd

I cały program:

EndSwitch
WEnd

I tyle. Teraz już możecie cieszyć się własnoręcznie napisanym programem.

Tutaj jak to ma wyglądać razem:

#include <GUIConstants.au3>

$Form1 = GUICreate("nazwa", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send("{Space}")
Sleep(300)
Send("{Space}")
Send("{1}")
Sleep(300)
Send("{Space}")
Send("{2}")
Sleep(300)
Send("{Space}")
Send("{3}")
Sleep(300)
WEnd
EndSwitch
WEnd

Bardzo prosty program i bardzo dobrzy programiści! Gratuluję wam dzieła!

Teraz kilka wyjaśnień:

"While" to pętla a "WEnd" to jej zakończenie (WhileEnd). Jeżeli użyjemy pierwszego terminu wpiszemy to co dana pętla ma robić i zakończymy ją samym "WEnd" program będzie powtarzał to w nieskończoność.

"Send" - tu nie musze chyba dużo wyjaśniać. Dokładne użycie to Send("{BUTTON}")

"Sleep" - Sleep wyznacza czas oczekiwania między komendami. Jakbyśmy go nie użyli program po prostu by dusił wszystkie klawisze naraz i nie wyglądało by to tak jak ma. Możecie nawet spróbować napisać coś takiego:

While 1
Send("{Space}")
WEnd

Bez sleepa jak widzicie. Teraz odpalcie grę i program. Spójrzcie jak basic skill jest używany. Zabawne prawda?

"TrayTip" - Komenda wyświetlająca małe komunikaty.

"$Form" - Jest to okno.

HaruTube · 11 Października 2012

Przyda się dla osób, którym się nudzi lub się interesują.

Bardzo ładnie napisane.

Lajk oraz możesz dać ten tutorial do konkursu

@EDIT

Lajka dam jutro, bo wykorzystałem limit

Yarker · 11 Października 2012

Jak dla mnie to taki TuT bardziej do AutoIT a nie działu NT. Lika masz bo widać że się napracowałeś ale moim zdaniem Tamten dział bardziej odpowiada

HaruTube · 11 Października 2012

Osobiście myślę, że przyda się to i tutaj i w dziale AutoIT, lecz nie wiem czy tak można.

TheAlsenPL · 11 Października 2012

Tzn. to działu AutoIT się nie nada bo tam są tutoriale, które ogólnie to wyjaśniają a nie poszczególnie jak napisać taki program. Dałem to tutaj bo chciałem wziąć udział w konkursie a nie miałem pomysłu ;p

Napisałem już w tym dziale tut o Spambocie i nie było jakichś skarg więc powinno być gz

AyrenPL · 11 Października 2012

Dostrzegam kilka błędów w opisie ale nie są jakieś bardzo poważne. Łap lajka za chęci =)

Kondik2000 · 5 Listopada 2012

Witam mam problem ponieważ chcę stworzyć bota po tibię.

Jestem nowicjuszem nie znam się na tym za bardzo ale ogółem chodzi o to aby bot powtarzał te F2 i F3 co w sumie co chwile tak jagbym ciągle klikał F2 i F3 nie wiem czy jest to możliwe w każdym razie wyskakuje mi błąd taki:

Line 17 (file "C:\Documents and Settings\kondik\pulpit\bocik Elf\ElfBot.au3"):

Send{"{F2}")
Send^ERROR

Error:Missing separator character after keyword

Prosił bym o pomoc i podesłanie mi odpowiedniego wiersza jeśli ktoś miałby chęć pomóc z Góry dziękuję.A i jeszcze coś to musi być F3 i F2 może nie koniecznie te F ale żeby to były przyciski na F ja to przedstawiłem tak:


#include <GUIConstants.au3>

$Form1 = GUICreate("ElF", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send{"{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
WEnd
EndSwitch
WEnd

Na drugi raz coduj

Tyranuss · 5 Listopada 2012

Niezły poradnik, może uda mi się napisać bota który używa skilli na potwory . Masz lajka

GrAvItY1 · 5 Listopada 2012

Niezły poradnik, może uda mi się napisać bota który używa skilli na potwory . Masz lajka

On ma bana i nie wchodzi już na te forum więc nie wiem poco jest ten temat i poco dajesz mu like

Lobod · 27 Listopada 2012

Witam mam problem ponieważ chcę stworzyć bota po tibię.

Jestem nowicjuszem nie znam się na tym za bardzo ale ogółem chodzi o to aby bot powtarzał te F2 i F3 co w sumie co chwile tak jagbym ciągle klikał F2 i F3 nie wiem czy jest to możliwe w każdym razie wyskakuje mi błąd taki:

Line 17 (file "C:\Documents and Settings\kondik\pulpit\bocik Elf\ElfBot.au3"):

Send{"{F2}")
Send^ERROR

Error:Missing separator character after keyword

Prosił bym o pomoc i podesłanie mi odpowiedniego wiersza jeśli ktoś miałby chęć pomóc z Góry dziękuję.A i jeszcze coś to musi być F3 i F2 może nie koniecznie te F ale żeby to były przyciski na F ja to przedstawiłem tak:


#include <GUIConstants.au3>

$Form1 = GUICreate("ElF", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send{"{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
WEnd
EndSwitch
WEnd

Na drugi raz coduj

W pierwszym Send jako pierwszy nawias dałeś Klare"{" a ma być nawias "("

ps.

Sleep(2)?

Nie za szybko trochę?

SyrenPL · 5 Grudnia 2012

Witam mam problem ponieważ chcę stworzyć bota po tibię.

Jestem nowicjuszem nie znam się na tym za bardzo ale ogółem chodzi o to aby bot powtarzał te F2 i F3 co w sumie co chwile tak jagbym ciągle klikał F2 i F3 nie wiem czy jest to możliwe w każdym razie wyskakuje mi błąd taki:

Line 17 (file "C:\Documents and Settings\kondik\pulpit\bocik Elf\ElfBot.au3"):

Send{"{F2}")
Send^ERROR

Error:Missing separator character after keyword

Prosił bym o pomoc i podesłanie mi odpowiedniego wiersza jeśli ktoś miałby chęć pomóc z Góry dziękuję.A i jeszcze coś to musi być F3 i F2 może nie koniecznie te F ale żeby to były przyciski na F ja to przedstawiłem tak:


#include <GUIConstants.au3>

$Form1 = GUICreate("ElF", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send{"{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
Send("{F2}")
Send("{F3}")
Sleep(2)
WEnd
EndSwitch
WEnd

W pierwszej komendzie Send jest zły nawias Popraw na "(". Do tego zwiększ sleep bo taka prędkość spowoduje, że bot po prostu może przestać działać. Do tego, z racji, że w twoim skrypcie naciskane są tylko 2 przyciski wystarczy tak:

#include <GUIConstants.au3>
$Form1 = GUICreate("ElF", 194, 124, 193, 125)
$Button1 = GUICtrlCreateButton("START", 8, 8, 177, 105, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
TrayTip("Bot","Bot rozpocznie atak za: 5 sek.",2,1)
Sleep(5000)
TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send("{F2}")
Send("{F3}")
Sleep(300)
WEnd
EndSwitch
WEnd

Tymianek · 28 Kwietnia 2013

Dzięnki ziom przyda sie do bicia joba.

PoliszŁord · 3 Maja 2013

dziaua

samson2000 · 22 Września 2013

mam pytanie... zapisuje to w formacie .au3 a jak potem to odpalić żeby bot dzialal ?

I może mi ktoś wytłumaczyć np jak chce żeby naciskał klawisz F1 to pisze sie

Send("{F1}") ?

albo czy ten bot sam naciska enter i wgl

ArcheR. · 22 Września 2013

mam pytanie... zapisuje to w formacie .au3 a jak potem to odpalić żeby bot dzialal ?

I może mi ktoś wytłumaczyć np jak chce żeby naciskał klawisz F1 to pisze sie

Send("{F1}") ?

albo czy ten bot sam naciska enter i wgl

Klikasz na powstały plik 2 razy LPM.

KlauS. · 22 Września 2013

@up

Serio?

@topic

mam pytanie... zapisuje to w formacie .au3 a jak potem to odpalić żeby bot dzialal ?

I może mi ktoś wytłumaczyć np jak chce żeby naciskał klawisz F1 to pisze sie

Send("{F1}") ?

albo czy ten bot sam naciska enter i wgl

Zapisz w .exe

Tak, ma być Send("{F1}"), tylko pamiętaj, aby wszędzie to uzupełnić.

samson2000 · 22 Września 2013

dzięki ludze

while 3
("{01}")
sleep (1000)
Wend

tak ma być ?

jak to ma na początku wyglądać bo jestem nowy w tym temacie a potrzebuje tylko bota żeby zużywal mane co jakis czas, ruszał sie co 14 minut i jadl cos co jakis czas

wiem mniejwiecej jak to zrobić ale potrzebuje tylko jak początek ma wyglądać. Z góry dziękuje

może wgl. pokazać mi ktoś przyklad bota który tylko ma zmienną i robi że naciskja klawisz F1 co 10 sec ?

samson2000 · 23 Września 2013

i mam pytanie jeszcze czy da się zrobić że bot nie będzie równo z czasem naciskał ? w sensie że np ma działać co 30 sec a dziala co 31 sec, co 29 sec da sie tak ?

KlauS. · 23 Września 2013

dzięki ludze

while 3

("{01}")

sleep (1000)

Wend

tak ma być ?

jak to ma na początku wyglądać bo jestem nowy w tym temacie a potrzebuje tylko bota żeby zużywal mane co jakis czas, ruszał sie co 14 minut i jadl cos co jakis czas

wiem mniejwiecej jak to zrobić ale potrzebuje tylko jak początek ma wyglądać. Z góry dziękuje

może wgl. pokazać mi ktoś przyklad bota który tylko ma zmienną i robi że naciskja klawisz F1 co 10 sec ?

Nie.

Bardziej tak:



TrayTip("SpamBot","Bot rozpoczął atak!",2,1)
While 2
Send("{F1}")
Sleep(1000)
Send("{F1}")
Send("{F1}")
Sleep(1000)
Send("{F1}")
Send("{F1}")
Sleep(1000)
Send("{F1}")
Send("{F1}")
Sleep(1000)
WEnd

Sprawdź to, bo na programowaniu się nie znam, a to jedynie napisałem z głowy.

Co do bota, to użyj taskera. Nagrywasz, że ma robić co 10 sec F1 i puszczasz :P

samson2000 · 23 Września 2013

ale chciałbym napisać od początku poprawnie bo jak zapisuje jako .exe to potem otwieram w pliku wsadowym i jakieś błędy wyskakują

@Edit

i wgl jak odpalam plik to wyskakuje okno wsadowe i po chwili sie zamyka pomocy!

KlauS. · 23 Września 2013

To napisz w dziale AutoIt, bo tutaj nie uzyskasz konkretnej pomocy.

AltroS · 17 Listopada 2013

Ciekawy tut, można się trochę au3 nauczyć

A przy okazji mieć fajnego bota ;P

Veggas97 · 24 Listopada 2013

Nadal aktualne__

Ragnar2 · 9 Lipca 2014

Send("{F1}")
Sleep(1000)
Send("{F1}")
Send("{F1}")
Sleep(1000)
Send("{F1}")
Send("{F1}")
Sleep(1000)
WEnd

Zaloguj się

👋 Witaj na MPCForum!

[Nostale] Jak napisać Bota w AutoIT

Rekomendowane odpowiedzi

Zarchiwizowany