[Pytanie] Problem Z Autoit - Temat Zbiorczy

RobeM · 22 Czerwca 2010

pelny kod wiecej pomoze , zmienne tez mozna uzyc w opcjach a potem dowolnie nadawac im nazwe

ty nawet nie wiesz jaki jakest kod ?

       $button1 = GUICtrlCreateCombo("item1", 10, 10)
       GUICtrlSetData(-1, "item2|item3", "item3")
GUICtrlRead($button1)   ; tym odczytasz

sprawdze to potem bo cos mi nie odpowiada

Dubler · 24 Czerwca 2010

dzięki! wystarczyło użyć

GUICtrlRead($button1)   ; tym odczytasz

btw. jeśli ci wyślę kod całego mojego bota to mi powiesz co robie źle że mi nie działają inne funkcje bota podczas wykonywania pentli?

mam też pytanie:

jak zrobić żeby program wczytywał na starcie jakiś plik.dat czy .cośtam w którym by były zapisane ustawienia zmiennych... i jak zrobić program który by taki pliczek umiał stworzyć

Dubler · 25 Czerwca 2010

odświerzam

moje pytania brzmią:

1.jak zrobić żeby program wczytywał na starcie jakiś plik.dat czy .cośtam w którym by były zapisane ustawienia zmiennych... i jak zrobić program który by taki pliczek umiał stworzyć

2. co zrobić żeby podczas wykonywania pentelek reszta programu (tj hotkeye etc) działała bo nie reaguje na nic... tylko wykonuje to co jest w pentli i jesli na koncu pentli jest zakonczenie jej to powraca do normalnosci...

RobeM · 25 Czerwca 2010

; odczyt danych

; tym mozna odczytac wartośc z pliku dane.ini
$to_odczyta = IniRead("dane.ini", "Dane", "Klawisz", "")

;  wczyta i wpisze w input zapisane dane
GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Klawisz", ""), 80, 25, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))

; tym mozna odczytac wartośc z  input 
$to_odczyta = IniRead("dane.ini", "Dane", "Klawisz", GUICtrlRead($dozapisu))


; zapisze dane wartopsci z input
IniWrite("dane.ini", "Dane", "Klawisz", GUICtrlRead($dozapisu))

plik robisz recznie albo jak masz funkcje zapisu sam sie tworzy yu bedzie plik dane.ini z zapisanym jakimś klawiszem o wartości 1

[Dane]

Klawisz=1

dziób tukana · 25 Czerwca 2010

@up

tam jest drobne przejęzyczanie, powinno być

; tym mozna odczytac wartośc z pliku dane.ini
$to_odczyta = IniRead("dane.ini", "Dane", "Klawisz", "a")

1.jak zrobić żeby program wczytywał na starcie jakiś plik.dat czy .cośtam w którym by były zapisane ustawienia zmiennych... i jak zrobić program który by taki pliczek umiał stworzyć

nie chce mi sie tego znowu rysować

zapis/odczyt możesz sobie luknąć na 2 prostych przykładach

http://www.mpcforum.pl/topic/108841-pomoc-z-autoit/
http://www.mpcforum.pl/topic/100754-prosze-o-pomoc-w-autoit/

na dole

RobeM · 25 Czerwca 2010

wcale nie musi byc , tam dane dopiero bedą wczytywane czyli pobierane z pliku w razie braku bedzie puste pole

a przykład dotyczy odczytu wartości z INPUT a nie z danych , mozna na bierzaco zmieniać dane bez konieczności ich zapisywania

dziób tukana · 25 Czerwca 2010

niby sie da ale to od dupy strony

wiec powinno pisać: "jesli nie znajdzie poszukiwanych danych w pliku 'dane.ini' to odczytaj je z inputa na gui"

RobeM · 25 Czerwca 2010

a jak wprowadzasz nowe dane to gdzie? do input a nie wpisujesz ręcznie do pliku konfiguracji , input sluzy jako wejście i wyjście dla danych zarazem

dziób tukana · 25 Czerwca 2010

$to_odczyta = IniRead("dane.ini", "Dane", "Klawisz", "a")

w tym wypadku wynik "a" jest domyślne jesli nie istnieje plik "dane.ini".

wiec po co kombinować jak koń pod górę?

wczytuje sie to do imputa podczas wczytywania gui.

Dubler · 26 Czerwca 2010

poradziłem sobie! dzięki!

jeszcze tylko pytanie odnośnie pentelek... jak zrobić żeby podczas ich wykonywania program nadal działał

np funkcja która jest używana w pentli działa... a już funkcja która nie jest używana w pentli a jest od exita już nie działa... buttony też nie działają

@down.. ale ma mi działać jeszcze 10 innych przycisków a nie tylko exit

jackraymund · 26 Czerwca 2010

a gdyby do pętli wstawic takie cos

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

endswitch

I ♥ BMX · 27 Czerwca 2010

Tworzę teraz fish bota do Metin2 i mam pytanie co do pixel search..

$coord = PixelSearch( 470, 80, 500, 120, 0xFCF8FB )

If Not @error Then

Send("{F3}")

EndIf

Jak zrobić że z tego $coord = PixelSearch( 470, 80, 500, 120, 0xFCF8FB ) przechodzi do następnej funkcji gdy znajdzie ten pixel.? Oraz gdy go nie znajdzie po 15 sek program sie wylacza

hfaua · 1 Lipca 2010

@Up robisz tak:

$coord = PixelSearch(470, 80, 500, 120, 0xFCF8FB)
If @error Then
	Sleep(15000)
	Exit
EndIf
;Tutaj funkcja którą będzie robił jak znajdzie

KucekK · 2 Lipca 2010

Jakie jest polecenie image search i co trzeba tam dodać(jakieś biblioteki czy co) bo robie bota do pewnej gry www aby klikało odpowiedni obrazek

hfaua · 2 Lipca 2010

Masz tuta w podpiętych

ohshit · 5 Lipca 2010

gdy mi się nudziło napisałem sobie taki skrypt ale w nim coś jest źle i działa tylko 1 przycisk co może tu być źle??

 #include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Fajny program ", 633, 379, 192, 192)
$Suwak = GUICtrlCreateSlider(8, 336, 617, 33)
$kalendarzyk = GUICtrlCreateDate("2010/07/04 18:00:33", 0, 24, 137, 25)
$data = GUICtrlCreateLabel("Dzisiejsza Data", 0, 0, 118, 17)
$placki = GUICtrlCreateLabel("Lubisz Placki", 472, 40, 70, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$plaTaa = GUICtrlCreateButton("Taaak", 416, 64, 81, 25, $WS_GROUP)
$plaNie = GUICtrlCreateButton("Nieee", 504, 64, 81, 25, $WS_GROUP)
$ladowanie = GUICtrlCreateProgress(8, 200, 233, 17)
$youtube = GUICtrlCreateLabel("Oglądałes wielki mix youtuba", 432, 160, 141, 17)
$youtak = GUICtrlCreateButton("Tak", 416, 184, 81, 25, $WS_GROUP)
$younie = GUICtrlCreateButton("Nie", 504, 184, 81, 25, $WS_GROUP)
$faj = GUICtrlCreateLabel("A fajny był", 472, 240, 54, 17)
$fajnie = GUICtrlCreateButton("Nie zabardzo", 416, 264, 81, 25, $WS_GROUP)
$fajtak = GUICtrlCreateButton("Proste że tak", 504, 264, 81, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $fajtak
                       MsgBox(64, "....", "Super mi tez")

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $fajnie
                       MsgBox(64, "....", "A mi się podobał....")

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $younie
                       MsgBox(64, "....", "Szkoda bo fajny")

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $youtak
                       MsgBox(64, "....", "Super @LF ja tez")

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $plaTaa
                       MsgBox(64, "....", "Naprawde ?? @LF Ja tez je uwielbiam")

EndSwitch
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $plaNie
                       MsgBox(64, "WTF??", "WTF?? @LF Chyba ci się guziki pomyliły")

EndSwitch
WEnd

edi22 · 5 Lipca 2010

@up

#include <ButtonConstants.au3>

#include <DateTimeConstants.au3>

#include <GUIConstantsEx.au3>

#include <ProgressConstants.au3>

#include <SliderConstants.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Fajny program ", 633, 379, 192, 192)

$Suwak = GUICtrlCreateSlider(8, 336, 617, 33)

$kalendarzyk = GUICtrlCreateDate("2010/07/04 18:00:33", 0, 24, 137, 25)

$data = GUICtrlCreateLabel("Dzisiejsza Data", 0, 0, 118, 17)

$placki = GUICtrlCreateLabel("Lubisz Placki", 472, 40, 70, 17)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$plaTaa = GUICtrlCreateButton("Taaak", 416, 64, 81, 25, $WS_GROUP)

$plaNie = GUICtrlCreateButton("Nieee", 504, 64, 81, 25, $WS_GROUP)

$ladowanie = GUICtrlCreateProgress(8, 200, 233, 17)

$youtube = GUICtrlCreateLabel("Oglądałes wielki mix youtuba", 432, 160, 141, 17)

$youtak = GUICtrlCreateButton("Tak", 416, 184, 81, 25, $WS_GROUP)

$younie = GUICtrlCreateButton("Nie", 504, 184, 81, 25, $WS_GROUP)

$faj = GUICtrlCreateLabel("A fajny był", 472, 240, 54, 17)

$fajnie = GUICtrlCreateButton("Nie zabardzo", 416, 264, 81, 25, $WS_GROUP)

$fajtak = GUICtrlCreateButton("Proste że tak", 504, 264, 81, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $fajtak

MsgBox(64, "....", "Super mi tez")

Case $fajnie

MsgBox(64, "....", "A mi się podobał....")

Case $younie

MsgBox(64, "....", "Szkoda bo fajny")

Case $youtak

MsgBox(64, "....", "Super @LF ja tez")

Case $plaTaa

MsgBox(64, "....", "Naprawde ?? @LF Ja tez je uwielbiam")

Case $plaNie

MsgBox(64, "WTF??", "WTF?? @LF Chyba ci się guziki pomyliły")

EndSwitch

WEnd

mateusz1z · 5 Lipca 2010

Witam!

Potrzebuje waszej pomocy aby przerobić bota tak, by po jego włączeniu nie wyskakiwało okienko z Autoryzacją. Chodzi o to, że gdy go włączymy wyświetli nam się do razu konfiguracja. Jeśli wiecie jak to zrobić proszę o szybką odpowieź.

To należy usunąć:

Po uruchomieniu bota ma włączać się do razu to okienko:

Mam zgodę autora na dowolną modyfikacje.

Kod bota:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=1256927434_Emulation2.ico
#AutoIt3Wrapper_outfile=Prisonwars-BOT v9.2.exe
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=mpcforum.pl
#AutoIt3Wrapper_Res_Fileversion=9.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=mpcforum.pl
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
#include <InEt.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <string.au3>
Opt("OnExitFunc", "exitx")
Opt("TrayAutoPause", 0)

$logowanie = 1



logowanie()

Func logowanie()
If $logowanie = 1 Then

	#include <GUIConstantsEx.au3>
	#include <WindowsConstants.au3>
	#Region ### START Koda GUI section ### Form=
	$Form1 = GUICreate("Autoryzacja", 253, 141, 7, 277)
	$iee2 = _IECreateEmbedded()
	$Obj1_ctrl_ctrl = GUICtrlCreateObj($iee2, 0, 0, 957, 557)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###
	_IENavigate($iee2, "http://www.mpcforum.pl/autoryzacja/login.php")
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit

		EndSwitch
		$text = _IEBodyReadText($iee2)
		$text = StringStripWS($text, 8)
		Switch $text
			Case "Złylogin/hasło"
				MsgBox(0, "Zły login lub hasło!", "Podano zły login lub hasło!")
				_IENavigate($iee2, "http://www.mpcforum.pl/autoryzacja/login.php")
			Case "MaszVIP-a"
				Global $premium = 1
				GUIDelete($Form1)
				ExitLoop
			Case "BrakVIP-a"
				Global $premium = 0
				GUIDelete($Form1)
				ExitLoop
		EndSwitch
	WEnd
Else
	Global $premium = 1
	Return 1
EndIf

EndFunc   ;==>logowanie

Global $victim = 1, $thanx, $plik = "set.dat", $wojna, $ver = "9.2", $doresetu

If Not FileExists($plik) Then
load()
$f = FileOpen($plik, 2)
FileClose($f)
IniWrite($plik, "logowanie", "login", "login")
IniWrite($plik, "logowanie", "haslo", "C8660686D9B012B05498")
IniWrite($plik, "ustawienia", "ver", $ver)
show()
Else
$veri = IniRead($plik, "ustawienia", "ver", 0)
If $veri < $ver Or $veri = 0 Then
	MsgBox(16, "Wersja", "Wykryłem ze w folderze z botem znajduje sie plik konfiguracyjny starszej wersi. Wcisniecie ok spowoduje skasowanie starego pliku i zastapienie go nowym.")
	FileDelete($plik)
	show()
	IniWrite($plik, "logowanie", "login", "login")
	IniWrite($plik, "logowanie", "haslo", "haslo")
	IniWrite($plik, "ustawienia", "ver", $ver)
EndIf
load()
EndIf
Func show()
$Form1 = GUICreate("Loadnig PrisonBot v" & $ver, 407, 33, 302, 218)
$Progress1 = GUICtrlCreateProgress(8, 8, 390, 17)
GUISetState(@SW_SHOW)
For $s = 1 To 100 Step 2
	GUICtrlSetData($Progress1, $s)
	Sleep(40)
	If $s = 99 Then
		GUIDelete($Form1)
		ShellExecute("http://www.mpcforum.pl/")
	EndIf
Next
EndFunc   ;==>show
wiadomosc()
If $premium = 1 Then
$pre = "[V.I.P]"
Else
$pre = "[brak V.I.P]"
EndIf
#Region ### START Koda GUI section ### Form=c:\documents and settings\matiszon\pulpit\autoit\prision\form2.kxf
$Form2 = GUICreate("PrisonWars-bot (mpcforum.pl) " & $pre, 387, 178, 400, 246)
$Tab1 = GUICtrlCreateTab(4, 8, 377, 161)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Główne")
$Label1 = GUICtrlCreateLabel("Login:", 12, 35, 33, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Hasło:", 12, 59, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput($login, 48, 35, 121, 21)
GUICtrlSetBkColor(-1, 0x316AC5)
$Input2 = GUICtrlCreateInput($haslo, 48, 59, 121, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetBkColor(-1, 0x316AC5)
$Button1 = GUICtrlCreateButton("Start", 9, 86, 75, 25, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("Pokaz IE", 179, 86, 65, 17)
If $show = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Dziekuje", 9, 113, 75, 25, $WS_GROUP)
$Checkbox6 = GUICtrlCreateCheckbox("Pokazuj dymki", 87, 86, 89, 17)
If $dym = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox11 = GUICtrlCreateCheckbox("Wplacaj kase do banku", 179, 36, 137, 17)
If $bank = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Button3 = GUICtrlCreateButton("Pomoc", 9, 140, 75, 25, $WS_GROUP)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
;$Checkbox12 = GUICtrlCreateCheckbox("Wykrywaj poziom energi", 175, 52, 141, 17)
;If $energia = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
;If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox9 = GUICtrlCreateCheckbox("Bierz sterydy", 179, 68, 77, 17)
If $sterydy = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Slider1 = GUICtrlCreateSlider(352, 36, 22, 105, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH, $TBS_NOTICKS, $WS_BORDER))
GUICtrlSetLimit(-1, 60, 1)
GUICtrlSetData(-1, 1)
$Label7 = GUICtrlCreateLabel("1s.", 356, 144, 18, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox18 = GUICtrlCreateCheckbox("Spam na spacerniaku", 179, 52, 133, 17)
If $spam = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Input6 = GUICtrlCreateInput($spammsg, 156, 140, 189, 21)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Label9 = GUICtrlCreateLabel("Tresc spamu:", 88, 144, 68, 17)
$TabSheet2 = GUICtrlCreateTabItem("Siłka")
$Checkbox2 = GUICtrlCreateCheckbox("Cwiczenia aktywne", 12, 40, 113, 17)
If $aktysilka = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Siła", 12, 64, 41, 17)
If $sil = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateCheckbox("Obrona", 12, 88, 57, 17)
If $obr = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox5 = GUICtrlCreateCheckbox("Szybkosć", 12, 112, 65, 17)
If $szy = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Input3 = GUICtrlCreateInput($sila, 84, 64, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetBkColor(-1, 0x316AC5)
$Updown1 = GUICtrlCreateUpdown($Input3)
GUICtrlSetLimit(-1, 32767, 1)
$Input4 = GUICtrlCreateInput($obrona, 84, 88, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetBkColor(-1, 0x316AC5)
$Updown2 = GUICtrlCreateUpdown($Input4)
GUICtrlSetLimit(-1, 32767, 1)
$Input5 = GUICtrlCreateInput($szybkosc, 84, 112, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetBkColor(-1, 0x316AC5)
$Updown3 = GUICtrlCreateUpdown($Input5)
GUICtrlSetLimit(-1, 32767, 1)
$Group1 = GUICtrlCreateGroup("Info", 172, 40, 185, 85)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("1.Zaznacz czy siłka ma być aktywna", 176, 56, 179, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label5 = GUICtrlCreateLabel("2. Zaznacz wybrane statystyki", 176, 72, 146, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label6 = GUICtrlCreateLabel("do ćwiczenia", 176, 88, 66, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Label8 = GUICtrlCreateLabel("3.Wybierz wartość", 176, 104, 88, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Przestępstwa")
$Checkbox7 = GUICtrlCreateCheckbox("Aktywne przestepstwa", 12, 35, 129, 17)
If $crimakt = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox10 = GUICtrlCreateCheckbox("Przestepstwa gangu", 12, 50, 117, 17)
If $gangcrimes = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Combo2 = GUICtrlCreateCombo($crim, 143, 35, 157, 25)
GUICtrlSetData(-1, "Handel fajami|Kradzież łyżeczki ze stołówki|Pokazanie języka klawiszowi|Bójka w celi|Oblanie klawisza gorącą herbatą|Napad na świeżaka|Kradzież krzesła strażnika|Zniszczenie oświetlenia|Uśpienie pielęgniarki|Handel złotem|Przemyt dragów|Zrobienie podkopu|Otwarcie ringu|Zatrucie wody na stołówce|Wszczęcie bójki na spacerniaku|Rozpylenie gazu|Podpalenie współwięźnia|Pomoc w ucieczce więźnia|Handel bronią|Pobicie klawisza|Otwarcie kasyna|Szantaż naczelnika|Likwidacja cioty pod prysznicem|Uciszenie strażnika|Zamach na blizniaków")
$Group2 = GUICtrlCreateGroup("Przestępstwa grupowe", 10, 70, 365, 100)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox20 = GUICtrlCreateCheckbox("Kradzież szczotecz...", 15, 85, 122, 17)
$Checkbox21 = GUICtrlCreateCheckbox("Naszczanie do herba...", 15, 100, 122, 17)
$Checkbox22 = GUICtrlCreateCheckbox("Wyniesienie noży ze...", 15, 115, 122, 17)
$Checkbox23 = GUICtrlCreateCheckbox("Zatkanie kibli", 15, 130, 97, 17)
$Checkbox24 = GUICtrlCreateCheckbox("Kradzież piguł ze sz...", 15, 145, 122, 17)
$Checkbox25 = GUICtrlCreateCheckbox("Otwarcie drago...", 140, 85, 97, 17)
$Checkbox26 = GUICtrlCreateCheckbox("Wyłamanie krat", 140, 100, 97, 17)
$Checkbox27 = GUICtrlCreateCheckbox("Obrabowanie klaw...", 140, 115, 107, 17)
$Checkbox28 = GUICtrlCreateCheckbox("Kradzież kluczy", 140, 130, 97, 17)
$Checkbox29 = GUICtrlCreateCheckbox("Wszczęcie zamie...", 140, 145, 107, 17)
$Checkbox30 = GUICtrlCreateCheckbox("Otwarcie zakladu tort..", 250, 85, 122, 17)
$Checkbox31 = GUICtrlCreateCheckbox("Odcięcie prądu", 250, 100, 122, 17)
$Checkbox32 = GUICtrlCreateCheckbox("Podpalenie izolatki", 250, 115, 117, 17)
$Checkbox33 = GUICtrlCreateCheckbox("Wysadzanie bramy...", 250, 130, 122, 17)
$Checkbox34 = GUICtrlCreateCheckbox("Wszczęcie buntu", 250, 145, 112, 17)
If $premium = 0 Then GUICtrlSetState($Checkbox20, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox21, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox22, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox23, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox24, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox25, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox26, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox27, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox28, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox29, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox30, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox31, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox32, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox33, $GUI_DISABLE)
If $premium = 0 Then GUICtrlSetState($Checkbox34, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("PVP")
$Checkbox8 = GUICtrlCreateCheckbox("Szukaj ofiary", 12, 40, 81, 17)
If $pvp = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Label4 = GUICtrlCreateLabel("Poziom", 100, 40, 38, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input7 = GUICtrlCreateInput($poziomINI, 140, 36, 57, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, 0x316AC5)
$Updown5 = GUICtrlCreateUpdown($Input7)
GUICtrlSetLimit(-1, 32767, 1)
$Checkbox14 = GUICtrlCreateCheckbox("Bij swiezaka", 12, 56, 97, 17)
If $swiezak = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox17 = GUICtrlCreateCheckbox("Wojna gangów", 12, 72, 97, 17)
If $wojgang = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
;$Checkbox16 = GUICtrlCreateCheckbox("Doladuj zdrowie po PVP jezeli spadlo ponizej 60%", 12, 88, 253, 17)
;If $dod_zdrowie = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
;If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
;$Checkbox19 = GUICtrlCreateCheckbox("Doładuj energie jeżeli mniej niz 60%", 12, 104, 189, 17)
;If $dod_energie = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
;If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$TabSheet6 = GUICtrlCreateTabItem("Fucha/Dilerka")
$Checkbox13 = GUICtrlCreateCheckbox("Fucha", 12, 40, 57, 17)
If $fucha = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox15 = GUICtrlCreateCheckbox("Dilerka", 12, 64, 53, 17)
If $dilerka = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Combo3 = GUICtrlCreateCombo($dil, 72, 64, 105, 25)
GUICtrlSetData(-1, "Fajki|Maryśka|Amfa|Koka|Hera|Męskie dziwki|Broń|Plan mamra|Przepustki")
If $premium = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Combo4 = GUICtrlCreateCombo($fuchaid, 72, 40, 105, 25)
GUICtrlSetData(-1, "Pośmieciuch|Sprzątacz prysznicowy|Pomoc kuchenna|Kucharz|Zmywak|Robotnik|Praca w kantynie|Tyrka w pralni|Księgowy naczelnika|Handlarz Bronią|Handlarz żywym towarem|Platny morderca")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
wysprzestepstwa()

While 1
Sleep(50)
GUICtrlSetData($Label7, GUICtrlRead($Slider1) & "s.")
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button1
		If GUICtrlRead($Checkbox3) = 1 Then $sila = 1
		If GUICtrlRead($Checkbox3) = 4 Then $sila = 0
		If GUICtrlRead($Checkbox4) = 1 Then $obrona = 1
		If GUICtrlRead($Checkbox4) = 4 Then $obrona = 0
		If GUICtrlRead($Checkbox5) = 1 Then $szybkosc = 1
		If GUICtrlRead($Checkbox5) = 4 Then $szybkosc = 0
		If GUICtrlRead($Checkbox1) = 1 Then $show = 1
		If GUICtrlRead($Checkbox1) = 4 Then $show = 0
		If GUICtrlRead($Checkbox7) = 1 Then $crimakt = 1
		If GUICtrlRead($Checkbox7) = 4 Then $crimakt = 0
		If GUICtrlRead($Checkbox8) = 1 Then $pvp = 1
		If GUICtrlRead($Checkbox8) = 4 Then $pvp = 0
		If GUICtrlRead($Checkbox9) = 1 Then $sterydy = 1
		If GUICtrlRead($Checkbox9) = 4 Then $sterydy = 0
		If GUICtrlRead($Checkbox2) = 1 Then $cwicz = 1
		If GUICtrlRead($Checkbox2) = 4 Then $cwicz = 0
		If GUICtrlRead($Checkbox6) = 1 Then $dym = 1
		If GUICtrlRead($Checkbox6) = 4 Then $dym = 0
		If GUICtrlRead($Checkbox14) = 1 Then $swiezak = 1
		If GUICtrlRead($Checkbox14) = 4 Then $swiezak = 0
		If GUICtrlRead($Checkbox10) = 1 Then $gangcrimes = 1
		If GUICtrlRead($Checkbox10) = 4 Then $gangcrimes = 0
		If GUICtrlRead($Checkbox11) = 1 Then $bank = 1
		If GUICtrlRead($Checkbox11) = 4 Then $bank = 0
		If GUICtrlRead($Checkbox13) = 1 Then $fucha = 1
		If GUICtrlRead($Checkbox13) = 4 Then $fucha = 0
		If GUICtrlRead($Checkbox15) = 1 Then $dilerka = 1
		If GUICtrlRead($Checkbox15) = 4 Then $dilerka = 0
		If GUICtrlRead($Checkbox17) = 1 Then $wojgang = 1
		If GUICtrlRead($Checkbox17) = 4 Then $wojgang = 0
		If GUICtrlRead($Checkbox18) = 1 Then $spam = 1
		If GUICtrlRead($Checkbox18) = 4 Then $spam = 0
		ustawprzestepstwa()
		$crim = GUICtrlRead($Combo2)
		$poz = GUICtrlRead($Input7)
		$valsil = GUICtrlRead($Input3)
		$valobr = GUICtrlRead($Input4)
		$valszyb = GUICtrlRead($Input5)
		$loginG = GUICtrlRead($Input1)
		$hasloG = GUICtrlRead($Input2)
		$dil = GUICtrlRead($Combo3)
		$odstepyg = GUICtrlRead($Slider1)
		$fuchaid = GUICtrlRead($Combo4)
		$spammsg = GUICtrlRead($Input6)
		save()
		GUIDelete()
		login()
	Case $Button2
		$thanx = 1
		GUICtrlSetState($Button2, $GUI_DISABLE)
	Case $Button3
		ShellExecute("http://www.mpcforum.pl/index.php/topic,413.0.html")
EndSwitch
WEnd
Func login()
Global $IE = _IECreate("http://www.prisonwars.pl/", 0, $show, 1)
$html = _IEDocReadHTML($IE)
If Not StringInStr($html, "http://carandiru.prisonwars.pl/bank/") or Not StringInStr($html, "http://bialoleka.prisonwars.pl/bank/") or Not StringInStr($html, "http://alcatraz.prisonwars.pl/bank/") Then
	$b = _IETagNameGetCollection($IE, "form", 0)
	$d = _IEFormElementGetObjByName($b, "login")
	$e = _IEFormElementGetObjByName($b, "password")
	_IEFormElementSetValue($d, $loginG)
	_IEFormElementSetValue($e, $hasloG)
	$b.submit
	_IELoadWait($IE)
EndIf
$html = _IEDocReadHTML($IE)
If Not StringInStr($html, ".prisonwars.pl/bank/") Then
	MsgBox(16, "Błąd!", "Błędne dane logowania!")
	_IEQuit($IE)
	Exit
EndIf
$html = _IEBodyReadHTML($IE)
Global $wiezienie
$wiezienie = _StringBetween($html, "http://", ".prisonwars.pl")
$wiezienie = $wiezienie[0]
If $dym = 1 Then TrayTip("Wiezienie", "Wykryłem więzienie: " & $wiezienie, 1)
thanx()
start()
EndFunc   ;==>login

Func start()
$odstepy = $odstepyg * 1000
thanx()
While 1
	spammer()
	wojna()
	fucha()
	dilerka()
	sterydy()
	bank()
	crimes()
	crimegang()
	pvp()
	swiezak()
	silka()
	Sleep($odstepy)
	_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl")
WEnd
EndFunc   ;==>start

Func crimes()
If $crimakt = 1 Then
	Sleep($odstepy)
	Switch $crim
		Case "Handel fajami"
			$c = 5
		Case "Kradzież łyżeczki ze stołówki"
			$c = 6
		Case "Pokazanie języka klawiszowi"
			$c = 7
		Case "Bójka w celi"
			$c = 8
		Case "Oblanie klawisza gorącą herbatą"
			$c = 9
		Case "Napad na świeżaka"
			$c = 10
		Case "Kradzież krzesła strażnika"
			$c = 11
		Case "Zniszczenie oświetlenia"
			$c = 12
		Case "Uśpienie pielęgniarki"
			$c = 13
		Case "Handel złotem"
			$c = 14
		Case "Przemyt dragów"
			$c = 15
		Case "Zrobienie podkopu"
			$c = 16
		Case "Otwarcie ringu"
			$c = 17
		Case "Zatrucie wody na stołówce"
			$c = 18
		Case "Wszczęcie bójki na spacerniaku"
			$c = 19
		Case "Rozpylenie gazu"
			$c = 20
		Case "Podpalenie współwięźnia"
			$c = 21
		Case "Pomoc w ucieczce więźnia"
			$c = 22
		Case "Handel bronią"
			$c = 23
		Case "Pobicie klawisza"
			$c = 24
		Case "Otwarcie kasyna"
			$c = 25
		Case "Szantaż naczelnika"
			$c = 26
		Case "Likwidacja cioty pod prysznicem"
			$c = 27
		Case "Uciszenie strażnika"
			$c = 28
		Case "Zamach na blizniaków"
			$c = 29
	EndSwitch
	If $dym = 1 Then TrayTip($crim, "W trakcie", 1)
	_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/crimes/")
	szpital("http://" & $wiezienie & ".prisonwars.pl/crimes/")
	restart("http://" & $wiezienie & ".prisonwars.pl/crimes/")
	$x = _IETagNameGetCollection($IE, "form", $c)
	_IEFormSubmit($x)
EndIf
EndFunc   ;==>crimes

Func pvp()
Local $victim = 1
If $pvp = 1 And $premium = 1 Then
	Sleep($odstepy)
	;$r = 6
	While 1
			_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victim/" & $victim & "/")
			szpital("http://" & $wiezienie & ".prisonwars.pl/victim/")
			restart("http://" & $wiezienie & ".prisonwars.pl/victim/")
			$txt2 = _IEBodyReadHTML($IE)
			$y = StringInStr($txt2, "<td>" & $poz & "</td>")
			If $y <> 0 Then
				_IENavigate($IE, user())
				restart(user())
				$txt = _IEBodyReadText($IE)
				$y = StringInStr($txt, "Poziom" & $poz)
				If $y <> 0 Then
					$form = _IETagNameGetCollection($IE, "form", 5)
					If $dym = 1 Then TrayTip("Bot", "Bije się.", 1)
					_IEFormSubmit($form)
					If $dod_zdrowie = 1 And liveread() <= 80 Then
						$form _IETagNameGetCollection($IE, "form", 1)
						_IEFormSubmit($form)
					EndIf
					$victim = 0
					ExitLoop
				EndIf
			Else
				$victim += 1
				If $victim = 9 Then ExitLoop
			EndIf
	WEnd
EndIf
EndFunc   ;==>pvp

Func swiezak()
If $swiezak = 1 Then
	Sleep($odstepy)
		_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victimshower/")
		szpital("http://" & $wiezienie & ".prisonwars.pl/victimshower/")
		restart("http://" & $wiezienie & ".prisonwars.pl/victimshower/")
		_IENavigate($IE, user())
		$txt = _IEBodyReadText($IE)
		$form = _IETagNameGetCollection($IE, "form", 5)
		If $dym = 1 Then TrayTip("Bot", "Bije swiezaka.", 10, 1)
		_IEFormSubmit($form)
EndIf
EndFunc   ;==>swiezak

Func silka()
If $cwicz = 1 Then
	Sleep($odstepy)
	For $s = 1 To 3
			Switch $s
				Case 1
					If $szybkosc = 1 Then
						If $dym = 1 Then TrayTip("Bot", "Szybkosć ćwicze ", 10, 1)
						_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")
						szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")
						restart("http://" & $wiezienie & ".prisonwars.pl/gym/")
						$b = _IETagNameGetCollection($IE, "form", 7)
						$d = _IEFormElementGetObjByName($b, "value")
						_IEFormElementSetValue($d, $valszyb)
						Sleep($odstepy)
						_IEFormSubmit($
					EndIf
				Case 2
					If $obrona = 1 Then
						If $dym = 1 Then TrayTip("Bot", "Obrona ćwicze", 10, 1)
						_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")
						szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")
						restart("http://" & $wiezienie & ".prisonwars.pl/gym/")
						$b = _IETagNameGetCollection($IE, "form", 6)
						$d = _IEFormElementGetObjByName($b, "value")
						_IEFormElementSetValue($d, $valobr)
						Sleep($odstepy)
						_IEFormSubmit($
					EndIf
				Case 3
					If $sila = 1 Then
						If $dym = 1 Then TrayTip("Bot", "Cwicze siłe", 10, 1)
						_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")
						szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")
						restart("http://" & $wiezienie & ".prisonwars.pl/gym/")
						$b = _IETagNameGetCollection($IE, "form", 5)
						$d = _IEFormElementGetObjByName($b, "value")
						_IEFormElementSetValue($d, $valsil)
						Sleep($odstepy)
						_IEFormSubmit($
					EndIf
			EndSwitch

	Next
EndIf
EndFunc   ;==>silka

Func sterydy()
If $sterydy = 1 And $premium = 1 Then
	Sleep($odstepy)
	$bodyhtml = _IEBodyReadHTML($IE)
	$s = StringInStr($bodyhtml, "steroids2")
	If $s = 0 Then
		_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/inventory/")
		If @error = 0 Then
			szpital("http://" & $wiezienie & ".prisonwars.pl/inventory/")
			restart("http://" & $wiezienie & ".prisonwars.pl/inventory/")
			$bodyhtml2 = _IEBodyReadHTML($IE)
			If Not StringInStr($bodyhtml2, "Nie masz sterydów") Then
				$bss = _IETagNameGetCollection($IE, "form", 6)
				If $dym = 1 Then TrayTip("Bot", "Biorę steryda.", 10, 1)
				_IEFormSubmit($bss)
			EndIf
		EndIf
	Else
		If $dym = 1 Then TrayTip("Bot", "Jestem pod wplywem steryda.", 10, 1)
	EndIf
EndIf
EndFunc   ;==>sterydy


Func liveread()
$body = _IEBodyReadHTML($IE)
$bodyrep = StringReplace($body, Chr("34"), "x")
$array = StringRegExp($bodyrep, 'red.pngx width(?i)=(.*?) (?i)height=7', 3)
If @error = 0 Then
	Return $array[uBound($array) - 5]
Else
	Return 0
EndIf
EndFunc   ;==>liveread

Func thanx()
If $thanx = 1 Then
	_IENavigate($IE, "http://.prisonwars.pl/userprofile/164442/")
	szpital("http://alcatraz.prisonwars.pl/userprofile/164442/")
	$formm = _IETagNameGetCollection($IE, "form", 10)
	$d = _IEFormElementGetObjByName($formm, "points")
	_IEFormElementSetValue($d, "1")
	_IEFormSubmit($formm)
EndIf
EndFunc   ;==>thanx

Func save()
IniWrite($plik, "logowanie", "login", GUICtrlRead($Input1))
$hasz = _StringEncrypt(1, GUICtrlRead($Input2), $ver & $plik, 1)
IniWrite($plik, "logowanie", "haslo", $hasz)
IniWrite($plik, "silka", "sila", GUICtrlRead($Input3))
IniWrite($plik, "silka", "obrona", GUICtrlRead($Input4))
IniWrite($plik, "silka", "szybkosc", GUICtrlRead($Input5))
IniWrite($plik, "przestepstwa", "nazwa", GUICtrlRead($Combo2))
IniWrite($plik, "PVP", "poziom", GUICtrlRead($Input7))
IniWrite($plik, "ustawienia", "odstepyczasowe", GUICtrlRead($Slider1))
IniWrite($plik, "fucha/dilerka", "dil", GUICtrlRead($Combo3))
IniWrite($plik, "fucha/dilerka", "fuchaid", GUICtrlRead($Combo4))
IniWrite($plik, "spamm", "tresc", $spammsg)
IniWrite($plik, "przestepstwa", "grupowe", $zprzestepstw)
If GUICtrlRead($Checkbox1) = 1 Then IniWrite($plik, "ustawienia", "IE", 1)
If GUICtrlRead($Checkbox1) = 4 Then IniWrite($plik, "ustawienia", "IE", 0)
If GUICtrlRead($Checkbox6) = 1 Then IniWrite($plik, "ustawienia", "dymki", 1)
If GUICtrlRead($Checkbox6) = 4 Then IniWrite($plik, "ustawienia", "dymki", 0)
If GUICtrlRead($Checkbox2) = 1 Then IniWrite($plik, "silka", "Aktywny", 1)
If GUICtrlRead($Checkbox2) = 4 Then IniWrite($plik, "silka", "Aktywny", 0)
If GUICtrlRead($Checkbox3) = 1 Then IniWrite($plik, "silka", "silaa", 1)
If GUICtrlRead($Checkbox3) = 4 Then IniWrite($plik, "silka", "silaa", 0)
If GUICtrlRead($Checkbox4) = 1 Then IniWrite($plik, "silka", "obronaa", 1)
If GUICtrlRead($Checkbox4) = 4 Then IniWrite($plik, "silka", "obronaa", 0)
If GUICtrlRead($Checkbox5) = 1 Then IniWrite($plik, "silka", "szybkosca", 1)
If GUICtrlRead($Checkbox5) = 4 Then IniWrite($plik, "silka", "szybkosca", 0)
If GUICtrlRead($Checkbox7) = 1 Then IniWrite($plik, "przestepstwa", "Aktywny", 1)
If GUICtrlRead($Checkbox7) = 4 Then IniWrite($plik, "przestepstwa", "Aktywny", 0)
If GUICtrlRead($Checkbox8) = 1 Then IniWrite($plik, "PVP", "Aktywny", 1)
If GUICtrlRead($Checkbox8) = 4 Then IniWrite($plik, "PVP", "Aktywny", 0)
If GUICtrlRead($Checkbox9) = 1 Then IniWrite($plik, "sterydy", "Aktywny", 1)
If GUICtrlRead($Checkbox9) = 4 Then IniWrite($plik, "sterydy", "Aktywny", 0)
If GUICtrlRead($Checkbox14) = 1 Then IniWrite($plik, "PVP", "Swiezak", 1)
If GUICtrlRead($Checkbox14) = 4 Then IniWrite($plik, "PVP", "Swiezak", 0)
If GUICtrlRead($Checkbox11) = 1 Then IniWrite($plik, "ustawienia", "wplacaj", 1)
If GUICtrlRead($Checkbox11) = 4 Then IniWrite($plik, "ustawienia", "wplacaj", 0)
If GUICtrlRead($Checkbox10) = 1 Then IniWrite($plik, "przestepstwa", "gangcrime", 1)
If GUICtrlRead($Checkbox10) = 4 Then IniWrite($plik, "przestepstwa", "gangcrime", 0)
If GUICtrlRead($Checkbox13) = 1 Then IniWrite($plik, "fucha/dilerka", "fucha", 1)
If GUICtrlRead($Checkbox13) = 4 Then IniWrite($plik, "fucha/dilerka", "fucha", 0)
If GUICtrlRead($Checkbox15) = 1 Then IniWrite($plik, "fucha/dilerka", "dilerka", 1)
If GUICtrlRead($Checkbox15) = 4 Then IniWrite($plik, "fucha/dilerka", "dilerka", 0)
If GUICtrlRead($Checkbox17) = 1 Then IniWrite($plik, "PVP", "wojna", 1)
If GUICtrlRead($Checkbox17) = 4 Then IniWrite($plik, "PVP", "wojna", 0)
If GUICtrlRead($Checkbox18) = 1 Then IniWrite($plik, "spamm", "aktywny", 1)
If GUICtrlRead($Checkbox18) = 4 Then IniWrite($plik, "spamm", "aktywny", 0)
EndFunc   ;==>save
Func load()
Global $login = IniRead($plik, "logowanie", "login", "login")
$hasz = IniRead($plik, "logowanie", "haslo", "haslo")
Global $haslo = _StringEncrypt(0, $hasz, $ver & $plik, 1)
Global $sila = IniRead($plik, "silka", "sila", 1)
Global $obrona = IniRead($plik, "silka", "obrona", 1)
Global $szybkosc = IniRead($plik, "silka", "szybkosc", 1)
Global $crim = IniRead($plik, "przestepstwa", "nazwa", "Wybierz przestepstwo")
Global $poziomINI = IniRead($plik, "PVP", "poziom", 1)
Global $show = IniRead($plik, "ustawienia", "IE", 1)
Global $dym = IniRead($plik, "ustawienia", "dymki", 1)
Global $aktysilka = IniRead($plik, "silka", "Aktywny", 0)
Global $sil = IniRead($plik, "silka", "silaa", 0)
Global $obr = IniRead($plik, "silka", "obronaa", 0)
Global $szy = IniRead($plik, "silka", "szybkosca", 0)
Global $crimakt = IniRead($plik, "przestepstwa", "Aktywny", 0)
Global $pvp = IniRead($plik, "PVP", "Aktywny", 0)
Global $sterydy = IniRead($plik, "sterydy", "Aktywny", 0)
Global $swiezak = IniRead($plik, "PVP", "Swiezak", 0)
Global $bank = IniRead($plik, "ustawienia", "wplacaj", 0)
Global $gangcrimes = IniRead($plik, "przestepstwa", "gangcrime", 0)
Global $energia = IniRead($plik, "ustawienia", "energia", 0)
Global $odstepy = IniRead($plik, "ustawienia", "odstepyczasowe", 5)
Global $fucha = IniRead($plik, "fucha/dilerka", "fucha", 1)
Global $dilerka = IniRead($plik, "fucha/dilerka", "dilerka", 1)
Global $dil = IniRead($plik, "fucha/dilerka", "dil", "Wybierz dil")
Global $fuchaid = IniRead($plik, "fucha/dilerka", "fuchaid", "Wybierz fuche")
Global $wojgang = IniRead($plik, "PVP", "wojna", 0)
Global $spammsg = IniRead($plik, "spamm", "tresc", 0)
Global $spam = IniRead($plik, "spamm", "aktywny", 0)
Global $dod_zdrowie = IniRead($plik, "PVP", "dod_zdrowie", 0)
Global $dod_energie = IniRead($plik, "PVP", "dod_energie", 0)
Global $zprzestepstw = IniRead($plik, "przestepstwa", "grupowe", 0)
EndFunc   ;==>load

Func szpital($link)
While 1
	$bodyhtml = _IEBodyReadHTML($IE)
	$s = StringInStr($bodyhtml, "hospital")
	$s2 = StringInStr($bodyhtml, "inventory/isolation.png")
	$s22 = StringInStr($bodyhtml, "separatecell")
	Select
		Case $s <> 0
			If $dym = 1 Then TrayTip("Bot", "Jestem w szpitalu", 10, 2)
		Case $s2 <> 0 or $s22 <> 0
			If $dym = 1 Then TrayTip("Bot", "Jestem w izolatce", 10, 2)
		Case $s = 0
			ExitLoop
		Case $s2 = 0 Or $s22 = 0
			ExitLoop
	EndSelect
	_IENavigate($IE, $link)
	Sleep(10000)
WEnd
EndFunc   ;==>szpital

Func user()
szpital("http://" & $wiezienie & ".prisonwars.pl/victim/")
$body = _IEBodyReadHTML($IE)
$usrid = _StringBetween($body, "http://carandiru.prisonwars.pl/userprofile/", "/'><span class='gold'>")
MsgBox(0, "", $usrid[Random(1, UBound($usrid) - 1, 1)])
Exit
Return "http://" & $wiezienie & ".prisonwars.pl/userprofile/" & $array[Random(1, UBound($array) - 1, 1)] & "/"
EndFunc   ;==>user

Func BANK()
If $bank = 1 Then
	Sleep($odstepy)
	$form = _IETagNameGetCollection($IE, "form", 0)
	_IEFormSubmit($form)
	If $dym = 1 Then TrayTip("Bot", "Wplacilem kase.", 10, 1)
EndIf
EndFunc   ;==>BANK

Func CRIMEGANG()
If $gangcrimes = 1 And $premium = 1 Then
	$idcrim = 19
	Sleep($odstepy)
	_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")
	$html = _IEDocReadHTML($IE)
	$s = StringInStr($html, "ZREZYGNUJ")
	If $s = 0 Then
		SZPITAL("http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")
		restart("http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")
		$bs = _IETagNameGetCollection($IE, "input")
		$for = -1
		For $b In $bs
			If IsObj($ Then
				If $b.type = "hidden" And $b.name = "crimeID" Then ;_IEAction($b, "click")
					$for += 1
					If $for >= 15 Then
						$idcrim += 1
						;MsgBox(0, $b.value, "")
						If StringInStr($zprzestepstw, "<" & $b.value & ">") Then
							$form = _IETagNameGetCollection($IE, "form", $idcrim)
							_IEFormSubmit($form)
							If $dym = 1 Then TrayTip("Bot", "Dolaczam do przestepstwa.", 10, 1)
							ExitLoop
						EndIf
					EndIf
				EndIf
			EndIf
		Next
	Else
		If $dym = 1 Then TrayTip("Bot", "Uczestnicze juz w przestepstwie.", 10, 2)
	EndIf
EndIf
EndFunc   ;==>CRIMEGANG

Func exitx()
_IEQuit($IE)
EndFunc   ;==>exitx

Func fucha()
If $fucha = 1 Then
	If $fuchaid <> "wybierz fuche" Then
		If $fuchaid = "Pośmieciuch" Then $index = 5
		If $fuchaid = "Sprzątacz prysznicowy" Then $index = 6
		If $fuchaid = "Pomoc kuchenna" Then $index = 7
		If $fuchaid = "Kucharz" Then $index = 8
		If $fuchaid = "Zmywak" Then $index = 9
		If $fuchaid = "Robotnik" Then $index = 10
		If $fuchaid = "Praca w kantynie" Then $index = 11
		If $fuchaid = "Tyrka w pralni" Then $index = 12
		If $fuchaid = "Księgowy naczelnika" Then $index = 13
		If $fuchaid = "Handlarz Bronią" Then $index = 14
		If $fuchaid = "Handlarz żywym towarem" Then $index = 15
		If $fuchaid = "Platny morderca" Then $index = 16
		Sleep($odstepy)
		_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/jobs/")
		SZPITAL("http://" & $wiezienie & ".prisonwars.pl/jobs/")
		$HTMLX = _IEBodyReadHTML($IE)
		$s = StringInStr($HTMLX, "rzuć tę pracę!")
		If $s = 0 Then
			$tag = _IETagNameGetCollection($IE, "form", $index)
			If @error = 0 Then _IEFormSubmit($tag)
			If $dym = 1 Then TrayTip("Bot", "Zaczynam fuche: " & $fuchaid, 10, 1)
		Else
			If $dym = 1 Then TrayTip("Bot", "Jestem zatrudniony.", 10, 1)
		EndIf
	EndIf
EndIf
EndFunc   ;==>fucha

Func dilerka()
If $dilerka = 1 And $premium = 1 Then
	If $dil <> "wybierz dil" Then
		If $dil = "Fajki" Then $index = 5
		If $dil = "Maryśka" Then $index = 6
		If $dil = "Amfa" Then $index = 7
		If $dil = "Koka" Then $index = 8
		If $dil = "Hera" Then $index = 9
		If $dil = "Męskie dziwki" Then $index = 10
		If $dil = "Broń" Then $index = 11
		If $dil = "Plan mamra" Then $index = 12
		If $dil = "Przepustki" Then $index = 13
		Sleep($odstepy)
		_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/diler/")
		SZPITAL("http://" & $wiezienie & ".prisonwars.pl/diler/")
		restart("http://" & $wiezienie & ".prisonwars.pl/diler/")
		$html = _IEBodyReadHTML($IE)
		If Not StringInStr($html, "twój towar to") Then
			$tag = _IETagNameGetCollection($IE, "form", $index)
			If @error = 0 Then _IEFormSubmit($tag)
			If $dym = 1 Then TrayTip("Bot", "Zaczynam dilowac: " & $dil, 10, 1)
		EndIf
	EndIf
EndIf
EndFunc   ;==>dilerka

Func wojna()
If $wojgang = 1 And $premium = 1 Then
	$html = _IEBodyReadHTML($IE)
	If Not StringInStr($html, "Wojny:") Then $wojna = 0
	If StringInStr($html, "Wojny:") And $wojna = 0 Then
		$wojna = 1
		_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gang/wars/")
		restart("http://" & $wiezienie & ".prisonwars.pl/gang/wars/")
		$form = _IETagNameGetCollection($IE, "form", 5)
		_IEFormSubmit($form)
	EndIf
EndIf
EndFunc   ;==>wojna

Func spammer()
If $spam = 1 And $premium = 1 Then
	_IENavigate($IE, "http://"&$wiezienie&".prisonwars.pl/shoutbox/")
	restart("http://"&$wiezienie&".prisonwars.pl/shoutbox/")
	$b = _IETagNameGetCollection($IE, "form", 5)
	$d = _IEFormElementGetObjByName($b, "content")
	$spammsgx = $spammsg & " " & Chr(Random(32, 255, 1))
	_IEFormElementSetValue($d, $spammsgx)
	If $dym = 1 Then TrayTip("spamm", $spammsgx, 1)
	_IEFormSubmit($
EndIf
EndFunc   ;==>spammer

Func restart($iii)
$html = _IEBodyReadHTML($IE)
If StringInStr($html, "captcha_img.php") Then
	While 1
		_IENavigate($IE, "http://"&$wiezienie&".prisonwars.pl/logout/")
		If $dym = 1 Then TrayTip("Bot", "Restart przeglądarki", 10, 1)
		$html = _IEDocReadHTML($IE)
		$s = StringInStr($html, "Rozporządzenie naczelnika")
		If $s = 0 Then
			$login = _IETagNameGetCollection($IE, "input", 1)
			$haslo = _IETagNameGetCollection($IE, "input", 2)
			$formlog = _IETagNameGetCollection($IE, "form", 0)
			_IEFormElementSetValue($login, $loginG)
			_IEFormElementSetValue($haslo, $hasloG)
			If IsObj($formlog) Then
				$formlog.submit
				_IELoadWait($IE)
			EndIf
			$html = _IEBodyReadText($IE)
			If StringInStr($html, "Rozporządzenie naczelnika") Then ExitLoop
		EndIf
	WEnd
	_IENavigate($IE, $iii)
EndIf
EndFunc   ;==>restart

Func wiadomosc()
#Region ### START Koda GUI section ### Form=c:\documents and settings\mateusz\pulpit\autoit\prision\wiadomosc.kxf
$Form1_1 = GUICreate("Wiadomość dnia!", 959, 587, 154, 45)
$Button1 = GUICtrlCreateButton("OK", 1, 560, 957, 25, $WS_GROUP)
$IEE = _IECreateEmbedded()
$Obj1_ctrl_ctrl = GUICtrlCreateObj($IEE, 0, 0, 957, 557)
GUICtrlSetState($Button1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($IEE, "http://www.boty.2ap.pl/index.php", 0)
$czas = 6000
$timer = TimerInit()
$zmieniony = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			GUIDelete($Form1_1)
			Exit
		Case $Button1
			GUIDelete($Form1_1)
			ExitLoop
	EndSwitch
	If $premium = 0 Then
		$czasbtn = $czas - TimerDiff($timer)
		$czasbtn = $czasbtn / 1000
		$czasbtn = _StringBetween($czasbtn, "", ".")
		If $czasbtn[0] > 0 And $zmieniony = 0 Then
			Sleep(100)
			GUICtrlSetData($Button1, "OK (" & $czasbtn[0] & ")")
		Else
			If $zmieniony = 0 Then
				GUICtrlSetState($Button1, $GUI_ENABLE)
				GUICtrlSetData($Button1, "OK")
				$zmieniony = 1
			EndIf
		EndIf
	Else
		GUICtrlSetState($Button1, $GUI_ENABLE)
		GUICtrlSetData($Button1, "OK")
		Sleep(60)
	EndIf
WEnd
EndFunc   ;==>wiadomosc

Func ustawprzestepstwa()
Global $zprzestepstw = ""
If GUICtrlRead($Checkbox20) = 1 Then $zprzestepstw &= "<12>"
If GUICtrlRead($Checkbox21) = 1 Then $zprzestepstw &= "<1>"
If GUICtrlRead($Checkbox22) = 1 Then $zprzestepstw &= "<2>"
If GUICtrlRead($Checkbox23) = 1 Then $zprzestepstw &= "<15>"
If GUICtrlRead($Checkbox24) = 1 Then $zprzestepstw &= ">"
If GUICtrlRead($Checkbox25) = 1 Then $zprzestepstw &= "<4>"
If GUICtrlRead($Checkbox26) = 1 Then $zprzestepstw &= "<5>"
If GUICtrlRead($Checkbox27) = 1 Then $zprzestepstw &= "<6>"
If GUICtrlRead($Checkbox28) = 1 Then $zprzestepstw &= "<7>"
If GUICtrlRead($Checkbox29) = 1 Then $zprzestepstw &= "<16>"
If GUICtrlRead($Checkbox30) = 1 Then $zprzestepstw &= "<8>"
If GUICtrlRead($Checkbox31) = 1 Then $zprzestepstw &= "<11>"
If GUICtrlRead($Checkbox32) = 1 Then $zprzestepstw &= "<17>"
If GUICtrlRead($Checkbox33) = 1 Then $zprzestepstw &= "<13>"
If GUICtrlRead($Checkbox34) = 1 Then $zprzestepstw &= "<14>"
;MsgBox(0, "", $zprzestepstw)
;Exit
EndFunc   ;==>ustawprzestepstwa

Func wysprzestepstwa()
If StringInStr($zprzestepstw, "<12>") Then GUICtrlSetState($Checkbox20, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<1>") Then GUICtrlSetState($Checkbox21, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<2>") Then GUICtrlSetState($Checkbox22, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<15>") Then GUICtrlSetState($Checkbox23, $GUI_CHECKED)
If StringInStr($zprzestepstw, ">") Then GUICtrlSetState($Checkbox24, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<4>") Then GUICtrlSetState($Checkbox25, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<5>") Then GUICtrlSetState($Checkbox26, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<6>") Then GUICtrlSetState($Checkbox27, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<7>") Then GUICtrlSetState($Checkbox28, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<16>") Then GUICtrlSetState($Checkbox29, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<8>") Then GUICtrlSetState($Checkbox30, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<11>") Then GUICtrlSetState($Checkbox31, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<17>") Then GUICtrlSetState($Checkbox32, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<13>") Then GUICtrlSetState($Checkbox33, $GUI_CHECKED)
If StringInStr($zprzestepstw, "<14>") Then GUICtrlSetState($Checkbox34, $GUI_CHECKED)
EndFunc   ;==>wysprzestepstwa

RobeM · 6 Lipca 2010

hmm... pozbądź sie gui logowania i wstaw zmienne jakie tworzy

zresztą nie dziala skrypt ... coś za dużo juz w nim "poprawiłeś" i za dużo trzeba poprawić by działał własciwiwie

ohshit · 6 Lipca 2010

@ Edi22

Dzięki teraz już wiem co było źle dałem ci 5

Shokata · 9 Lipca 2010

Z tego co wyczytałem do tej pory mój problem nie powinien wam sprawić kłopotu

Poniżej wstawiłem skrypt który po prostu wykonuje proste ruchy myszki. Sam go nie napisałem tylko to jest połączenie kilku skryptów w jeden. Tydzień temu działał bez zarzutu nic w nim nie zmieniałem. Ale po formacie pojawił się kłopot. Program działał w grze a teraz kursor porusza się tylko po pulpicie tudzież po stronie internetowej. Może mi ktoś powiedzieć co mam zrobić może po formacie utraciłem jakiś "wspomagacz" luźno związany z autoit. Nie przedłużając jeszcze się zapytam o możliwość pracy w tle. Czy te parametry controlclick, controlsend miałyby zastosowanie w tym ?

HotkeySet("{F1}","Start")
HotkeySet("{F2}","Koniec")
While 1
Wend

Func Start()
$i = 1
Do
MouseClickDrag("", 870, 380, 610, 350)
MouseMove(600, 390)
MouseClick("")
Sleep(3000)
  $i = $i + 2
Until $i = 10
EndFunc
Func Koniec()
       MsgBox(0,"Hotkey", "Koniec", 1)
       Exit
   EndFunc

RobeM · 10 Lipca 2010

zmień koordynaty , i watpie by ktokolwiek zmienil je za ciebie

Shokata · 10 Lipca 2010

Zmiana tego nic nie pomogła. Po prostu w innym miejscu myszka się przesuwa ale wciąż tylko po pulpicie lub stronie. Pulpit i gra posiada taką samą rozdzielczość. Program jakby nie widzi jej bo działa tylko jak zminimalizuje okno.

RobeM · 10 Lipca 2010

i nie bedzie widział bo nie działają opcje dla myszki na zminimalizowanych programach

@UP mateusz1z , bota masz na wiadomym forum , własnie go przerobiłem

Trael · 10 Lipca 2010

No to teraz mój problem, jest nim mini-bot do zielonegoimperium.

Problem mam taki, że nie mogę znaleźć elementu na stronie.

Mam oczywiście Mozrepl, Firebuga, Webdevelorepa

Pragnę aby bot znalazł po zalogowaniu na zielonymimperium.pl nick gracza, a następnie przeniósł go do labela w gui.

Oczywiście chodzi też o ilość warzyw itd, ale zacząłem od nicku bo najłatwiej id znaleźć...

Firebug pokazał mi że nick to jest: "username", "id"

Próbowałem różne takie kombinacje

$nazwagracza = _FFObjGet("username", "id")
$labelnick = Guictrlcreatelabel($nazwagracza, 175, 50)

Nic, a dlaczego?

_FFObjGet ==> No match: $sElement not found: username

Jak mam to rozwiązać, jeśli Firebug pokazał mi id elementu to username, a _FFObjGet nie znajduje?

Oraz pełny kod: (aby ominąć logowanie to wywalcie do końca funkcję login)

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

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


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

Func login()
       If _FFConnect() Then
               _FFTabAdd("http://www.zieloneimperium.pl")
       Else
               _FFStart("http://www.zieloneimperium.pl")
       EndIf

               $login = GUICtrlRead($login_input)
               $password = GUICtrlRead($haslo_input)
               $server = GUICtrlRead($server_input)

               $username = _FFObjGet("login_user", "id")
               _FFObj($username, "value", $login)
               $pass = _FFObjGet("login_pass", "id")
               _FFObj($pass, "value", $password)
               $serv = _FFObjGet("server", "name")
               _FFObj($serv, "value", "server"&$server)
               _FFFormSubmit("form_login", "id")
                guidelete()
EndFunc

$Form1_1 = GUICreate("Zieloneimperium.pl", 287, 414, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 281, 409)
$TabSheet2  = GUICtrlCreateTabItem("            Dane                ")
$label1 = Guictrlcreatelabel("Twoj nick:", 45, 50)
$labelnick = Guictrlcreatelabel("", 175, 50)
$label2 = Guictrlcreatelabel("Ilosc marchewek:", 45, 90)
$labelmarchewki = Guictrlcreatelabel("", 175, 90)
$label3 = guictrlcreatelabel("Ilosc salaty:", 45, 130)
$labelsalata = guictrlcreatelabel("", 175, 130)
$TabSheet3  = GUICtrlCreateTabItem("           Sadzenie             ")
$label4 = guictrlcreatelabel("Ilosc salat do zasadzenia na 1 raz", 45, 50)
$inputiloscsalat = guictrlcreateinput("", 45, 80, 80)
$label5 = guictrlcreatelabel("Ilosc marchewek do zasadzenia na 1 raz", 45, 130)
$inputiloscmarchewek = guictrlcreateinput("", 45, 160, 80)
$btnsadzenie = guictrlcreatebutton("Sadz!", 45, 210, 50, 30)
GUISetState(@SW_SHOW)

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

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Problem Z Autoit - Temat Zbiorczy

Rekomendowane odpowiedzi

Zarchiwizowany