Proszę O Pomoć W Autoit

Junge1 · 10 Stycznia 2010

Siema nie wiem jak sformułować to pytanie ale spróbuje

Jak zrobić taki myk, jak ktoś w oknie wpisze np. 2 to wykonuje 2 czynności z rzędu jak 3 to 3 itd. (2-8) mój kod:

#include <GUIConstantsEx.au3>
$szerokosc = 500
$wysokosc = 120
$tytul = "BuffBot by Gnypek v1.5"
GUICreate($tytul,$szerokosc,$wysokosc)
$kord_X = 10
$kord_Y = 20
$kord_kk = 10
$szerokosc_inp = 20
$wysokosc_inp = 20
$CZAS = GUICtrlCreateInput("10",$kord_X+1700,$kord_Y-2,$szerokosc_inp+20,$wysokosc_inp) 
$opis_czas = "Mała instrukcja : otwórz grę i wymiarach ''800x600 16bpp (W oknie)''"
GUICtrlCreateLabel($opis_czas,$kord_X,$kord_Y-10)
$opis_czas = "Ustwa okno metina w taki sposób aby ikonka była w górnym lewym rogu"
GUICtrlCreateLabel($opis_czas,$kord_X,$kord_Y+10)
$max_c = 3
GUICtrlSetLimit($CZAS, $max_c)
$ois_czas = "Cheating-Metin2.YoYo.pl"
GUICtrlCreateLabel($ois_czas,$kord_X+70,$kord_Y+60)
$nazwa = "Start"
$btn_szer = 60
$btn_wys = 46
$Start = GUICtrlCreateButton($nazwa,$kord_X,$kord_Y+30,$btn_szer,$btn_wys)
GUISetState(@SW_SHOW)
$przerwanie = 0
While 1
$msg = GUIGetMsg()
Select 	
	Case $msg = $GUI_EVENT_CLOSE
		Exit
	Case $msg = $Start
		$licznik = 5
			Do
				ToolTip("Zacznę buffować za : "&$licznik,500,400,$tytul,1)
				Sleep(1000)
				$licznik = $licznik - 1
			Until $licznik = 0
			ToolTip("")
				Send("z") 
		While 1
			SPAM()
			If $przerwanie =1 Then
				$przerwanie = 0
				ExitLoop
			EndIf
			$interwal = GUICtrlRead($CZAS)*1000
			Sleep($interwal) 
		WEnd
EndSelect
WEnd
Func SPAM()
MouseClick ( "left", 50, 85 )
Send("1")
Sleep($CZAS)
Send("2")
Send("3")
MouseClick ( "left", 50, 120 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 155 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 190 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 225 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 260 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 295 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 330 )
Send("1")
Send("2")
Send("3")
EndFunc

Teraz chyba bede mógł jaśniej... jak np. w oknie $CZAS ktoś wpisze 4 to wykona te czynności

MouseClick ( "left", 50, 85 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 120 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 155 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 190 )
Send("1")
Send("2")
Send("3")

Jak ktoś wpisze np. 2 to wykona:

MouseClick ( "left", 50, 85 )
Send("1")
Send("2")
Send("3")
MouseClick ( "left", 50, 120 )
Send("1")
Send("2")
Send("3")

Jak takie coś zrobić?

AAAA bym zapomniał

Jak zrobić takie opóźnienie (Zademonstruje na 2 czynnościach :P)

MouseClick ( "left", 50, 85 )
CZEKA 3sek
Send("1")
CZEKA 3sek
Send("2")
CZEKA 3sek
Send("3")
CZEKA 10 sek
MouseClick ( "left", 50, 120 )
CZEKA 3sek
Send("1")
CZEKA 3sek
Send("2")
CZEKA 3sek
Send("3")
CZEKA 10sek

Za odpowiedzi dam 5* i +

dziób tukana · 10 Stycznia 2010

1

te "nie wiem jak sformułować" to chodzi o hotkey?

HotKeySet("{F5}", "SPAM")  ; jak wciśniesz F5 to zainicjuje funkcje SPAM()

2

pauza to niemal zawsze:

Sleep(300)  ; 1000=1sek wiec 300 to 0,3

możesz też napisać sobie taką mini pętle na pauze

$ile = 300 ;===> 0.3 sekudny
$d = TimerInit()  ;===>  "czas zerowy"
Do ; początek pętli
;(tu możesz dopisać jakiś kod który będzie wykonywany podczas tej przerwy
Until $ile < timerdiff($d) ; jeśli "$ile" = "czas jaki upłynął" to kończ pętle pauzy

3

pętle ktore mają określoną ilość cykli możesz zrobić na masę sposobów np:

$ile = 3

for $licz = 0 to $ile

next

albo

$ile = 3
$licz = 0
Do

$licz = $licz + 1	
until $licz = $ile

5 np:

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode"   ,4)
Opt("SendKeyDelay"              ,25) ; te popierdólki to czasy ile ma być mysz / klawisz wciśnięte
Opt("SendKeyDownDelay"   ,50) 
Opt("MouseClickDownDelay",10)
Opt("MouseClickDelay"    ,25)
Opt("MouseClickDragDelay",10)

HotKeySet("{F5}", "BUFF")  ; jak wciśniesz F5 to zainicjuje funkcje BUFF()
HotKeySet("{F6}", "bot_sobie_czuwa")  ; jak wciśniesz F5 to zainicjuje funkcje bot_sobie_czuwa()

GUICreate("klikaj 123",300,140)
$ile = GUICtrlCreateCombo("1",10,10,35,20)
GuiCtrlSetData ($ile, "2|3|4") ; ile cyfer w tym combo
$powtorki = GUICtrlCreateInput("999999", 10,40,60,20) 
$Start = GUICtrlCreateButton("guzik start funkcji ''BUFF''",10,70,150,20)
GUICtrlCreateLabel("hotkey F5 to ''BUFF''" & @CRLF & "a F6 natychmiast przerwie i uruchomi ''bot_sobie_czuwa''", 10, 100, 300,33) ;33 bo są 2 linie, normalnie starczy 13

GUISetState(@SW_SHOW)

bot_sobie_czuwa()
func bot_sobie_czuwa()
While 1
	$msg = GUIGetMsg()
	Select  
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $Start
			BUFF()
		EndSelect       

sleep(30) ; żeby ci sie proc nie spalił
wend
endfunc

func BUFF()

       $ile_w_BUFF = GUICtrlRead($ile)
       $powtorki_w_BUFF = GUICtrlRead($powtorki)


for $i = 1 to $powtorki_w_BUFF

	if $ile_w_BUFF = "1" then
			MouseClick ( "left", 50, 85 )
			Send("123")
			sleep(3000)  
	elseif $ile_w_BUFF = "2" then
			MouseClick ( "left", 50, 85 )
			Send("123")
			MouseClick ( "left", 50, 190 )
			Send("123")
			sleep(3000)
	elseif $ile_w_BUFF = "3" then
			MouseClick ( "left", 50, 85 )
			Send("123")
			MouseClick ( "left", 50, 120 )
			Send("123")
			MouseClick ( "left", 50, 155 )
			Send("123")
			sleep(3000)
	elseif $ile_w_BUFF = "4" then
			MouseClick ( "left", 50, 85 )
			Send("123")
			MouseClick ( "left", 50, 120 )
			Send("123")
			MouseClick ( "left", 50, 155 )
			Send("123")     
			MouseClick ( "left", 50, 190 )
			Send("123")     
			sleep(3000)
	endif

next

endfunc

4

w życiu na oczy nie widziałem metina ale sądząc po tym co tu narysowane to powinien w nim działać autobuff to mu =fre_baf'ik).,

http://www.mpcforum.pl/topic/49179-fre-bafik-i-randap/

wrzuciłem go z kodem źródłowym wiec przeróbka jeśli coś nie będzie kompatybilne to 2 minuty pracy,

chodzi o wersje 1.3*

jest tam wprawdzie dużo baboli, no ale działa i klika 1.2.3,

myślę ze na bazie niego oszczędzisz sobie dużo pracy,

Junge1 · 10 Stycznia 2010

Chodzi o takie coś że jak ktoś w np. Members wpisze 3. to bezie robiło 3 po kolei ze SPAM itd.

dziób tukana · 10 Stycznia 2010

Chodzi o takie coś że jak ktoś w np. Members wpisze 3. to bezie robiło 3 po kolei ze SPAM itd.

czyli to co poprawiłem jest źle?

zmieniłem wprawdzie nazwę "spam" na lepiej brzmiący 'buff" no ale to już tak z nawyku.

dobrze sie domyślam ze ten bot daje aury, czy robi coś innego?

matiszon · 10 Stycznia 2010

Chyba wiem o co ci chodzi.

Func SPAM()
Switch $CZAS
	Case 8
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 190)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 225)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 260)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 295)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 330)
		Send("1")
		Send("2")
		Send("3")
	Case 7
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 190)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 225)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 260)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 295)
		Send("1")
		Send("2")
		Send("3")
	Case 6
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 190)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 225)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 260)
		Send("1")
		Send("2")
		Send("3")
	Case 5
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 190)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 225)
		Send("1")
		Send("2")
		Send("3")
	Case 4
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 190)
		Send("1")
		Send("2")
		Send("3")
	Case 3
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
		MouseClick("left", 50, 155)
		Send("1")
		Send("2")
		Send("3")
	Case 2
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
		MouseClick("left", 50, 120)
		Send("1")
		Send("2")
		Send("3")
	Case 1
		MouseClick("left", 50, 85)
		Send("1")
		Sleep($CZAS)
		Send("2")
		Send("3")
EndSwitch
EndFunc   ;==>SPAM

dziób tukana · 10 Stycznia 2010

może być też coś takiego:

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode"   ,4)
Opt("SendKeyDelay"       ,25) ; te popierdólki to czasy ile ma być mysz / klawisz wciśnięte
Opt("SendKeyDownDelay"   ,50) 
Opt("MouseClickDownDelay",10)
Opt("MouseClickDelay"    ,25)
Opt("MouseClickDragDelay",10)

HotKeySet("{F5}", "BUFF")  ; jak wciśniesz F5 to zainicjuje funkcje BUFF()
HotKeySet("{F6}", "bot_sobie_czuwa")  ; jak wciśniesz F5 to zainicjuje funkcje bot_sobie_czuwa()

GUICreate("bot instruktazowy ''klikaj 123'' v.2",430,140)
$Dla_Ilu_Ten_Buff = GUICtrlCreateCombo("1",10,10,55,20)
GuiCtrlSetData ($Dla_Ilu_Ten_Buff, "2|3|4|5|6", "5") ; ile cyfer w tym combo
GUICtrlCreateLabel("liczba nobów do obdzielenia buffem", 80, 13, 300,13)
$pauza = GUICtrlCreateInput("0.3", 10,40,60,20) 
GUICtrlCreateLabel("czas miedzy bufami w sekundach (w ułamkach zawsze kropka ''0.1'')", 80, 43, 350,13)
$Start = GUICtrlCreateButton("guzik start funkcji ''BUFF''",10,70,150,20)
GUICtrlCreateLabel("jak naciśniesz funkycjny F5 to stanie sie ''BUFF''," & @CRLF & "a jak F6 natychmiast przerwie i uruchomi ''bot_sobie_czuwa''", 10, 100, 300,33) ;33 bo są 2 linie, normalnie starczy 13

GUISetState(@SW_SHOW)

bot_sobie_czuwa()
func bot_sobie_czuwa()
While 1
	$msg = GUIGetMsg()
	Select  
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $Start
			BUFF()
		EndSelect       

sleep(30) ; żeby ci sie proc nie spalił
wend
endfunc

func BUFF()

$DlaIluTenBuff = GUICtrlRead($Dla_Ilu_Ten_Buff)
$Pauza_Miedzy_kazdym_bufem = GUICtrlRead($Pauza)*1000

while 1

$Bazowa_Pozycja_Y = 80
$Korekta_Pozycji = 0

for $i = 1 to $DlaIluTenBuff

	MouseClick ( "left", 50, $Bazowa_Pozycja_Y + $Korekta_Pozycji )
	Send("123")
	sleep($Pauza_Miedzy_kazdym_bufem)
	$Korekta_Pozycji = $Korekta_Pozycji + 35
next

WEnd

endfunc

Junge1 · 10 Stycznia 2010

Dzieki koleś jesteś wielki !!!

A możesz zrobić coś identycznego ale żeby było tak dla 8 osób?

I aby pomiedzu kliknięciami 1,2,3 były pauzy 3sek (BO jak daje buffa pod 1 to to trwa jakies 2.5-3 sek )

Ale naprawde 5 i plusiki jak spotkam w innych topicach

Ludzie już mam to co chciałem

Z waszą wielką pomocą wyszło mi coś takiego :

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode"   ,4)
Opt("SendKeyDelay"              ,25) ; te popierdólki to czasy ile ma być mysz / klawisz wciśnięte
Opt("SendKeyDownDelay"   ,50) 
Opt("MouseClickDownDelay",10)
Opt("MouseClickDelay"    ,25)
Opt("MouseClickDragDelay",10)

HotKeySet("{F10}", "BUFF")  ; jak wciśniesz F5 to zainicjuje funkcje BUFF()
HotKeySet("{F11}", "bot_sobie_czuwa")  ; jak wciśniesz F5 to zainicjuje funkcje bot_sobie_czuwa()

GUICreate("BuffBot by Gnypek v1.0",330,140)
$ile = GUICtrlCreateCombo("2",10,10,35,20)
GuiCtrlSetData ($ile, "2|3|4|5|6|7|8|") ; ile cyfer w tym combo
$opis_ile = "Wybierz ilo osobowe PT"
GUICtrlCreateLabel($opis_ile,60,13)
$powtorki = GUICtrlCreateInput("1", 10,40,40,20)
$opis_powtorki = "Sprawdź swoje buffy i wpisz najdłuższy czas ładowania"
GUICtrlCreateLabel($opis_powtorki,60,43)
$Start = GUICtrlCreateButton("Zacznij buffować",10,70,150,20)
GUICtrlCreateLabel("Klawisz F10 = Start " & @CRLF & "Klawisz F11 = Pauza", 10, 100, 300,33) ;33 bo są 2 linie, normalnie starczy 13

GUISetState(@SW_SHOW)

bot_sobie_czuwa()
func bot_sobie_czuwa()
       While 1
               $msg = GUIGetMsg()
               Select  
                       Case $msg = $GUI_EVENT_CLOSE
                               Exit
                       Case $msg = $Start
                               BUFF()
                       EndSelect       

       sleep(30) ; żeby ci sie proc nie spalił
       wend
endfunc

func BUFF()

       $ile_w_BUFF = GUICtrlRead($ile)
       $powtorki_w_BUFF = GUICtrlRead($powtorki)


       for $i = 1 to $powtorki_w_BUFF

               if $ile_w_BUFF = "2" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)  
               elseif $ile_w_BUFF = "3" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
               elseif $ile_w_BUFF = "4" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 190)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
				    Sleep(3000)
               elseif $ile_w_BUFF = "5" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 190)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 225)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
			elseif $ile_w_BUFF = "6" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 190)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 225)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 260)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
			elseif $ile_w_BUFF = "7" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 190)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 225)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 260)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 295)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
			elseif $ile_w_BUFF = "8" then
                       MouseClick("right", 50, 85)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 120)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 155)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 190)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 225)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 260)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 295)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
                       MouseClick("right", 50, 330)
                       Send("1")
					Sleep(3000)
                       Send("2")
					Sleep(3000)
                       Send("3")
					Sleep(3000)
               endif

next

endfunc

dziób tukana · 10 Stycznia 2010

nie kapuje tego

$powtorki_w_BUFF = GUICtrlRead($powtorki)

tam jest jakaś określona liczba cyklów na jakie może pozwolić ci gra i potem już koniec zabawy?

prościej chyba coś w tym stylu

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode", 4)
Opt("SendKeyDelay", 25) ; te popierdólki to czasy ile ma być domyslnie mysz / klawisz wciśnięte
Opt("SendKeyDownDelay", 50)
Opt("MouseClickDownDelay", 10)
Opt("MouseClickDelay", 25)
Opt("MouseClickDragDelay", 10)

Global $inifile = @ScriptDir & "\configbot.ini"
Global $my_Dla_Ilu_Ten_Buff = IniRead($inifile, "Ustawienia", "Dla_Ilu_Ten_Buff", "5")
Global $my_pauza = IniRead($inifile, "Ustawienia", "pauza", "0.3")
Global $my_czas_Bufa = IniRead($inifile, "Ustawienia", "czas_Bufa", "3")

HotKeySet("{F11}", "BUFF") ; przypisanie F11 jako hotkey

GUICreate("bot instruktazowy ''klikaj 123'' v.3", 430, 200)
$Dla_Ilu_Ten_Buff = GUICtrlCreateCombo("1", 10, 10, 55, 20)
GUICtrlSetData($Dla_Ilu_Ten_Buff, "2|3|4|5|6|7|8", $my_Dla_Ilu_Ten_Buff) ; ile cyfer w tym combo
GUICtrlCreateLabel("liczba nobów do obdzielenia buffem", 80, 13, 300, 13)
$pauza = GUICtrlCreateInput($my_pauza, 10, 40, 60, 20) ; tradycje reczne wpisywanie do okienka
GUICtrlCreateLabel("czas miedzy bufami w sekundach 1=1 (w ułamkach zawsze kropka ''0.1'')", 80, 43, 380, 13)
$czas_Bufa = GUICtrlCreateInput($my_czas_Bufa, 10, 70, 60, 20)
GUICtrlCreateUpdown(-1) ;strałki up / down
GUICtrlSetLimit(-1, 1, 99) ; mozna dać limit, tu nawet trzeba bo to czas
GUICtrlCreateLabel("czas trwania bufa (dla odmiany tutaj 1 = 1/10 sekundy bo nie da sie kropek)", 80, 73, 380, 13)
$Start = GUICtrlCreateButton("guzik start funkcji ''BUFF''", 10, 100, 150, 20)
GUICtrlCreateLabel("jak naciśniesz funkycjny F11 to stanie sie ''BUFF''," & @CRLF & "a potem jak F11 to natychmiast przerwie i uruchomi ''bot_sobie_czuwa''", 10, 130, 400, 33) ;33 bo są 2 linie, normalnie starczy 13
$informacja = GUICtrlCreateLabel("ODPOCZYWAM", 10, 170, 400, 20)
GUICtrlSetFont(-1, 12, 800)

GUISetState(@SW_SHOW)

bot_sobie_czuwa()
Func bot_sobie_czuwa()
HotKeySet("{F11}", "BUFF") ; zmiana hk
GUICtrlSetData($informacja, "ODPOCZYWAM")
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE ; ten element to ten krzyzyk w prawym gornym rogu zamykający program
			SAVE() ;==>wiadomo co
			Exit
		Case $msg = $Start
			BUFF()
	EndSelect
	Sleep(30) ; mini pauza żeby ci sie proc nie spalił
WEnd
EndFunc   ;==>bot_sobie_czuwa

Func BUFF()
HotKeySet("{F11}", "bot_sobie_czuwa") ; zmiana hk
GUICtrlSetData($informacja, "JEZU JA DZIAłAM")
$DlaIluTenBuff = GUICtrlRead($Dla_Ilu_Ten_Buff)
$Pauza_Miedzy_kazdym_bufem = GUICtrlRead($pauza) * 1000 ; tu jest 1 wersja
$Czas_Kazdego_bufa = GUICtrlRead($czas_Bufa) * 100 ; tu jest 2 wersja z updown

While 1
	$Bazowa_Pozycja_Y = 80
	$Korekta_Pozycji = 0

	For $i = 1 To $DlaIluTenBuff
		MouseMove(350, $Bazowa_Pozycja_Y + $Korekta_Pozycji, 1) ;==>pozycja myszy
		For $123 = 1 To 3 ;===>bufaie 1.2.3 bedzie wpisywac te cyfry po kolei
			Send($123)
			MouseDown("Right")
			Sleep($Czas_Kazdego_bufa)
			MouseUp("Right")
			Sleep($Pauza_Miedzy_kazdym_bufem)
		Next
		$Korekta_Pozycji = $Korekta_Pozycji + 35
	Next

WEnd
EndFunc   ;==>BUFF


Func SAVE()
IniWrite($inifile, "Ustawienia", "Dla_Ilu_Ten_Buff", (GUICtrlRead($Dla_Ilu_Ten_Buff)))
IniWrite($inifile, "Ustawienia", "pauza", (GUICtrlRead($pauza)))
IniWrite($inifile, "Ustawienia", "czas_Bufa", (GUICtrlRead($czas_Bufa)))
EndFunc   ;==>SAVE

dodaem tez sejwy

adamosoprano · 19 Maja 2010

Bot świetny tylko jak ustawię czas itd. kliknę start to w oknie metina nic nie robi a jak mam aktywne okno bota to wtedy mi klika ;/

jackraymund · 19 Maja 2010

delejt

Zaloguj się

👋 Witaj na MPCForum!

Proszę O Pomoć W Autoit

Rekomendowane odpowiedzi

Junge1

Junge1

dziób tukana

dziób tukana

Junge1

Junge1

dziób tukana

dziób tukana

matiszon

matiszon

dziób tukana

dziób tukana

Junge1

Junge1

dziób tukana

dziób tukana

adamosoprano

adamosoprano

jackraymund

jackraymund

Zarchiwizowany