【半原创】发表一个下午的成果：多线程DLL（含源码）

h907308901

注意：此代码属无聊之作，仅供学习和研究，如果要实际运用，请下载论坛其他网友发表的相关代码

此DLL是根据DOWNLOAD的多线程第二季改来的，原理差不多，好处就是把相关代码都封装到一个DLL里面，只需调用DLL提供的函数，且线程函数中无需初始化，详情请见附件

如果觉得支持的线程参数个数太少（此DLL中只有一个线程参数 ）的话，可以使用结构体（注意：传结构体的话最好申请一段内存保存结构体，千万不能使用局部变量！！！）

另外，杀软对这个东西很敏感，估计是使用了内嵌汇编的缘故，请放心使用



注意，编译DLL需要AmicForVB和AsmInVB插件，需要的请回复，我去找一下……
如果需要ThreadAPI.tlb的IDL源码的我会在适当的时候发上来

另：从某外国网站上找到的关于VBHeader的结构体声明（就是那个FakeHeader，“VB5!……&@%￥#￥vb6chs.dll￥#%……”），存储了跟VB工程、窗口、模块相关的东西，有兴趣的研究下哈



补充内容 (2012-2-5 15:21):
UPDATED AT 6L AND 8L

阿富

看看神马



楼主，第一个包dll.rar下不来

19900603

另：从某外国网站上找到的关于VBHeader的结构体声明（就是那个FakeHeader，“VB5!……&@%￥#￥vb6chs.dll￥#%……”），存储了跟VB工程、窗口、模块相关的东西，有兴趣的研究下哈



我对这玩意比较感兴趣

sexfio

还是用不了serverxmlhttp,一开就自动退出

ntaryl

Want to study this Way   
Very interest
I accomplish Multithread Socket Server but work with Loops  
Now want to find the way how work with forms  
BTW Thanks for the Sharing  

h907308901

更新了一下，先把那两个插件发上来：

（我的金山老是报毒，昨天是那个DLL，今天是ASMINVB插件 ）
ThreadAPI.idl下载：


今天一个下午又用汇编写了一个DLL，其中MSVBVM60的那几个函数还是用了动态调用
顺便解决了线程中的Form问题：
Form是可以在初始化后的线程中直接使用的，但是第二次创建线程就出问题了。。。
原因：编译器在程序中预留了一些变量，用来表示对象是否被初始化过，每次在引用Form对象时，会先根据变量判断对象是否引用过，没有的话就调用__vbaNew2初始化对象（相当于Set xxx=New xxx，不过这个编译出来是调用__vbaNew），线程结束后对象也就销毁了，但是变量却没有更改，所以下一次使用时没有初始化对象，所以……
解决办法：
很脏的代码，目的是强制初始化对象：
Set MDIForm1 = New MDIForm1
Set Form2 = New Form2
每个Form都要这样 - - MDIForm貌似也可以直接使用
现在还有CreateObject的问题，初步判断是在__vbaLateIdSt中出错……

196466517

看看正在找多线程都准备用 timeSetEvent了事了。。。

h907308901

再次更新，这回支持任意数量的参数，并且修正了几处疏漏，不过在多线程中千万不能出错，一出错就崩溃，经测试CreateObject没有问题，上回那个是因为漏了Set不过对于sexfio网友的winhttp或serverxmlhttp异步问题还是暂时没有解决办法

sexfio

ThreadDLL.rar里面是什么？没看懂

我再详细说下我想实现的吧，30个线程，每个线程利用winhttp“反复循环”（相当于监测了）获取百度的源码，时间间隔100ms,然后加上线程号和timer显示出来，随便利用什么控件显示出来都行，就这个要求，实现看看哈

ntaryl

Nice nice  
Able use forms  
thanks for sharing   
Is possible to use forms  without Dll   ?
good afternoon