|
You last visited: Today at 07:26
Advertisement
Eden Eternal Simple Bot
Discussion on Eden Eternal Simple Bot within the General Gaming Discussion forum part of the General Gaming category.
06/26/2011, 21:01
|
#1
|
elite*gold: 0
Join Date: Jan 2008
Posts: 16
Received Thanks: 69
|
Eden Eternal Simple Bot v1.2
This is my first / simple bot for Eden Eternal game:
NEW, OverEE v1.3:
OverEE v1.2:
(use the virustotal.com, to analisy the files for any viruses)
- NEW, 3 SKILL KEYS
- Auto-pot HP/MP (0 = unabled)
- Simple auto-bot (battle/grind)
Theres only one option to skill key. =/
Its a very simple project! I need to learn more, to do great things...
Thanks...
CODE, OverEE v1.3:
Code:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon.ico
GUISetIcon("icon.ico")
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Obfuscator_Off
#include <File.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <GUIButton.au3>
#include <GUIToolbar.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <NomadMemory.au3>
#include <Array.au3>
#Obfuscator_On
;********************************************************************************
;* Options *
;********************************************************************************
Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
;********************************************************************************
;* Global Software Control Information *
;********************************************************************************
; Declare Process Variables
Global $APP_BASE_ADDRESS = 0x00C62E70, $TARGET_BASE_ADDRESS = 0x005CF71F
Global $APP_TITLE = "Eden Eternal", $KERNEL32 = DllOpen('kernel32.dll')
Global $PROCESS_ID = WinGetProcess($APP_TITLE)
Global $PROCESS_INFORMATION = _MemoryOpen($PROCESS_ID)
Global $APP_PATH = _ProcessIdPath($PROCESS_ID)
Global $ANSWER = ""
While (@error)
$ANSWER = InputBox("Não foi possível encontrar o EE!", "Não foi possível encontrar o EE! Digite o titulo de seu EE no campo abaixo e clique em Ok.", "Eden Eternal", "", -1, -1, 0, 0)
If $ANSWER = "" Then
Exit
EndIf
Global $APP_TITLE = $ANSWER
Global $PROCESS_ID = WinGetProcess($APP_TITLE), $PROCESS_INFORMATION = _MemoryOpen($PROCESS_ID), $APP_PATH = _ProcessIdPath($PROCESS_ID)
WEnd
; Declare Menu Bar Variables
$OVERBOT = GUICreate("OverEE v1.3", 230, 255, 0, 0)
$LABEL_HP_STATUS = GUICtrlCreateLabel("", 15, 14, 130, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Use at: ", 110, 14, 35, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Simple bot developed by Lyax @ EE", 30, 230, 240, 15)
GUICtrlSetColor(-1, 0x000000)
$LABEL_MP_STATUS = GUICtrlCreateLabel("", 15, 48, 130, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Use at: ", 110, 48, 35, 15)
GUICtrlSetColor(-1, 0x000000)
$bt_close = GUICtrlCreateButton("Exit", 130, 195)
GUICtrlSetOnEvent($bt_close, "bt_close_Click")
Global $close = 1
$bt_battle = GUICtrlCreateButton("Battle Start", 50, 195)
GUICtrlSetOnEvent($bt_battle, "bt_battle_Click")
GUICtrlCreateLabel("HP Key: ", 15, 78, 40, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("MP Key: ", 110, 78, 40, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Skill Key: ", 105, 108, 45, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Skill Key: ", 105, 138, 45, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Skill Key: ", 105, 168, 45, 15)
GUICtrlSetColor(-1, 0x000000)
Global $SKILL_CT = 3, $IPT_KEY_SKILL[$SKILL_CT]
$IPT_KEY_SKILL[0] = GUICtrlCreateInput("", 161, 108, 30, 15)
GUICtrlSetData($IPT_KEY_SKILL[0], "1")
$IPT_KEY_SKILL[1] = GUICtrlCreateInput("", 161, 138, 30, 15)
GUICtrlSetData($IPT_KEY_SKILL[1], "1")
$IPT_KEY_SKILL[2] = GUICtrlCreateInput("", 161, 168, 30, 15)
GUICtrlSetData($IPT_KEY_SKILL[2], "1")
$LABEL_TARGET_STATUS = GUICtrlCreateLabel("Stopped", 15, 108, 80, 15)
GUICtrlSetColor(-1, 0x000000)
$IPT_KEY_HP = GUICtrlCreateInput("", 66, 78, 30, 15)
GUICtrlSetData($IPT_KEY_HP, "2")
$IPT_KEY_MP = GUICtrlCreateInput("", 161, 78, 30, 15)
GUICtrlSetData($IPT_KEY_MP, "3")
$IPT_HP = GUICtrlCreateInput("", 150, 14, 60, 15)
GUICtrlSetData($IPT_HP, "0")
$IPT_MP = GUICtrlCreateInput("", 150, 48, 60, 15)
GUICtrlSetData($IPT_MP, "0")
GuiSetState(@SW_SHOW)
Global $OFFSET_HP[3]
$OFFSET_HP[0] = 0
$OFFSET_HP[1] = 0x04
$OFFSET_HP[2] = 0x0C
Global $OFFSET_MP[3]
$OFFSET_MP[0] = 0
$OFFSET_MP[1] = 0x08
$OFFSET_MP[2] = 0x0C
Global $OFFSET_TARGET[2]
$OFFSET_TARGET[0] = 0
$OFFSET_TARGET[1] = 0x08
Global $baseADDR = _MemoryRead($APP_BASE_ADDRESS, $PROCESS_INFORMATION)
Global $HANDLE = WinGetHandle("Eden Eternal")
Global $HANDLE = ControlGetHandle($APP_TITLE, "", "")
$LVL1 = '0x' & Hex($baseADDR + $OFFSET_HP[2])
$baseADDR = _MemoryRead($LVL1, $PROCESS_INFORMATION);
;CHAR INFO
Global $ADDR_HP = '0x' & Hex($baseADDR + $OFFSET_HP[1])
Global $ADDR_MP = '0x' & Hex($baseADDR + $OFFSET_MP[1])
;TARGET
$baseADDR = _MemoryRead($TARGET_BASE_ADDRESS, $PROCESS_INFORMATION)
$LVL1 = '0x' & Hex($baseADDR + $OFFSET_TARGET[1])
Global $ADDR_TARGETED = '0x' & Hex($LVL1)
Global $BATTLE_STARTED = 0, $TARGETED = 0, $ATK_TIME = 0, $ATK_MAX_TIME = 15000
;sgBox(0, "ae", ":" & _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION))
;Exit
Global $HEAL_HP = 0, $HEAL_MP = 0
Global $HP, $MP
GUICtrlSetData($IPT_HP, Int(_MemoryRead($ADDR_HP, $PROCESS_INFORMATION)/2))
;********************************************************************************
;* Main Loop *
;********************************************************************************
;WinActivate($APP_TITLE)
While ($close) ;==>Main Loop
checkStatus()
;_SendMessage($HANDLE, 256, 112);
;_SendMessage($HANDLE, 0x4d, 0);
;_PostMessage($HANDLE, 256, 49, 0x20001);
;_PostMessage($HANDLE, 257, 49, 0x20001);
;_SendMessage($HANDLE, 256, KEYCODE("{1}"))
;sControlSend($HANDLE, "", "", "{1}")
if($BATTLE_STARTED = 1) Then
controlBattle()
EndIf
Sleep(200)
WEnd ;==>Main Loop
Func controlBattle()
selectTarget()
attackTarget()
EndFunc
Func attackTarget()
GUICtrlSetData($LABEL_TARGET_STATUS, "Attacking target")
$ATK_TIME = 0
$SKILL = 0
$SKILL_TIME = 0
while($TARGETED > 0 And $BATTLE_STARTED = 1 And $ATK_TIME <= $ATK_MAX_TIME)
$ATK_TIME += 200
$SKILL_TIME += 200
Send("{" & GUICtrlRead($IPT_KEY_SKILL[$SKILL]) & "}")
checkStatus()
Sleep(100)
if($SKILL_TIME >= 400) Then
$SKILL += 1
if($SKILL_CT = $SKILL) Then
$SKILL = 0
EndIf
EndIf
Sleep(100)
$TARGETED = _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION)
WEnd
$TARGETED = 0
EndFunc
Func selectTarget()
GUICtrlSetData($LABEL_TARGET_STATUS, "Looking target")
while($TARGETED = 0 And $BATTLE_STARTED = 1)
checkStatus()
Send("{TAB}")
Sleep(150)
$TARGETED = _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION)
WEnd
EndFunc
Func checkStatus()
checkHP()
Sleep(50)
checkMP()
GUICtrlSetData($LABEL_HP_STATUS, "Current HP: " & $HP)
GUICtrlSetData($LABEL_MP_STATUS, "Current MP: " & $MP)
EndFunc
Func checkHP()
$HEAL_HP = GUICtrlRead($IPT_HP)
$HP = _MemoryRead($ADDR_HP, $PROCESS_INFORMATION)
if ($HP < $HEAL_HP) Then
Send("{" & GUICtrlRead($IPT_KEY_HP) & "}")
EndIf
EndFunc
Func checkMP()
$HEAL_MP = GUICtrlRead($IPT_MP)
$MP = _MemoryRead($ADDR_MP, $PROCESS_INFORMATION)
if ($MP < $HEAL_MP) Then
Send("{" & GUICtrlRead($IPT_KEY_MP) & "}")
EndIf
EndFunc
Func bt_close_Click()
$close = 0
EndFunc
Func bt_battle_Click()
if($BATTLE_STARTED = 1) Then
GUICtrlSetData($bt_battle, "Battle Start")
$BATTLE_STARTED = 0
Else
GUICtrlSetData($bt_battle, "Battle Stop")
$BATTLE_STARTED = 1
EndIf
EndFunc
Func _ProcessIdPath ( $vPID )
Local $objWMIService, $oColItems
Local $sNoExePath = ''
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
Local $RetErr_ProcessDoesntExist = 1
Local $RetErr_ProcessPathUnknown = 2
Local $RetErr_ProcessNotFound = 3
Local $RetErr_ObjCreateErr = 4
Local $RetErr_UnknownErr = 5
If Not ProcessExists ( $vPID ) Then
SetError ( $RetErr_ProcessDoesntExist )
Return $sNoExepath
EndIf
$objWMIService = ObjGet ( 'winmgmts:\\localhost\root\CIMV2' )
$oColItems = $objWMIService.ExecQuery ( 'SELECT * FROM Win32_Process', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly )
If IsObj ( $oColItems ) Then
For $objItem In $oColItems
If $vPID = $objItem.ProcessId Then
If $objItem.ExecutablePath = '0' Then
If FileExists ( @SystemDir & '\' & $objItem.Caption ) Then
Return @SystemDir & '\' & $objItem.Caption
Else
SetError ( $RetErr_ProcessPathUnknown )
Return $sNoExepath
EndIf
Else
Return $objItem.Executablepath
EndIf
EndIf
Next
SetError ( $RetErr_ProcessNotFound )
Return $sNoExepath
Else
SetError ( $RetErr_ObjCreateErr )
Return $sNoExepath
EndIf
SetError ( $RetErr_UnknownErr )
Return $sNoExepath
EndFunc ;==>_ProcessIdPath
Func Keycode($key)
If $key == "{F1}" Then
Return 112
ElseIf $key == "{F2}" Then
Return 113
ElseIf $key == "{F3}" Then
Return 114
ElseIf $key == "{F4}" Then
Return 115
ElseIf $key == "{F5}" Then
Return 116
ElseIf $key == "{F6}" Then
Return 117
ElseIf $key == "{F7}" Then
Return 118
ElseIf $key == "{F8}" Then
Return 119
ElseIf $key == "{0}" Then
Return 48
ElseIf $key == "{1}" Then
Return 49
ElseIf $key == "{2}" Then
Return 50
ElseIf $key == "{3}" Then
Return 51
ElseIf $key == "{4}" Then
Return 52
ElseIf $key == "{5}" Then
Return 53
ElseIf $key == "{6}" Then
Return 54
ElseIf $key == "{7}" Then
Return 55
ElseIf $key == "{8}" Then
Return 56
ElseIf $key == "{9}" Then
Return 57
ElseIf $key == "{TAB}" Then
Return 9
ElseIf $key == "{LMB}" Then
Return 1
ElseIf $key == "{RMB}" Then
Return 2
ElseIf $key == "{SHIFT}" Then
Return 160
ElseIf $key == "{CTRL}" Then
Return 162
ElseIf $key == "{ALT}" Then
Return 18
ElseIf $key == "{SPACE}" Then
Return 32
ElseIf $key == "{ESC}" Then
Return 27
ElseIf $key == "{+}" Then
Return 107
ElseIf $key == "{-}" Then
Return 109
Else
Return "none"
EndIf
EndFunc ;==>
Func _PostMessage($hWnd, $msgID, $wParam, $lParam)
Local $ret = DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", $msgID, "int", $wParam, "int", $lParam)
If IsArray($ret) Then
Return $ret[0]
Else
SetError(-1)
Return False
EndIf
EndFunc
|
|
|
06/26/2011, 21:20
|
#2
|
elite*gold: 220
Join Date: Mar 2011
Posts: 247
Received Thanks: 75
|
This should be posted in the release section!
|
|
|
06/26/2011, 21:40
|
#3
|
elite*gold: 0
Join Date: Jan 2008
Posts: 16
Received Thanks: 69
|
Quote:
Originally Posted by beatd0wn[]
This should be posted in the release section!
|
oh sry. i didnt know
can anyone move?
|
|
|
06/26/2011, 21:43
|
#4
|
elite*gold: 0
Join Date: Jun 2008
Posts: 1
Received Thanks: 1
|
can any1 confirm this one?
|
|
|
06/26/2011, 22:04
|
#5
|
elite*gold: 0
Join Date: Jan 2008
Posts: 16
Received Thanks: 69
|
Quote:
Originally Posted by wasapkesap
can any1 confirm this one?
|
The autoit CODE, very simple:
Code:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon.ico
GUISetIcon("icon.ico")
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Obfuscator_Off
#include <File.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <GUIButton.au3>
#include <GUIToolbar.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <NomadMemory.au3>
#include <Array.au3>
#Obfuscator_On
;********************************************************************************
;* Options *
;********************************************************************************
Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
;********************************************************************************
;* Global Software Control Information *
;********************************************************************************
; Declare Process Variables
Global $APP_BASE_ADDRESS = 0x00C62E70, $TARGET_BASE_ADDRESS = 0x005CF7CF
Global $APP_TITLE = "Eden Eternal", $KERNEL32 = DllOpen('kernel32.dll')
Global $PROCESS_ID = WinGetProcess($APP_TITLE)
Global $PROCESS_INFORMATION = _MemoryOpen($PROCESS_ID)
Global $APP_PATH = _ProcessIdPath($PROCESS_ID)
Global $ANSWER = ""
While (@error)
$ANSWER = InputBox("Não foi possível encontrar o EE!", "Não foi possível encontrar o EE! Digite o titulo de seu EE no campo abaixo e clique em Ok.", "Eden Eternal", "", -1, -1, 0, 0)
If $ANSWER = "" Then
Exit
EndIf
Global $APP_TITLE = $ANSWER
Global $PROCESS_ID = WinGetProcess($APP_TITLE), $PROCESS_INFORMATION = _MemoryOpen($PROCESS_ID), $APP_PATH = _ProcessIdPath($PROCESS_ID)
WEnd
; Declare Menu Bar Variables
$OVERBOT = GUICreate("OverEE", 230, 195, 0, 0)
$LABEL_HP_STATUS = GUICtrlCreateLabel("", 15, 14, 130, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Use at: ", 110, 14, 35, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Simple bot developed by Lyax @ EE", 30, 170, 240, 15)
GUICtrlSetColor(-1, 0x000000)
$LABEL_MP_STATUS = GUICtrlCreateLabel("", 15, 48, 130, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Use at: ", 110, 48, 35, 15)
GUICtrlSetColor(-1, 0x000000)
$bt_close = GUICtrlCreateButton("Exit", 130, 135)
GUICtrlSetOnEvent($bt_close, "bt_close_Click")
Global $close = 1
$bt_battle = GUICtrlCreateButton("Battle Start", 50, 135)
GUICtrlSetOnEvent($bt_battle, "bt_battle_Click")
GUICtrlCreateLabel("HP Key: ", 15, 78, 40, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("MP Key: ", 110, 78, 40, 15)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("Skill Key: ", 105, 108, 45, 15)
GUICtrlSetColor(-1, 0x000000)
$LABEL_TARGET_STATUS = GUICtrlCreateLabel("Stopped", 15, 108, 80, 15)
GUICtrlSetColor(-1, 0x000000)
$IPT_KEY_HP = GUICtrlCreateInput("", 66, 78, 30, 15)
GUICtrlSetData($IPT_KEY_HP, "2")
$IPT_KEY_MP = GUICtrlCreateInput("", 161, 78, 30, 15)
GUICtrlSetData($IPT_KEY_MP, "3")
$IPT_KEY_SKILL = GUICtrlCreateInput("", 161, 108, 30, 15)
GUICtrlSetData($IPT_KEY_SKILL, "1")
$IPT_HP = GUICtrlCreateInput("", 150, 14, 60, 15)
GUICtrlSetData($IPT_HP, "0")
$IPT_MP = GUICtrlCreateInput("", 150, 48, 60, 15)
GUICtrlSetData($IPT_MP, "0")
GuiSetState(@SW_SHOW)
Global $OFFSET_HP[3]
$OFFSET_HP[0] = 0
$OFFSET_HP[1] = 0x04
$OFFSET_HP[2] = 0x0C
Global $OFFSET_MP[3]
$OFFSET_MP[0] = 0
$OFFSET_MP[1] = 0x08
$OFFSET_MP[2] = 0x0C
Global $OFFSET_TARGET[2]
$OFFSET_TARGET[0] = 0
$OFFSET_TARGET[1] = 0x08
Global $baseADDR = _MemoryRead($APP_BASE_ADDRESS, $PROCESS_INFORMATION)
;Global $HANDLE = WinGetHandle("Eden Eternal")
Global $HANDLE = ControlGetHandle($APP_TITLE, "", "")
$LVL1 = '0x' & Hex($baseADDR + $OFFSET_HP[2])
$baseADDR = _MemoryRead($LVL1, $PROCESS_INFORMATION);
;CHAR INFO
Global $ADDR_HP = '0x' & Hex($baseADDR + $OFFSET_HP[1])
Global $ADDR_MP = '0x' & Hex($baseADDR + $OFFSET_MP[1])
;TARGET
$baseADDR = _MemoryRead($TARGET_BASE_ADDRESS, $PROCESS_INFORMATION)
$LVL1 = '0x' & Hex($baseADDR + $OFFSET_TARGET[1])
Global $ADDR_TARGETED = '0x' & Hex($LVL1)
Global $BATTLE_STARTED = 0, $TARGETED = 0, $ATK_TIME = 0, $ATK_MAX_TIME = 15000
;sgBox(0, "ae", ":" & _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION))
;Exit
Global $HEAL_HP = 0, $HEAL_MP = 0
Global $HP, $MP
GUICtrlSetData($IPT_HP, Int(_MemoryRead($ADDR_HP, $PROCESS_INFORMATION)/2))
;********************************************************************************
;* Main Loop *
;********************************************************************************
While ($close) ;==>Main Loop
checkStatus()
;_SendMessage($HANDLE, 256, 112);
;_SendMessage($HANDLE, 0x4d, 0);
;_PostMessage($HANDLE, 256, 49, 0x20001);
;_PostMessage($HANDLE, 257, 49, 0x20001);
;ControlSend($HANDLE, "", "", "{1}")
if($BATTLE_STARTED = 1) Then
controlBattle()
EndIf
Sleep(200)
WEnd ;==>Main Loop
Func controlBattle()
selectTarget()
attackTarget()
EndFunc
Func attackTarget()
GUICtrlSetData($LABEL_TARGET_STATUS, "Attacking target")
$ATK_TIME = 0
while($TARGETED > 0 And $BATTLE_STARTED = 1 And $ATK_TIME <= $ATK_MAX_TIME)
$ATK_TIME += 350
checkStatus()
Sleep(100)
Send("{" & GUICtrlRead($IPT_KEY_SKILL) & "}")
$TARGETED = _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION)
Sleep(250)
WEnd
$TARGETED = 0
EndFunc
Func selectTarget()
Sleep(400)
GUICtrlSetData($LABEL_TARGET_STATUS, "Looking target")
while($TARGETED = 0 And $BATTLE_STARTED = 1)
checkStatus()
Send("{TAB}")
$TARGETED = _MemoryRead($ADDR_TARGETED, $PROCESS_INFORMATION)
Sleep(150)
WEnd
EndFunc
Func checkStatus()
checkHP()
Sleep(50)
checkMP()
GUICtrlSetData($LABEL_HP_STATUS, "Current HP: " & $HP)
GUICtrlSetData($LABEL_MP_STATUS, "Current MP: " & $MP)
EndFunc
Func checkHP()
$HEAL_HP = GUICtrlRead($IPT_HP)
$HP = _MemoryRead($ADDR_HP, $PROCESS_INFORMATION)
if ($HP < $HEAL_HP) Then
Send("{" & GUICtrlRead($IPT_KEY_HP) & "}")
EndIf
EndFunc
Func checkMP()
$HEAL_MP = GUICtrlRead($IPT_MP)
$MP = _MemoryRead($ADDR_MP, $PROCESS_INFORMATION)
if ($MP < $HEAL_MP) Then
Send("{" & GUICtrlRead($IPT_KEY_MP) & "}")
EndIf
EndFunc
Func bt_close_Click()
$close = 0
EndFunc
Func bt_battle_Click()
if($BATTLE_STARTED = 1) Then
GUICtrlSetData($bt_battle, "Battle Start")
$BATTLE_STARTED = 0
Else
GUICtrlSetData($bt_battle, "Battle Stop")
$BATTLE_STARTED = 1
EndIf
EndFunc
Func _ProcessIdPath ( $vPID )
Local $objWMIService, $oColItems
Local $sNoExePath = ''
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
Local $RetErr_ProcessDoesntExist = 1
Local $RetErr_ProcessPathUnknown = 2
Local $RetErr_ProcessNotFound = 3
Local $RetErr_ObjCreateErr = 4
Local $RetErr_UnknownErr = 5
If Not ProcessExists ( $vPID ) Then
SetError ( $RetErr_ProcessDoesntExist )
Return $sNoExepath
EndIf
$objWMIService = ObjGet ( 'winmgmts:\\localhost\root\CIMV2' )
$oColItems = $objWMIService.ExecQuery ( 'SELECT * FROM Win32_Process', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly )
If IsObj ( $oColItems ) Then
For $objItem In $oColItems
If $vPID = $objItem.ProcessId Then
If $objItem.ExecutablePath = '0' Then
If FileExists ( @SystemDir & '\' & $objItem.Caption ) Then
Return @SystemDir & '\' & $objItem.Caption
Else
SetError ( $RetErr_ProcessPathUnknown )
Return $sNoExepath
EndIf
Else
Return $objItem.Executablepath
EndIf
EndIf
Next
SetError ( $RetErr_ProcessNotFound )
Return $sNoExepath
Else
SetError ( $RetErr_ObjCreateErr )
Return $sNoExepath
EndIf
SetError ( $RetErr_UnknownErr )
Return $sNoExepath
EndFunc ;==>_ProcessIdPath
Func Keycode($key)
If $key == "{F1}" Then
Return 112
ElseIf $key == "{F2}" Then
Return 113
ElseIf $key == "{F3}" Then
Return 114
ElseIf $key == "{F4}" Then
Return 115
ElseIf $key == "{F5}" Then
Return 116
ElseIf $key == "{F6}" Then
Return 117
ElseIf $key == "{F7}" Then
Return 118
ElseIf $key == "{F8}" Then
Return 119
ElseIf $key == "{0}" Then
Return 48
ElseIf $key == "{1}" Then
Return 49
ElseIf $key == "{2}" Then
Return 50
ElseIf $key == "{3}" Then
Return 51
ElseIf $key == "{4}" Then
Return 52
ElseIf $key == "{5}" Then
Return 53
ElseIf $key == "{6}" Then
Return 54
ElseIf $key == "{7}" Then
Return 55
ElseIf $key == "{8}" Then
Return 56
ElseIf $key == "{9}" Then
Return 57
ElseIf $key == "{TAB}" Then
Return 9
ElseIf $key == "{LMB}" Then
Return 1
ElseIf $key == "{RMB}" Then
Return 2
ElseIf $key == "{SHIFT}" Then
Return 160
ElseIf $key == "{CTRL}" Then
Return 162
ElseIf $key == "{ALT}" Then
Return 18
ElseIf $key == "{SPACE}" Then
Return 32
ElseIf $key == "{ESC}" Then
Return 27
ElseIf $key == "{+}" Then
Return 107
ElseIf $key == "{-}" Then
Return 109
Else
Return "none"
EndIf
EndFunc ;==>
Func _PostMessage($hWnd, $msgID, $wParam, $lParam)
Local $ret = DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", $msgID, "int", $wParam, "int", $lParam)
If IsArray($ret) Then
Return $ret[0]
Else
SetError(-1)
Return False
EndIf
EndFunc
|
|
|
06/26/2011, 22:29
|
#6
|
elite*gold: 0
Join Date: Dec 2007
Posts: 50
Received Thanks: 7
|
only one skill
but it's working . thanks !
|
|
|
06/26/2011, 22:31
|
#7
|
elite*gold: 0
Join Date: Nov 2007
Posts: 64
Received Thanks: 2
|
Does it bypass the captcha system? Ty.
|
|
|
06/26/2011, 22:32
|
#8
|
elite*gold: 0
Join Date: Dec 2007
Posts: 50
Received Thanks: 7
|
No. it dont bypass the Captcha system.
|
|
|
06/27/2011, 08:02
|
#9
|
elite*gold: 0
Join Date: Feb 2009
Posts: 28
Received Thanks: 0
|
need 1 more skill or 2 :/
|
|
|
06/27/2011, 11:51
|
#10
|
elite*gold: 0
Join Date: May 2008
Posts: 10
Received Thanks: 1
|
hi is there a way whereby the program can continue running even if i alt tab?
|
|
|
06/27/2011, 22:06
|
#11
|
elite*gold: 0
Join Date: Jan 2008
Posts: 16
Received Thanks: 69
|
Quote:
Originally Posted by yUKIONO
need 1 more skill or 2 :/
|
I just edit:
Theres more 2 SIMPLE Skill keys.
be sure to use the VirusTotal.com !! To scan the files for any viruses.
Quote:
Originally Posted by shalya89
hi is there a way whereby the program can continue running even if i alt tab?
|
Im trying to fix it... but it's not a easy job for me. =/
Sry for my bad english, this is not my primary language!
|
|
|
06/27/2011, 22:25
|
#12
|
elite*gold: 0
Join Date: May 2010
Posts: 425
Received Thanks: 555
|
Was just working on doing this myself! Nice to see someone else is making a bot for this game. So many pointer scans so little time though. XD
|
|
|
06/28/2011, 10:38
|
#13
|
elite*gold: 0
Join Date: May 2008
Posts: 10
Received Thanks: 1
|
i tried looking at hotkeys for it but seems like it doesnt work =( hopefully someone able to fix it.
|
|
|
06/28/2011, 11:12
|
#14
|
elite*gold: 0
Join Date: May 2008
Posts: 10
Received Thanks: 1
|
hmmm seems like they patched something. my bot just keeps tabbing and refuses to atk.
|
|
|
06/29/2011, 01:40
|
#15
|
elite*gold: 0
Join Date: Jan 2008
Posts: 16
Received Thanks: 69
|
Quote:
Originally Posted by shalya89
hmmm seems like they patched something. my bot just keeps tabbing and refuses to atk.
|
get the v1.2 (first post), its fixed...
|
|
|
|
|
Similar Threads
|
Eden Eternal bot issue
08/21/2011 - AutoIt - 7 Replies
Im trying to use my own bot in the game Eden Eternal. But I'm not getting to use the _SendMessage and _PostMessage functons, i tried a lot to make it work but i didn't obtain success... just the Send function worked...
Code, doesnt work (the $HANDLER is working, i think. It just write into the chat):
;_SendMessage($HANDLE, 256, 112);
;_SendMessage($HANDLE, 0x4d, 0);
;_PostMessage($HANDLE, 256, 49, 0x20001);
;_PostMessage($HANDLE, 257, 49, 0x20001);
;ControlSend($HANDLE, "", "",...
|
Eden Eternal
08/16/2011 - General Gaming Discussion - 2 Replies
Hallo Leute.
Ich wollte fragen ob ihr bei
der CB von Eden Eternal dabei wart,
was ihr davon haltet und ob es eventuell
Server files oder Language patches für die
Japanische version gibt.
Danke im vorraus.
Kexxi
|
WTS Eden Eternal Account.
07/11/2011 - Trading - 17 Replies
Hello! Selling my Eden Eternal account from this site here:
Eden Eternal - Eden Eternal - A free MMORPG from Aeria Games
Game is open to ANYONE and EVERYONE. Meaning you can play from anywhere. Germany, Europe, Australia, Hawaii, United States, Canada, etc.
Server:
Aquamarine
Details:
Maverick Trait (10% AGI, 5% ATK Speed)
|
eden eternal hacks needed
07/01/2011 - General Coding - 3 Replies
any1 gonna make hacks for eden eternal ?
|
Eternal Eden OB!
06/16/2011 - General Gaming Discussion - 0 Replies
Eden Eternal - Eden Eternal - A free MMORPG from Aeria Games
signup here! ^
OB starts today
experience the fun!
|
All times are GMT +1. The time now is 07:26.
|
|