[Pytanie] [Help Me] Noobksi Bot Potrzebuje Pomocy ;]

Viesiu · 6 Lutego 2011

Siema.

Napisałem sobie takiego prostego bocika w auto it i mam pewien problem po uruchomieniu go, po jakimś czasie wciska mi sie CONTROL sam pisze dużymi literami mozzilla czasem szaleje, KRÓTKO MÓWIĄC KOMPUTER MI SZALEJE, jest jakiś sposób aby to naprawić ?

Kod :

While 1000
Sleep(1000)
ControlSend("Tibia", "", "", "{F11}")
Sleep(1000)
ControlSend("Tibia", "", "", "{F10}")
Sleep(600000)
WEnd

Jestem początkujący z auto it zresztą to widać.

Jeszcze jakby mi ktoś mógł napisać linijke dzięki której przyciskiem END będę mógł wyłączyć bota

za pomoc serdecznie dziękuje oczywiście + czy tam - będą

Kulfix · 6 Lutego 2011

HotKeySet("{END}", "Terminate")

Func Terminate()
Exit 0
EndFunc

To gdzies sobie wklej nad kodem...

Rand · 6 Lutego 2011

zrób co np. 100 pętli restart programu.

Czyli

run(twój program)

exit

Viesiu · 6 Lutego 2011

zrób co np. 100 pętli restart programu.

Czyli

run(twój program)

exit

Rand co mi to da ?

4ggr35510n · 6 Lutego 2011

Jeszcze jakby mi ktoś mógł napisać linijke dzięki której przyciskiem END będę mógł wyłączyć bota

Istnieje temat z takim kodem na pierwszej stronie tego subforum.

Co do głównego problemu,

KRÓTKO MÓWIĄC KOMPUTER MI SZALEJE

Proponuję zakupić nowy komputer.

Rand · 6 Lutego 2011

jeżeli po długiej pracy program Ci wariuje to restart programu powiniem pomóć.

@up

wystarczy format

Maciek134 · 6 Lutego 2011

@up
wystarczy format

Kolejna pr0 elo rada w stylu 'nie działa ci komputer jak należy? FORMAT POMOŻE!'. Autoit ma to do siebie że jak każesz mu wciskać klawisze funkcyjne (Ctrl, Alt, Shit itp) to czasem się przytnie i będzie pisał dużymi literami, nawet na forum autoit scripts i chyba w helpie jest coś o tym.

teabox · 6 Lutego 2011

Wtrącając coś od siebie, przycina się na słabszym lub zawalonym sprzęcie, Autoit ma niestety to do siebie, że dość ostro bombarduje nasz procesor, pamięć wirtualną i ogólnie nasza maszynę, na starym komputerze miałem też wielki problem z działaniem podstawowych skryptów AutoIt, obecnie na nowym sprzęcie wszystko jest inaczej. I literki już się nie zmieniają nawet przy ostrym spamowaniu.

Więc nie szukaj na siłę rozwiązań tylko zmień sprzęt lub system? może działasz na Viście, a tego nikomu nie polecam.

Viesiu · 6 Lutego 2011

Moim zdaniem to nie o sprzęt chodzi kompa mam dobrego i jeszcze sprawdzałem to u kolegi który ma też dobrego kompa

Takii sam problem

Nie mam visty ...

Rand · 6 Lutego 2011

maćku, mój post był odpowiedzią na pr0 radę 'zmień komputer'

vipcior · 6 Lutego 2011

Co ten program robi ?

PS.Ja kiedyś zrobiłem spamwe i po pewnym czasie zaczol zmieniać tekst.

To jest spam

na

tO J.ST [AM

Rand · 6 Lutego 2011

mówie Ci co jakąś ilość pętli resetuj program

Rand · 6 Lutego 2011

mówie Ci co jakąś ilość pętli resetuj program

lokuxd · 6 Lutego 2011

ctrl+shift w moim bocie tez tak jest musisz wcisnac ctrl+shift i znow bedzie normalnie:P

Maciek134 · 6 Lutego 2011

Ctrl + Shift w WinXP jeśli nie usunąłeś dodatkowych języków przestawi klawiaturę na inny tryb (programisty / 214)

maćku, mój post był odpowiedzią na pr0 radę 'zmień komputer'

Fakt, ale tak czy siak polecanie formata na to że coś nie działa mi się nie podoba :P

lokuxd · 6 Lutego 2011

z tego co widze to jakis bot do runek czy cos

sprobuj tu ustaw ilosc many jaka musisz miec na czar pod f12-czar i jedzenie f1 bota na runki:P

nomada wez z tutka mintosza jesli nie masz

mozna to jeszcze udoskonalic ale naranie nie mam pomyslu:P

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <nomadmemory.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $PID, $zycie, $mana, $memarray, $hp, $mp, $y, $suwhp, $fullhp, $suwmp, $fullmp

$forma = GUICreate("Skill_Bot", 193, 182, -1, -1)
;GUICtrlCreatePic("C:tlo_bot.jpg", 0, 0, 193, 182)
GUISetIcon("C:\Program Files\Tibia\Tibia.exe")
$filemenu = GUICtrlCreateMenu("&Bot by Lokuxd")
$infoitem = GUICtrlCreateMenuItem("O programie", $filemenu)
$fileitem = GUICtrlCreateMenuItem("Wyjscie", $filemenu)
GUISetBkColor(0x6B6B6B)
$radio1 = GUICtrlCreateRadio("Lecze", 133, 63, 50, 15)
$radio2 = GUICtrlCreateRadio("Pauza", 133, 111, 50, 15)
$radio3 = GUICtrlCreateRadio("Skil", 133, 87, 50, 15)
$radio4 = GUICtrlCreateRadio("rybki", 133, 135, 50, 15)
GUICtrlSetTip($radio1, "F12-Heal(czar)" & @CRLF & "F11-Mana pot" & @CRLF & "F10-Heal pot" & @CRLF & "F9-food")
GUICtrlSetTip($radio2, "Pauza")
GUICtrlSetTip($radio3, "F12-(czar)" & @CRLF & "mane ustawiamy suwakiem" & @CRLF & "F9-food")
GUICtrlSetTip($radio4, "f4-wedka")
$lmp = GUICtrlCreateLabel("x", 140, 23, 40, 20)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$lhp = GUICtrlCreateLabel("x", 140, 2, 40, 20)
$Slider = GUICtrlCreateSlider(0, 45, 120, 29)
GUICtrlSetBkColor(-1, 0x6B6B6B)
$Slider1 = GUICtrlCreateSlider(0, 72, 120, 29)
GUICtrlSetBkColor(-1, 0x6B6B6B)
GUICtrlSetTip($Slider, "zycie")
GUICtrlSetTip($Slider1, "mana")
$Progress1 = GUICtrlCreateProgress(5, 3, 110, 10)
$Progress2 = GUICtrlCreateProgress(5, 13, 110, 10)
$z1 = GUICtrlCreateInput("kord x", 5, 112, 50, 21)
$z2 = GUICtrlCreateInput("kord y", 58, 112, 50, 21)
$z3 = GUICtrlCreateInput("ilosc |", 5, 134, 50, 21)
$z4 = GUICtrlCreateInput("ilosc --", 58, 134, 50, 21)
GUISetState(@SW_SHOW)


HotKeySet("{END}", "STOP")
Func STOP()
Exit
EndFunc   ;==>STOP




dane("procesy")
AdlibRegister("exit_", 10)
AdlibRegister("all", 100)

Func exit_()
Switch GUIGetMsg()
	Case -3
		Exit
	Case $fileitem
		Exit
	Case $infoitem
		MsgBox(0, "", "Bot przeznaczony głównie " & @CRLF & "do leczenia lub skillowania" & @CRLF & "pierwszy suwak -HP" & @CRLF & "drugi suwak -MP")
EndSwitch
EndFunc   ;==>exit_

While 1
Sleep(10000)
WEnd


Func ham()
ControlSend("[CLASS:TibiaClient]", "", "", ("{f1}"))
EndFunc   ;==>ham
Func all()
dane("odczyt")
dane("radio")
EndFunc   ;==>all

Func dane($dane)
Switch $dane
	Case "odczyt";odczyt zycia i many
		$zycie = _MemoryRead(0x63FD5C, $memarray)
		$mana = _MemoryRead(0x63FD38, $memarray)
		;suwaki-labele-progresy-ich_odczyty
		;##################################
		;
		;ToolTip($zycie)
		$suwhp = GUICtrlRead($Slider) / 100
		$suwmp = GUICtrlRead($Slider1) / 100
		$hp = Ceiling($fullhp * $suwhp)
		$mp = Ceiling($fullmp * $suwmp)
		GUICtrlSetData($lhp, $hp)
		GUICtrlSetData($lmp, $mp)
		$hpprog = ($zycie * 100) / $fullhp
		$mpprog = ($mana * 100) / $fullmp
		GUICtrlSetData($Progress1, $hpprog)
		GUICtrlSetData($Progress2, $mpprog)
		;
		;###################################
	Case "radio";odczyt radio
		If GUICtrlRead($radio1) = 1 Then
			lecz_skil("lecz")
		ElseIf GUICtrlRead($radio2) = 1 Then
			ToolTip("Pauza")
		ElseIf GUICtrlRead($radio3) = 1 Then
			lecz_skil("skill")
		ElseIf GUICtrlRead($radio4) = 1 Then
			lecz_skil("lowienie")
			AdlibRegister("ham", 780000)
		EndIf
	Case "procesy";otwieranie procesow
		$PID = ProcessExists("Tibia.exe")
		$memarray = _MemoryOpen($PID)
		$fullhp = _MemoryRead(0x63FD58, $memarray)
		$fullmp = _MemoryRead(0x63FD34, $memarray)

EndSwitch
EndFunc   ;==>dane
Func lecz_skil($lecz_skil)
Switch $lecz_skil
	Case "skill"
		WinSetTitle($forma, "", "Skill_Bot " & "HP: " & $zycie)
		If $zycie < Int($fullhp / 1.5) Then
			Beep(300)
		EndIf
		If $fullhp <> $zycie Then
			If $mana >= $mp Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f1}"))
				Sleep(950)
			EndIf
		EndIf
	Case "lecz"
		If $mana >= $mp Then
			If $zycie < $hp Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
				Sleep(950)
			ElseIf $zycie < $fullhp / 3 Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f9}"))
			EndIf
		ElseIf $mana < $mp Then
			ControlSend("[CLASS:TibiaClient]", "", "", ("{f11}"))
		EndIf
	Case "lowienie"
		$start = 1
		$start1 = 1
		$x = GUICtrlRead($z1)
		$y = GUICtrlRead($z2)
		Do
			Do

				Send("{f4}")
				MouseClick("left", $x, $y)
				$x += 55
				Sleep(1000)
				$start1 += 1

			Until $start1 = GUICtrlRead($z3)
			$start1 = 1
			$x = GUICtrlRead($z1)
			$start += 1
			$y -= 55
		Until $start = GUICtrlRead($z4)
EndSwitch
EndFunc   ;==>lecz_skil

4ggr35510n · 7 Lutego 2011

Ja poleciłem nowy komputer, gdyż to oczywiste, że nie można pracować "Z SZALONYM!!!!"

Co jeśli zgwałci nam córkę? Co jeśli spali nam psa?

Szalone komputery są nieprzewidywalne.

I nie widzę żadnego związku między pętlą wysyłającą co jakiś czas F10 i F11 do procesu, a 'szaleństwem komputera'. Znaczy, że musi być szalony sam z siebie. Autoit nie zawinił. Więc trza sprawić sobie nowy...

Rand · 7 Lutego 2011

naprawdę nie rozumiesz zwrotu 'komputer mi szaleje' ?

Jest to poprostu metafora...

Idź gdzie indziej szukać problemów tam gdzie ich nie ma.

Nie pomagasz więc z łaski swojej nie nabijaj sobie postów

Yoshoaki · 7 Lutego 2011

To nie mógł napisać, że "występują błędy", "Program źle pracuje", whatever? Używanie metafor w programowaniu daleko nie zajdzie :P

Rand · 7 Lutego 2011

liz dupe dłużej, on i tak uważa Cię za śmiecia

Yoshoaki · 7 Lutego 2011

Nie wydaje mi się, abym lizał komuś dupę, przynajmniej nie czuję tego na języku. Po prostu mam te same zdanie na ten temat.

Rand · 7 Lutego 2011

nie czujesz tego na języku ?

Metafora ?

Viesiu · 7 Lutego 2011

z tego co widze to jakis bot do runek czy cos

sprobuj tu ustaw ilosc many jaka musisz miec na czar pod f12-czar i jedzenie f1 bota na runki:P

nomada wez z tutka mintosza jesli nie masz

mozna to jeszcze udoskonalic ale naranie nie mam pomyslu:P

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <nomadmemory.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $PID, $zycie, $mana, $memarray, $hp, $mp, $y, $suwhp, $fullhp, $suwmp, $fullmp

$forma = GUICreate("Skill_Bot", 193, 182, -1, -1)
;GUICtrlCreatePic("C:tlo_bot.jpg", 0, 0, 193, 182)
GUISetIcon("C:\Program Files\Tibia\Tibia.exe")
$filemenu = GUICtrlCreateMenu("&Bot by Lokuxd")
$infoitem = GUICtrlCreateMenuItem("O programie", $filemenu)
$fileitem = GUICtrlCreateMenuItem("Wyjscie", $filemenu)
GUISetBkColor(0x6B6B6B)
$radio1 = GUICtrlCreateRadio("Lecze", 133, 63, 50, 15)
$radio2 = GUICtrlCreateRadio("Pauza", 133, 111, 50, 15)
$radio3 = GUICtrlCreateRadio("Skil", 133, 87, 50, 15)
$radio4 = GUICtrlCreateRadio("rybki", 133, 135, 50, 15)
GUICtrlSetTip($radio1, "F12-Heal(czar)" & @CRLF & "F11-Mana pot" & @CRLF & "F10-Heal pot" & @CRLF & "F9-food")
GUICtrlSetTip($radio2, "Pauza")
GUICtrlSetTip($radio3, "F12-(czar)" & @CRLF & "mane ustawiamy suwakiem" & @CRLF & "F9-food")
GUICtrlSetTip($radio4, "f4-wedka")
$lmp = GUICtrlCreateLabel("x", 140, 23, 40, 20)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$lhp = GUICtrlCreateLabel("x", 140, 2, 40, 20)
$Slider = GUICtrlCreateSlider(0, 45, 120, 29)
GUICtrlSetBkColor(-1, 0x6B6B6B)
$Slider1 = GUICtrlCreateSlider(0, 72, 120, 29)
GUICtrlSetBkColor(-1, 0x6B6B6B)
GUICtrlSetTip($Slider, "zycie")
GUICtrlSetTip($Slider1, "mana")
$Progress1 = GUICtrlCreateProgress(5, 3, 110, 10)
$Progress2 = GUICtrlCreateProgress(5, 13, 110, 10)
$z1 = GUICtrlCreateInput("kord x", 5, 112, 50, 21)
$z2 = GUICtrlCreateInput("kord y", 58, 112, 50, 21)
$z3 = GUICtrlCreateInput("ilosc |", 5, 134, 50, 21)
$z4 = GUICtrlCreateInput("ilosc --", 58, 134, 50, 21)
GUISetState(@SW_SHOW)


HotKeySet("{END}", "STOP")
Func STOP()
Exit
EndFunc   ;==>STOP




dane("procesy")
AdlibRegister("exit_", 10)
AdlibRegister("all", 100)

Func exit_()
Switch GUIGetMsg()
	Case -3
		Exit
	Case $fileitem
		Exit
	Case $infoitem
		MsgBox(0, "", "Bot przeznaczony głównie " & @CRLF & "do leczenia lub skillowania" & @CRLF & "pierwszy suwak -HP" & @CRLF & "drugi suwak -MP")
EndSwitch
EndFunc   ;==>exit_

While 1
Sleep(10000)
WEnd


Func ham()
ControlSend("[CLASS:TibiaClient]", "", "", ("{f1}"))
EndFunc   ;==>ham
Func all()
dane("odczyt")
dane("radio")
EndFunc   ;==>all

Func dane($dane)
Switch $dane
	Case "odczyt";odczyt zycia i many
		$zycie = _MemoryRead(0x63FD5C, $memarray)
		$mana = _MemoryRead(0x63FD38, $memarray)
		;suwaki-labele-progresy-ich_odczyty
		;##################################
		;
		;ToolTip($zycie)
		$suwhp = GUICtrlRead($Slider) / 100
		$suwmp = GUICtrlRead($Slider1) / 100
		$hp = Ceiling($fullhp * $suwhp)
		$mp = Ceiling($fullmp * $suwmp)
		GUICtrlSetData($lhp, $hp)
		GUICtrlSetData($lmp, $mp)
		$hpprog = ($zycie * 100) / $fullhp
		$mpprog = ($mana * 100) / $fullmp
		GUICtrlSetData($Progress1, $hpprog)
		GUICtrlSetData($Progress2, $mpprog)
		;
		;###################################
	Case "radio";odczyt radio
		If GUICtrlRead($radio1) = 1 Then
			lecz_skil("lecz")
		ElseIf GUICtrlRead($radio2) = 1 Then
			ToolTip("Pauza")
		ElseIf GUICtrlRead($radio3) = 1 Then
			lecz_skil("skill")
		ElseIf GUICtrlRead($radio4) = 1 Then
			lecz_skil("lowienie")
			AdlibRegister("ham", 780000)
		EndIf
	Case "procesy";otwieranie procesow
		$PID = ProcessExists("Tibia.exe")
		$memarray = _MemoryOpen($PID)
		$fullhp = _MemoryRead(0x63FD58, $memarray)
		$fullmp = _MemoryRead(0x63FD34, $memarray)

EndSwitch
EndFunc   ;==>dane
Func lecz_skil($lecz_skil)
Switch $lecz_skil
	Case "skill"
		WinSetTitle($forma, "", "Skill_Bot " & "HP: " & $zycie)
		If $zycie < Int($fullhp / 1.5) Then
			Beep(300)
		EndIf
		If $fullhp <> $zycie Then
			If $mana >= $mp Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f1}"))
				Sleep(950)
			EndIf
		EndIf
	Case "lecz"
		If $mana >= $mp Then
			If $zycie < $hp Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f12}"))
				Sleep(950)
			ElseIf $zycie < $fullhp / 3 Then
				ControlSend("[CLASS:TibiaClient]", "", "", ("{f9}"))
			EndIf
		ElseIf $mana < $mp Then
			ControlSend("[CLASS:TibiaClient]", "", "", ("{f11}"))
		EndIf
	Case "lowienie"
		$start = 1
		$start1 = 1
		$x = GUICtrlRead($z1)
		$y = GUICtrlRead($z2)
		Do
			Do

				Send("{f4}")
				MouseClick("left", $x, $y)
				$x += 55
				Sleep(1000)
				$start1 += 1

			Until $start1 = GUICtrlRead($z3)
			$start1 = 1
			$x = GUICtrlRead($z1)
			$start += 1
			$y -= 55
		Until $start = GUICtrlRead($z4)
EndSwitch
EndFunc   ;==>lecz_skil

Jak narazie tylko ty mi pomagasz reszta się kuci itp

Tak dokładnie jest to bot do runek

Co to jest to co ty mi podałeś w spoilerze? zrozumiałem ze jest to bot na runki tylko lepszy ponieważ używa czar wtedy kiedy ma full many tak?

Nie rozumiem tylko do czego tu życie ;P

lokuxd · 7 Lutego 2011

to moj botek do skilowania i leczenia na expie ustawiasz tam hp i mane, ale jak ustawisz tylko ilosc many jaka potrzeba (suwakiem) i pod f12 czar na runke f1 food to tez bedzie dzialalo ze zrobi runke jak bedzie np 300 many:P

tylko taki maly haczyk musisz miec mniej niz full hp chyba ze przerobisz to sobie w funkcji "skill" wykasuj if fullhp<> $zycie then <usunac i na dole endif i bedzie robilo ci bez uwzgledniania zycia:)

Viesiu · 7 Lutego 2011

Wilkie dzięki ! po uruchomieniu tego wyskakuje mi błąd z nonapdem czy coś

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] [Help Me] Noobksi Bot Potrzebuje Pomocy ;]

Rekomendowane odpowiedzi

Zarchiwizowany