中国天气查询

1. 
   
2. #NoTrayIcon
   
3. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
4. #AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll|-23
   
5. #AutoIt3Wrapper_outfile=中国天气查询.exe
   
6. #AutoIt3Wrapper_Compression=4
   
7. #AutoIt3Wrapper_UseUpx=n
   
8. #AutoIt3Wrapper_Res_Description=AM电脑吧
   
9. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
   
10. #AutoIt3Wrapper_Res_LegalCopyright=(C) AM电脑吧 2012
    
11. #AutoIt3Wrapper_Res_Field=CompanyName|编写:dmqhcx88
    
12. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
    
13. #include<ie.au3>
    
14. #include <GUIConstantsEx.au3>
    
15. #include <WindowsConstants.au3>
    
16. #include <Misc.au3>
    
17. HotKeySet("{F4}", "TC")
    
18. If _Singleton("中国天气查询", 1) = 0 Then
    
19. MsgBox(0, "警告", "本程序已在运行,请不要重复运行！ ")
    
20. Exit
    
21. EndIf
    
22. $oIE = _IECreateEmbedded()
    
23. $Form1 = GUICreate("中国天气查询", 684, 516, -1, -1)
    
24. GUISetState(@SW_SHOW)
    
25. $GUIActiveX = GUICtrlCreateObj($oIE, -83, -3, 850, 520)
    
26. GUICtrlSetResizing(-1, 1)
    
27. GUISetState()
    
28. _IENavigate($oIE, "http://flash.weather.com.cn/wmaps/index.swf?", 0)
    
29. Func TC()
    
30. If BitAND(WinGetState($Form1), 2) <> 2 Then
    
31.   GUISetState(@SW_SHOW)
    
32. Else
    
33.   GUISetState(@SW_HIDE)
    
34. EndIf
    
35. EndFunc   ;==>TC
    
36. While 1
    
37. $nMsg = GUIGetMsg()
    
38. Switch $nMsg
    
39.   Case $GUI_EVENT_CLOSE
    
40.    Exit
    
41. EndSwitch
    
42. WEnd

复制代码

这是个宝贝 谢谢分享

试试看，好用不

多谢分享 支持了

谢谢分享了。