无节操版VB6多线程

Tesla.Angela

谁说VB6不能多线程？谁说VB6不能用CreateThread？我发现用得好好的。前提是线程函数用机器码来写。{:soso_e113:}

1. Private Sub Command9_Click()
   
2.     Dim sc(15) As Byte
   
3.     Dim ptr As Long, buffer As Long
   
4.     'push 0
   
5.     sc(0) = &H6A
   
6.     sc(1) = &H0
   
7.     'push 0
   
8.     sc(2) = &H6A
   
9.     sc(3) = &H0
   
10.     'push 0
    
11.     sc(4) = &H6A
    
12.     sc(5) = &H0
    
13.     'push 0
    
14.     sc(6) = &H6A
    
15.     sc(7) = &H0
    
16.     'mov eax,MessageBoxA
    
17.     sc(8) = &HB8
    
18.     sc(9) = &HB8 'addr1
    
19.     sc(10) = &HB8 'addr2
    
20.     sc(11) = &HB8 'addr3
    
21.     sc(12) = &HB8 'addr4
    
22.     'call eax
    
23.     sc(13) = &HFF
    
24.     sc(14) = &HD0
    
25.     'ret
    
26.     sc(15) = &HC3
    
27.     '修正地址
    
28.     ptr = GetProcAddress(GetModuleHandleA("user32.dll"), "MessageBoxA")
    
29.     RtlMoveMemory VarPtr(sc(9)), VarPtr(ptr), 4
    
30.     '复制SHELLCODE
    
31.     buffer = VirtualAlloc(0, 16, MEM_COMMIT, PAGE_EXECUTE_READWRITE)
    
32.     RtlMoveMemory buffer, VarPtr(sc(0)), 16
    
33.     '远程线程
    
34.     CreateThread 0, 0, buffer, 0, 0, 0
    
35. End Sub

复制代码

没有做稳定性分析，没有释放内存，just for test。。。效果就是按下按钮，会弹出一个空白框框。。。

zfdyq

支持老大~

upring

感谢分享{:soso__f73f06b52e0b5055-f4f4f7819eeb3400-ff473bed7b999d0fa688f0eb32c07e20.jpg_1:}