找回密码
 加入
搜索
查看: 26197|回复: 66

[原创] AU3自用工具箱发布

[复制链接]
发表于 2018-4-29 16:55:28 | 显示全部楼层 |阅读模式
本帖最后由 cfanpc 于 2018-4-29 19:31 编辑

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

  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
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 4金钱 +125 收起 理由
宇硕 + 20 神马都是浮云
志艺风云 + 50 厉害、佩服
fybhwsx + 40 很实用,感谢分享!
zpmc123 + 15 原创辛苦了

查看全部评分

发表于 2018-4-29 17:13:04 | 显示全部楼层
厉害了WORD的哥
回复

使用道具 举报

发表于 2018-4-29 17:59:12 | 显示全部楼层
回复 1# cfanpc


    历害啊!也很实用!
回复

使用道具 举报

 楼主| 发表于 2018-4-29 19:32:15 | 显示全部楼层
源码修复了一个BUG,已打包的没有重新上传。你们自己看吧。
回复

使用道具 举报

发表于 2018-4-29 20:43:55 | 显示全部楼层
厉害厉害我的个神
回复

使用道具 举报

发表于 2018-4-30 08:43:01 | 显示全部楼层
太厉害了。多谢楼主分享!
回复

使用道具 举报

发表于 2018-4-30 09:00:33 | 显示全部楼层

强,厉害
谢谢分享
回复

使用道具 举报

发表于 2018-5-1 09:56:28 | 显示全部楼层
也很实用!
回复

使用道具 举报

发表于 2018-5-3 10:47:37 | 显示全部楼层
收集的工具很实用,谢谢。
回复

使用道具 举报

发表于 2018-5-4 21:55:53 | 显示全部楼层
厉害   谢谢分享!
回复

使用道具 举报

发表于 2018-5-5 15:04:33 | 显示全部楼层
收藏备用,谢谢分享。
回复

使用道具 举报

发表于 2018-5-16 22:33:04 | 显示全部楼层
工具很实用,厉害了我的哥
回复

使用道具 举报

发表于 2018-5-18 10:20:00 | 显示全部楼层
楼主我下载的不能运行。什么情况
回复

使用道具 举报

发表于 2018-5-18 10:33:35 | 显示全部楼层
重新下载了,还是不行。
回复

使用道具 举报

发表于 2018-5-18 11:31:19 | 显示全部楼层
回复 14# 虎虎虎
解决了。放到au3目录!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2023-12-11 09:49 , Processed in 0.109625 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表