vb问题(3) - 设计与修改 - 轩辕春秋文化论坛 20周年


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#1

发表于 2008-6-10 15:52 资料个人空间短消息看全部作者

vb问题(3)

请看下面一段程序：

（声明API函数部分省略。。。）
Private Sub Command1_Click()
Dim i As Byte , Data As Byte , MyStr As String*1
For i=0 To 255
Data=i
WriteProcessMemory MyProcess, Address, Data, 1, 0&
ReadProcessMemory MyProcess, Address, MyStr, 1, 0&
Data=Asc(MyStr)
Debug.Print Data
Next i
End Sub

问题是，程序运行后，显示如下结果：

QUOTE:

0
1
2
3
4
5
中间省略……
124
125
126
127
0
0
0
中间省略……
0
0
0

现在我希望0~255的数据都能从内存读出来，如下：

QUOTE:

1
2
3
4
5
中间省略……
251
252
253
254
255

问应该如何修改程序？？？

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#2

发表于 2008-6-10 16:23 资料个人空间短消息看全部作者

没用，这个是ASCII编码问题，用Integer就更不行了。

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#3

发表于 2008-6-11 14:30 资料个人空间短消息看全部作者

现在问题是怎么解决，我要搞一个内存修改器

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#4

发表于 2008-6-11 15:34 资料个人空间短消息看全部作者

QUOTE:

原帖由 Maxwell 于 2008-6-11 14:58 发表

你用另外一个byte类型的变量传给ReadProcessMemory不行吗？

二进制这事儿VB确实不太擅长，有这功夫都可以学学其他语言了，当然仅供参考，当前还是先解决问题为主。

不行，好早就试过，会出错。

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#5

发表于 2008-6-13 18:22 资料个人空间短消息看全部作者

Sorry，VC++我不熟。

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#6

发表于 2008-6-20 15:51 资料个人空间短消息看全部作者

代码贴上来，大家看看。
顺便帮忙解决一下数据写不进内存的问题。

[ 本帖最后由阿尔法孝直于 2008-6-20 15:55 编辑 ]

附件: [简易内存读写器的代码] RWMemory.rar (2008-6-20 15:55, 2.86 K)
该附件被下载次数 117

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#7

发表于 2008-6-20 16:55 资料个人空间短消息看全部作者

第一个问题：

写内存的程序段：
　　Private Sub Command3_Click()
　　　WriteProcessMemory nHandle, nAddress, CLng(Text2.Text), nByte, 0&
　　End Sub
就红色这句，改个数执行之后再按“读取”，又变成原来的数。

第二个问题：

读内存的程序段：
　　Private Sub Command1_Click()
　　　　On Error Resume Next
　　　　Dim nStr As String * 1
　　　　Dim Result As Long
　　　　Dim i As Byte
　　　　For i = 0 To nByte - 1
　　　　　ReadProcessMemory nHandle, nAddress + i, nStr, 1, 0&
　　　　　Result = Result + Asc(nStr) * 256 ^ i
　　　　Next i
　　　　Text2.Text = Trim(Str(Result))
　　End Sub
就红色的这两句，第一句执行时，凡是任何单字节在128~255之间的数据，读出来都是0，即
　　Asc(nStr)=0

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#8

发表于 2008-6-23 17:46 资料个人空间短消息看全部作者

第一个问题自己改了代码后，解决了。

现在剩下第二个问题：

读内存的程序段：
　　Private Sub Command1_Click()
　　　　On Error Resume Next
　　　　Dim nStr As String * 1
　　　　Dim Result As Long
　　　　Dim i As Byte
　　　　For i = 0 To nByte - 1
　　　　　ReadProcessMemory nHandle, nAddress + i, nStr, 1, 0&
　　　　　Result = Result + Asc(nStr) * 256 ^ i
　　　　Next i
　　　　Text2.Text = Trim(Str(Result))
　　End Sub
就红色的这两句，第一句执行时，凡是任何单字节在128~255之间的数据，读出来都是0，即
　　Asc(nStr)=0

附件: RWMemory.rar (2008-6-23 17:46, 2.98 K)
该附件被下载次数 101

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#9

发表于 2008-6-24 11:20 资料个人空间短消息看全部作者

随便打开一个游戏，比如曹操传，找到曹操的HP地址，看看行不行

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#10

发表于 2008-6-24 16:42 资料个人空间短消息看全部作者

没用，还是一样。
不过前面的情况有错，应该是：

128~254还是0，
0~127或255正常读出。

[ 本帖最后由阿尔法孝直于 2008-6-24 16:51 编辑 ]

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#11

发表于 2008-6-24 17:18 资料个人空间短消息看全部作者

QUOTE:

原帖由 Maxwell 于 2008-6-24 16:54 发表
你在什么环境下测试的？如果255能读出来不可能128-254读不了

我测试的时候是读取自身进程的连续16个字节，其中有90，3，255，177，240。

在XP SP2下用VB6按F5直接运行程序

我写一个字节再读出来

确实不行

不过情况又有变化：变成0~128或255能读，129~254不能读

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#12

发表于 2008-6-24 17:53 资料个人空间短消息看全部作者

金山游侠V检验的结果：
129~254能写进去，不过用金山游侠V读出来是0
内存数据是129~254，读出来是0
0~128或255读写都正常。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#13

发表于 2008-6-24 18:02 资料个人空间短消息看全部作者

QUOTE:

原帖由 Maxwell 于 2008-6-24 17:59 发表
金山游侠读出来是0怎么知道是写进去了？

执行后，数据由非0变为0，说明写进去了。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#14

发表于 2008-6-24 18:22 资料个人空间短消息看全部作者

不会。因为我用0~128或255时没出现这种问题，且换了其他程序也是一样。

[广告] 《精忠报国岳飞传完整版》火热发布


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#15

发表于 2008-6-24 21:43 资料个人空间短消息看全部作者

我试过，在0~128或255完全正常，没有任何问题

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#16

发表于 2008-6-24 22:29 资料个人空间短消息看全部作者

记事本MS是只读进程，写进去什么，读出来都是原来的值。
不过可完全访问的进程都是0~128或255读写正常。

[广告] 真诚支持说岳，携手共创辉煌


	阿尔法孝直 (雀力日进)


	闽国公遂安军节度使 ★★★★★★

组别	节度使
级别	卫将军
好贴	2
功绩	1796
帖子	6034
编号	19070
注册	2004-10-16
家族	轩辕雀党

#17

发表于 2008-6-25 10:40 资料个人空间短消息看全部作者

这是我用金山游侠读取“记事本”进程十六进制0x1000040~0x100008F（十进制16777280~16777359）连续80个字节的结果（十六进制）
红色为0x81~0xFE（十进制129~254）

0E	1F	BA	0E	00	B4	09	CD	21	B8	01	4C	CD	21	54	68
69	73	20	70	72	6F	67	72	61	6D	20	63	61	6E	6E	6F
74	20	62	65	20	72	75	6E	20	69	6E	20	44	4F	53	20
6D	6F	64	65	2E	0D	0D	0A	24	00	00	00	00	00	00	00
EC	85	5B	A1	A8	E4	35	F2	A8	E4	35	F2	A8	E4	35	F2

这是我用内存读写器读取“记事本”进程十进制16777280~16777359（十六进制0x1000040~0x100008F）连续80个字节的结果（十进制）

14	31	0	14	0	0	9	0	33	0	1	76	0	33	84	104
105	115	32	112	114	111	103	114	97	109	32	99	97	110	110	111
116	32	98	101	32	114	117	110	32	105	110	32	68	79	83	32
109	111	100	101	46	13	13	10	36	0	0	0	0	0	0	0
0	0	91	0	0	0	53	0	0	0	53	0	0	0	53	0

[广告] 安装Alexa工具条，提高轩辕排名，支持轩辕发展！