查看: 8  |  回复: 0
  VB6 测试多线程,可以用Sleep -1
楼主
发表于 今天 12:30

如果你觉得你的exe是多线程,可以用:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

...
Public Sub s_DoTask1(ByVal ID&)
    '不能在多线程中使用GetTickCount,否则闪退
    dblN(1) = f_add(1, 25000000)
    Sleep -1
End Sub

Public Sub s_DoTask2(ByVal ID&)
    dblN(2) = f_add(25000001, 50000000)
End Sub

Public Sub s_DoTask3(ByVal ID&)
    dblN(3) = f_add(50000001, 75000000)
End Sub

Public Sub s_DoTask4(ByVal ID&)
    dblN(4) = f_add(75000001, 100000000)
End Sub
...

运行后,观察到会卡住s_DoTask1,而其它线程不会被卡,证明是多线程。ActiveX多线程会被卡。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com