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

[Pytanie] Klikacz Myszy I Klawisza Z Różnymi Czasami Działa


Rekomendowane odpowiedzi

Opublikowano

Witam, przeglądałem parę tematów i udało mi się stworzyć dwa pomocne mini botki. Pierwszy, który klika prawym klawiszem myszy co 720s, oraz drugi, który klika klawiszem f12 co 795s. Mam dwa bo nie wiedziałem jak połączyć 2 pętle while (mogłem źle robić, gdyż jestem początkujący). Jednak bardziej interesuje mnie to czy jest możliwe do stworzenia auto klika, który by np. klikał mniej więcej co 700s prawy klawisz myszy, ale miał od własnego wyboru opóźnienie/przyśpieszenie, max. do 30sec.?? Jeżeli tak, to jak może wyglądać taki kod programu ??:) Ps. Mam nadzieję, że zrozumiecie co mam na myśli jak nie to postaram się jeszcze raz przedstawić moją myśl:) Pzdr

Opublikowano

o to chodzi?? losoto wybiera czy ma kliknac 30 sekund wczesniej lub pozniej:) chyba dziala bo nie patrzylem jeszcze

While 1
MouseClick("right", tu, i tu)
If Random() < 0.5 Then
	$msg = +1800
Else
	$msg = -1800
EndIf

$y = $msg
$x = 47700 $y
Sleep($x)
WEnd

 

ps po co ci czekac 700sekund?:D

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

Ma wybierać sobie losowo :), A co do mouse kilka to jest ustawiony na random, gdzie mam myszkę tam klika :). lokuxd nie rozumiem paru linijek Twojego kodu, proszę Cię, albo kogoś innego o małe wytłumaczenie:)

While 1

MouseClick("right")

If Random() < 0.5 Then; 0,5 dlaczego?

$msg = +1800; przypuszczam, że tyle sekund ma opóźnienia/przyśpieszenia

Else

$msg = -1800

EndIf

 

$y = $msg;a od tego momentu to już ciemnogród totalny :)

$x = 47700 $y

Sleep($x)

WEnd

PS. moze i 700 sekund to długo, ale nie wieczność :)

Opublikowano

While 1
       MouseClick("right")
       If Random() < 0.5 Then; 0,5 dlaczego? dlatego ze to random to albo to wiec 50% szans ze bedzie +30 albo -30:P ale moza chyba tez tak jak jackraymund
               $msg = +1800;tak to jest 30sekund jak mowiles.
       Else
               $msg = -1800
       EndIf

       $x = 47700 $msg;troche namieszalem nie bylo potrzebne $y sry:P
       Sleep($x)
WEnd

 

ps cos zle zrobilem nie dzial tak jak powinno;/

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

wiem czemu gafe dalem:d

If Random() < 0.5 Then
	$msg = "+1800"
Else
	$msg = "-1800"
EndIf

$x = 47700-$msg ;troche namieszalem nie bylo potrzebne $y sry:P

Sleep($x)

teraz dziala pieknie:D

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

Ostatnie pytanie ode mnie na dzisiaj :)

$msg = "+1800" << dlaczego to jest 30 sec. ??(czyż nie podawało się w milisec)

$x = 47700-$msg ;tak samo tutaj :)

czy jest na to jakiś wzór czy co ??

Opublikowano

1000ms to 1 sec pisales ze chesz 700sek to obliczylem:d a chodzilo ci o ms tak?? to zamien to poprostu na tyle ile potrzebujesz i juz:)

 

a tak wogole to i tak zle policzylem ^^ 1000msto 1 sekunda

60000ms to minuta

700sek to 700000ms a 30sek to 30000:P sry za blad

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

Ja wiem, że matematyka to ciężki chleb;p ale:

chcialem uzyskać 720 sekund realnych to obliczyłem że w kodzie musze napisać 720000

oraz 795 to 795000

jeżeli jestem w błędzie to popraw mnie

Opublikowano

no niby dobrze:) ale pisales cos ze ma byc sleep(700+lub-30sek)tak czy zle zrozumialem:P

 

a co to twojej petli to nie wiem czy tak sie da bo jak jest sleep to usypia caly autoit chyba ze zle mysle

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

program ma klikać prawym klawiszem co 700 sekund, ale żeby się w grze nie skapowali że klikam jak "atomowy zegarek" :D pomyślałem o pewnych różnicach w czasie jak klikam i dlatego napisałem że mniej, więcej co 700 sekund. czyli czas działania wynosił by między 730sekuna a 630 sekund

Opublikowano
czy jest coś lepszego niż + ??

Możesz wejść do profilu i dać 5 gwiazdek.

 

Tibia

Tibijski guard antyczitowy (odpowiedzialny za mass bany) w żadnym momencie nie sprawdza takich akcji.

To, czego on wyszukuje to popularne .dll w przestrzeni API programu.

Tyle. Możesz klikać dokładnie co 120ms i nic ci nie zrobią.

Ta sygnatura jest pusta.

Opublikowano

A TAK DOKLADNIE TO DO CZEGO JEST TEN BOT? leczenie czy skilujowac na nim chcesz??

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

No wiesz wole być dzieckiem Tiibi(potem sprzedam postać) niż dzieckiem neo(to chyba zostaje, aż do śmierci) :D. Poza tym MalyGlod po co tracić czas jak coś może się samemu wykonać, tylko czasami wystarczy pomyśleć(nawet co się pisze o drugim bo nie znasz mnie). Nie rób też Off-topic, bo forum to raczej służy do poomcy ,a nie do oceniania (nieznanych Ci) osób.

PS do moderatora: Myślę, że temat jest wyczerpany i można zamknąć go:)

Opublikowano

#include <nomadmemory.au3>
Opt("GuiOnEventMode", 1)
Global $PID, $dupeczka, $mana, $memarray, $x, $y, $z

GUICreate('Superbot', 115, 100)
GUISetIcon("C:\Program Files\Tibia\Tibia.exe")

$checkbox1 = GUICtrlCreateCheckbox('Lecze', 5, 5)
$checkbox = GUICtrlCreateCheckbox('Skiluje', 5, 25)
$Combo1 = GUICtrlCreateCombo("HP", 60, 5)
GUICtrlSetData(-1, "2400|2300|2200|2000|1800|1700|1600|1500|1400|1300|1200|1000|tu twoje hp bo pewnie nie masz 1k:D")
$Combo2 = GUICtrlCreateCombo("MP", 60, 25)
GUICtrlSetData(-1, "400|300|200|100|50")
$Combo3 = GUICtrlCreateCombo("Skil Mp", 60, 45)
GUICtrlSetData(-1, "(tu wpisz mana ile potrzeba|120|40|30|20|")
GUISetState()


Func _skil()
ToolTip($mana, 122, 600)
If $mana >= $z Then

		ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
		Sleep(850)
		ControlSend("[CLASS:TibiaClient]", "", "", ("{f8}"))

EndIf
EndFunc   ;==>_skil


Func _lecz()
ToolTip($dupeczka & " " & $mana, 122, 600)
If $mana >= $y Then
	If $dupeczka < $x Then
		ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
		Sleep(850)
	ElseIf $dupeczka < 600 Then
		ControlSend("[CLASS:TibiaClient]", "", "", ("{f7}"))
	EndIf
ElseIf $mana < $y Then
	ControlSend("[CLASS:TibiaClient]", "", "", ("{f11}"))
EndIf
EndFunc   ;==>_lecz

While True
Sleep(100)
$PID = ProcessExists("Tibia.exe")
$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryRead(0x634BD4, $memarray)
$memarray = _MemoryOpen($PID)
$mana = _MemoryRead(0x634BB8, $memarray)
$x = GUICtrlRead($Combo1)
$y = GUICtrlRead($Combo2)
$z = GUICtrlRead($Combo3)
If GUICtrlRead($checkbox) = 1 Then
	_skil()
EndIf
If GUICtrlRead($checkbox1) = 1 Then
	_lecz()
EndIf
WEnd
Func _exito()
Exit
EndFunc   ;==>_exito

przerobilem ci opcjie skil ostawiasz ile many na damy (czar czy co tam robisz ) zaznaczasz opcjie skil i jak masz np 1000 many to klika f12 i f 8 pod f 12 musisz miec czas a f8 jedzenie:) albo sobie zmien jka ci nie pasujajest tez opcjia leczenia ale to musial bys sobie zmienic hp i mp w bocie

 

 

ps. w opcji leczenie f12-exura

f11-manapotion

i bedzie dziala:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Opublikowano

Chłopie, ale żeś się namęczył, podziwiam Cię za to :) Ale chodziło mi o prostotę programu. Fakt nie pokazuje mi on okienka i nie mogę sobie ustawiać czasu(chyba ze przerabiam skrypt). Ale również chciałem uniknąć wejścia w pamięć tibi. Poza tym potrzebowałem, aby klikał co jakiś czas prawym klawiszem myszy(coś jadł), oraz klawisz f12(hot key z czarem)

Opublikowano

meczyłem sie ale to moj bota sam go uzywam nie byl specialnie dla ciebie hehe tak jest latwiej zrobic jak klika czar i odrazu cos je a to jest nie wykrywalne jak juz mowila co 4gr:) i masz czar wtedy kiedy jest mana a nie co ilosc czasu:P

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("BY Loku ", 215, 109, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$czas = GUICtrlCreateInput("czas", 8, 8, 201, 21)
$Button1 = GUICtrlCreateCheckbox("Start", 8, 72, 50, 33, $WS_GROUP)
$wpiszczar = GUICtrlCreateInput("wpisz czar miedzy("")", 8, 40, 201, 21)
$input = GUICtrlCreateInput("Wspolrzedne", 50, 71, 160, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
$czasx = GUICtrlRead($czas)
$czary = GUICtrlRead($wpiszczar)
$zx = StringSplit(GUICtrlRead($input), ",")
If GUICtrlRead($Button1) = 1 Then
         Click()
EndIf
WEnd

Func Click()
Sleep($czasx)
MouseClick("left", $zx[1], $zx[2])
ControlSend("[CLASS:TibiaClient]", "", "", ($wpiszczar))
EndFunc   ;==>Click
Func Close()
Exit
EndFunc   ;==>Close

to trzymaj to mam nadzieje ze o to ci chodzilo?:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...