AU3调用SWF例子

以一个语音计算器为例：先看图：

1. 
   
2. #include <GUIConstantsEx.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <Misc.au3>
   
5. DirCreate(@TempDir&"\AM")
   
6. FileInstall("SkinH_VB6",@TempDir&"\SkinH_VB6.dll")
   
7. FileInstall("skinh",@TempDir&"\skinh.she")
   
8. FileInstall("a2.htm", @TempDir & "\AM\a2.htm")
   
9. FileInstall("a2.swf", @TempDir & "\AM\a2.swf")
   
10. $sDll= DllOpen(@TempDir &"\SkinH_VB6.dll")
    
11. DllCall($sDll, "int", "SkinH_Attach")
    
12. If _Singleton("语音计算器", 1) = 0 Then
    
13.         MsgBox(0, "警告", "本程序已在运行,请不要重复运行！ ")
    
14.         Exit
    
15. EndIf
    
16. $title=" 语音计算器   By dmqhcx88"
    
17. $oIE = ObjCreate("Shell.Explorer.2")
    
18. $Form1 = GUICreate($title, 340, 380, -1, -1 )
    
19. $GUIActiveX = GUICtrlCreateObj($oIE, -100, -11, 540, 420)
    
20. GUISetState()
    
21. $oIE.navigate(@TempDir & "\AM\a2.htm?r=a2.swf")
    
22. ControlListView($title, "", "SysListView321", "ViewChange", "smallicons")
    
23. While 1
    
24.         $nMsg = GUIGetMsg()
    
25.         Switch $nMsg
    
26.                 Case $GUI_EVENT_CLOSE
    
27.         FileDelete(@TempDir&"\skinh.she")
    
28.         FileDelete(@TempDir&"\SkinH_VB6.dll")
    
29.         FileDelete(@TempDir&"\AM\a2.htm")
    
30.         FileDelete(@TempDir&"\AM\a2.swf")
    
31.         DirRemove(@TempDir&"\AM",1)                                             
    
32.                         Exit
    
33.         EndSwitch
    
34. WEnd

复制代码

编译好的程序：

学习了，谢谢分享

trhy1234567 于 2016-10-28 20:17:33 补充以下内容:
学习了，谢谢分享

谢谢楼主分享

学习学习谢谢了

这个够强，学习看看到底怎么做的！

主楼的动态链接库编译比较完整，学习了谢谢分享。

楼主多才，谢谢分享！