VB夢工廠【變态加速挂制作原理】視頻+源碼

教程詳情

• 教程名字：VB夢工廠【變态加速挂制作原理】視頻+源碼
• 教程大小：500.94 MB
• 作者：VB夢工廠

遊戲類型：具有坐騎的網遊（因爲坐騎能改變人物速度）
使用工具：CE工具
編程工具：VB6.0中文企業版
外挂類型：屬于變态修改内存
本次遊戲目标：《天龍八部2》

思路和原理：請看如下

加速變态挂的制作原理：
首先要明白本地數據和服務器數據。
我們能用CE修改的數據叫做本地數據，不能CE修改的數據叫做服務器數據。

1.問：本度數據有哪些呢？
答：人物行走速度 ，人物裏地面的高度（即Z坐标）隻屬于3D遊戲裏面的

2.問：遊戲開發商把人物速度爲啥放本地呢？幹嘛不放服務器做驗證呢？
答：遊戲人物的行走速度是如果放服務器驗證的話，人物就會延遲和掉線，導緻流失玩家。

現在爲止我們那些遊戲已經改成功了呢？
舉例：《天龍八部2》，《武神》，《神話風雲》，《巨人》等有坐騎的遊戲

視頻看了練習一下：《天元》裏面的加速，這款最新網遊，上上手！加深體會！

3.問：爲啥需要坐騎呢？
它能改變人物速度，方便我們用CE掃描速度地址（刷選地址）

-------------【CE方法篇】---以下爲CE如何找速度地址----------------------------------------------------

速度是本地數據，隻不過他一般是隐藏的，不會顯示出來給你看

速度的數據類型----->CE數據類型：浮點

遊戲默認的人物速度：3,4,5,6

CE數據類型：浮點
CE掃描的方式：兩數之間，減少的數值，增加的數值，小于，大于

你人物騎上坐騎的時候 ，速度是增加的，我們就用CE工具找"增加的數值"！

你人物去掉坐騎的時候，速度是減少的，我們就用CE工具找"減少的數值'！

隻要有坐騎的遊戲 都可以加速！我們都可以修改加速的數值！

--------------【VB編程篇】-一下爲VB代碼編寫篇----------------------------------------------------------------------------------

以下爲FORM1窗體裏面的舊版代碼：

Dim A As Single
Dim hProcess As Long
Dim base As Long
hProcess = OpenProcess(&H1F0FFF, False, GetPid("Game.exe"))
ReadProcessMemory hProcess, ByVal &H6D3A14, base, 4, 0& '基礎地址--簡稱基址--&H983C34
ReadProcessMemory hProcess, ByVal base + &H68, base, 4, 0& '一級偏移地址：一定要寫上的，否則死都調試不出來的
ReadProcessMemory hProcess, ByVal base + &H1B0, base, 4, 0&
ReadProcessMemory hProcess, ByVal base + &H4, base, 4, 0&
WriteProcessMemory hProcess, ByVal base + &H50, a, 4, 0& '注意當精度浮點數的字節長度是4

-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------

以下爲模塊裏面的代碼（主要是API函數聲明）：

Declare Function ReadProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long

Declare Function WriteProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long

Declare Function OpenProcess _
Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public AA As String
Public bb As Long
'根據進程獲取PID
Public Function GetPid(進程名 As String) As Long
Dim objWMIService, objProcess, colProcess
Dim strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess In colProcess

If objProcess.Name = 進程名 Then
GetPid = objProcess.ProcessID

Exit For

End If

Next

Set objWMIService = Nothing
Set colProcess = Nothing

End Function

教程截圖

教程下載

原文鏈接：【教程寶盒網】 https://www.jc-box.com/471.html，轉載請注明出處。