原谅我这个脑残，又来研究VB多线程了。

冻结 · 发表于 2014-7-25 22:04:46

又抽风研究VB多线程技术了。

简单的说一下实现方法。

用数组存储字节，来构造一个小型函数
函数里面调用VB类中的函数。

遇到了一个问题。

在IDE下完美执行多线程，但是生成出EXE 就不行了。不知道怎么回事。
求大家帮助！
附部分代码

Option Explicit
Private Declare Function CallWindowProcA Lib "user32.dll" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByRef Destination As Any, ByRef Source As Any, Optional ByVal Length As Long = 4)
Private Declare Function CreateThread Lib "kernel32.dll" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, ByVal lpThreadId As Long) As Long
'Private Declare Function CreateThread Lib "kernel32.dll" (ByRef lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, ByRef lpStartAddress As Long, ByRef lpParameter As Any, ByVal dwCreationFlags As Long, ByRef lpThreadId As Long) As Long
Private Declare Function TerminateThread Lib "kernel32.dll" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private m_hThread As Long '线程句柄
Private m_pObjMe As Long '本模块指针
Private m_pThreadProc As Long '线程函数指针
Private m_ShellCode() As Byte '自己构造一段小函数
Private Const ThreadProcPos As Long = 3 '保存了线程过程的位置
Private Function ThreadProc(ByVal lpParamer As Long) As Long
MsgBox 2
End Function
Public Function Create() As Long
CreateThread 0, 0, VarPtr(m_ShellCode(1)), 0, 0, 0
'CallWindowProcA VarPtr(m_ShellCode(1)), 0, 0, 0, 0
End Function
Private Sub Class_Initialize()
'获取类模块指针
m_pObjMe = ObjPtr(Me)
RtlMoveMemory m_pThreadProc, ByVal m_pObjMe
RtlMoveMemory m_pThreadProc, ByVal m_pThreadProc + 32
ReDim m_ShellCode(1 To 32) As Byte
m_ShellCode(1) = &H55 ' push ebp
m_ShellCode(2) = &H8B ' mov ebx,esp
m_ShellCode(3) = &HEC
m_ShellCode(4) = &H83 ' add esp,-0x4
m_ShellCode(5) = &HC4
m_ShellCode(6) = &HFC
m_ShellCode(7) = &H8D ' lea eax,[ebp-0x4]
m_ShellCode(8) = &H45
m_ShellCode(9) = &HFC
m_ShellCode(10) = &H50 'push eax
m_ShellCode(11) = &HFF 'push [ebp+0x8]
m_ShellCode(12) = &H75
m_ShellCode(13) = &H8
m_ShellCode(14) = &H68 'push m_pObjMe
m_ShellCode(15) = &H0
m_ShellCode(16) = &H0
m_ShellCode(17) = &H0
m_ShellCode(18) = &H0
m_ShellCode(19) = &HB8 'mov eax,m_pThreadProc
m_ShellCode(20) = &H0
m_ShellCode(21) = &H0
m_ShellCode(22) = &H0
m_ShellCode(23) = &H0
m_ShellCode(24) = &HFF 'call eax
m_ShellCode(25) = &HD0
m_ShellCode(26) = &H8B 'mov eax,[ebp-0x4]
m_ShellCode(27) = &H45
m_ShellCode(28) = &HFC
m_ShellCode(29) = &HC9 'leave
m_ShellCode(30) = &HC2 'retn 0x4
m_ShellCode(31) = &H4
m_ShellCode(32) = &H0
RtlMoveMemory ByVal VarPtr(m_ShellCode(15)), m_pObjMe
RtlMoveMemory ByVal VarPtr(m_ShellCode(20)), m_pThreadProc
End Sub

复制代码

冻结 · 发表于 2014-7-25 22:05:07

求大家用口水吐我，淹死我。

zzyong00 · 发表于 2014-7-25 23:07:22

这东西，就是玩玩，不可能用于实际工程中，无意义

冻结 · 发表于 2014-7-25 23:26:47

zzyong00 发表于 2014-7-25 23:07
这东西，就是玩玩，不可能用于实际工程中，无意义

就是想玩玩的，嘿嘿

wxf666 · 发表于 2014-7-25 23:39:58

不会汇编啊。。。
汇编难学吗？

bxc1995 · 发表于 2014-7-26 08:44:11

lz真想玩玩，建议去玩并行编程，昨天看了下那玩意，感觉多线程太可爱了

wtywtykk · 发表于 2014-7-26 09:56:56

数组没有执行权限，会触发dep，要用virtualprotect加上执行权限才行。而且，你没有初始化vb库，运行复杂函数肯定会出错。至于ide里...或许vb自动加上执行权限了

秋枫萧萧 · 发表于 2014-7-26 12:19:38

不要这样玩呀！用内嵌汇编已经走错路了，划不来！就是多加一代码的事，其余的使用方法可以照搬C的API多线程。我专门研究过了：http://tieba.baidu.com/p/2911856363
VB多线程完全可以应用于实践！不要在里面调用非线程安全的控件就行了。API和数学计算绝对是稳的~！
我的代码经测试可以优化全开编译为本机代码运行！和你的方法弊端相反：最好不要在IDE下运行。

秋枫萧萧 · 发表于 2014-7-26 12:26:28

zzyong00 发表于 2014-7-25 23:07
这东西，就是玩玩，不可能用于实际工程中，无意义

你肯定没有遇到过需要大量的数学运算的项目。现在的电脑很多都是多核，至少双核满地都是了，不用多线程白白浪费电脑性能和运行时间。纯数学运算在VB多线程中是绝对稳定的，没有问题。API和ACTIVEX DLL的调用方面我还在仔细研究中~
详情请看 http://tieba.baidu.com/p/2911856363

秋枫萧萧 · 发表于 2014-7-26 12:30:23

我觉得又有人要说我为什么不直接用C或者VB.NET算了。。。现在的程序员/编程爱好者的探索精神都死光了吗？

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[求助] 原谅我这个脑残，又来研究VB多线程了。

本帖子中包含更多资源

点评

本帖被以下淘专辑推荐:

点评

点评

点评

点评

点评