VB多线程，自慰版。

0x0208

{:soso_e112:} 都说了是自慰版，不能要求它太多哦。
无图{:soso_e141:}

1. Option Explicit
   
2. 
   
3. Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByRef Destination As Any, ByRef Source As Any, Optional ByVal Length As Long = 4)
   
4. Private Declare Function SetTimer Lib "user32.dll" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
   
5. Private Declare Function KillTimer Lib "user32.dll" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
   
6. 
   
7. 
   
8. 
   
9. Private m_pObjMe As Long
   
10. Private m_pclsSub As Long
    
11. Private m_pSub As Long
    
12. Private m_ShellCode(31) As Byte
    
13. 
    
14. Private m_hThread As Long
    
15. Private m_bExit As Boolean
    
16. 
    
17. Event thread()
    
18.    
    
19. Private Sub ThreadProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) '必须要放在首位
    
20.     Call KillTimer(0, m_hThread)
    
21.     RaiseEvent thread
    
22. End Sub
    
23. 
    
24. 
    
25. Public Function CreateThread() As Long
    
26.     m_hThread = SetTimer(0, 0, 1, m_pSub)
    
27.     CreateThread = m_hThread
    
28. End Function
    
29. Public Function TerminateThread()
    
30.      Call KillTimer(0, m_hThread)
    
31. 
    
32. End Function
    
33. 
    
34. 
    
35. 
    
36. 
    
37. Private Sub Class_Initialize()
    
38.     m_pObjMe = ObjPtr(Me)
    
39.     RtlMoveMemory m_pclsSub, ByVal m_pObjMe
    
40.     RtlMoveMemory m_pclsSub, ByVal m_pclsSub + 36 '每添加一个Public函数或子过程，这里要+4
    
41. 
    
42.     m_ShellCode(1) = &H55
    
43.     m_ShellCode(2) = &H8B
    
44.     m_ShellCode(3) = &HEC
    
45.     m_ShellCode(4) = &HFF
    
46.     m_ShellCode(5) = &H75
    
47.     m_ShellCode(6) = &H14
    
48.     m_ShellCode(7) = &HFF
    
49.     m_ShellCode(8) = &H75
    
50.     m_ShellCode(9) = &H10
    
51.     m_ShellCode(10) = &HFF
    
52.     m_ShellCode(11) = &H75
    
53.     m_ShellCode(12) = &HC
    
54.     m_ShellCode(13) = &HFF
    
55.     m_ShellCode(14) = &H75
    
56.     m_ShellCode(15) = &H8
    
57.     m_ShellCode(16) = &H68
    
58.     m_ShellCode(17) = &H0
    
59.     m_ShellCode(18) = &H0
    
60.     m_ShellCode(19) = &H0
    
61.     m_ShellCode(20) = &H0
    
62.     m_ShellCode(21) = &HB9
    
63.     m_ShellCode(22) = &H0
    
64.     m_ShellCode(23) = &H0
    
65.     m_ShellCode(24) = &H0
    
66.     m_ShellCode(25) = &H0
    
67.     m_ShellCode(26) = &HFF
    
68.     m_ShellCode(27) = &HD1
    
69.     m_ShellCode(28) = &HC9
    
70.     m_ShellCode(29) = &HC2
    
71.     m_ShellCode(30) = &H10
    
72.     m_ShellCode(31) = &H0
    
73. 
    
74.    
    
75.     RtlMoveMemory ByVal VarPtr(m_ShellCode(17)), m_pObjMe
    
76.     RtlMoveMemory ByVal VarPtr(m_ShellCode(22)), m_pclsSub
    
77.     m_pSub = VarPtr(m_ShellCode(1))
    
78. End Sub
    

复制代码

0xAA55

赞！恰到好处的用了汇编

然而定睛一看，这是哪门子多线程，明明就是timer计时器分时操作。

wypabcd

vb学习中，非常有收获

白天

还是用VB.NET吧，VB6过时了

aguai2008

没什么用

jinlong0186

啥也不说了，感谢楼主分享哇！