VFP 搜索内存速度！

yrt888 2013-07-18 06:31:39

lpNumberOfBytesRead=0
hProcHeap = GetProcessHeap()
AdrStr = HeapAlloc(hProcHeap,0,4)
lpNumberOfBytesRead=0
GetWindowThreadProcessId(uHwnd,@PID)
hProcess = OpenProcess(0x1F0FFF,0,PId)
FOR dzStart=0x5000000 TO 0X59FFFFF
ReadProcessMemory(hProcess, dzStart, AdrStr, 6,@lpNumberOfBytesRead)
l1 =STRCONV(SYS(2600,AdrStr,6),2)
ReadProcessMemory(hProcess, dzStart+320, AdrStr, 6,@lpNumberOfBytesRead)
l2 =STRCONV(SYS(2600,AdrStr,6),2)

IF l1=='123456'.AND.l2=='654321'
EXIT
ENDIF
ENDFOR
=CloseHandle(hProcess)
=CloseHandle(PID)

以上是我搜索内存确定地址的方法！

觉得很慢，不知那些地方能够改进，或者有其他更好的方法，谢谢各位老师！

...全文

245 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

tzctc 2013-07-22

打赏
举报

Thisform.pic_file=Getfile('所有支持的图片文件:wmf,bmp,jpg,jpeg,gif,png,tif,tiff','文件名(&F):','',0,'选择照片') Thisform.pic_file，这是什么呢，不是变量吧

tzctc 2013-07-22

打赏
举报

调用表单：DO FORM form\pict.scx WITH tp &&tp为已打开表的字段,字段值为完整的路径被调用表单：parameter tp Thisform.Container1.Image1.Picture=tp 可是不能显示图片？tp 显示的是完整的图片的路径文件名，如：d:\GD\PICTURE\2DARROW2.WMF

yrt888 2013-07-20

打赏
举报

问题关键也是在： Thisform.Container1.Image1.Picture=调用表单传过来的字段名这一句，字段名是怎样传递过来，是已打开表的字段？还是变量？是已打开的表的字段，应该正确啊，这时要保证该表是否在当前工作区，表记录的图片（路径+文件名）要完整！是变量，那首先也是要表记录的图片路径+文件名完整，其次就是这个变量是全局变量，还是局部变量！

tzctc 2013-07-20

打赏
举报

这段代码是您N年前写的吧

tzctc 2013-07-20

打赏
举报

请教夜猫老师，俺想改用表单调用方式实现图片路径的传递（图片文件路径在字符型字段中），以下代码应该怎么改动呢 Thisform.Container1.Image1.Picture=字段名，可是这样不行啊，请指点迷津，谢谢！ Local oError,cMsg *Thisform.pic_file=Getfile('所有支持的图片文件:wmf,bmp,jpg,jpeg,gif,png,tif,tiff','文件名(&F):','',0,'选择照片') &&打开(&O) If !Empty(Thisform.pic_file) Thisform.Image1.Visible=.F. Thisform.Image1.Visible=.T. Thisform.Label2.Visible=.F. Thisform.Width=670 Thisform.AutoCenter=.T. With Thisform.Container1.Image1 .Visible=.F. .Stretch=0 Endwith Try Thisform.Container1.Image1.Picture=调用表单传过来的字段名 m.oError=Null Catch To m.oError Endtry If Isnull(m.oError) With Thisform.Container1 Thisform.pic_width=.Image1.Width Thisform.pic_height=.Image1.Height .Image1.Move((.Width-.Image1.Width)/2,(.Height-.Image1.Height)/2) .Image1.Visible=.T. Thisform.CurrentX=0 Thisform.CurrentY=0 Endwith Else Text To m.cMsg Noshow Textmerge 打开图片文件错误！错误信息: <<m.oError.Message>> Endtext Messagebox(m.cMsg,16,'信息提示') Endif Endif

yrt888 2013-07-20

打赏
举报

补充一下：用 STRCONV(SYS(2600,AdrStr,1024),15) 取代 STRCONV(SYS(2600,AdrStr,1024),2) 效果更好，不会出现偏离，估计转换过程中，单字节字符串长度会有变化，而存字符串长度固定！

yrt888 2013-07-19

打赏
举报

也是啊，我为了容量 AdrStr = HeapAlloc(hProcHeap,0,1024*1024) 使用了这个，开始时小心，就每次1024个字节，现在版主提醒，是可以增大读取字节数，谢谢！

都市夜猫 2013-07-19

打赏
举报

你还不如一开始就用 HeapAlloc 分配 1w 个字节的缓存, 并一次将另一个进程的那 1w 个字节的内容全部复制过来，之后的搜索就在自己的进程堆中处理了

sych11 2013-07-19

打赏
举报

你是一个优秀的探路者，后来的VFPER有福了

十豆三 2013-07-19

打赏
举报

MyFll.fll 中的 MemRead 函数只能读取本进程的内存

yrt888 2013-07-19

打赏
举报

我读取的是其他进程的内存，而且是单字节字符串,不知那个FLL行不行，目前我的那个方法，进行了偏差时处理，基本达到要求！测试到下午看看，谢谢版主！

十豆三 2013-07-19

打赏
举报

用 MyFll.fll 中的函数名：MemRead(nAddress,nBytes) 试试速度和准确度如何缩写：memr 读取指定地址的内存，注意，只能读取本进程的内存返回值：字符型参数： nAddress：整型，内存地址，比如0x12fdc4 nBytes ：整型，要读取的字节数示例代码 Set Library To myfll ?MemRead(0x12fdc4,60) Set Library To

yrt888 2013-07-19

打赏
举报

目前尝试的一个方法： PID=0 lpNumberOfBytesRead=0 GetWindowThreadProcessId(uHwnd,@PID) hProcess = OpenProcess(0x1F0FFF,0,PId) dzStart=0x5000000 CLEA ZAODAO=0 DO WHIL dzStart<=0x59FFFFF ReadProcessMemory(hProcess, dzStart, AdrStr, 1024,@lpNumberOfBytesRead) l1 =STRCONV(SYS(2600,AdrStr,1024),2) F=OCCURS('123456',L1 ) IF F>0 FOR SA=1 TO F EE=STREXTRACT(L1,'123456','654321',SA ) IF LEN(EE)>260.AND. LEN(EE)<350 ZAODAO=1 A=AT('123456',L1,SA) DZ=dzStart+A ?TRANSFORM(DZ,[@0]) CANCEL ENDIF ENDFOR W=AT('123456',L1,F) IF (1024-W)<500 dzStart=dzStart+W-50 LOOP ENDIF ENDIF dzStart=dzStart+1000 ENDDO 正在测试中，速度很快，不过不是每次都正确，偶尔出现偏差上下几个地址，不过出现偏差的是还未完全完善的时候，现在连续测试了几十次是正确的！观察中。。。。谢谢！