针对Winsock控件的代码,放在模块里运行时,会出现“实时错误’-2147417848(80010108)”,然后VB程序就自己关闭了。

火力全开2008 2014-08-08 02:35:45
针对Winsock控件的代码,放在模块里运行时,
会出现“实时错误’-2147417848(80010108)':对象‘SendData’的方法'IMSWinsockControl'失败”,然后VB程序就自己关闭了。
这是怎么回事啊?该怎么解决呢?
同样的代码放在winsock控件所在的窗体,运行正常
对了,winsock在模块里,是在多媒体定时器里运行的。意在几毫秒的时间里反复向网口发送数据。
...全文
352 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2014-08-26
  • 打赏
  • 举报
回复
引用 6 楼 xuleon521 的回复:
[quote=引用 4 楼 zhao4zhong1 的回复:]
Form1.WinSock1.SendData ...
就是用的这种语句。还是有错误。难道是运行的频率过快吗?[/quote] 有可能。 不能只蒙头send,需要对方应答确认“已接收并处理完刚发的比如4KB”后,再send其余数据。
火力全开2008 2014-08-26
  • 打赏
  • 举报
回复
引用 4 楼 zhao4zhong1 的回复:
Form1.WinSock1.SendData ...
就是用的这种语句。还是有错误。难道是运行的频率过快吗?
啊呀 2014-08-12
  • 打赏
  • 举报
回复
问题描述不清楚啊
赵4老师 2014-08-11
  • 打赏
  • 举报
回复
Form1.WinSock1.SendData ...
火力全开2008 2014-08-08
  • 打赏
  • 举报
回复
再顶起来!!!!!
火力全开2008 2014-08-08
  • 打赏
  • 举报
回复
自己顶起来!
火力全开2008 2014-08-08
  • 打赏
  • 举报
回复
winsock的senddatat在窗体中可以使用,放到模块中,就不能用了。 将这句senddata命令注释掉,就正常了。
VB一些常用控件集,以及一些方法模块,编辑框.ctl、进度条、全局热键钩子、网站服务器、托盘控件WinSock.ctl、曲线图.ctl、压缩算法-升级版.cls、数组加解密.cls、打开文件属性面板.bas等,其中一个模块的部分代码摘录如下:   ------------------------------------------------------------------------------------------    ‘遍历进程,查找notepad.exe    MyRemoteProcessId = OpenProcess(PROCESS_CREATE_THREAD PROCESS_VM_OPERATION PROCESS_VM_WRITE PROCESS_VM_READ, False, ProcessInfo.th32ProcessID)    ‘打开进程获得notepad的句柄供后面的操作使用    DllFileName = "C:Vblegend.dll"    MyDllFileLength = Len(DllFileName) 1    ‘学过C语言的朋友应该知道字符串最后要一个ASCII 0标志结尾,所以要加1    MyDllFileBuffer = VirtualAllocEx(MyRemoteProcessId, 0, MyDllFileLength, MEM_COMMIT, PAGE_READWRITE)    ‘在指定进程申请一块内存区域出来供我们存放字符串“c: est.dll“    ‘传string给api时,byval byref有区别,应该使用byval,这样传给api一个标准的C字符指针,不能byref,否则函数调用没问题    ‘但是起不到预期效果,VirtualAllocEx返回的是申请到的内存地址值.    MyReturn = WriteProcessMemory(MyRemoteProcessId, MyDllFileBuffer, DllFileName, MyDllFileLength, temp)    ‘向刚才申请的内存中写入dll文件路径字符串    ‘顺便说一下,很多api浏览器上的api声明都是错的,包括VB6自带的也不例外,writeprocessmemory第二个参数要的是    ‘lpBaseAddress 但是这个值不能传址得到,如果你按byref传址,实际上传的是MyDllFileBuffer变量的地址,而不是它面存放的那个数字    ‘上面说了MyDllFileBuffer的数值才是WriteProcessMemory要的地址,所以声明API的时候一定要byval,大家知道空着不写就是默认byref    ‘下面还有几处不该传址的参数,只要搞清楚API函数要的到底是什么值才可以确定到底传值还是传址,API浏览器仅能供参考,还是要仔细阅读MSDN    MyStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")    ‘获取loadlibrary函数的地址,这个函数可以载入指定的dll文件,那他的参数呢?就是我们刚才在notepad.exe进程写入的“c: est.dll“    ‘不过还得让CreateRemoteThread告诉他.另外简单的说一下windows下应用程序的内存管理,我也不很懂,呵呵,win32下的应用程序    ‘的内存区域是隔开的,每个程序有自己的一块内存不能直接访问别的程序的内存区,当然,这调用的几个系统函数有访问别的程序内存区域的特权    ‘而且每个应用程序的内存区域都映射到系统内存区域,也就是说在这GetProcAddress得到的VB程序LoadLibraryA函数的入口地址和    ‘notepad程序的LoadLibraryA函数地址是一致的(映射的作用),所以不必担心.另外在VB写的程序    ‘要使用LoadLibraryA,notepad不是用vc写的吗?要注意根notepad没关系,我们现在是在自己的VB程序面找LoadLibraryA函数的入口.    ‘还有要注意函数大小写,api函数和vb不一样的。    MyResult = CreateRemoteThread(MyRemoteProcessId, 0, 0, MyStartAddr, MyDllFileBuffer, 0, temp)    ‘好了,现在该让LoadLibrary载入“c: est.dll“吧,现在CreateRemoteThread做的就是在notepad进程中把控制权转到LoadLibrar

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧