Moblock Jak W Lonely!

[kilcif]

Witam! Dzis daje source moblocka ! Prawie jak lonely !

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Metin2.ico
#AutoIt3Wrapper_outfile=ExpTool.exe
#AutoIt3Wrapper_Res_Comment=ExpTool
#AutoIt3Wrapper_Res_Description=FarmBot's
#AutoIt3Wrapper_Res_Fileversion=2.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=kilcif
#AutoIt3Wrapper_Add_Constants=n
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author:         kilcif

Script Function:
FarmBot

#ce ----------------------------------------------------------------------------

If ProcessExists("metin2client.bin") Then
Else
MsgBox(0,"ERROR","Metin2 musi zostać uruchominy!")
Exit
EndIf

#include <pointer.au3>
SetPrivilege("SeDebugPrivilege", 1)
#include <Memory2.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
;~ #include <GuiStatusBar.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $schaltermoblock = 0

Global $wintittel = "ExpCheat's"
$pid = WinGetProcess("METIN2")

$openmem = _MemoryOpen($pid)
$baseadress = _MemoryModuleGetBaseAddress($pid,"metin2client.bin")
$testoffset3 = "001F74FC"
$testoffset16 = "2C8"
$testoffset17 = "584"

$testoffset19 = "2C8"
$testoffset20 = "588"

;#############################################
;< Moblock >
;#############################################
$mobadr1 = "001F53F0"
;x´
$moboffsetx = "584"
;y
$moboffsety = "588"

$numberx = 0
Global $mobx[100]
For $i = 0 to UBound($mobx)-1

	$mobx[$i] = Hex($numberx)
	$numberx = $numberx + 4
Next

	$numbery = 0
Global $moby[100]
For $i = 0 to UBound($moby)-1

	$moby[$i] = Hex($numbery)
	$numbery = $numbery + 4
Next

$MobXaddress = "0x" & Hex($baseadress + Dec($mobadr1))
Global $MobXOffset[100][3]
Global $MobYOffset[100][3]
For $i = 0 to UBound($mobx)-1

$MobXOffset[$i][0] = 0
$MobXOffset[$i][1] = Dec($mobx[$i])
$MobXOffset[$i][2] = Dec($moboffsetx)


$MobYOffset[$i][0] = 0
$MobYOffset[$i][1] = Dec($mobx[$i])
$MobYOffset[$i][2] = Dec($moboffsety)

Next
Global $XOffset[3]
$XOffset[0] = 0
$XOffset[1] = Dec($testoffset16)
$XOffset[2] = Dec($testoffset17)
$Xaddress = "0x" & Hex($baseadress + Dec($testoffset3))
$Xmemread = _MemoryPointerRead($Xaddress, $openmem, $XOffset, "float")
$Xwert = Round($Xmemread[1]/100)


Global $YOffset[3]
$YOffset[0] = 0
$YOffset[1] = Dec($testoffset19)
$YOffset[2] = Dec($testoffset20)
$Yaddress = "0x" & Hex($baseadress + Dec($testoffset3))
$Ymemread = _MemoryPointerRead($Yaddress, $openmem, $YOffset, "float")
$Ywert = Round($Ymemread[1]/100)

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$formx = (@DesktopWidth/2) - 136
$formy = (@DesktopHeight/2) - 95.5
$Form1 = GUICreate("ExpBot", 272, 191,$formx, $formy, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("", 8, 16, 100, 100,$WS_BORDER)
GUICtrlSetBkColor(-1,0x00CC00  )
Global $label[uBound($mobx)]
For $i = 0 to UBound($mobx)-1
$label[$i] = GUICtrlCreateLabel("",54,66,2,2)
GUICtrlSetBkColor(-1,0xEE2C2C)
GUICtrlSetState(-1, $GUI_HIDE)
	Global $MobxOffset2[3]
	$MobXOffset2[0] = 0
	$MobXOffset2[1] = $MobXOffset[$i][1]
	$MobXOffset2[2] = $MobXOffset[$i][2]
		Global $MobyOffset2[3]
	$MobYOffset2[0] = 0
	$MobYOffset2[1] = $MobYOffset[$i][1]
	$MobYOffset2[2] = $MobYOffset[$i][2]
		$readmobx = _MemoryPointerRead($mobXaddress, $openmem, $MobxOffset2, "float")
		$readmoby = _MemoryPointerRead($mobXaddress, $openmem, $MobyOffset2, "float")
		if $readmobx[1] > 900 and $readmobx[1] < 200000 Then
			GUICtrlSetState($label[$i],$GUI_SHOW)
			GUICtrlSetPos($label[$i],54,66,2,2)
		EndIf

Next
$you = GUICtrlCreateLabel("",53,65,4,4)
GUICtrlSetBkColor(-1,0x0F0F0F)

$Button1 = GUICtrlCreateButton("Start", 160, 16, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_start")
$Slider1 = GUICtrlCreateSlider(8, 136, 254, 29, BitOR($TBS_AUTOTICKS,$TBS_NOTICKS,$TBS_FIXEDLENGTH,$WS_BORDER))
GUICtrlSetData(-1,0)
GUICtrlSetLimit(-1,99,0)
$Button2 = GUICtrlCreateButton("Pomoc", 160, 48, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_help")
$Button3 = GUICtrlCreateButton("Wyjście", 160, 80, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_exit")
GUISetOnEvent($GUI_EVENT_CLOSE,"_exit")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

$Xmemread = _MemoryPointerRead($Xaddress, $openmem, $XOffset, "float")
$Xwert = Round($Xmemread[1]/100)
$Ymemread = _MemoryPointerRead($Yaddress, $openmem, $YOffset, "float")
$Ywert = Round($Ymemread[1]/-100)
 If _MouseOver(53,65,3,3) = 1 Then
	 ToolTip("X:"& $Xwert &"Y:" & $Ywert )
 else
	 ToolTip("")
EndIf

if $schaltermoblock = 1 Then
$readslider = GUICtrlRead($Slider1)
$readslider = 100-$readslider
For $i = $readslider to UBound($mobx)-1
		Global $MobxOffset2[3]
	$MobXOffset2[0] = 0
	$MobXOffset2[1] = $MobXOffset[$i][1]
	$MobXOffset2[2] = $MobXOffset[$i][2]
		Global $MobyOffset2[3]
	$MobYOffset2[0] = 0
	$MobYOffset2[1] = $MobYOffset[$i][1]
	$MobYOffset2[2] = $MobYOffset[$i][2]
		$readmobx = _MemoryPointerRead($mobXaddress, $openmem, $MobxOffset2, "float")
		$readmoby = _MemoryPointerRead($mobXaddress, $openmem, $MobyOffset2, "float")
	if $readmobx[1] > 900 and $readmobx[1] < 200000 Then
		$readx = _MemoryPointerRead($Xaddress, $openmem, $XOffset, "float")
		$ready = _MemoryPointerRead($Yaddress, $openmem, $YOffset, "float")
		_MemoryPointerWrite($mobXaddress, $openmem, $MobxOffset2, $readx[1], "float")
		_MemoryPointerWrite($mobXaddress, $openmem, $MobyOffset2, $ready[1], "float")
	EndIf
Next
EndIf

		For $i = 0 to UBound($mobx)-1
		Global $MobxOffset2[3]
	$MobXOffset2[0] = 0
	$MobXOffset2[1] = $MobXOffset[$i][1]
	$MobXOffset2[2] = $MobXOffset[$i][2]
		Global $MobyOffset2[3]
	$MobYOffset2[0] = 0
	$MobYOffset2[1] = $MobYOffset[$i][1]
	$MobYOffset2[2] = $MobYOffset[$i][2]
		$readmobx = _MemoryPointerRead($mobXaddress, $openmem, $MobxOffset2, "float")
		$readmoby = _MemoryPointerRead($mobXaddress, $openmem, $MobyOffset2, "float")
		$readx = _MemoryPointerRead($Xaddress, $openmem, $XOffset, "float")
		if $readmobx[1] > 900 and $readmobx[1] < 200000 and $readmobx[1] <> $readx[1] Then
		$readx = _MemoryPointerRead($Xaddress, $openmem, $XOffset, "float")
		$ready = _MemoryPointerRead($Yaddress, $openmem, $YOffset, "float")
		$ergebnisx = $readx[1] - $readmobx[1]
		$ergebnisx = $ergebnisx/200
		$ergebnisy = $ready[1] - $readmoby[1]
		$ergebnisy = $ergebnisy/200
		If _MouseOver($ergebnisx, $ergebnisy,2,2) = 1 Then
			ToolTip("X:"& $readmobx[1] &"Y:" & $readmoby[1] )
		else
			ToolTip("")
		EndIf

			GUICtrlSetState($label[$i],$GUI_SHOW)
			GUICtrlSetPos($label[$i],54 - $ergebnisx,66 - $ergebnisy,2,2)
		Else
			GUICtrlSetState($label[$i],$GUI_HIDE)
		EndIf
	Next

WEnd

Func _start()
if $schaltermoblock = 0 Then
$schaltermoblock = 1
GUICtrlSetData($Button1,"Stop")
Else
$schaltermoblock = 0
GUICtrlSetData($Button1,"Start")
EndIf
EndFunc

Func _help()
MsgBox(0,"Help","Dzięki dodatkowemu paskowi mozesz zwiekszyc zasieg lurowania itd.")
EndFunc

Func _exit()
Exit
EndFunc

Func _MouseOver($_mo_x, $_mo_y, $_mo_width, $_mo_height)
If WinActive($wintittel) = 1 Then
$_mo_pos = GUIGetCursorInfo()
If WinActive($wintittel) And ($_mo_pos[0] > $_mo_x) and ($_mo_pos[0] < $_mo_x + $_mo_width) and ($_mo_pos[1] > $_mo_y) and ($_mo_pos[1] < $_mo_y + $_mo_height) Then
Return 1
Else
Return 0
EndIf
EndIf
EndFunc

 

 

do skompilowania sa potrzebne dwa pliki : Memory2.au3 , Pointer.au3

 

Down

[link usunięty przez moderatora]

 

Skan

http://www.virustotal.com/pl/analisis/d909815373e4f10c27005c7275dbbd37710839d132dc3bcdbcf5dbee9a7cf669-1270110703

 

 

to nie jest zaden zart !

[Outlaw]

C:\Program Files\AutoIt3\Include\Memory2.au3(229,39) : WARNING: $tagMEMMAP: possibly used before declaration.
$tMemMap = DllStructCreate($tagMEMMAP)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files\AutoIt3\Include\Memory2.au3(229,39) : ERROR: $tagMEMMAP: undeclared global variable.
$tMemMap = DllStructCreate($tagMEMMAP)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\Pulpit\Burdel!!!\HideSpammer.au3 - 1 error(s), 1 warning(s)

 

Napraw je, potem daj source

[kilcif]

Przekopiój te dwa pliki do katalogu z twoim Moblockem.au3 ! i bedzie smigac ! a jakby nie to przekopiój do ...\AutoIt3\Include\

[lukas9189]

ale co to daje jakies screeny daj i o co chodzi :huh:

[matiszon]

ale co to daje jakies screeny daj i o co chodzi :huh:

 

Ogarnij się.

 

zrobiłem kiedyś teleport hacka dla siebie ale już nie mam source bo bym dał

[jackraymund]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"Niezbędnik Cheatera -> AutoIT"

do:

"Niezbędnik Cheatera -> AutoIT -> Gotowe skrypty i biblioteki".

[-Shogun-]

Temat stary, ale proszę o reupload plików.

[jackraymund]

tu masz nomada

http://www.mpcforum.pl/topic/108326-nomadau3-czyli-piszemy-trainera-;/

lecz ten hax ci chyba i tak nie za działa ponieważ pewnie adresy się pozmieniały

[Furiououz x D]

Zrobcie Ktos Reupa. Widze ze Adres Jest Wyciagany Bo Pointer ( Wyciaga Adres Ktory Sie Zmienia ) . Chetnie bym To Przetestowal, ale NA pointer.au3 z Neta Niedziala ( chyba ze to wina programu ) .

[jackraymund]

tutaj macie multihacka

http://www.mpcforum.pl/topic/177410-forfunhack-multihack/

wystarczy pozmieniac adresy

[JaTuSciagam]

Dzięki, przyda się

[Dubler]

można by odświerzyć link z plikami?

[kilcif]

Przepraszam ale ten temat jest bardzo stary i juz nie mam tych pliczków