简单讲讲Copymemory这个函数

7473v6575ba

我也来盖楼了！楼主威武。

xd3210

期待精彩的下一讲！

mao471023

非常精彩        
老师继续

hyefeifei

六、Copymemory函数 　　1. 我搜了一下讲解这个函数的帖子，发现对这个函数的声明大体有两种： 　　A: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ 　　                               (Destination As Any, Source As Any, ByVal Length As Long) 　　B: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"  _   　　                      (ByVal Destination As Long, ByVal Source As Long,ByVal Length As Long)   　　虽然使用B有其理由，但为避免混乱，这里使用A的声明方式，初学者只需把A声明拷贝到模块开头就可以使用Copymemory函数了，其他不必深究。 　　2. 其实这个函数本身非常简单: 　　Copymemory 参数2, 参数1, a 　　记住：参数1 ，参数2 都是内存一块区域开头的地址，这个函数的意思是：把从参数1开头的地址，往后数a长度这么大的区域，复制到参数2开头的区域中。 　　3. 见下图：这个函数无非是把0015F7C0（参数1）开头的区域，红框1处的内容，复制到以0015F7C4（参数2）开头的区域，即红框2处， 这里第3个参数为4，意即复制四个字节的内容。 　　复制前 　　 　 　　复制后 　　 　　大家需要明白的两点是: 　　①既然参数1,参数2是内存的地址，而内存的地址是用一个长整形数表示的，所以，参数1,参数2都是long数据类型的。 　　②这个函数的2个参数，参数1、参数2必须传址（byref），不能传值(byval)，除非这个值本身是一个内存地址。 　 　　到此为止，大家可以看到，这个函数本身是很简单的，也容易理解。 　 　　问题在于如何取得首位地址，待续……

feiren228

慢慢学习，消化！

mao471023

问一个问题，那个查看地址的是用其他软件吗？具体方法是怎样的？

hyefeifei

mao471023 发表于 2016-6-7 16:57
问一个问题，那个查看地址的是用其他软件吗？具体方法是怎样的？

Cheat Engine，玩游戏的人应该知道这个，使用很简单，搜下百度。

hyefeifei

七、Copymemory II 　　实在倒不出时间，做了张图，先贴在这里，大家先看看这张图，明白了这张图，也就基本明白了这个函数。 　　 　　待续……

mao471023

马上要更精彩了，不能停！
另外问下，copy s2，s1，4 意思是不是把s1的4个字节给s2，为什么debug.print 出来s2是abcde

hyefeifei

Copymemory III 　　1. 我先截取一块示意图，给大家讲一下示意图是什么意思： 　　图A 　　 　　 　　图A完美解释了 s1=”abcde”是什么意思。 　　当程序执行到dim s1 as string时，会在内存中划分一个四个字节大小的空间，这个空间第一个字节的地址如图是1000，我们以比喻的方式说，1000即是赵家的地址，或门牌号，此时赵家空着。 　　当程序执行到s1=”abcde”时，程序会在内存中划分另一块区域，这个区域多大，我们后说，这个区域第一个字节的地址是1500，并且程序会把这个门牌号放进赵家(也就是byval s1的位置)。我们把1500看做是郑家的门牌号。 　　也说是说我们按地址1000，进入了赵家，看到的不是abcde，看到的却是一个门牌号1500（byval s1），我们按这个门牌号指引去了郑家，才会看到abcde。 　　2. copymemory 参数2,参数1,a 　　我们可以把copymemory相像成一辆小车，参数1是告诉这辆车去谁家拿东西，参数2是告诉小车把东西拿到谁家，a是告诉拿多少东西。 　　我们看截图： 　　图B 　　 　　 　　如果我们要把s1的abcde复制到s2中，即是把郑家的abcde（圈1），放到王家（圈2）。 　　郑家的地址是1500（byval s1）,王家的地址是2500（byval s2）,所以我们要给copymemory这辆小车这样下命令： 　　Copymemory byval s2,byval s1,5 　　完整程序如下： 　　 　　Sub testn1() 　　　　Dim s1 As String 　　　　Dim s2 As String 　　　　s1 = "abcde" 　　　　s2 = String$(5, 0) 　　　　CopyMemory ByVal s2, ByVal s1, 5 　　　　Debug.Print s2 　　End Sub 复制代码 　　如果你记得前面的内容，你可能会觉得疑惑，看一下前面的截图： 　　 　　“abcde”这个字符串，在内存中应该是占了10个字节的内容啊（61 00 62 00 63 00 64 00 65 00） 　　 　　待续……