AU3自用工具箱发布

cfanpc

界面和功能很简陋，大神见笑了哈。

1. #NoTrayIcon
   
2. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
3. #PRE_Icon=C:\autoit3\Icons\MyAutoIt3_Green.ico
   
4. #PRE_Outfile=AU3工具箱.exe
   
5. #PRE_Compression=4
   
6. #PRE_UseUpx=n
   
7. #PRE_UseX64=n
   
8. #PRE_Res_Comment=AU3爱好者的工具箱
   
9. #PRE_Res_Fileversion=1.0.0.0
   
10. #PRE_Res_LegalCopyright=Copyright ? [url]http://www.autoit3.cn/[/url]
    
11. #PRE_Res_requestedExecutionLevel=None
    
12. #PRE_Run_Tidy=y
    
13. #Tidy_Parameters=/rel
    
14. #PRE_Tidy_Stop_OnError=n
    
15. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
    
16. #include <ButtonConstants.au3>
    
17. #include <GUIConstantsEx.au3>
    
18. #include <StaticConstants.au3>
    
19. #include <WindowsConstants.au3>
    
20. #include <GuiStatusBar.au3>
    
21. #include <WinAPIIcons.au3>
    
22. #Region ### START Koda GUI section ### Form=
    
23. Dim $DLL
    
24. If Not FileExists(@ScriptDir & '\Config.ini') Then
    
25.         FileInstall('Config.ini', @ScriptDir & '\Config.ini', 1)
    
26. EndIf
    
27. $lnk = @DesktopDir & "\AU3工具箱.lnk"
    
28. If Not FileExists($lnk) Then
    
29.         FileCreateShortcut(@ScriptFullPath, $lnk, @ScriptFullPath)
    
30. EndIf
    
31. If WinExists("AU3工具箱") Then
    
32.         WinActivate("AU3工具箱")
    
33.         Exit
    
34. EndIf
    
35. Global $sConfig = @ScriptDir & '\Config.ini'
    
36. Global $aConfig = IniReadSectionNames($sConfig)
    
37. Global $iButtonCount = $aConfig[0]
    
38. Global $aButton[$iButtonCount] ;按钮总数
    
39. Global $iNumber = 4 ;每行按钮数量
    
40. Global $iSpacingX = 170, $iSpacingY = 60 ;垂直、水平，间距
    
41. Global $converjpg
    
42. Global $nBytes
    
43. Global $autoit = "HKLM\SOFTWARE\AutoIt v3\AutoIt"
    
44. Global $install = RegRead($autoit, "InstallDir")
    
45. Global $ver = RegRead($autoit, "Version")
    
46. If $install = "" Then $install = "未知"
    
47. If $ver = "" Then $ver = "0.0.0"
    
48. Opt('GUIOnEventMode', 1)
    
49. FileInstall("2.jpg", @TempDir & "\ap.tmp", 1)
    
50. FileInstall("1.jpg", @TempDir & "\afan.tmp", 1)
    
51. $pic = Random(1, 2, 1)
    
52. If $pic = 1 Then $pic = @TempDir & "\afan.tmp"
    
53. If $pic = 2 Then $pic = @TempDir & "\ap.tmp"
    
54. $Form1 = GUICreate("Autoit3 工具箱  官网地址：[url]http://www.autoit3.cn/[/url]", 696, 438)
    
55. GUISetFont(12, 400, 0, "MS Sans Serif")
    
56. GUISetOnEvent(-3, '_ButtonEvents')
    
57. $Pic1 = GUICtrlCreatePic($pic, 0, 0, 695, 111)
    
58. For $i = 0 To UBound($aButton) - 1
    
59.         $aButton[$i] = GUICtrlCreateButton($aConfig[$i + 1], $iSpacingX * Mod($i, $iNumber) + 10, $iSpacingY * Floor($i / $iNumber) + 120, 150, 50)
    
60.         GUICtrlSetFont(-1, 12, 700, "", "Arial")
    
61. ;~         GUICtrlSetColor(-1, 0xFFFFFF)
    
62. ;~         GUICtrlSetBkColor(-1, 0x3399FF)
    
63.         GUICtrlSetOnEvent(-1, '_ButtonEvents')
    
64. Next
    
65. $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
    
66. Local $aParts[5] = [280, 450, 690]
    
67. _GUICtrlStatusBar_SetParts($StatusBar1, $aParts)
    
68. _GUICtrlStatusBar_SetIcon($StatusBar1, 0, _WinAPI_LoadShell32Icon(2))
    
69. _GUICtrlStatusBar_SetText($StatusBar1, "Autoit目录：" & $install, 0)
    
70. _GUICtrlStatusBar_SetIcon($StatusBar1, 1, _WinAPI_LoadShell32Icon(40))
    
71. _GUICtrlStatusBar_SetText($StatusBar1, "版本:" & $ver, 1) ;运行状态：停止
    
72. _GUICtrlStatusBar_SetIcon($StatusBar1, 2, _WinAPI_LoadShell32Icon(265))
    
73. _GUICtrlStatusBar_SetText($StatusBar1, time(), 2)
    
74. _SkinGUI()
    
75. GUISetState(@SW_SHOW)
    
76. #EndRegion ### END Koda GUI section ###
    
77. While 1
    
78.         Sleep(500)
    
79. WEnd
    
80. Func _ButtonEvents()
    
81.         Switch @GUI_CtrlId
    
82.                 Case -3
    
83.                         Quit()
    
84.                 Case $aButton[0] To $aButton[UBound($aButton) - 1]
    
85.                         $sButtonText = GUICtrlRead(@GUI_CtrlId)
    
86.                         $sLink = IniRead($sConfig, $sButtonText, 'link', '')
    
87.                         ShellExecute(@ScriptDir & "" & $sLink)
    
88.         EndSwitch
    
89. EndFunc   ;==>_ButtonEvents
    
90. Func time()
    
91.         While 1
    
92.                 $string = "时间:" & @YEAR & "年" & @MON & "月" & @MDAY & "日" & _weekday() & @HOUR & ":" & @MIN & ":" & @SEC
    
93.                 Return $string
    
94.         WEnd
    
95. EndFunc   ;==>time
    
96. Func _weekday()
    
97.         Switch @WDAY
    
98.                 Case 1
    
99.                         Return "星期日"
    
100.                 Case 2
     
101.                         Return "星期一"
     
102.                 Case 3
     
103.                         Return "星期二"
     
104.                 Case 4
     
105.                         Return "星期三"
     
106.                 Case 5
     
107.                         Return "星期四"
     
108.                 Case 6
     
109.                         Return "星期五"
     
110.                 Case 7
     
111.                         Return "星期六"
     
112.         EndSwitch
     
113. EndFunc   ;==>_weekday
     
114. Func _SkinGUI()
     
115.         FileInstall("Skin.dll", @TempDir & "\Skin.dll", 1)
     
116.         FileInstall("china.she", @TempDir & "\china.she", 1)
     
117.         $Form1 = @TempDir & "\china.she"
     
118.         $DLL = DllOpen(@TempDir & "\Skin.dll")
     
119.         DllCall($DLL, "int", "SkinH_AttachEx", "str", $Form1, "str", "mhgd")
     
120. ;~ DllCall($DLL, "int", "SkinH_SetAero", "int", 1)
     
121. EndFunc   ;==>_SkinGUI
     
122. Func Quit()
     
123.         GUISetState(@SW_HIDE)
     
124.         DllCall($DLL, "int", "SkinH_Detach")
     
125.         DllClose($DLL)
     
126.         FileDelete(@TempDir & "\Skin.dll")
     
127.         FileDelete(@TempDir & "\china.she")
     
128.         Exit
     
129. EndFunc   ;==>Quit
     

复制代码

xzf680

厉害了WORD的哥

zpmc123

回复 1# cfanpc


    历害啊！也很实用！

cfanpc

源码修复了一个BUG，已打包的没有重新上传。你们自己看吧。

qsy666888

厉害厉害我的个神

afoo

太厉害了。多谢楼主分享！

hnfeng

强，厉害
谢谢分享

weeks1

也很实用！

志艺风云

收集的工具很实用，谢谢。

在下

厉害　　　谢谢分享！

呼啦啦呵

收藏备用，谢谢分享。

sh1536

工具很实用，厉害了我的哥

虎虎虎

楼主我下载的不能运行。什么情况

虎虎虎

重新下载了，还是不行。

虎虎虎

回复 14# 虎虎虎
解决了。放到au3目录！