VB6多线程补丁，TlsFake

JuncoJet · 发表于 2022-6-22 14:28

VB6多线程网上方法很多，但很难稳定，本身问题是因为Tls无法跨线程，
用此补丁IAT Hook了VBVM，修补了BUG，使得VBVM可以稳定跨线程
调用非常简单
Private Declare Sub initTlsFake Lib "tlsfake" ()
需要多线程时 initTlsFake 就行，无需释放，建议 Form_Load 或者 Form_Initialize 时补丁

submariner · 发表于 2022-6-28 08:59

本帖最后由 submariner 于 2022-6-28 09:14 编辑

JuncoJet 发表于 2022-6-27 16:31
设计代码10个线程，大概相差一倍的速度
PCODE的话多线程加速比较明显

谢谢LZ，测试成功了，和预想得差不多，比单线程能节省不少时间，6线程（6核处理器）由9.2秒降到1.54秒了；
从测试可以看出，即使线程数高达1000，也并未大幅增加时间开销（但也同预想的那样，并不能额外节省任何时间）；
计算尾数存在极少量误差，估计是受限于双精度数值自身的精度

三滑稽甲苯 · 发表于 2022-6-22 15:00

wren0315 发表于 2022-6-22 14:45
玩VB就是浪费生命

虽然早就被淘汰了，但是u1s1用来做小软件的图形界面还是不错的

JuncoJet · 发表于 2022-6-22 14:34

蓝奏 https://jcjt.lanzoul.com/ipbhh06s1cjc
阿里「fake_VB多线程补丁.rar」https://www.aliyundrive.com/s/53HChedYJgz

wren0315 · 发表于 2022-6-22 14:45

玩VB就是浪费生命

5151diy · 发表于 2022-6-22 14:46

可以用来编程反复执行程序，如调用电子教室学生端

JuncoJet · 发表于 2022-6-22 14:47

wren0315 发表于 2022-6-22 14:45
玩VB就是浪费生命

此话不假，因为低阶程序VB写起来很快很好用，高阶程序得花至少N倍时间用于调试和除错
比如多线程崩溃问题，需要OllyDBG调试半天，写补丁修补VM

lushihao · 发表于 2022-6-22 15:01

三滑稽甲苯发表于 2022-6-22 15:00
虽然早就被淘汰了，但是u1s1用来做小软件的图形界面还是不错的

小东西也不用，直接用E语言

lovehfs · 发表于 2022-6-22 21:51

太好了，有这么好的工具，可以完成一些曾经不能完成的任务。

CXC303 · 发表于 2022-6-23 01:02

感谢分享

yanggo · 发表于 2022-6-23 10:42

感谢分享，很久很久没有写过小软件了。。。。毕竟没时间呢。感谢

帐号		自动登录	找回密码
密码			注册[Register]

[原创工具] VB6多线程补丁，TlsFake

免费评分

免费评分