VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

[原创] 全球首创? 再次突破VB极限!VB真正稳定多线程(不用tlb,tls,ax,pcode)

  [复制链接]
发表于 2010-4-30 08:38:28 | 显示全部楼层
先记一下,等会学习学习~
回复 支持 反对

使用道具 举报

发表于 2010-4-30 09:00:22 | 显示全部楼层
不错
回复 支持 反对

使用道具 举报

发表于 2010-4-30 11:35:33 | 显示全部楼层
open 是不行滴,不过证实了用api打开和读取文件是木有问题滴。哇咔咔~~~这样基本就没啥大障碍了哈~~~

大不了将所有dim XXX() as byte 都替换成redim 哈~~
回复 支持 反对

使用道具 举报

发表于 2010-4-30 12:02:00 | 显示全部楼层
70# download
呵呵 这样看来在当前情况下 代码最少 最方便 最稳定 最简单 的方法 就只有CreateIExprSrvObj~
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-30 12:18:01 | 显示全部楼层
open 是不行滴,不过证实了用api打开和读取文件是木有问题滴。哇咔咔~~~这样基本就没啥大障碍了哈~~~

大不了将所有dim XXX() as byte 都替换成redim 哈~~
yimins 发表于 2010-4-30 11:35


和文件相关的好像都不行...
dim f&
f=FreeFile()

在顶楼己说明...测试的有FreeFile,Open,
由于无法Open,所以Get,Put,Close之类的后续操作无法测试(猜测应该也不行)

PS:用ADO来读文件好像是可以的.不过还是不如WINAPI直接方便,也支持大文件.速度也快
回复 支持 反对

使用道具 举报

发表于 2010-4-30 15:11:02 | 显示全部楼层
'WaitForSingleObject这个好像没起作用,我把线程2改成
Public Sub test_function2()
CreateIExprSrvObj 0, 4, 0
MsgBox "ok?" '加上这句测试
Dim i As Long
Dim ret As Long
i = 0
ret = WaitForSingleObject(lEventHandle, 500)
Do
i = i + 1
'Sleep 500
frmOutput.txtStream2 = i
Sleep 1000
Loop Until i = 100
End Sub

'它没等待信号量就开始执行了,不过函数执行完成后,确实是自动退出(线程数少了一个)
回复 支持 反对

使用道具 举报

发表于 2010-4-30 16:49:07 | 显示全部楼层
楼主打开网页的方式太X了吧??不用API吧...??

直接:
Shell "explorer.exe http://www.vbgood.com/"

而且兼容各种默认浏览器。。。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-30 17:22:20 | 显示全部楼层
'WaitForSingleObject这个好像没起作用,我把线程2改成
Public Sub test_function2()
CreateIExprSrvObj 0, 4, 0
MsgBox "ok?" '加上这句测试
Dim i As Long
Dim ret As Long
i = 0
ret = WaitForSingleObjec ...
beixue 发表于 2010-4-30 15:11


具体代码我没细看,只是测试随便网上找的例子...
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-30 17:24:10 | 显示全部楼层
楼主打开网页的方式太X了吧??不用API吧...??

直接:
Shell "explorer.exe http://www.vbgood.com/"

而且兼容各种默认浏览器。。。
hackerrose 发表于 2010-4-30 16:49


太X是什么?

不喜欢用Shell, 容易报病毒...

评分

参与人数 1人气 +1 收起 理由
VBProFan + 1 个人估计是“太装X”的意思

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2010-4-30 17:28:50 | 显示全部楼层
79# download


太X,意思就是太X了。。


刚才我测试。连按两次或以上 start

线程数会逐步上升,表示线程增加了。

而且稳定运行。交叉运行。不出错。

在运行中会逐个减少(函数执行完自动退出)。直到为1(主线程)

不知道这种情况叫什么。。bug??貌似也不是。。。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-8-14 08:00

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