一个VB的外挂，部分源码，求高手完成下

最新推荐文章于 2013-12-23 08:54:53 发布

sxyi01

最新推荐文章于 2013-12-23 08:54:53 发布

阅读量486

点赞数

文章标签： vb hex output input 游戏汇编

发表于：2010-10-23 14:23:16

有一个朋友玩诛仙的，老问我要外挂
可问题是我学C/C++的，不太会外挂
就去网上搜了，只有部分源码
求VB帮忙完成下
源码如下
引入两个文件,memory和sting;
定义了两个全局其实不必要主要是我集成到了挂机里面
Global $teshu
Global $teshu2
定义热键
HotKeySet("{F10}", "chuan") ;
定义内存基址
$Address = 0x008F58D4
$Address2 = 0x0012F824
$Back = 0x008D68B4
$ofset = 0x24
$fei = 0x0045ae59
$chuan = 0x004063b4
$playerbase=0x0012F824;
获取游戏窗口句柄
$WinHandle = WinGetHandle("Element Client");
获取游戏进程PID
$CurProcID=WinGetProcess("Element Client");
获取内存读写句柄
$Handle = _MemoryOpen($CurProcID)
$Address = _MemoryRead("0x" & Hex($Address ), $Handle)
$Base = _MemoryRead("0x" & Hex($Address+$ofset ), $Handle);
下面是检测人物名称的过程
Local $Player_Name_Ptr = _MemoryRead("0x" & Hex($base+0x398), $Handle)
$Player_Name = ""
For $NameCount = 0 To 32
$tmpName = _MemoryRead("0x" & Hex($Player_Name_Ptr + $NameCount * 2), $Handle,

"ushort")
$Player_Name &= Unicode2Asc(Binary($tmpName))
if $tmpName = 0 Then
ExitLoop
EndIf
Next

Func Unicode2Asc($UniString)
If Not IsBinary($UniString) Then
SetError(1)
Return $UniString
EndIf
Local $BufferLen = StringLen($UniString)
Local $Input = DllStructCreate("byte[" & $BufferLen & "]")
Local $Output = DllStructCreate("char[" & $BufferLen & "]")
DllStructSetData($Input, 1, $UniString)
Local $Return = DllCall("kernel32.dll", "int", "WideCharToMultiByte", _
"int", 0, _
"int", 0, _
"ptr", DllStructGetPtr($Input), _
"int", $BufferLen / 2, _
"ptr", DllStructGetPtr($Output), _
"int", $BufferLen, _
"int", 0, _
"int", 0)
Local $AscString = DllStructGetData($Output, 1)
$Output = 0
$Input = 0
Return $AscString
EndFunc;
没开游戏的话......
If $Handle=0 then
MsgBox(4096,"错误提示","打开游戏错误,可能没有运行游戏！")
Exit
EndIf;
提示当前人物是谁
TrayTip('飞翔版','当前人物：' & $Player_Name & ' ',10,1)
Sleep(2000);
建一个循环不断的写入飞天的值 3448439146是4字节值,相当于汇编的push 0a 这个是一开程序就可以飞天的
While 1
_MemoryWrite("0x" & Hex($fei), $Handle, 3448439146 )
ToolTip("飞翔模式开启中...", 0, 0)
Sleep(500)
WEnd;
如果想用热键控制飞天就用下面的子程序
Func fei()
$teshu = NOT $teshu
While $teshu
sleep(100)
_MemoryWrite("0x" & Hex($fei), $Handle, 3448439146 )

ToolTip("飞翔模式开启中...", 0, 0)

WEnd
ToolTip("飞翔模式已关闭...", 0, 0)
_MemoryWrite("0x" & Hex($fei), $Handle, 3448441450 )
sleep(2000)
ToolTip("", 0, 0)
EndFunc;
穿墙的子程序由F10控制
Func chuan()
$teshu2 = NOT $teshu2
While $teshu2
sleep(500);
写入穿墙的时候同时写入飞天值因为中断了循环飞天不再进行
_MemoryWrite("0x" & Hex($fei), $Handle, 3448439146 )
_MemoryWrite("0x" & Hex($chuan), $Handle, 2228831605 )

ToolTip("已开启穿透模式", 0, 0)

WEnd
ToolTip("穿透模式已关闭...", 0, 0);
写回去关闭穿墙
_MemoryWrite("0x" & Hex($chuan), $Handle, 2228831604 )
sleep(500)
ToolTip("", 0, 0)
EndFunc