VB 从零开始编外挂(十二)

VB实现指针访问!DLL的访问

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

CopyMemory函数提供了一个简单的方法来执行C++中见解访问运算符(*),这个运算符可以访问被一个指针变量所指向的变量的值。
即如有指针变量 P,在C++中可以简单的用 *P 来访问,那在 VB 中怎么访问呢?

在 VB 中,我们可以使用 CopyMemory函数别名。
Declare Sub VBGetTarget Lb "kernel32" Alias "RtlMoveMemory"(Target As Any,ByVal lPoint As Long,ByVal cbCopy As Long)

例子:
Dim Pointer As Long
Dim Target As Integer
Dim i As Integer
i=123
Pointer=VarPtr(i) '获得指针
VBGetTarget Target,Pointer,LenB(Target)
Debug.Print Target

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

很长时间以来,都认为只能通过绝对路径引用标准DLL中的函数。其实,你也可以用相对路径。很简单的,现在就尝试一下吧。

  1)绝对路径方法

  比如你的DLL文件位于c:\testDLL\debug\testDLL.dll

  一般来说,你需要在VB中作如下声明

Declare Sub mytest Lib "c:\testDLL\dubug\testDLL.dll" (ByVal x As Long)

  另外的一个变通方法是把testDLL.dll放在windows的系统目录下,这样,你就可以直接引用文件名了。不过,需要把一个文件放到windows系统目录下,很是不爽!

  2)相对路径方法

  看看我们如何用相对路径,假设你的DLL文件位于c:\testDLL\debug\testDLL.dll,你的VB程序位于目录c:\testDLL\vbClient
你可以在VB程序中作如下声明:

Declare Sub mytest Lib "../dubug/testDLL.dll" (ByVal x As Long)

  如果直接运行你的VB程序,系统会提示错误:找不到../dubug/testDLL.dll.

  为了使上面的声明其作用,先暂时关闭你的VB工程。然后用一个文本编辑器(notepad,editplus,etc)打开工程文件(就是那个后缀是vbp的家伙),通常vbp文件由几个部分组成。

时间: 2023-09-21

VB 从零开始编外挂(十二)的相关文章

VB 从零开始编外挂(十)

前天晚上我跟封包玩了一晚上,因才开始(第一次跟封包)说一下我一晚上的发现吧我是直接用WPE截取的,因为金山游戏本身都有截取封包的保护措施(就像MM所说),直接用WPE截取我是截取不到的,后来用Ollydbg调试的时候才截取的到.经过前面的准备,封报的明文准备已经OK,准备进行加密,加密方式是取一个4字节的数字,对封包进行Xor运算,运算完毕后就直接发送出去,我核对过用WPE截取封包的数据,和我看到的运算结果完全一致,这说明只要用那个4字节的数字对封包进行反Xor运算就可以得到明文的封包.其实说白

VB 从零开始编外挂(九)

封包的比对!网络游戏都是通过数据交换实现游戏竞技滴,所以分析封包是制作外挂的一个步骤. -------------------------------------------------------------------------------------------------------------------------------------------------------- 网络游戏封包分为2种封包:1.明文封包 2.加密封包 多数网络游戏都是加密封包,其原因是为了信息不被修改.

VB 从零开始编外挂(十一)

传奇外挂制作的资料 -------------------------------------------------------------------------------------------------------------------------------------------------------- 显血:7A0D3: 75 EB超负重:99A40: 76 EB offset 原 改 防石化: 00466F80: 75 90 00466F81: 2E 90稳如泰山: 00

VB 从零开始编外挂(八)

Private Sub Form_Load()CountID = 0ExitID = FalseListView1.ColumnHeaders.Add 1, , "源 IP", 1500ListView1.ColumnHeaders.Add 2, , "源端口", 1500ListView1.ColumnHeaders.Add 3, , "目标 IP", 1500ListView1.ColumnHeaders.Add 4, , "目标端

走近VB.Net(十二) 注册表快速入门

快速入门|注册表 走近VB.Net(十二) 注册表快速入门 作者:hejianzhong VB.Net中文站(http://vbnetcn.126.com) 首先介绍一下注册表的相关基础知识:注册表的每一个文件夹被称为一个Key(项),这个文件夹的子文件夹被称为SubKey(子项),而在一个子项中有不同的Value Name(值项-即数值顶),值项后面就是你要保存的数据Value Data(数据)了.而在子项中通常都有一个Default Value 是默认的Value Name,相信打开过注册表

Henry的VB.NET之旅(十二)—事件驱动

Henry的VB.NET之旅(十二)-事件驱动 韩睿 "可视继承原来这么方便!"我心中默默地感叹一声.一会儿之后,我抬头扫了一眼屏幕上的代码后,突然发现了一个新问题,按钮的单击事件程序现在已经变成了: VB.NET程序 VB程序 Private Sub btnProtected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProtected.Click MsgBox("

千人挤爆富士康郑州招聘面试持续十二小时

晚报特派见习记者 王煜 郑州报道 昨天,记者走访了郑州火车站,发现车站附近并没有集中招聘,而前往苏浙沪方向务工的客流依然不少.职业学校还在向以往的长三角用工企业输出劳动力,但这些务工者已经不太愿意再离乡了.与此对应的是富士康郑州厂区招聘的持续火爆,一千多人几乎让职业介绍中心陷于瘫痪,工作人员连午饭晚饭都顾不上吃,连续面试了十二小时. 火车站:返城学生其实为讨薪 昨天上午,郑州火车站人潮涌动,临近元宵节,节后农民工外出的又一波高峰初现.在开往上海方向的临客候车室里,挤满了带着大包小包的人群.年前的

C语言库函数大全及应用实例十二

原文:C语言库函数大全及应用实例十二                                          [编程资料]C语言库函数大全及应用实例十二 函数名: setrgbpalette 功 能: 定义IBM8514图形卡的颜色 用 法: void far setrgbpalette(int colornum, int red, int green, int blue); 程序例: <?xml:namespace prefix="o" ns="urn:sc

vb.net 线程挂起 怎么用?

问题描述 vb.net线程挂起怎么用?就是暂停,恢复执行的操作谁有实例啊??我用的一个说过时了,有警告信息.他吗的百度都所搜不到一个挂起的实例.服了. 解决方案 解决方案二:我也想知道解决方案三:就像sleep功能的.只是SLEEP固定时间,我的程序不是固定时间的.要某段程序执行完事,执行它~!解决方案四:suspend的完美替代品是什么??鸡巴磕了,什么破VB.net草.解决方案五:线程暂停,恢复没人知道啊?百度都不给个明确的哎解决方案六:.net不是有threading.thread.sus