請選擇 進入手機版 | 繼續訪問電腦版

微剋多資訊

 找回密碼
 註冊

Login

免註冊即享有會員功能

搜索
回覆 3則 瀏覽 14464篇

[程式+碼源] AutoIt 3.3.14.2 一鍵安裝版 v1.0.1

簽到天數: 178

該用戶今日未簽到

發表於 2016-10-6 22:01 | 顯示全部樓層 |閱讀模式
本帖最後由 gary8349 於 2016-10-7 11:46 編輯

【軟體名稱】:AutoIt 3.3.14.2 一鍵安裝版 v1.0.1
【檔案大小】:36.4MB
【檔案格式】:exe / zip
【測試環境】:Windows 10 Enterprise x64  / Administrator
【放置空間】:Google / SYNDriver
【下載網址】:exe:Google DriveSYNDriver / zipGoogle DriveSYNDriver
【解壓密碼】:ZIP密碼:MicroDuo
【校驗工具】:檔案校驗工具
AutoIt 3.3.14.2 一鍵安裝版.exe
CRC32:2630162E
MD5:17E265894F90559D59492B0361FEB689
SHA1:2034C52A59FB03EC8F9FF164148F4F52C39F1AFD

初次製作,請先進多多指導 (汗 ><|||

版本資訊:
  • AutoIt v3 版本:3.3.14.2(官方版)
  • 幫助文件(繁中)版本:3.3.0.0
  • 幫助文件(英文)版本:3.3.14.2
  • SciTE編輯器 版本:3.6.6

封裝特色:
  • 基於原版,採用一鍵安裝,快速方便無汙染
  • 編輯器預設為繁體中文
  • 編輯器預設編碼950(非65001)
  • 安裝時判斷是否已有安裝過,覆寫前備份設定檔以及官方UDF資料夾
  • 安裝方法及設定值使用噹噹(rictirse)大的檔案修改
  • 安裝包加入中文化的範例檔及中文版幫助文件,感謝無痕之音(wellss)大
  • 安裝包加入多個UDF進資料夾Include(來自:傳送門

預覽圖:










簽到天數: 178

該用戶今日未簽到

 樓主| 發表於 2016-10-6 22:01 | 顯示全部樓層
本帖最後由 gary8349 於 2016-10-6 22:03 編輯

備用樓層~
備用樓層~
備用樓層~
備用樓層~
備用樓層~

使用道具

簽到天數: 178

該用戶今日未簽到

 樓主| 發表於 2016-10-6 22:01 | 顯示全部樓層
本帖最後由 gary8349 於 2016-10-6 21:53 編輯

AutoRun.au3
  1. #cs ____________________________________

  2. Au3版本:3.14.2
  3. SciTE版本:3.6.6
  4. 腳本作者:Grayfree

  5. 腳本功能:
  6. 參考代碼:Dang Wang

  7. #ce _______________腳本開始_________________


  8. #NoTrayIcon
  9. #RequireAdmin
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <Misc.au3>


  13. ;;防止重複執行
  14. _Singleton ( @ScriptName )


  15. #cs _______________用檔案總管複製檔案_______________
  16. Global Const $FO_COPY = 0x0002
  17. Global Const $FOF_ALLOWUNDO = 0x0040

  18. _ExplorerCopy ( "AutoIt3" ,  $AURUT )

  19. Func _ExplorerCopy($source, $dest)

  20.     Local $SHFILEOPSTRUCT, $source_struct, $dest_struct

  21.     $SHFILEOPSTRUCT = DllStructCreate("hwnd hWnd;uint wFunc;ptr pFrom;ptr pTo;int fFlags;" & _
  22.                                       "int fAnyOperationsAborted;ptr hNameMappings;ptr lpszProgressTitle")

  23.     $source_struct = DllStructCreate("char[" & StringLen($source) + 2 & "]")
  24.     DllStructSetData($source_struct, 1, $source)
  25.     DllStructSetData($source_struct, 1, 0, StringLen($source) + 2)

  26.     $dest_struct = DllStructCreate("char[" & StringLen($dest) + 2 & "]")
  27.     DllStructSetData($dest_struct, 1, $dest)
  28.     DllStructSetData($dest_struct, 1, 0, StringLen($dest) + 2)

  29.     DllStructSetData($SHFILEOPSTRUCT, "hWnd", 0)
  30.     DllStructSetData($SHFILEOPSTRUCT, "wFunc", $FO_COPY)
  31.     DllStructSetData($SHFILEOPSTRUCT, "pFrom", DllStructGetPtr($source_struct))
  32.     DllStructSetData($SHFILEOPSTRUCT, "pTo", DllStructGetPtr($dest_struct))
  33.     DllStructSetData($SHFILEOPSTRUCT, "fFlags", $FOF_ALLOWUNDO)

  34.     DllCall("shell32.dll", "int", "SHFileOperation", "ptr", DllStructGetPtr($SHFILEOPSTRUCT))
  35. EndFunc   ;==>_ExplorerCopy
  36. #ce _______________用檔案總管複製檔案_______________


  37. ;;宣告安裝路徑
  38. Dim Const $AURUT = @ProgramFilesDir & "\AutoIt3"
  39. ;;宣告時間變數,用於建立資料夾或檔名
  40. Dim $DateTime = ( @YEAR & "_" & @MON & "_" & @MDAY & "_" & @HOUR & "_" & [url=home.php?mod=space&uid=7364572]@min[/url] & "_" & @SEC )


  41. ;;終止進程
  42. If ProcessExists ( "AutoDec19.exe" ) Then
  43.         ProcessClose ( "AutoDec19.exe" )
  44. EndIf

  45. If ProcessExists ( "AutoIt代碼簡易格式化工具.exe" ) Then
  46.         ProcessClose ( "AutoIt代碼簡易格式化工具.exe" )
  47. EndIf

  48. If ProcessExists ( "Reg2Au3(UniCode).exe" ) Then
  49.         ProcessClose ( "Reg2Au3(UniCode).exe" )
  50. EndIf

  51. If ProcessExists ( "Reg2Au3(ANSI).exe" ) Then
  52.         ProcessClose ( "Reg2Au3(ANSI).exe" )
  53. EndIf

  54. If ProcessExists ( "Au3Info.exe" ) Then
  55.         ProcessClose ( "Au3Info.exe" )
  56. EndIf

  57. If ProcessExists ( "SciTE.exe" ) Then
  58.         ProcessClose ( "SciTE.exe" )
  59. EndIf

  60. If ProcessExists ( "Aut2exe.exe" ) Then
  61.         ProcessClose ( "Aut2exe.exe" )
  62. EndIf

  63. If ProcessExists ( "FD.exe" ) Then
  64.         ProcessClose ( "FD.exe" )
  65. EndIf

  66. If ProcessExists ( "hh.exe" ) Then
  67.         ProcessClose ( "hh.exe" )
  68. EndIf


  69. ;;判斷是否安裝過
  70. If FileExists ($AURUT & "\Include" ) or FileExists ($AURUT & "\SciTE" ) or FileExists ($AURUT & "\Examples" ) Then
  71.         If MsgBox (4609, "已有安裝AutoIt" , "按下確定開始安裝AutoIt" & @CRLF & "按下取消離開安裝程式" ) <> 1 Then
  72.                 Exit
  73.         Else
  74.                 ;;繼續安裝,覆蓋前備份設定檔和UDF
  75.                 $BakFolder = @HomeDrive & "\AutoIt_Config_Backup" & "\Installer_Backup_" & $DateTime
  76.                 DirCreate ( $BakFolder & "\Include" )
  77.                 DirCopy ( $AURUT & "\Include" ,  $BakFolder & "\Include" , 0x00000001 )
  78.                 FileCopy ( $AURUT & "\SciTE\SciTE.sess" ,  $BakFolder )
  79.                 FileCopy ( $AURUT & "\SciTE\SciTEUser.properties" ,  $BakFolder )
  80.                 MsgBox (0 , "提示" , "覆寫原有檔案前," & @CRLF & "" & @CRLF & "已將設定檔和UDF備份至:" & @CRLF & $BakFolder )
  81.         EndIf
  82. EndIf


  83. ;;全新安裝詢問
  84. If FileExists ($AURUT & "\Include" ) or FileExists ($AURUT & "\SciTE" ) or FileExists ($AURUT & "\Examples" ) Then
  85. Else
  86.         If MsgBox (4609, "安裝AutoIt" , "是否要全新安裝 AutoIt v3" ) <> 1 Then
  87.                 Exit
  88.         EndIf
  89. EndIf


  90. ;;建立工作中提示窗
  91. GUICreate ( "執行中" , 200 , 72 , Default , Default , BitOR ( $WS_SYSMENU , $WS_POPUP ) ) ; 建立無邊框GUI視窗
  92. GUISetState ( @SW_SHOW)  ; 顯示GUI視窗
  93. $Label1 = GUICtrlCreateLabel ("- 安裝中,請稍候 -" , 50 , 32 , 100 , 25 )
  94.         GUICtrlSetColor ( -1 , 0x1260FF ) ;;藍色


  95. ;;複製資料夾到目的地
  96. DirCopy ( "AutoIt3" ,  $AURUT ,  0x00000001 )


  97. ;;建立開始桌面捷徑
  98. FileCreateShortcut  ( $AURUT & "\AutoDec19.exe" ,  @DesktopDir & "\AutoIt 反編譯工具.lnk" )
  99. FileCreateShortcut  ( $AURUT & "\AutoIt代碼簡易格式化工具.exe" ,  @DesktopDir & "\AutoIt 代碼簡易格式化工具.lnk" )
  100. FileCreateShortcut  ( $AURUT & "\Reg2Au3(UniCode).exe" ,  @DESKTOPDIR & "\Reg2Au3(UniCode).lnk" )
  101. FileCreateShortcut  ( $AURUT & "\Au3Info.exe" ,  @DESKTOPDIR & "\Au3Info.lnk" )
  102. FileCreateShortcut  ( $AURUT & "\SciTE\SciTE.exe" ,  @DESKTOPDIR & "\SciTE.lnk" )
  103. FileCreateShortcut  ( $AURUT & "\Aut2Exe\Aut2exe.exe" ,  @DESKTOPDIR & "\Aut2exe.lnk" )
  104. FileCreateShortcut  ( $AURUT & "\KODA FormDesigner 1.6.0.2\FD.exe" ,  @DESKTOPDIR & "\KODA FormDesigner .lnk" )


  105. ;;建立開始功能表捷徑
  106. $Path = @UserProfileDir & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\AutoIt v3"
  107. DirCreate ( $Path )
  108. FileCreateShortcut  ( $AURUT & "\AutoDec19.exe" , $Path & "\_AutoIt 反編譯工具.lnk" )
  109. FileCreateShortcut  ( $AURUT & "\AutoIt代碼簡易格式化工具.exe" , $Path & "\_AutoIt 代碼簡易格式化工具.lnk" )
  110. FileCreateShortcut  ( $AURUT & "\AutoIt_3.3.0.0_繁中.chm" , $Path & "\_AutoIt 幫助手冊 3.3.0.0 繁中版.lnk" )
  111. FileCreateShortcut  ( $AURUT & "\AutoIt.chm" , $Path & "\_AutoIt 幫助手冊 3.3.14.2 英文版.lnk" )
  112. FileCreateShortcut  ( $AURUT & "\Reg2Au3(UniCode).exe" ,  $Path & "\Reg2Au3(UniCode).lnk" )
  113. FileCreateShortcut  ( $AURUT & "\Au3Info.exe" ,  $Path & "\Au3Info.lnk" )
  114. FileCreateShortcut  ( $AURUT & "\SciTE\SciTE.exe" ,  $Path & "\SciTE.lnk" )
  115. FileCreateShortcut  ( $AURUT & "\Aut2Exe\Aut2exe.exe" ,  $Path & "\Aut2exe.lnk" )
  116. FileCreateShortcut  ( $AURUT & "\KODA FormDesigner 1.6.0.2\FD.exe" ,  $Path & "\KODA FormDesigner.lnk" )
  117. FileCreateShortcut  ( $AURUT & "\Uninstall.exe" ,  $Path & "\反安裝 AutoIt v3.lnk" )
  118. FileCreateShortcut  ( $AURUT & "\Examples" ,  $Path & "\_Example" )
  119. DirCreate ( $Path & "\Extras" )
  120. DirCreate ( $Path & "\Extras\AutoItX" )
  121. FileCreateShortcut  ( $AURUT & "\AutoIt v3 Website.url" ,  $Path & "\Extras\AutoIt v3 Website.url" )
  122. FileCreateShortcut  ( $AURUT & "\Extras" ,  $Path & "\Extras\瀏覽 Extras 資料夾" )
  123. FileCreateShortcut  ( $AURUT & "\AutoItX\AutoItX.chm" ,  $Path & "\Extras\AutoItX\AutoItX Help File.lnk" )
  124. FileCreateShortcut  ( $AURUT & "\AutoItX\ActiveX\VBScript" ,  $Path & "\Extras\AutoItX\VBScript 範例" )


  125. ;;複製設定檔
  126. FileCopy ( "SciTE.session" ,  $AURUT & "\SciTE\SciTE.sess" )
  127. FileCopy ( "SciTEUser.properties" ,  $AURUT & "\SciTE\SciTEUser.properties" )


  128. ;;複製移除用檔案
  129. FileCopy ( "Uninstall.exe" ,  $AURUT , 1 )


  130. ;;建立官方安裝後會有的登錄表
  131. RegWrite ( "HKEY_CLASSES_ROOT\.au3" , "PerceivedType" , "REG_SZ" , "text" )
  132. RegWrite ( "HKEY_CLASSES_ROOT\.au3", "", "REG_SZ", "AutoIt3Script")
  133. RegWrite ( "HKEY_CLASSES_ROOT\.au3\PersistentHandler", "", "REG_SZ", "{5e941d80 - bf96 - 11cd - b579 - 08002b30bfeb}")
  134. RegWrite ( "HKEY_CLASSES_ROOT\.au3\ShellNew", "FileName", "REG_SZ", "Template.au3")

  135. RegWrite ( "HKEY_CLASSES_ROOT\.a3x", "", "REG_SZ", "AutoIt3XScript")

  136. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script", "", "REG_SZ", "AutoIt v3 Script")
  137. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\DefaultIcon", "", "REG_SZ", $AURUT & "\Icons\au3script_v10.ico")
  138. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell", "", "REG_SZ", "Open")
  139. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Compile", "", "REG_SZ", "Compile Script")
  140. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Compile\Command", "", "REG_SZ", StringFormat('"%s\Aut2Exe\Aut2Exe.exe"  / in "%l"', $AURUT))
  141. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\CompileX64", "", "REG_SZ", "Compile Script (x64)")
  142. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\CompileX64\Command", "", "REG_SZ", StringFormat('"%s\Aut2Exe\Aut2Exe_x64.exe"  / in "%l"', $AURUT))
  143. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\CompileX86", "", "REG_SZ", "Compile Script (x86)")
  144. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\CompileX86\Command", "", "REG_SZ", StringFormat('"%s\Aut2Exe\Aut2Exe.exe"  / in "%l"', $AURUT))
  145. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit", "", "REG_SZ", "Edit Script")
  146. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit\Command", "", "REG_SZ", StringFormat('"%s\SciTE\SciTE.exe" "%1"', $AURUT))
  147. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Open", "", "REG_SZ", "Open")
  148. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Open\Command", "", "REG_SZ", StringFormat('"%s\SciTE\SciTE.exe" "%1"', $AURUT))
  149. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Run", "", "REG_SZ", "Run Script")
  150. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Run\Command", "", "REG_SZ", StringFormat('"%s\AutoIt3.exe" "%1" % * ', $AURUT))
  151. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\RunX64", "", "REG_SZ", "Run Script (x64)")
  152. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\RunX64\Command", "", "REG_SZ", StringFormat('"%s\AutoIt3_x64.exe" "%1" % * ', $AURUT))
  153. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\RunX86", "", "REG_SZ", "Run Script (x86)")
  154. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3Script\Shell\RunX86\Command", "", "REG_SZ", StringFormat('"%s\AutoIt3.exe" "%1" % * ', $AURUT))

  155. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3XScript", "", "REG_SZ", "AutoIt v3 Encoded Script")
  156. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3XScript\DefaultIcon", "", "REG_SZ", $AURUT & "\Icons\au3script_v10.ico")
  157. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3XScript\Shell", "", "REG_SZ", "Run")
  158. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3XScript\Shell\Run", "", "REG_SZ", "Run Script")
  159. RegWrite ( "HKEY_CLASSES_ROOT\AutoIt3XScript\Shell\Run\Command", "", "REG_SZ", StringFormat('"%s\AutoIt3.exe" "%1" % * ', $AURUT))

  160. RegWrite ( "HKEY_CLASSES_ROOT\AutoItX3.Control", "", "REG_SZ", "AutoItX3 Class")
  161. RegWrite ( "HKEY_CLASSES_ROOT\AutoItX3.Control\CLSID", "", "REG_SZ", "{1A671297 - FA74 - 4422 - 80FA - 6C5D8CE4DE04}")
  162. RegWrite ( "HKEY_CLASSES_ROOT\AutoItX3.Control\CurVer", "", "REG_SZ", "AutoItX3.Control.1")

  163. RegWrite ( "HKEY_CLASSES_ROOT\AutoItX3.Control.1", "", "REG_SZ", "AutoItX3 Class")
  164. RegWrite ( "HKEY_CLASSES_ROOT\AutoItX3.Control.1\CLSID", "", "REG_SZ", "{1A671297 - FA74 - 4422 - 80FA - 6C5D8CE4DE04}")


  165. ;;讓REG即時生效
  166. ProcessClose ( "explorer.exe" )
  167. Sleep ( 2000 )
  168. If ProcessExists ( "explorer.exe" ) Then
  169.         MsgBox (0 , "提示" , "AutoIt 安裝已完成" )
  170. Else
  171.         Run ( "explorer.exe" )
  172.         MsgBox (0 , "提示" , "AutoIt 安裝已完成" )
  173. EndIf

複製代碼
Uninstall.au3
  1. #cs ____________________________________

  2. Au3版本:3.14.2
  3. SciTE版本:3.6.6
  4. 腳本作者:Grayfree

  5. 腳本功能:
  6. 參考代碼:Dang Wang

  7. #ce _______________腳本開始_________________


  8. #NoTrayIcon
  9. #RequireAdmin
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #Include <Misc.au3>


  13. ;;防止重複執行
  14. _Singleton ( @ScriptName )

  15. ;;宣告檔案路徑
  16. Dim Const $AURUT = @ProgramFilesDir & "\AutoIt3"
  17. Dim Const $Path = @UserProfileDir & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\AutoIt v3"
  18. Dim $DateTime = ( @YEAR & "_" & @MON & "_" & @MDAY & "_" & @HOUR & "_" & @MIN & "_" & @SEC )


  19. ;;詢問是否移除
  20. If FileExists ($AURUT & "\Include" ) or FileExists ($AURUT & "\SciTE" ) or FileExists ($AURUT & "\Examples" ) Then
  21.         If MsgBox (4609, "提示" , "確定要完整移除 AutoIt?" & @CRLF & "按下確定開始移除程式" & @CRLF & "" & @CRLF & "提醒:移除前記得備份UDF和設定檔喔~" ) <> 1 Then
  22.                 Exit
  23.                 EndIf
  24. EndIf


  25. ;;建立工作中提示窗
  26. GUICreate ( "執行中" , 200 , 72 , Default , Default , BitOR ( $WS_SYSMENU , $WS_POPUP ) ) ; 建立無邊框GUI視窗
  27. GUISetState ( @SW_SHOW)  ; 顯示GUI視窗
  28. $Label1 = GUICtrlCreateLabel ("- 移除中,請稍候 -" , 50 , 32 , 100 , 25 )
  29.         GUICtrlSetColor ( -1, 0xEE7600);;橘色


  30. ;;終止進程
  31. If ProcessExists ( "AutoDec19.exe" ) Then
  32.         ProcessClose ( "AutoDec19.exe" )
  33. EndIf

  34. If ProcessExists ( "AutoIt代碼簡易格式化工具.exe" ) Then
  35.         ProcessClose ( "AutoIt代碼簡易格式化工具.exe" )
  36. EndIf

  37. If ProcessExists ( "Reg2Au3(UniCode).exe" ) Then
  38.         ProcessClose ( "Reg2Au3(UniCode).exe" )
  39. EndIf

  40. If ProcessExists ( "Reg2Au3(ANSI).exe" ) Then
  41.         ProcessClose ( "Reg2Au3(ANSI).exe" )
  42. EndIf

  43. If ProcessExists ( "Au3Info.exe" ) Then
  44.         ProcessClose ( "Au3Info.exe" )
  45. EndIf

  46. If ProcessExists ( "SciTE.exe" ) Then
  47.         ProcessClose ( "SciTE.exe" )
  48. EndIf

  49. If ProcessExists ( "Aut2exe.exe" ) Then
  50.         ProcessClose ( "Aut2exe.exe" )
  51. EndIf

  52. If ProcessExists ( "FD.exe" ) Then
  53.         ProcessClose ( "FD.exe" )
  54. EndIf

  55. If ProcessExists ( "hh.exe" ) Then
  56.         ProcessClose ( "hh.exe" )
  57. EndIf


  58. ;;備份設定檔和UDF至C:\
  59. $BakFolder = @HomeDrive & "\AutoIt_Config_Backup" & "\Remove_Backup_" & $DateTime
  60. DirCreate ( $BakFolder & "\Include" )
  61. DirCopy ( $AURUT & "\Include" ,  $BakFolder & "\Include" , 0x00000001 )
  62. FileCopy ( $AURUT & "\SciTE\SciTE.sess" ,  $BakFolder )
  63. FileCopy ( $AURUT & "\SciTE\SciTEUser.properties" ,  $BakFolder )


  64. ;;移除捷徑
  65. DirRemove ( $Path , 1 )
  66. FileDelete ( @DesktopDir & "\AutoIt 反編譯工具.lnk" )
  67. FileDelete ( @DesktopDir & "\AutoIt 代碼簡易格式化工具.lnk" )
  68. FileDelete ( @DesktopDir & "\Reg2Au3(UniCode).lnk" )
  69. FileDelete ( @DesktopDir & "\Au3Info.lnk" )
  70. FileDelete ( @DesktopDir & "\SciTE.lnk" )
  71. FileDelete ( @DesktopDir & "\Aut2exe.lnk" )
  72. FileDelete ( @DesktopDir & "\KODA FormDesigner .lnk" )


  73. ;;移除登錄檔
  74. RegDelete ( "HKEY_CLASSES_ROOT\.au3" )
  75. RegDelete ( "HKEY_CLASSES_ROOT\.a3x" )
  76. RegDelete ( "HKEY_CLASSES_ROOT\AutoIt3Script" )
  77. RegDelete ( "HKEY_CLASSES_ROOT\AutoIt3XScript" )
  78. RegDelete ( "HKEY_CLASSES_ROOT\AutoItX3.Control" )
  79. RegDelete ( "HKEY_CLASSES_ROOT\AutoItX3.Control.1" )


  80. ;;讓REG即時生效
  81. ProcessClose ( "explorer.exe" )
  82. Sleep ( 2000 )
  83. If ProcessExists ( "explorer.exe" ) Then
  84.         MsgBox (0 , "移除成功" , "AutoIt 移除已完成" & @CRLF & "" & @CRLF & "已將設定檔和UDF備份至:" & @CRLF & $BakFolder )
  85. Else
  86.         Run ( "explorer.exe" )
  87.         MsgBox (0 , "移除成功" , "AutoIt 移除已完成" & @CRLF & "" & @CRLF & "已將設定檔和UDF備份至:" & @CRLF & $BakFolder )
  88. EndIf


  89. ;;移除AutoIt檔案
  90. ;;防止誤刪
  91. if Not @compiled Then
  92.         Msgbox(48,"Kill Me","請編譯後執行...")
  93.         Exit
  94. Endif

  95. ;;防止被設置 系統 和 隱藏 只讀 等屬性
  96. if FileGetAttrib ( $AURUT )<>"A" Then
  97.         FileSetAttrib ( $AURUT , "-RSH" , 0 )
  98. Endif

  99. ;;移除AU3安裝目錄
  100. Exit Run ( @ComSpec & ' /c ping 127.0.0.1 -n 3&rd /s/q "' & $AURUT & '"&exit' , @SystemDir , @SW_HIDE )

複製代碼

使用道具

該用戶從未簽到

發表於 2016-11-13 11:52 | 顯示全部樓層
本帖最後由 ali88home 於 2016-11-13 12:19 編輯

小弟後學初來貴寶地學習AU3編輯,這是第一次接觸AUTOLT,安裝了程式,結果桌面出現了七個捷徑
1.哪位前輩大大可以詳細說明這該如何個別運用,可否舉例示範
2.翻看了貼及中文說明,主編輯程式應該是SciTE吧!*.EXE執行安裝檔需要AUT2再轉換嗎?
中文說明:以下只限完整安裝才能使用 -
1.  點選 "開始選單" 並瀏覽 AutoIt v3 群組。
2.  點選 "將腳本編譯為執行檔"
3.  Aut2Exe 主介面視窗稍後就會出現。
操作了,沒有自動出現???
3.那上面兩段代碼又是如何使用呢?不懂?問問.是AU3例子範本嗎?出現錯誤信息

本帖子中包含更多資源

您需要 登入 才可以下載或查看,沒有帳號?註冊

x

使用道具

您需要登入後才可以回帖 登入 | 註冊

本版積分規則

快速回覆 返回頂部 返回列表