2 aca10jl aca10jl 于 2016.03.10 20:35 提问

正在做一个游戏的内存辅助,求讲解VB的三个函数!!跪谢!!!! 10C

正在写一个游戏辅助,找到了一点源码,其中有三个很重要的函数一直没弄明白,求万能的CSDN网友解答一下这三个函数都是神马意思啊?!醉醉哒。。。

Public Function Int2Byte(ByVal t As Integer) As Byte()
Dim destination As Byte() = New Byte(4 - 1) {}
vbMem.CopyMemory(destination, t, 4)
Return destination
End Function

//////////////////////////////////////////////
//////////////////////////////////////////////

Public Function SetData(ByVal AsmData As Byte(), Optional ByVal Offset As Integer = 0) As Integer
If (Me.m_ID = 0) Then
Dim num As Integer
Return num
End If
Me.m_Data_Size = AsmData.Length
VBASM.WriteProcessMemory(Me.m_ID, (Me.m_Data + Offset), AsmData, Me.m_Data_Size, 0)
Return Me.m_Data
End Function

//////////////////////////////////////////////
//////////////////////////////////////////////

Public Function PushByte(ByVal i As Byte) As Integer
Dim num As Integer
Me.OPcode = Conversions.ToString(Operators.AddObject((Me.OPcode & "6A"), Interaction.IIf((Strings.Len(Conversion.Hex(i)) = 1), ("0" & Conversion.Hex(i)), Conversion.Hex(i))))
Return num
End Function

1个回答

caozhy
caozhy   Ds   Rxr 2016.03.10 21:50

CopyMemory
WriteProcessMemory分别是拷贝内存和往目标进程写数据
Operators.AddObject这个类是自己定义的,大概的作用是生成机器代码的字节数组
这个程序大致上是通过改写内存中的机器程序来破解的。

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
让VB菜鸟最快写出自己的外挂.通杀所有游戏
这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~     键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这
游戏外挂制作,主要是VB的
学习制作外挂,其实是学习一门网络技术,不是仅仅是游戏!   我们玩游戏,游戏公司玩我们,你可以忍受游戏的不平衡吗?你可以忍受游戏的 BUG吗,你愿意交钱去买外挂(有时后还可能上当受骗)吗?你不愿意自己做外挂自己 用吗?你不愿意做几个外挂给你的朋友使用吗?你不愿意体验制作外挂的乐趣吗?你不 愿意自己的游戏ID有很多钱,很好的装备,很高的等级吗?看到别人拿着外挂到处惹是 生非,你心理平衡吗?所以,我们要自己制作外挂,做自己的外挂!   学习制作外挂,不是复杂的事,为什么不花点时间来学习学习呢?   学习外挂有3点好处:   1、学到一门技术(关于网络)   2、可以更好地玩游戏,   3、可以利用外挂赚到人民币
用VB做扫雷附全部代码
用VB做扫雷游戏的一个简单论文 1. For...Next循环应用 在游戏设计上,利用了两个二维数组分别记录地雷的分布状况及地雷区及表面探测情形。利用数据循环的对比,不但速度快,而且在设计阶段,程序的架构比较清楚。 2.Load及Unload动态增加或删除组件 利用Load及Unload指令,可动态新增及删除组件。在游戏的雷区,依照使用者自定义的地图类型,布置未探测的地雷方块。加载组件后,通过Image组件的Move属性,将组件布置于预定的位置。Move函数的原型如下: 组件. Move X坐标,[Y坐标],[组件宽度][组件高度] 再配合双循环的变量值,可以控制组件布置于窗体的方向及方式。 3.MouseDown与MouseUp事件 在游戏过程中,利用鼠标所发出的信息了解使用者的意图,进而做出相应的动作。在MouseDown与MouseUp事件中,可以捕捉鼠标所按下或放开的按键为何、鼠标光标在该组件上的坐标及是否同时按下辅助键等。用Button参数值表示鼠标上的按钮数值。其意义如下: 1:左键 2:右键 4:中央键 若同时按下不止一个按键时,则传回数值为按键数相加。例如同时按下左键及右键,则Button值为1+2=3. 在本游戏中,利用右键的MouseDown事件标示“已标示”方块,利用左键的MouseDown事件,标示使用者准备按下的方块,利用左键的MouseUp事件确定翻开的方块。
C#游戏辅助制作教程-通用修改器源码-抓取内存基址
C#游戏辅助制作教程-通用修改器源码-抓取内存基址,适合C#初学者,从培养兴趣爱好开始。。
论外挂入门(辅助入门)图色辅助与内存辅助的优与弊
图色类辅助的缺点,容易被游戏查到,有很多问题复杂的图色问题无法处理,准确性不高,效率低下等。 内存辅助的缺点,相对与图色类更容易被游戏查到,特征码查找困难,入门难。
一款游戏辅助程序的分析、制作方法
 0、前言   本文仅限于技术交流,文中所附数据纯属虚构,如有雷同,实在是巧合!  本文简单地探讨了一款游戏辅助程序的分析、制作方法,希望能对那些对此感兴趣的朋友们有些许帮助。  本人小菜鸟一只,水平有限,说得不对的地方,权当逗各位大虾一笑 ^_^  1、切入点    在WSASend函数上下断,移动一下人物,游戏会向服务器发送数据封包,程序断在0042DE13这个函数调用
用vb做一个简单的射击游戏
用vb做一个简单的射击游戏 Option Explicit Dim RandX As Single Dim RandY As Single Dim Score As Single Dim Thisscore As Single Dim Average As Single Dim Shot As Integer Dim Appear As Boolean Dim Distance As Single Private Sub Command1_Click() Timer1.Enabled = True Command3.Enabled = True If Command1.Enabled = True Then Command3.Caption = "暂停" End If Command4.Enabled = True End Sub Private Sub Command2_Click() If Command4.Enabled = True Then MsgBox "请先结束游戏", 48, "警告" Else End End If End Sub Private Sub Command3_Click() Command1.Enabled = False Command3.Caption = "继续" Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled = True Then Command3.Caption = "暂停" End If End Sub Private Sub Command4_Click() Timer1.Enabled = False Command3.Enabled = False Command1.Enabled = True Picture1.Cls Label1.Caption = "射击:" Label2.Caption = "平均得分:" Label3.Caption = "环数:" Label4.Caption = "总分:" Command4.Enabled = False Command3.Caption = "暂停" End Sub Private Sub Form_Load() Appear = False Timer1.Enabled = False Thisscore = 0 Score = 0 Shot = 0 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Beep Shot = Shot + 1 Picture1.DrawWidth = 4 Picture1.PSet (X, Y), RGB(255, 0, 0) Distance = Sqr((X - RandX) * (X - RandX) + (Y - RandY) * (Y - RandY)) If Appear And Timer1.Enabled Then Thisscore = 5 - Int(Distance / 10) If Thisscore <= 0 Then Thisscore = 0 End If Score = Score + Thisscore Average = Int((Score / Shot) * 100) / 100 Label1.Caption = "射击:" + Str(Shot) + "发" Label2.Caption = "平均得分:" & Format(Average, "0.00") & "环" Label3.Caption = "环数:" + Str(Thisscore) + "环" Label4.Caption = "总分:" + Str(Score) + "环" End If End Sub Private Sub Timer1_Timer() Dim i As Integer Appear = Appear Xor True RandX = 500 * Rnd() RandY = 370 * Rnd() If Appear Then Form1.Picture1.AutoRedraw = True Picture1.DrawWidth = 1 Picture1.DrawStyle = 0 For i = 10 To 50 Step 10 Picture1.Circle (RandX, RandY), i, RGB(0, 0, 255) Next i Picture1.Line (RandX - 60, RandY)-(RandX + 60, RandY) Picture1.Line (RandX, RandY - 60)-(RandX, RandY + 60) Else Picture1.Cls End If End Sub
从零基础开始的内存辅助教程
从零基础开始的内存辅助教程, 大鸟可以飞过,菜鸟可以停住脚步看看 保证下了必回帖的人,传统美德,所以先回复再看下载地址 百度盘:pan.baidu.com/s/1jG0Ewiq 密码: 8t8g
VB 函数嵌套求组合数
VB 函数嵌套求组合数 VB 函数嵌套求组合数 VB 函数嵌套求组合数
vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习
 vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习2007年01月16日 01:26 类似打鼹鼠的游戏 ,每段时间 随机更新 小球 ,能记录打中和打错的个数 添加 一个form1 窗体上添加 一个picture控件 一个timer