[求助]怎么用VB一次读取大量内存数据？-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (3)
小虾雪币： 2384 活跃值： (766) 能力值： (RANK：410 ) 在线值：发帖 36 回帖 2248 粉丝 7 关注私信	小虾 10 2 楼 Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal lpBuff As Long, ByVal nSize As Long, ByVal lpNumberOfBytesRead As Long) As Boolean Private Sub Command1_Click() Dim by(2) As Byte Dim i, hProcessAs As Long Dim b As Boolean hProcess = GetCurrentProcess() b = ReadProcessMemory(hProcess, App.hInstance, VarPtr(by(0)), UBound(by), i) Text1.Text = Chr(by(0)) + Chr(by(1)) End Sub 如果你要读多个字节，只须将“by”变量数组改大一点即可。 2007-9-10 13:33 0
星逝无痕雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 2 粉丝 0 关注私信	星逝无痕 3 楼终于搞定了，多谢指点。。。 2007-9-10 13:43 0
炉子雪币： 66 活跃值： (16) 能力值： ( LV8，RANK：130 ) 在线值：发帖 4 回帖 317 粉丝 1 关注私信	炉子 3 4 楼 ZwReadVirtualMemory 就算地址无效也不会访问违例 2007-9-10 20:17 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (3)
小虾雪币： 2384 活跃值： (766) 能力值： (RANK：410 ) 在线值：发帖 36 回帖 2248 粉丝 7 关注私信	小虾 10 2 楼 Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal lpBuff As Long, ByVal nSize As Long, ByVal lpNumberOfBytesRead As Long) As Boolean Private Sub Command1_Click() Dim by(2) As Byte Dim i, hProcessAs As Long Dim b As Boolean hProcess = GetCurrentProcess() b = ReadProcessMemory(hProcess, App.hInstance, VarPtr(by(0)), UBound(by), i) Text1.Text = Chr(by(0)) + Chr(by(1)) End Sub 如果你要读多个字节，只须将“by”变量数组改大一点即可。 2007-9-10 13:33 0
星逝无痕雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 2 粉丝 0 关注私信	星逝无痕 3 楼终于搞定了，多谢指点。。。 2007-9-10 13:43 0
炉子雪币： 66 活跃值： (16) 能力值： ( LV8，RANK：130 ) 在线值：发帖 4 回帖 317 粉丝 1 关注私信	炉子 3 4 楼 ZwReadVirtualMemory 就算地址无效也不会访问违例 2007-9-10 20:17 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复