vb外联asm

Ayala

1. 
   
2. .686p
   
3. .model flat,stdcall
   
4. .nolist
   
5. option casemap:none
   
6. ;OPTION PROC:export
   
7. 
   
8. 
   
9. include Strings.mac
   
10. 
    
11. include windows.inc
    
12. include user32.inc
    
13. include kernel32.inc
    
14. includelib user32.lib
    
15. includelib kernel32.lib
    
16. include msvcrt.inc
    
17. includelib msvcrt.lib
    
18. 
    
19. 
    
20. include ws2_32.inc
    
21. includelib ws2_32.lib
    
22. 
    
23. IDD_DLG1 EQU 1000
    
24. 
    
25. IDC_EDT1 EQU 1001
    
26. IDC_EDT2 EQU 1004
    
27. IDC_EDT3 EQU 1003
    
28. IDC_EDT4 EQU 1006
    
29. IDC_EDT5 EQU 1008
    
30. IDC_EDT6 EQU 1011
    
31. IDC_EDT7 EQU 1012
    
32. 
    
33. IDC_BTN1 EQU 1002
    
34. IDC_BTN2 EQU 1009
    
35. IDC_BTN3 EQU 1010
    
36. 
    
37. 
    
38. 
    
39. .data
    
40.         C2cmd   byte MAX_PATH dup(0)
    
41.         asmcmd  byte MAX_PATH dup(0)
    
42.         asmpath byte MAX_PATH dup(0)
    
43.         incpath byte MAX_PATH dup(0)
    
44.         asmfile byte MAX_PATH dup(0)
    
45.         tagfile byte MAX_PATH dup(0)
    
46. .code
    
47. 
    
48. DlgBuildAsmCmd proc hDlg:HWND
    
49.         invoke crt_sprintf,offset asmcmd ,$CTA0("%s %s %s %s & pause"),offset asmpath,offset incpath,offset asmfile,offset tagfile
    
50.         invoke SetDlgItemText,hDlg,IDC_EDT5,offset asmcmd
    
51.         ret
    
52. DlgBuildAsmCmd endp
    
53. 
    
54. DlgInit proc hDlg:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    
55.         invoke SetDlgItemText,hDlg,IDC_EDT1,offset C2cmd
    
56.         invoke SetDlgItemText,hDlg,IDC_EDT3,offset asmpath
    
57.         invoke SetDlgItemText,hDlg,IDC_EDT4,offset incpath
    
58.         invoke SetDlgItemText,hDlg,IDC_EDT6,offset asmfile
    
59.         invoke SetDlgItemText,hDlg,IDC_EDT7,offset tagfile
    
60.         invoke DlgBuildAsmCmd,hDlg
    
61.         ret
    
62. DlgInit endp
    
63. 
    
64. DlgCmd proc hDlg:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    
65. 
    
66.         mov eax, wParam
    
67.         and eax,0ffffh
    
68.        
    
69.         .if eax == IDC_BTN1
    
70.                 invoke GetDlgItemText,hDlg,IDC_EDT1,offset C2cmd,MAX_PATH
    
71.                 invoke crt_system,offset C2cmd
    
72.                
    
73.         .elseif eax == IDC_BTN2
    
74.                 invoke crt_system,offset asmcmd
    
75.         .elseif eax == IDC_BTN3
    
76.                 invoke DlgBuildAsmCmd,hDlg
    
77.         .endif
    
78.        
    
79.         ret
    
80. DlgCmd endp
    
81. 
    
82. DlgProc proc hDlg:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    
83. 
    
84.         mov eax, uMsg
    
85. 
    
86.         .if eax == WM_INITDIALOG
    
87.                 invoke DlgInit, hDlg, uMsg, wParam, lParam
    
88.                 mov eax,TRUE
    
89.         .elseif eax == WM_COMMAND
    
90.                 invoke DlgCmd, hDlg, uMsg, wParam, lParam
    
91.         .elseif eax == WM_CLOSE
    
92.                 invoke EndDialog, hDlg, 0
    
93.                 mov eax,TRUE
    
94.                
    
95.         .else
    
96.                 mov eax, FALSE
    
97.                
    
98.         .endif
    
99.        
    
100.            ret
     
101. DlgProc endp
     
102. 
     
103. 
     
104. _main proc
     
105. 
     
106.         invoke GetCommandLine
     
107.         invoke crt_sprintf,offset C2cmd ,$CTA0("org\\%s -Fa foo.asm"),eax
     
108.         invoke crt_sprintf,offset asmpath ,$CTA0("..\\masm32\\bin\\ML.EXE /c /coff /Cp /nologo")
     
109.         invoke crt_sprintf,offset incpath ,$CTA0("/I..\\masm32\\include\\ /I..\\masm32\\macros\")
     
110.         invoke crt_sprintf,offset asmfile ,$CTA0(".\\Module2\\Module2.asm")
     
111.         invoke crt_sprintf,offset tagfile ,$CTA0("-Fo.\\Module2.OBJ")
     
112.        
     
113.         invoke GetModuleHandle,NULL
     
114.         invoke DialogBoxParam,eax,IDD_DLG1,NULL,DlgProc,0
     
115.        
     
116.         ret
     
117. _main endp
     
118. 
     
119. end _main
     
120. 
     

复制代码

1. 
   
2. #define IDD_DLG1 1000
   
3. #define IDC_EDT1 1001
   
4. #define IDC_BTN1 1002
   
5. #define IDC_EDT2 1004
   
6. #define IDC_EDT3 1003
   
7. #define IDC_STC1 1005
   
8. #define IDC_EDT4 1006
   
9. #define IDC_STC2 1007
   
10. #define IDC_EDT5 1008
    
11. #define IDC_BTN2 1009
    
12. #define IDC_BTN3 1010
    
13. #define IDC_EDT6 1011
    
14. #define IDC_EDT7 1012
    
15. #define IDC_STC3 1013
    
16. #define IDC_STC4 1014
    
17. 
    
18. #include "../../../masm32/include/resource.h"
    
19. 
    
20. IDD_DLG1 DIALOGEX 10,10,513,273
    
21. CAPTION "IDD_DLG"
    
22. FONT 8,"MS Sans Serif",0,0,0
    
23. STYLE WS_VISIBLE|WS_OVERLAPPEDWINDOW
    
24. BEGIN
    
25.   CONTROL "",IDC_EDT1,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_VSCROLL|WS_TABSTOP|ES_MULTILINE,3,150,372,42,WS_EX_CLIENTEDGE
    
26.   CONTROL "编译源文件",IDC_BTN1,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,387,150,123,42
    
27.   CONTROL "",IDC_EDT2,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,3,198,507,72,WS_EX_CLIENTEDGE
    
28.   CONTROL "",IDC_EDT3,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|ES_MULTILINE,3,3,369,24,WS_EX_CLIENTEDGE
    
29.   CONTROL "汇编编译器路径",IDC_STC1,"Static",WS_CHILDWINDOW|WS_VISIBLE|SS_CENTERIMAGE,384,6,114,21
    
30.   CONTROL "",IDC_EDT4,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_VSCROLL|WS_TABSTOP|ES_MULTILINE,3,30,369,33,WS_EX_CLIENTEDGE
    
31.   CONTROL "头文件路径",IDC_STC2,"Static",WS_CHILDWINDOW|WS_VISIBLE|SS_CENTERIMAGE,384,36,114,21
    
32.   CONTROL "",IDC_EDT5,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_VSCROLL|WS_TABSTOP|ES_MULTILINE,3,111,372,36,WS_EX_CLIENTEDGE
    
33.   CONTROL "编译asm",IDC_BTN2,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,387,111,123,36
    
34.   CONTROL "重生成编译命令",IDC_BTN3,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,387,84,93,21
    
35.   CONTROL "",IDC_EDT6,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_VSCROLL|WS_TABSTOP|ES_MULTILINE,3,66,303,21,WS_EX_CLIENTEDGE
    
36.   CONTROL "",IDC_EDT7,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_VSCROLL|WS_TABSTOP|ES_MULTILINE,3,87,303,21,WS_EX_CLIENTEDGE
    
37.   CONTROL "汇编源文件",IDC_STC3,"Static",WS_CHILDWINDOW|WS_VISIBLE,312,69,54,21
    
38.   CONTROL "目标文件",IDC_STC4,"Static",WS_CHILDWINDOW|WS_VISIBLE,312,90,54,21
    
39. END
    
40. 
    

复制代码

测试代码

1. 
   
2. '主窗体
   
3. Private Sub Command1_Click()
   
4.     newthread "111111111111111"
   
5. End Sub
   
6. '模块2
   
7. Public Function threadproc(ByVal p As Long)
   
8.     MsgBox "threadproc"
   
9. End Function
   
10. 
    
11. Public Function newthread(s As String)
    
12.     threadproc 0
    
13. End Function
    
14. 
    
15. 
    

复制代码

1. 
   
2. .686p
   
3. .model flat,stdcall
   
4. .nolist
   
5. ;option casemap:none
   
6. 
   
7. 
   
8. 
   
9. include Strings.mac
   
10. 
    
11. include windows.inc
    
12. include user32.inc
    
13. include kernel32.inc
    
14. includelib user32.lib
    
15. includelib kernel32.lib
    
16. includelib Vbaexe6.lib
    
17. 
    
18. 
    
19. .code
    
20. 
    
21. 
    
22. ?threadproc@Module2@@AAGXXZ proc syscall  s
    
23. 
    
24.         invoke MessageBoxW,NULL,$CTW0("xxxx"),$CTW0("xxxx"),MB_OK
    
25.         ret
    
26. ?threadproc@Module2@@AAGXXZ endp
    
27. 
    
28. ?newthread@Module2@@AAGXXZ proc syscall  a1,a2
    
29.        
    
30.         mov eax,a2
    
31.         mov eax,[eax]
    
32.         invoke MessageBoxW,NULL,$CTW0("1111"),eax,MB_OK
    
33.        
    
34.         invoke CreateThread,NULL,0,?threadproc@Module2@@AAGXXZ,0,0,0
    
35.        
    
36.         ret 8
    
37. ?newthread@Module2@@AAGXXZ endp
    
38. 
    
39. 
    
40. 
    
41. 
    
42. end

复制代码

c2.exe (6 KB, 下载次数: 1)

2021-2-11 23:15 上传

点击文件名下载附件

vb目录里新建目录org,将原来c2房里，把这个换上

陈布衣

好棒（看不懂
戈登这几天才从A5那知道如何把ASM在VB内调用（long数组

0xAA55

戈登走過去 发表于 2021-2-13 00:43
好棒（看不懂
戈登这几天才从A5那知道如何把ASM在VB内调用（long数组

Long数组只是众多方法之一，这里的则是更自然的方法——使用汇编器编译.obj直接参与VB6的链接过程。

类似于直接用汇编器编写VB6的Module、Class、Form之类的东西。