1,486
社区成员
发帖
与我相关
我的任务
分享超级神豆的程序，共享了！
本人前一段时间学习Win32异常，找了C++的Win32异常处理资料，结果在网上偶然发现了超级神豆的这个程序。我也想在VB程序中处理异常，因为我的程序老是在Win98/2000下崩溃，在XP下一切正常，在Vista/Win7下有时会崩溃，还真说不准。于是会想到C++的Win32异常处理！
超级神豆的程序有以下功能：
1、处理Win32异常，防止程序崩溃；
2、获取VB错误处理程序地址，自定义错误处理程序；
3、运行汇编代码；
4、根据API函数名，调用API函数；
5、根据函数地址，调用函数。
欢迎各位下载：http://econet.zjgsu.edu.cn/cy%5Ffilesxxx/vbsrc/vbanycall.rar
该程序类模块CVBErrCatcher有个地方需要完善一下：'读取或写入指定地址lAddr的函数ReadWriteMemory中有一句是
If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi)) Then 应改成：If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))=Len(mi) Then ，按照API定义VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))与Len(mi)如果不相等，即调用失败。
超级神豆的程序有以下功能：
1、处理Win32异常，防止程序崩溃；
2、获取VB错误处理程序地址，自定义错误处理程序；
3、运行汇编代码；
4、根据API函数名，调用API函数；
5、根据函数地址，调用函数。
欢迎各位下载：http://econet.zjgsu.edu.cn/cy%5Ffilesxxx/vbsrc/vbanycall.rar
该程序类模块CVBErrCatcher有个地方需要完善一下：'读取或写入指定地址lAddr的函数ReadWriteMemory中有一句是
If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi)) Then 应改成：If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))=Len(mi) Then ，按照API定义VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))与Len(mi)如果不相等，即调用失败。
...全文
请发表友善的回复…
发表回复
tulyroll 2011-10-20
- 打赏
- 举报
不下真不行！
palleexu 2011-10-20
- 打赏
- 举报
学习学习
dahual 2011-10-12
- 打赏
- 举报
整个目录收藏之。
还没结贴啊。。。
还没结贴啊。。。
cixihpf 2011-07-26
- 打赏
- 举报
这是超级神豆写的VB6源码程序！这是超级神豆写的VB6源码程序！
boywang 2011-07-26
- 打赏
- 举报
upup
苦苦的潜行者 2011-07-26
- 打赏
- 举报
超级神豆是谁,
貌似我只知道好像VB-VBA的版主是supergreenbean
貌似我只知道好像VB-VBA的版主是supergreenbean
alucard_ad 2011-07-17
- 打赏
- 举报
学习一下...
iwantscore2010 2011-07-17
- 打赏
- 举报
[Quote=引用 21 楼 dongfa_dg 的回复:]
看看是神马好东西
[/Quote]
+1
看看是神马好东西
[/Quote]
+1
mokton 2011-07-14
- 打赏
- 举报
在帮顶
碧海情天-赵亮 2011-07-09
- 打赏
- 举报
看到被顶上来了，干脆也再顶一下。
q260401998 2011-07-09
- 打赏
- 举报
学习，学习，谢谢楼主分享。
ah_2029 2011-07-09
- 打赏
- 举报
顶楼主。
COSByVal 2011-07-09
- 打赏
- 举报
学习一下。。。。。。。
VBAdvisor 2011-07-08
- 打赏
- 举报
[Quote=引用楼主 chenjl1031 的回复:]
该程序类模块CVBErrCatcher有个地方需要完善一下：'读取或写入指定地址lAddr的函数ReadWriteMemory中有一句是
If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi)) Then 应改成：If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))=Len(mi) Then ，按照API定义VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))与Len(mi)如果不相等，即调用失败。
[/Quote]
Per MSDN Definition:
The return value is the actual number of bytes returned in the information buffer.
If the function fails, the return value is zero. To get extended error information, call GetLastError. Possible error values include ERROR_INVALID_PARAMETER.
SuperBean没用错呀。
该程序类模块CVBErrCatcher有个地方需要完善一下：'读取或写入指定地址lAddr的函数ReadWriteMemory中有一句是
If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi)) Then 应改成：If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))=Len(mi) Then ，按照API定义VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi))与Len(mi)如果不相等，即调用失败。
[/Quote]
Per MSDN Definition:
The return value is the actual number of bytes returned in the information buffer.
If the function fails, the return value is zero. To get extended error information, call GetLastError. Possible error values include ERROR_INVALID_PARAMETER.
If VirtualQueryEx(hProcess, ByVal lpAddress, mi, Len(mi)) Then
SuperBean没用错呀。
server09007 2011-05-09
- 打赏
- 举报
支持一下咯 .
li163 2011-05-05
- 打赏
- 举报
[Quote=引用 33 楼 li163 的回复:]
引用 31 楼 lyserver 的回复:
豆豆是一个好淫啊，豆豆的东西更是好东西，俺不远万里过来崇拜一下。
+1
也崇拜一下
[/Quote]
再顶一下
引用 31 楼 lyserver 的回复:
豆豆是一个好淫啊，豆豆的东西更是好东西，俺不远万里过来崇拜一下。
+1
也崇拜一下
[/Quote]
再顶一下
dianyancao 2011-05-05
- 打赏
- 举报
看来超级神豆是更关注.net了的，呵呵
dianyancao 2011-05-05
- 打赏
- 举报
wo22ni 2011-05-03
- 打赏
- 举报
谢谢。下载学习。。
倒大霉的上帝 2011-04-27
- 打赏
- 举报
留名
加载更多回复（30）
