[Prosba] Bot Do Nostale

KickPolska · 13 Grudnia 2010

Prosze o zrobienie bota na profke, taki który bedzie wysyłał spacje do okna nostale! taki bot w autoit (skrypta prosze wkleic) ktory dziala na zminamilizowanym taki ze bot dziala a ja se cos robie, np gg o ile sie nie myle jest to komenda "send keys" za pomoc bedą + i podziękowanie

SEND KEYS !! MUSI DZIAŁAĆ TAK JAK BOT ROBEMA DO NOSTALE ZE DZIALA NA ZMINAMILIZOWANYM!!

Chodzi tutaj tylko o to zeby klikal spacje w wybranych odstępach czasowych, zeby na HOME sie go włączało a na END wyłączało / Pauzowało (w pauzie jak sie kliknie home to zeby dalej bocil)

Dzx za pomoc

RobeM · 13 Grudnia 2010

pomyliłeś działy czy co ?

jackraymund · 13 Grudnia 2010

akurat dzisiaj zaczalem grac w ta glupia gierke

na szybko bota napisalem i teraz wlasnie robie bota na leczenie

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 190, 97, 192, 124)
$Input1 = GUICtrlCreateInput("NosTale", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	case $Button1
		$i = guictrlread($Input1)
		while 1
		controlsend($i,"","","`")
		controlsend($i,"","","{SPACE}")
		WEnd
EndSwitch
WEnd

RobeM · 13 Grudnia 2010

jak chcesz moge udostępnić gotowe skrypty do dwóch botów, sam jakoś nie mam czasu dalej kontynuowac

z tego co pamiętam

- bot działa w rozdzielczosci 800x600

- sprawdza hp

- mozna definiowac klawisze ataku i odpoczynku

- definiowany czas odpoczynku

czesc opcji wyłaczona : oczekiwanie na uruchomienie gry, rozpoznanie rozdzielczosci gry i ustawienie na ekranie gry

działa w tle , jeśli nie chodzi aktualnie keysend mozna zamienic na controlsend

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
Opt("GUICloseOnESC", 1)
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
WinSetOnTop("BotNosTale", "", 1)
WinActivate("BotNosTale", "")

HotKeySet("{HOME}", "TogglePause")
HotKeySet("{END}", "KoniecX")

$client = "NosTale"
$PID = WinGetProcess($client)
$hprocess = _MemoryOpen($PID)
$hWnd = WinGetHandle($client)

$Pausedd = 1

Global $cross1
Global $cross2
Global $cross3

;~ WinWait($hWnd, "")
;~ If Not WinActive($hWnd, "") Then WinActivate($hWnd, "")
;~ WinWaitActive($hWnd, "")
;~ WinWait($hWnd, "")
;~ If Not WinActive($hWnd, "") Then WinActivate($hWnd, "")
;~ WinWaitActive($hWnd, "")
;~ TrayTip("NosTale", "Bot nieaktywny", 5, 1)

;~ $size = WinGetClientSize($hWnd)
;~ MsgBox(0, "Aktualny rozmiar okna gry : ( width , height ):", $size[0] & " " & $size[1], 1)

;~ WinActivate($hWnd, "")
;~ WinMove($hWnd, "", 0, 0)
;~ TrayTip("NosTale", "Ustawiam pozycje okna gry.", 1, 1)



$hWnd = GUICreate("NosTaleBot", 179, 290, 1000, 400)
GUISetIcon("D:\005.ico")
$PageControl1 = GUICtrlCreateTab(3, 3, 171, 281)

; ########  TAB 1
$TabSheet1 = GUICtrlCreateTabItem("NosTale")
GUICtrlSetState(-1, $GUI_SHOW)
$Start = GUICtrlCreateButton("Start/Stop", 10, 40, 75, 25)
GUICtrlSetFont(-1, 8, 900, 0, "Tahoma")

$KoniecX = GUICtrlCreateButton("Koniec", 85, 250, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")



$Skil11 = GUICtrlCreateLabel("Skil 1 - " & IniRead("dane.ini", "Dane", "Skil-1", ""), 12, 80, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$Skil21 = GUICtrlCreateLabel("Skil 2 - " & IniRead("dane.ini", "Dane", "Skil-2", ""), 12, 90, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$Skil31 = GUICtrlCreateLabel("Skil 3 - " & IniRead("dane.ini", "Dane", "Skil-3", ""), 12, 100, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$Skil41 = GUICtrlCreateLabel("Skil 4 - " & IniRead("dane.ini", "Dane", "Skil-4", ""), 12, 110, 160, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)

; ########  TAB 2

$TabSheet2 = GUICtrlCreateTabItem("Klawisze")

$Skil1 = GUICtrlCreateLabel("Skil 1 -", 12, 30, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KSkil1 = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Skil-1", ""), 80, 25, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KSkil1, 1)

$Skil2 = GUICtrlCreateLabel("Skil 2 -", 12, 60, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KSkil2 = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Skil-2", ""), 80, 55, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KSkil2, 1)

$Skil3 = GUICtrlCreateLabel("Skil 3 - ", 12, 90, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KSkil3 = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Skil-3", ""), 80, 85, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KSkil3, 1)

$Skil4 = GUICtrlCreateLabel("Skil 4 -", 12, 120, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KSkil4 = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Skil-4", ""), 80, 115, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KSkil4, 1)

$Loot = GUICtrlCreateLabel("LOOT - ", 12, 150, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KLoot = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Loot", ""), 80, 145, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KLoot, 1)

$Rest = GUICtrlCreateLabel("REST -", 12, 180, 50, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KRest = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Rest", ""), 80, 175, 50, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KRest, 1)

;~ $Pauza = GUICtrlCreateLabel("PAUZA - ", 12, 210, 50, 15)
;~ GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
;~ GUICtrlSetColor(-1, 0x0000FF)
;~ $KPauza = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Pauza", ""), 80, 205, 80, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
;~ GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
;~ GUICtrlSetColor(-1, 0x0000FF)
;~ GUICtrlSetLimit($KPauza, 7)

;~ $Koniec = GUICtrlCreateLabel("KONIEC - ", 12, 240, 50, 15)
;~ GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
;~ GUICtrlSetColor(-1, 0x0000FF)
;~ $KKoniec = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Koniec", ""), 80, 235, 80, 20, BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL))
;~ GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
;~ GUICtrlSetColor(-1, 0x0000FF)
;~ GUICtrlSetLimit($KKoniec, 7)

$KZapiszX = GUICtrlCreateButton("Zapisz", 80, 260, 75, 20, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetOnEvent(-1, "Zapisz")

; ########  TAB 3
$TabSheet3 = GUICtrlCreateTabItem("Funkcje")
$CzasOdp = GUICtrlCreateLabel("Czas odpoczynku w sekundach", 12, 32, 150, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KCzasOd = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Odpoczynek", ""), 12, 54, 80, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetLimit($KCzasOd, 3)

$Lagi1 = GUICtrlCreateLabel("Lagi, zalecane wartoci", 12, 92, 140, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$Lagi2 = GUICtrlCreateLabel("od 100 do 500", 12, 105, 140, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$KLagi = GUICtrlCreateInput(IniRead("dane.ini", "Dane", "Lagi", ""), 12, 131, 80, 21, BitOR($ES_CENTER, $ES_NUMBER))
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetLimit($KLagi, 3)

$KZapisz = GUICtrlCreateButton("Zapisz", 80, 260, 75, 20, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetOnEvent(-1, "Zapisz")

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hWnd, "int", 1000, "long", 0x00040010)
;DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 4000, "long", 0x00080000);fade-in

GUISetState(@SW_SHOW)


$Skil1 = IniRead("dane.ini", "Dane", "Skil-1", GUICtrlRead($KSkil1))
$Skil2 = IniRead("dane.ini", "Dane", "Skil-2", GUICtrlRead($KSkil2))
$Skil3 = IniRead("dane.ini", "Dane", "Skil-3", GUICtrlRead($KSkil3))
$Skil4 = IniRead("dane.ini", "Dane", "Skil-4", GUICtrlRead($KSkil4))
$Rest = IniRead("dane.ini", "Dane", "Rest", GUICtrlRead($KRest))
$Loot = IniRead("dane.ini", "Dane", "Loot", GUICtrlRead($KLoot))
$CzasOd = IniRead("dane.ini", "Dane", "Odpoczynek", GUICtrlRead($KCzasOd)) * 1000
$Lagi = IniRead("dane.ini", "Dane", "Lagi", GUICtrlRead($KLagi))
;~ $Pauza = IniRead("dane.ini", "Dane", "Pauza", GUICtrlRead($KPauza))
;~ $Koniec = IniRead("dane.ini", "Dane", "Koniec", GUICtrlRead($KKoniec))

Odczyt()
$count = 0

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

	Case $Start
		If $count = 1 Then
			GUICtrlSetData($Start, "Start")
			$count = 0
			GUISetState(@SW_SHOW)
			GUICtrlCreateLabel("PAUZA...", 10, 200, 80, 20, $WS_GROUP)
			GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
			GUICtrlSetColor(-1, 0xFF0000)
			Odczyt()
		ElseIf $count = 0 Then
			GUICtrlSetData($Start, "Stop")
			$count = 1
			GUISetState(@SW_SHOW)
			GUICtrlCreateLabel("ATAK!", 10, 200, 80, 20, $WS_GROUP)
			GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
			GUICtrlSetColor(-1, 0xFF0000)
			Odczyt()
			gra()
		EndIf

	Case $KZapisz
		Zapisz()
	Case $KZapiszX
		Zapisz()

	Case $KoniecX
		KoniecX()

	Case $GUI_EVENT_CLOSE
		DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hWnd, "int", 1000, "long", 0x00050010);implode
		Exit

EndSwitch
WEnd


Func gra()

$cross1 = PixelGetColor(150, 39, $client)
$cross2 = PixelGetColor(150, 59, $client)
If $cross1 = 0x000000 Or $cross2 = 0x000000 Then
	TrayTip("NosTale", "Czas na odpoczynek !", 5, 1)
	Odpoczynek()

ElseIf $cross1 <> 0x000000 Or $cross2 <> 0x000000 Then
	TrayTip("NosTale", "ATAK !", 5, 1)
	Attack()
EndIf
EndFunc   ;==>gra




Func Attack()
KeySend($Loot)
Sleep($KLagi)
KeySend("space")
Sleep($Lagi)
KeySend($Loot)
Sleep($Lagi)
KeySend($Skil1)
Sleep($Lagi)
KeySend($Loot)
Sleep($Lagi)
KeySend($Skil2)
Sleep($Lagi)
KeySend("SPACE")
Sleep($Lagi)
KeySend($Loot)
Sleep($Lagi)
KeySend($Skil3)
Sleep($Lagi)
KeySend($Loot)
Sleep($Lagi)
KeySend($Skil4)
Sleep($Lagi)
EndFunc   ;==>Attack

Func AttackD()
KeySend("SPACE")
KeySend("6")
Sleep(111)
Sleep($Lagi)
KeySend($Skil1)
Sleep($Lagi)
KeySend($Skil2)

Sleep($Lagi)
KeySend($Loot)
EndFunc   ;==>AttackD

Func Odpoczynek()
$cross3 = PixelGetColor(510, 19, $client)
If $cross3 = 0x000000 Then
	TrayTip("NosTale", "Dobijam", 5, 1)

	Odczyt()

	AttackD()

ElseIf $cross3 <> 0x000000 Then
	TrayTip("NosTale", "Zaczynam", 5, 1)

	Odczyt()

	Siad()

EndIf
EndFunc   ;==>Odpoczynek

Func Siad()
Sleep(3333)
KeySend($Rest)
TrayTip("NosTale", "Odpoczywam", 5, 1)

Sleep($CzasOd)

KeySend($Rest)

Sleep($Lagi)
KeySend("QQ")
Sleep(2222)
KeySend("WW")
Sleep(2222)
KeySend($Loot)
Sleep($Lagi)
KeySend($Loot)
EndFunc   ;==>Siad

Func Zapisz()
GUICtrlCreateLabel("Zapisuje...", 10, 265, 50, 15, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
Sleep(11)
IniWrite("dane.ini", "Dane", "Skil-1", GUICtrlRead($KSkil1))
Sleep(11)
IniWrite("dane.ini", "Dane", "Skil-2", GUICtrlRead($KSkil2))
Sleep(11)
IniWrite("dane.ini", "Dane", "Skil-3", GUICtrlRead($KSkil3))
Sleep(11)
IniWrite("dane.ini", "Dane", "Skil-4", GUICtrlRead($KSkil4))
Sleep(11)
IniWrite("dane.ini", "Dane", "Loot", GUICtrlRead($KLoot))
Sleep(11)
IniWrite("dane.ini", "Dane", "Rest", GUICtrlRead($KRest))
Sleep(11)
IniWrite("dane.ini", "Dane", "Odpoczynek", GUICtrlRead($KCzasOd))
Sleep(11)
IniWrite("dane.ini", "Dane", "Lagi", GUICtrlRead($KLagi))
Sleep(11)
;~ 	IniWrite("dane.ini", "Dane", "Koniec", GUICtrlRead($KKoniec))
;~ 	Sleep(11)
;~ 	IniWrite("dane.ini", "Dane", "Pauza", GUICtrlRead($KPauza))
;~ 	Sleep(11)
GUICtrlCreateLabel("Zapisano", 10, 265, 50, 15, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0xFF0000)
EndFunc   ;==>Zapisz


Func Odczyt()
$Skil1 = IniRead("dane.ini", "Dane", "Skil-1", GUICtrlRead($KSkil1))
$Skil2 = IniRead("dane.ini", "Dane", "Skil-2", GUICtrlRead($KSkil2))
$Skil3 = IniRead("dane.ini", "Dane", "Skil-3", GUICtrlRead($KSkil3))
$Skil4 = IniRead("dane.ini", "Dane", "Skil-4", GUICtrlRead($KSkil4))
$Rest = IniRead("dane.ini", "Dane", "Rest", GUICtrlRead($KRest))
$Loot = IniRead("dane.ini", "Dane", "Loot", GUICtrlRead($KLoot))
$CzasOd = IniRead("dane.ini", "Dane", "Odpoczynek", GUICtrlRead($KCzasOd)) * 1000
$Lagi = IniRead("dane.ini", "Dane", "Lagi", GUICtrlRead($KLagi))
;~ 	$Pauza = IniRead("dane.ini", "Dane", "Pauza", GUICtrlRead($KPauza))
;~ 	$Koniec = IniRead("dane.ini", "Dane", "Koniec", GUICtrlRead($KKoniec))
EndFunc   ;==>Odczyt


Func TogglePause()
$Pausedd = Not $Pausedd
While $Pausedd
	TrayTip("NosTale", "Pauza bota", 5, 1)
	Sleep(100)
WEnd
EndFunc   ;==>TogglePause

Func KoniecX()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hWnd, "int", 2000, "long", 0x00050010);implode
Exit
EndFunc   ;==>Koniec

; send single keyboard event to non active window
; event = pressed, down, up
; kdown = key down delay
; note: supports only lower case keys + NUMx, Fx, some special keys and @

Func KeySend($inkey, $evt = "pressed", $kdown = 70)
;Global $WM_KEYDOWN, $WM_KEYUP, $WM_CHAR
$user32 = DllOpen("user32.dll")
If $user32 = -1 Then
	ConsoleWrite("KeySend: cannot open user32.dll")
	Exit
EndIf

; handling for special keys
Switch StringUpper($inkey)
	Case "@"
		$skey = 0x40
		$lParam = 0x00100001
		DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", 0x71, "long", $lParam)
		DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_CHAR, "int", $skey, "long", $lParam)
		Sleep(20)
		DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", 0x71, "long", BitOR($lParam, 0xC0000000))
	Case "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"
		$skey = 0x6f + Int(StringMid($inkey, 2))
		ContinueCase
	Case "NUM0", "NUM1", "NUM2", "NUM3", "NUM4", "NUM5", "NUM6", "NUM7", "NUM8", "NUM9"
		If StringUpper(StringLeft($inkey, 3)) = "NUM" Then
			$skey = 0x60 + Int(StringMid($inkey, 4))
		EndIf
		ContinueCase
	Case "RETURN", "SPACE", "TAB", "BACK", "END", "HOME", "SNAPSHOT", "INSERT", "DELETE", "LEFT", "RIGHT", "UP", "DOWN"
		Switch StringUpper($inkey)
			Case "RETURN"
				$skey = 0x0D
			Case "SPACE"
				$skey = 0x20
			Case "TAB"
				$skey = 0x09
			Case "BACK"
				$skey = 0x08
			Case "END"
				$skey = 0x23
			Case "HOME"
				$skey = 0x24
			Case "SNAPSHOT"
				$skey = 0x2c
			Case "INSERT"
				$skey = 0x2d
			Case "DELETE"
				$skey = 0x2e
			Case "LEFT"
				$skey = 0x25
			Case "RIGHT"
				$skey = 0x27
			Case "UP"
				$skey = 0x26
			Case "DOWN"
				$skey = 0x28
		EndSwitch
		$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
		$lParam = BitShift($ret[0], -16)
		$lParam = BitOR($lParam, 1)
		DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lParam)
		Sleep($kdown)
		DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lParam, 0xC0000000))
	Case Else ; default lower case key handling
		$key = DllCall($user32, "int", "VkKeyScan", "int", Asc(StringLower($inkey)))
		$skey = $key[0]
		$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
		$lParam = BitShift($ret[0], -16)
		$lParam = BitOR($lParam, 1)
		Select
			Case $evt = "pressed"
				DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lParam)
				Sleep($kdown)
				DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lParam, 0xC0000000))
			Case $evt = "down"
				DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lParam)
			Case $evt = "up"
				DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lParam, 0xC0000000))
		EndSelect
EndSwitch

DllClose($user32)
EndFunc   ;==>KeySend

p.s. prosze o nie usówanie z bota w razie kompilacji informacji o autorze , bot jest DARMOWY i każdy może go sobie dostosować jak tylko potrzebuje, rozbudować o nowe funkcje bez informowania mnie o zmianach, albo i z informowaniem . prosta budowa bota pozwala na dowolne zmiany funkcji , ulepszanie istniejących bez potrzeby zmian w gui czy grzebania głębszego w kodzie.

w razie problemów pytać podając konkretny fragment kodu

KickPolska · 14 Grudnia 2010

o kurwa... otworzylem spoiler i mi oczy wypadly =x robem ja sie na tym nie znam! D:

Prosze cie napisz mi bota co obsługuje klawisze HOME i END i takiego co spacje wali...

{Home} - Start / Start podczas pauzy

{end} - Pauza / po drugim wcisnieciu end wyłączenie bota z powiadomieniem mnie o tym

Z góry thx

jackraymund · 14 Grudnia 2010

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 190, 97, 192, 124)
$Input1 = GUICtrlCreateInput("NosTale", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $PID = ProcessExists("NostaleX.dat")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	case $Button1
		$i = guictrlread($Input1)
		while 1
		controlsend($i,"","","`")
		controlsend($i,"","","{SPACE}")
		sleep(300)
							$PROCESSINFORMATION = _MEMORYOPEN($PID)
$NUMBER = _MEMORYREAD(0x020EE840, $PROCESSINFORMATION)
	if $NUMBER < 400 then
	controlsend($i,"","","3")
	sleep(1000)
	EndIf
	WEnd
EndSwitch
WEnd

tu masz też na hp(klika "3" jak masz 400hp lub miej

KickPolska · 14 Grudnia 2010

dzx ;-) zaraz go przetestuje bo poprzedni nie dzialal

i znowu dupa...

$PROCESSINFORMATION = _MEMORYOPEN($PID)

$PROCESSINFORMATION = ^ ERROR

" Prosze cie napisz mi bota co obsługuje klawisze HOME i END i takiego co spacje wali... i działa na zminamilizowanym... (send keys)

{Home} - Start / Start podczas pauzy

{end} - Pauza / po drugim wcisnieciu end wyłączenie bota z powiadomieniem mnie o tym "

O to prosze...

P.S w obudwoch botach nie dziala GUI jak klikam na Button1 to nic sie nie dzieje

To z tym hp dobry pomysł o ile na zminamilizowanym dziala :P ale mowie, jak klikam button 1 to nic sie nie dzieje...

włącza sie GUI jest tam napisane nostale i nizej jest button 1 , klikam na to i dupa ;/

RobeM · 14 Grudnia 2010

zapomniał o dodaniu

#include <nomadmemory.au3>

jackraymund , skąd bierzesz offsety do gry ?

jak masz więcej dla polskiego serwera to podaj

KickPolska · 14 Grudnia 2010

kurwa nadal nie dziala >< wciskam ten BUtton 1 i nic sie nie dzieje... Robem prosze cie napisz mi tego bota....

a po dopisaniu #include <nomadmemory.au3> to juz wogle sie pierdoli wszystko ;/

Niech WYSYŁA spacje do nostale , sprawdza hp itd

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 190, 97, 192, 124)
$Input1 = GUICtrlCreateInput("NosTale", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $PID = ProcessExists("NostaleX.dat")
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                       $i = guictrlread($Input1)
                       while 1
                       controlsend($i,"","","`")
                       controlsend($i,"","","{SPACE}")
                       sleep(300)
                                                               $PROCESSINFORMATION = _MEMORYOPEN($PID)
       $NUMBER = _MEMORYREAD(0x020EE840, $PROCESSINFORMATION)
               if $NUMBER < 400 then
               controlsend($i,"","","3")
               sleep(1000)
               EndIf
               WEnd
       EndSwitch
WEnd

ten bot jest bardzo dobry, ale nie dziala =/

lokuxd · 14 Grudnia 2010

co z tego ze dopisalem includa jak nie wprzuciles zapewne pliku do folderu:D

jackraymund · 14 Grudnia 2010

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 190, 97, 192, 124)

$Input1 = GUICtrlCreateInput("NosTale", 8, 8, 121, 21)

$Button1 = GUICtrlCreateButton("Button1", 8, 32, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

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

Global $PID = ProcessExists("NostaleX.dat")

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Button1

$i = guictrlread($Input1)

while 1

controlsend($i,"","","`")

controlsend($i,"","","{SPACE}")

sleep(300)

$PROCESSINFORMATION = _MEMORYOPEN($PID)

$NUMBER = _MEMORYREAD(0x020EE840, $PROCESSINFORMATION)

if $NUMBER < 400 then

controlsend($i,"","","3")

sleep(1000)

EndIf

WEnd

EndSwitch

WEnd

#include-once

#region _Memory

;=================================================================================================

; AutoIt Version: 3.1.127 (beta)

; Language: English

; Platform: All Windows

; Author: Nomad

; Requirements: These functions will only work with beta.

;=================================================================================================

; Credits: wOuter - These functions are based on his original _Mem() functions. But they are

; easier to comprehend and more reliable. These functions are in no way a direct copy

; of his functions. His functions only provided a foundation from which these evolved.

;=================================================================================================

;

; Functions:

;

;=================================================================================================

; Function: _MemoryOpen($iv_Pid[, $iv_DesiredAccess[, $iv_InheritHandle]])

; Description: Opens a process and enables all possible access rights to the process. The

; Process ID of the process is used to specify which process to open. You must

; call this function before calling _MemoryClose(), _MemoryRead(), or _MemoryWrite().

; Parameter(s): $iv_Pid - The Process ID of the program you want to open.

; $iv_DesiredAccess - (optional) Set to 0x1F0FFF by default, which enables all

; possible access rights to the process specified by the

; Process ID.

; $if_InheritHandle - (optional) If this value is TRUE, all processes created by

; this process will inherit the access handle. Set to TRUE

; (1) by default. Set to 0 if you want it to be FALSE.

; Requirement(s): A valid process ID.

; Return Value(s): On Success - Returns an array containing the Dll handle and an open handle to

; the specified process.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $iv_Pid.

; 2 = Failed to open Kernel32.dll.

; 3 = Failed to open the specified process.

; Author(s): Nomad

; Note(s):

;=================================================================================================

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)

If Not ProcessExists($iv_Pid) Then

SetError(1)

Return 0

EndIf

Local $ah_Handle[2] = [DllOpen('kernel32.dll')]

If @Error Then

SetError(2)

Return 0

EndIf

Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)

If @Error Then

DllClose($ah_Handle[0])

SetError(3)

Return 0

EndIf

$ah_Handle[1] = $av_OpenProcess[0]

Return $ah_Handle

EndFunc

;=================================================================================================

; Function: _MemoryRead($iv_Address, $ah_Handle[, $sv_Type])

; Description: Reads the value located in the memory address specified.

; Parameter(s): $iv_Address - The memory address you want to read from. It must be in hex

; format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $sv_Type - (optional) The "Type" of value you intend to read. This is set to

; 'dword'(32bit(4byte) signed integer) by default. See the help file

; for DllStructCreate for all types.

; An example: If you want to read a word that is 15 characters in

; length, you would use 'char[16]'.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns the value located at the specified address.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = $sv_Type was not a string.

; 3 = $sv_Type is an unknown data type.

; 4 = Failed to allocate the memory needed for the DllStructure.

; 5 = Error allocating memory for $sv_Type.

; 6 = Failed to read from the specified process.

; Author(s): Nomad

; Note(s): Values returned are in Decimal format, unless specified as a 'char' type, then

; they are returned in ASCII format. Also note that size ('char') for all

; 'char' types should be 1 greater than the actual size.

;=================================================================================================

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

Local $v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 1)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If Not @Error Then

Local $v_Value = DllStructGetData($v_Buffer, 1)

Return $v_Value

Else

SetError(6)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryWrite($iv_Address, $ah_Handle, $v_Data[, $sv_Type])

; Description: Writes data to the specified memory address.

; Parameter(s): $iv_Address - The memory address you want to write to. It must be in hex

; format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $v_Data - The data to be written.

; $sv_Type - (optional) The "Type" of value you intend to write. This is set to

; 'dword'(32bit(4byte) signed integer) by default. See the help file

; for DllStructCreate for all types.

; An example: If you want to write a word that is 15 characters in

; length, you would use 'char[16]'.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns 1

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = $sv_Type was not a string.

; 3 = $sv_Type is an unknown data type.

; 4 = Failed to allocate the memory needed for the DllStructure.

; 5 = Error allocating memory for $sv_Type.

; 6 = $v_Data is not in the proper format to be used with the "Type"

; selected for $sv_Type, or it is out of range.

; 7 = Failed to write to the specified process.

; Author(s): Nomad

; Note(s): Values sent must be in Decimal format, unless specified as a 'char' type, then

; they must be in ASCII format. Also note that size ('char') for all

; 'char' types should be 1 greater than the actual size.

;=================================================================================================

Func _MemoryWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

Local $v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 1)

Return 0

Else

DllStructSetData($v_Buffer, 1, $v_Data)

If @Error Then

SetError(6)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If Not @Error Then

Return 1

Else

SetError(7)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryClose($ah_Handle)

; Description: Closes the process handle opened by using _MemoryOpen().

; Parameter(s): $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns 1

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = Unable to close the process handle.

; Author(s): Nomad

; Note(s):

;=================================================================================================

Func _MemoryClose($ah_Handle)

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'CloseHandle', 'int', $ah_Handle[1])

If Not @Error Then

DllClose($ah_Handle[0])

Return 1

Else

DllClose($ah_Handle[0])

SetError(2)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryPointerRead ($iv_Address, $ah_Handle, $av_Offset[, $sv_Type])

; Description: Reads a chain of pointers and returns an array containing the destination

; address and the data at the address.

; Parameter(s): $iv_Address - The static memory address you want to start at. It must be in

; hex format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $av_Offset - An array of offsets for the pointers. Each pointer must have an

; offset. If there is no offset for a pointer, enter 0 for that

; array dimension.

; $sv_Type - (optional) The "Type" of data you intend to read at the destination

; address. This is set to 'dword'(32bit(4byte) signed integer) by

; default. See the help file for DllStructCreate for all types.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns an array containing the destination address and the value

; located at the address.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = $av_Offset is not an array.

; 2 = Invalid $ah_Handle.

; 3 = $sv_Type is not a string.

; 4 = $sv_Type is an unknown data type.

; 5 = Failed to allocate the memory needed for the DllStructure.

; 6 = Error allocating memory for $sv_Type.

; 7 = Failed to read from the specified process.

; Author(s): Nomad

; Note(s): Values returned are in Decimal format, unless a 'char' type is selected.

; Set $av_Offset like this:

; $av_Offset[0] = NULL (not used)

; $av_Offset[1] = Offset for pointer 1 (all offsets must be in Decimal)

; $av_Offset[2] = Offset for pointer 2

; etc...

; (The number of array dimensions determines the number of pointers)

;=================================================================================================

Func _MemoryPointerRead ($iv_Address, $ah_Handle, $av_Offset, $sv_Type = 'dword')

If IsArray($av_Offset) Then

If IsArray($ah_Handle) Then

Local $iv_PointerCount = UBound($av_Offset) - 1

Else

SetError(2)

Return 0

EndIf

Else

SetError(1)

Return 0

EndIf

Local $iv_Data[2], $i

Local $v_Buffer = DllStructCreate('dword')

For $i = 0 to $iv_PointerCount

If $i = $iv_PointerCount Then

$v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 2)

Return 0

EndIf

$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

ElseIf $i = 0 Then

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

Else

$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

EndIf

Return $iv_Data

EndFunc

;=================================================================================================

; Function: _MemoryPointerWrite ($iv_Address, $ah_Handle, $av_Offset, $v_Data[, $sv_Type])

; Description: Reads a chain of pointers and writes the data to the destination address.

; Parameter(s): $iv_Address - The static memory address you want to start at. It must be in

; hex format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $av_Offset - An array of offsets for the pointers. Each pointer must have an

; offset. If there is no offset for a pointer, enter 0 for that

; array dimension.

; $v_Data - The data to be written.

; $sv_Type - (optional) The "Type" of data you intend to write at the destination

; address. This is set to 'dword'(32bit(4byte) signed integer) by

; default. See the help file for DllStructCreate for all types.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns the destination address.

; On Failure - Returns 0.

; @Error - 0 = No error.

; 1 = $av_Offset is not an array.

; 2 = Invalid $ah_Handle.

; 3 = Failed to read from the specified process.

; 4 = $sv_Type is not a string.

; 5 = $sv_Type is an unknown data type.

; 6 = Failed to allocate the memory needed for the DllStructure.

; 7 = Error allocating memory for $sv_Type.

; 8 = $v_Data is not in the proper format to be used with the

; "Type" selected for $sv_Type, or it is out of range.

; 9 = Failed to write to the specified process.

; Author(s): Nomad

; Note(s): Data written is in Decimal format, unless a 'char' type is selected.

; Set $av_Offset like this:

; $av_Offset[0] = NULL (not used, doesn't matter what's entered)

; $av_Offset[1] = Offset for pointer 1 (all offsets must be in Decimal)

; $av_Offset[2] = Offset for pointer 2

; etc...

; (The number of array dimensions determines the number of pointers)

;=================================================================================================

Func _MemoryPointerWrite ($iv_Address, $ah_Handle, $av_Offset, $v_Data, $sv_Type = 'dword')

If IsArray($av_Offset) Then

If IsArray($ah_Handle) Then

Local $iv_PointerCount = UBound($av_Offset) - 1

Else

SetError(2)

Return 0

EndIf

Else

SetError(1)

Return 0

EndIf

Local $iv_StructData, $i

Local $v_Buffer = DllStructCreate('dword')

For $i = 0 to $iv_PointerCount

If $i = $iv_PointerCount Then

$v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 3)

Return 0

EndIf

DllStructSetData($v_Buffer, 1, $v_Data)

If @Error Then

SetError(8)

Return 0

EndIf

$iv_Address = '0x' & hex($iv_StructData + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(9)

Return 0

Else

Return $iv_Address

EndIf

ElseIf $i = 0 Then

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(3)

Return 0

EndIf

$iv_StructData = DllStructGetData($v_Buffer, 1)

Else

$iv_Address = '0x' & hex($iv_StructData + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(3)

Return 0

EndIf

$iv_StructData = DllStructGetData($v_Buffer, 1)

EndIf

#endregion

to mój cały kod

@robem

jakie offsety?

poprostu adres pobrałem przeważnie jak wylacza się gre to zmienia się adres to nie wyłączam gry:D

a adresy pobieram prostym sposobem w cheatengine

KickPolska · 14 Grudnia 2010

czy ty sobie robisz jaja? chcesz se robic boty to nie psiz w tym temacie... ILE JA JESZCZE KURWA RAZY NAPISZE ZE PROSZE O BOTA KTÓRY:

"co obsługuje klawisze HOME i END i takiego co spacje wali... i działa na zminamilizowanym... (send keys)

{Home} - Start / Start podczas pauzy

{end} - Pauza / po drugim wcisnieciu end wyłączenie bota z powiadomieniem mnie o tym "

O to prosze..."

O TO KURWA PROSZE ><

RobeM · 14 Grudnia 2010

kody masz jak byk napisane, chcesz w tle to MUSISZ je zastosować bo prościej się nie da , jak nie działa to napisałem co robić zmienic tylko polecenia KeySend na ControlSend z zaznaczenie procesu

        KeySend("SPACE")
; na
       ControlSend("$hWnd", "", "", " ")    ; i nie jakieś {SPACE} tylko SPACJA , najzwyklejsza wciąnięta z klawiatury " "


; dla klawiszy innych np  $Loot $Skil1 itp 


             KeySend($Skil4)
; na
            ControlSend("$hWnd", "", "", "$Skil4") ; wstawiasz zmienną z keysend

i z tak z całą resztą klawiszy , zresztą , wszystkie masz definiowane w bocie , spacja też jest zwykłą spacją !

dla scisłości zmieniasz tylko i wyłącznie te funkcje

Func Attack()
       KeySend($Loot)
       Sleep($KLagi)
       KeySend("space")
       Sleep($Lagi)
       KeySend($Loot)
       Sleep($Lagi)
       KeySend($Skil1)
       Sleep($Lagi)
       KeySend($Loot)
       Sleep($Lagi)
       KeySend($Skil2)
       Sleep($Lagi)
       KeySend("SPACE")
       Sleep($Lagi)
       KeySend($Loot)
       Sleep($Lagi)
       KeySend($Skil3)
       Sleep($Lagi)
       KeySend($Loot)
       Sleep($Lagi)
       KeySend($Skil4)
       Sleep($Lagi)
EndFunc   ;==>Attack

Func AttackD()
       KeySend("SPACE")
       KeySend("6")
       Sleep(111)
       Sleep($Lagi)
       KeySend($Skil1)
       Sleep($Lagi)
       KeySend($Skil2)

       Sleep($Lagi)
       KeySend($Loot)
EndFunc   ;==>AttackD

Func Siad()
       Sleep(3333)
       KeySend($Rest)
       TrayTip("NosTale", "Odpoczywam", 5, 1)

       Sleep($CzasOd)

       KeySend($Rest)

       Sleep($Lagi)
       KeySend("QQ")
       Sleep(2222)
       KeySend("WW")
       Sleep(2222)
       KeySend($Loot)
       Sleep($Lagi)
       KeySend($Loot)
EndFunc   ;==>Siad

jak nie działa controlsend to tylko wina nowej wersji klijenta a na to już ci nie poradze bo nie mam nawet jak ściągnąć gry przez telefon

jackraymund · 14 Grudnia 2010

czy ty sobie robisz jaja? chcesz se robic boty to nie psiz w tym temacie... ILE JA JESZCZE KURWA RAZY NAPISZE ZE PROSZE O BOTA KTÓRY:

"co obsługuje klawisze HOME i END i takiego co spacje wali... i działa na zminamilizowanym... (send keys)

{Home} - Start / Start podczas pauzy

{end} - Pauza / po drugim wcisnieciu end wyłączenie bota z powiadomieniem mnie o tym "

O to prosze..."

O TO KURWA PROSZE ><

ale ty masz wymogi:<

HotKeySet("{HOME}","st")
HotKeySet("{end}","sto")
while 1
sleep(100)
WEnd
func st()
while 1
Send("{space}")
WEnd
EndFunc
func sto()
Exit
EndFunc

ja ciągle sobie podpisuje swojego botqa:D(dodaje zbędne smieci)

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <ProgressConstants.au3>

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

$Form1 = GUICreate("Form1", 190, 97, 192, 124)

$prog = GUICtrlCreateProgress(1,70,185,20, $PBS_SMOOTH)

$lab = GUICtrlCreateLabel("HP : 0",140,45,50,15)

$Input1 = GUICtrlCreateInput("NosTale", 8, 8, 121, 21)

$Button1 = GUICtrlCreateButton("Button1", 8, 32, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

sleep(300)

for $i = 0 to 99 step 5

guictrlsetdata($prog,$i)

sleep(1)

guictrlsetdata($prog,$i)

sleep(1)

global $liczba

Global $PID = ProcessExists("NostaleX.dat")

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Button1

$i = guictrlread($Input1)

while 1

controlsend($i,"","","`")

controlsend($i,"","","{SPACE}")

sleep(300)

$PROCESSINFORMATION = _MEMORYOPEN($PID)

$NUMBER = _MEMORYREAD(0x020EE840, $PROCESSINFORMATION)

$ksksksks = guictrlread($lab)

if $ksksksks = $NUMBER Then

sleep(1)

Else

guictrlsetdata($lab, "HP : " & $NUMBER)

EndIf

if $NUMBER = 0 Then

traytip("lol","KURWA",1)

Else

if $NUMBER < 400 then

controlsend($i,"","","3")

controlsend($i,"","","4")

sleep(1000)

EndIf

$NUMBER /= 1566

$NUMBER *= 100

guictrlsetdata($prog,int($NUMBER))

WEnd

EndSwitch

WEnd

#include-once

#region _Memory

;=================================================================================================

; AutoIt Version: 3.1.127 (beta)

; Language: English

; Platform: All Windows

; Author: Nomad

; Requirements: These functions will only work with beta.

;=================================================================================================

; Credits: wOuter - These functions are based on his original _Mem() functions. But they are

; easier to comprehend and more reliable. These functions are in no way a direct copy

; of his functions. His functions only provided a foundation from which these evolved.

;=================================================================================================

;

; Functions:

;

;=================================================================================================

; Function: _MemoryOpen($iv_Pid[, $iv_DesiredAccess[, $iv_InheritHandle]])

; Description: Opens a process and enables all possible access rights to the process. The

; Process ID of the process is used to specify which process to open. You must

; call this function before calling _MemoryClose(), _MemoryRead(), or _MemoryWrite().

; Parameter(s): $iv_Pid - The Process ID of the program you want to open.

; $iv_DesiredAccess - (optional) Set to 0x1F0FFF by default, which enables all

; possible access rights to the process specified by the

; Process ID.

; $if_InheritHandle - (optional) If this value is TRUE, all processes created by

; this process will inherit the access handle. Set to TRUE

; (1) by default. Set to 0 if you want it to be FALSE.

; Requirement(s): A valid process ID.

; Return Value(s): On Success - Returns an array containing the Dll handle and an open handle to

; the specified process.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $iv_Pid.

; 2 = Failed to open Kernel32.dll.

; 3 = Failed to open the specified process.

; Author(s): Nomad

; Note(s):

;=================================================================================================

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)

If Not ProcessExists($iv_Pid) Then

SetError(1)

Return 0

EndIf

Local $ah_Handle[2] = [DllOpen('kernel32.dll')]

If @Error Then

SetError(2)

Return 0

EndIf

Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)

If @Error Then

DllClose($ah_Handle[0])

SetError(3)

Return 0

EndIf

$ah_Handle[1] = $av_OpenProcess[0]

Return $ah_Handle

EndFunc

;=================================================================================================

; Function: _MemoryRead($iv_Address, $ah_Handle[, $sv_Type])

; Description: Reads the value located in the memory address specified.

; Parameter(s): $iv_Address - The memory address you want to read from. It must be in hex

; format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $sv_Type - (optional) The "Type" of value you intend to read. This is set to

; 'dword'(32bit(4byte) signed integer) by default. See the help file

; for DllStructCreate for all types.

; An example: If you want to read a word that is 15 characters in

; length, you would use 'char[16]'.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns the value located at the specified address.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = $sv_Type was not a string.

; 3 = $sv_Type is an unknown data type.

; 4 = Failed to allocate the memory needed for the DllStructure.

; 5 = Error allocating memory for $sv_Type.

; 6 = Failed to read from the specified process.

; Author(s): Nomad

; Note(s): Values returned are in Decimal format, unless specified as a 'char' type, then

; they are returned in ASCII format. Also note that size ('char') for all

; 'char' types should be 1 greater than the actual size.

;=================================================================================================

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

Local $v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 1)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If Not @Error Then

Local $v_Value = DllStructGetData($v_Buffer, 1)

Return $v_Value

Else

SetError(6)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryWrite($iv_Address, $ah_Handle, $v_Data[, $sv_Type])

; Description: Writes data to the specified memory address.

; Parameter(s): $iv_Address - The memory address you want to write to. It must be in hex

; format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $v_Data - The data to be written.

; $sv_Type - (optional) The "Type" of value you intend to write. This is set to

; 'dword'(32bit(4byte) signed integer) by default. See the help file

; for DllStructCreate for all types.

; An example: If you want to write a word that is 15 characters in

; length, you would use 'char[16]'.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns 1

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = $sv_Type was not a string.

; 3 = $sv_Type is an unknown data type.

; 4 = Failed to allocate the memory needed for the DllStructure.

; 5 = Error allocating memory for $sv_Type.

; 6 = $v_Data is not in the proper format to be used with the "Type"

; selected for $sv_Type, or it is out of range.

; 7 = Failed to write to the specified process.

; Author(s): Nomad

; Note(s): Values sent must be in Decimal format, unless specified as a 'char' type, then

; they must be in ASCII format. Also note that size ('char') for all

; 'char' types should be 1 greater than the actual size.

;=================================================================================================

Func _MemoryWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

Local $v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 1)

Return 0

Else

DllStructSetData($v_Buffer, 1, $v_Data)

If @Error Then

SetError(6)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If Not @Error Then

Return 1

Else

SetError(7)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryClose($ah_Handle)

; Description: Closes the process handle opened by using _MemoryOpen().

; Parameter(s): $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns 1

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = Invalid $ah_Handle.

; 2 = Unable to close the process handle.

; Author(s): Nomad

; Note(s):

;=================================================================================================

Func _MemoryClose($ah_Handle)

If Not IsArray($ah_Handle) Then

SetError(1)

Return 0

EndIf

DllCall($ah_Handle[0], 'int', 'CloseHandle', 'int', $ah_Handle[1])

If Not @Error Then

DllClose($ah_Handle[0])

Return 1

Else

DllClose($ah_Handle[0])

SetError(2)

Return 0

EndIf

EndFunc

;=================================================================================================

; Function: _MemoryPointerRead ($iv_Address, $ah_Handle, $av_Offset[, $sv_Type])

; Description: Reads a chain of pointers and returns an array containing the destination

; address and the data at the address.

; Parameter(s): $iv_Address - The static memory address you want to start at. It must be in

; hex format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $av_Offset - An array of offsets for the pointers. Each pointer must have an

; offset. If there is no offset for a pointer, enter 0 for that

; array dimension.

; $sv_Type - (optional) The "Type" of data you intend to read at the destination

; address. This is set to 'dword'(32bit(4byte) signed integer) by

; default. See the help file for DllStructCreate for all types.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns an array containing the destination address and the value

; located at the address.

; On Failure - Returns 0

; @Error - 0 = No error.

; 1 = $av_Offset is not an array.

; 2 = Invalid $ah_Handle.

; 3 = $sv_Type is not a string.

; 4 = $sv_Type is an unknown data type.

; 5 = Failed to allocate the memory needed for the DllStructure.

; 6 = Error allocating memory for $sv_Type.

; 7 = Failed to read from the specified process.

; Author(s): Nomad

; Note(s): Values returned are in Decimal format, unless a 'char' type is selected.

; Set $av_Offset like this:

; $av_Offset[0] = NULL (not used)

; $av_Offset[1] = Offset for pointer 1 (all offsets must be in Decimal)

; $av_Offset[2] = Offset for pointer 2

; etc...

; (The number of array dimensions determines the number of pointers)

;=================================================================================================

Func _MemoryPointerRead ($iv_Address, $ah_Handle, $av_Offset, $sv_Type = 'dword')

If IsArray($av_Offset) Then

If IsArray($ah_Handle) Then

Local $iv_PointerCount = UBound($av_Offset) - 1

Else

SetError(2)

Return 0

EndIf

Else

SetError(1)

Return 0

EndIf

Local $iv_Data[2], $i

Local $v_Buffer = DllStructCreate('dword')

For $i = 0 to $iv_PointerCount

If $i = $iv_PointerCount Then

$v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 2)

Return 0

EndIf

$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

ElseIf $i = 0 Then

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

Else

$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(7)

Return 0

EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

EndIf

Return $iv_Data

EndFunc

;=================================================================================================

; Function: _MemoryPointerWrite ($iv_Address, $ah_Handle, $av_Offset, $v_Data[, $sv_Type])

; Description: Reads a chain of pointers and writes the data to the destination address.

; Parameter(s): $iv_Address - The static memory address you want to start at. It must be in

; hex format (0x00000000).

; $ah_Handle - An array containing the Dll handle and the handle of the open

; process as returned by _MemoryOpen().

; $av_Offset - An array of offsets for the pointers. Each pointer must have an

; offset. If there is no offset for a pointer, enter 0 for that

; array dimension.

; $v_Data - The data to be written.

; $sv_Type - (optional) The "Type" of data you intend to write at the destination

; address. This is set to 'dword'(32bit(4byte) signed integer) by

; default. See the help file for DllStructCreate for all types.

; Requirement(s): The $ah_Handle returned from _MemoryOpen.

; Return Value(s): On Success - Returns the destination address.

; On Failure - Returns 0.

; @Error - 0 = No error.

; 1 = $av_Offset is not an array.

; 2 = Invalid $ah_Handle.

; 3 = Failed to read from the specified process.

; 4 = $sv_Type is not a string.

; 5 = $sv_Type is an unknown data type.

; 6 = Failed to allocate the memory needed for the DllStructure.

; 7 = Error allocating memory for $sv_Type.

; 8 = $v_Data is not in the proper format to be used with the

; "Type" selected for $sv_Type, or it is out of range.

; 9 = Failed to write to the specified process.

; Author(s): Nomad

; Note(s): Data written is in Decimal format, unless a 'char' type is selected.

; Set $av_Offset like this:

; $av_Offset[0] = NULL (not used, doesn't matter what's entered)

; $av_Offset[1] = Offset for pointer 1 (all offsets must be in Decimal)

; $av_Offset[2] = Offset for pointer 2

; etc...

; (The number of array dimensions determines the number of pointers)

;=================================================================================================

Func _MemoryPointerWrite ($iv_Address, $ah_Handle, $av_Offset, $v_Data, $sv_Type = 'dword')

If IsArray($av_Offset) Then

If IsArray($ah_Handle) Then

Local $iv_PointerCount = UBound($av_Offset) - 1

Else

SetError(2)

Return 0

EndIf

Else

SetError(1)

Return 0

EndIf

Local $iv_StructData, $i

Local $v_Buffer = DllStructCreate('dword')

For $i = 0 to $iv_PointerCount

If $i = $iv_PointerCount Then

$v_Buffer = DllStructCreate($sv_Type)

If @Error Then

SetError(@Error + 3)

Return 0

EndIf

DllStructSetData($v_Buffer, 1, $v_Data)

If @Error Then

SetError(8)

Return 0

EndIf

$iv_Address = '0x' & hex($iv_StructData + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(9)

Return 0

Else

Return $iv_Address

EndIf

ElseIf $i = 0 Then

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(3)

Return 0

EndIf

$iv_StructData = DllStructGetData($v_Buffer, 1)

Else

$iv_Address = '0x' & hex($iv_StructData + $av_Offset[$i])

DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')

If @Error Then

SetError(3)

Return 0

EndIf

$iv_StructData = DllStructGetData($v_Buffer, 1)

EndIf

#endregion

RobeM · 14 Grudnia 2010

na zminimalizowanym to mu nie zadziała bez okreslenia okna w któryme ma mu nacisnąć jakiś klaisz :P

lokuxd · 15 Grudnia 2010

to w kodzie up zamiast send controlsend:P

RobeM · 15 Grudnia 2010

coś problemy z tym controlsend, działa skompilowany na x64 a nie działa na zwykłym systemie

KickPolska · 15 Grudnia 2010

robem prosze cie ... mam win 7 x64 i twoj bot --> http://www.mpcforum.pl/topic/238082-nostalebot/ i on jest zajebisty, ale nie chce zeby moja postac siadala ani nic... Chce zeby TYLKO bot klikal spacje, mial jakies menu, i to all...

TEN BOT:

HotKeySet("{HOME}","st")
HotKeySet("{end}","sto")
while 1
       sleep(100)
WEnd
func st()
       while 1
       Send("{space}")
       WEnd
EndFunc
func sto()
       Exit
       EndFunc

JEST ZAJEBISTY,

prosze was zedytujcie kod tak, aby wysyłał to do okna NosTale i to wszystko :-(

RobeM · 15 Grudnia 2010

zamiast Send : ControlSend("NosTale, "", "", " ")

KickPolska · 15 Grudnia 2010

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Dawid\Desktop\Nowy AutoIt v3 Script.au3"    
C:\Users\Dawid\Desktop\Nowy AutoIt v3 Script.au3 (8) : ==> Unterminated string.: 
ControlSend("NosTale, "", "", " ") 

>Exit code: 1    Time: 0.359

HotKeySet("{HOME}","st")
HotKeySet("{end}","sto")
while 1
       sleep(100)
WEnd
func st()
       while 1
	ControlSend("NosTale, "", "", " ")
       WEnd
EndFunc
func sto()
       Exit
       EndFunc

<_<

RobeM · 15 Grudnia 2010

jakbyś użył helpa zobaczył byś ze zapomniałem tylko zamknąć nawiasu "NosTale"

KickPolska · 15 Grudnia 2010

no więc mam dla was dobre wiesci

Bot kurwa nie dziala <_<

HotKeySet("{HOME}","st")
HotKeySet("{end}","sto")
while 1
       sleep(100)
WEnd
func st()
       while 1
	ControlSend("Nostale", "", "", " ")
       WEnd
EndFunc
func sto()
       Exit
       EndFunc

Ot cały bot ktory nic w nostale nie robi =.=

Robem prosze cie napisz nowego dobrego bota... :-( ty jedyny znasz dobrze AutoIt'a

Prosze cie o bota który:

-Wysyła spacje do nostale (działa na zminamilizowanym)

-Po nacisnięciu home zaczyna botowanie

-Daje znak przy włączeniu (jakieś okno typu "bot uruchomiony")

-na END sie go wyłącza...

Tylko tyle :-(

Czy to dla Ciebie Robem tak duzo? dla takiego PC mastera to jest trudne? no chyba nie :P

Kto zrobi dostanie + i moje podziękowanie oraz miano zajebistego informatyka i nagrode główną :rolleyes: :rolleyes:

Nagroda główna to:

Nagroda głowna to nazwanie cie zajebistym :P

Tak na serio to za pomoc duze dzx

lokuxd · 15 Grudnia 2010

dziala??

HotKeySet("{HOME}","st")
HotKeySet("{end}","sto")
while 1
       sleep(100)
WEnd
func st()
       while 1
               tooltip("bot ci kurwa dziala!!")
               ControlSend(("[CLASS:NosTale]", "", "", "{SPACE}")
       WEnd
EndFunc
func sto()
       Exit
EndFunc

nie mam tej gry ale w notatniku dziala perfekt:)

RobeM · 15 Grudnia 2010

przecież działa !! popatrz wyraźnie w to co napisałem wcześniej i co napisałem wyżej byś wpisał , ma być NosTale a nie Nostale

Autoit jest językiem w którym nalezy zwracac uwage na cansesensitive czyli musisz dokładnie pisać jak jest napisane a nie tak jak się tobie podoba

KickPolska · 16 Grudnia 2010

Ale z was zajebisci informatycy =.=

Zaloguj się

👋 Witaj na MPCForum!

[Prosba] Bot Do Nostale

Rekomendowane odpowiedzi

Zarchiwizowany