VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: tgy

封装了一个VB创建多线程的API函数(标准DLL),欢迎试用、测试、提意见!

  [复制链接]
发表于 2012-2-16 05:55:54 | 显示全部楼层
太高深了对我等初学者玩不转啊,可否来个实用性的demo如多线程ping学习一下,因为刚好想搞个网络监测小工具,想对多个设备进行网络ping联通测试。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-2-16 14:45:54 | 显示全部楼层
qzxym 发表于 2012-2-16 05:55
太高深了对我等初学者玩不转啊,可否来个实用性的demo如多线程ping学习一下,因为刚好想搞个网络监测小工具 ...

这是多线程ping程序,含源码:
ping.rar (18.09 KB, 下载次数: 597)
回复 支持 反对

使用道具 举报

发表于 2012-2-16 16:48:38 | 显示全部楼层
太给力了!膜拜中。。。。
回复 支持 反对

使用道具 举报

发表于 2012-2-17 01:11:55 | 显示全部楼层
Ur Sample very  nice   .Thanks  alot   
Is possible  see the code from Dll ?
and when run the program  create 3 instances of application on task bar   
Thanks  


点评

tgy
或App.TaskVisible = False  发表于 2012-2-23 16:41
tgy
在线程函数前面添加app.title="" 就可以让线程不显示在任务管理器中的"应用程序"列表中了.  发表于 2012-2-23 14:32
回复 支持 反对

使用道具 举报

发表于 2012-2-17 19:34:42 | 显示全部楼层
tgy 发表于 2012-2-16 14:45
这是多线程ping程序,含源码:

怎么线程等待用的sleep+doevents也行吗?我记得这样会出错的

点评

tgy
我一直就这么用,没有错过啊  发表于 2012-2-17 20:52
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-2-23 14:42:32 | 显示全部楼层
本帖最后由 tgy 于 2012-2-23 17:36 编辑

pingip函数修改为线程安全的了,可以不需同步而多线程同时调用不出错了,且修改为创建的线程不会出现在任务管理器"应用程序"中
多线程ping:
ping.rar (18.39 KB, 下载次数: 611)
回复 支持 反对

使用道具 举报

发表于 2012-2-24 23:19:08 | 显示全部楼层
今天是休息日,?了一整天,很?促完成了???下?了三?例子
??
回复 支持 反对

使用道具 举报

发表于 2012-3-1 04:48:59 | 显示全部楼层
TGY,关于你的DLL中,线程中创建非模式窗体时,是监视什么事件判断窗体卸载的???
  1.     f.Show
  2.     Do
  3.         Sleep 1
  4.         DoEvents
  5.     Loop Until f.Visible = False
  6.     Set f = Nothing
复制代码
当然在线程函数中用这种代码也行,但就是太挫了....   呵呵..

点评

tgy
这样只能监视指定的窗口,我的可以监视线程中的所有窗口,代码如下: do while doevents sleep 1 loop  发表于 2012-3-1 09:26
tgy
原理差不多,只能这样了  发表于 2012-3-1 09:22
回复 支持 反对

使用道具 举报

发表于 2012-3-11 16:56:43 | 显示全部楼层
good
回复 支持 反对

使用道具 举报

发表于 2012-8-10 16:19:17 | 显示全部楼层
楼主,请教个问题,急!
我是这样用的:SubMain中打开登录窗口1,登录成功之后,unload窗口1,打开窗口2,在窗口2中调用你的多线程,这样就调用失败;研究之后发现,生成的多线程窗口,是需要以窗口1为依托的,如果submain中的第一个窗口被关闭了,那么就无法调用多线程,请问怎么解决

点评

tgy
submain的代码贴出来看一下,才知道  发表于 2012-8-10 16:56
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-4-6 13:33

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表