BAT快速產生器-及其他延伸應用相對路徑輸出

paician

第一次發文。
這個是大約半年前的小工具
敝公司服務客戶眾多，也因權限鎖很死
故這個腳本工具是為了搭配我先前改良官方論壇Software Installer 工具而生
我是利用很多bat去執行提升權限安裝
而這個工具其實就只是方便我作業

也許 會有路過的人需要，本人AUTOIT也沒有研究太深
只能寫出這簡單功能


這CODE裡面主要亮點應該也就是引用前人的正則UDF下去寫
讓這工具能發揮最大效用


話說這裡沒有新文好久了

1. #include <file.au3>
   
2. #include <array.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <GUIConstantsEx.au3>
   
5. #include <MsgBoxConstants.au3>
   
6. #include <ButtonConstants.au3>
   
7. #include <EditConstants.au3>
   
8. #include <WinAPIIcons.au3>
   
9. 
   
10. #pragma compile(Out, Edit_Bat_Tool.exe)
    
11. #pragma compile(Icon, 'icoEdit_bat.ico'); 設定 icon 路徑
    
12. #pragma compile(x64, True)
    
13. #pragma compile(UPX, True)
    
14. #pragma compile(ProductName, Edit Bat Tool For )
    
15. #pragma compile(ProductVersion, 1.1)
    
16. #pragma compile(FileVersion, 1.1)
    
17. #pragma compile(FileDescription, Edit Bat Tool For  BAT快速修改新增程式))
    
18. #pragma compile(ExecLevel, highestavailable)
    
19. #pragma compile(LegalCopyright, c paician or paicianer)
    
20. #pragma compile(LegalTrademarks, '"by paician or paicianer')
    
21. #pragma compile(CompanyName, '')
    
    
22. 
    
23. $user = @SystemDir & "user32.dll"
    
24. $shell = @SystemDir & "shell32.dll"
    
25. $icoD = -4
    
26. Global $sVersion = "V1.1"
    
27. Global $iLogOnFlag = 0
    
28. Global $sParameters = ""
    
29. Global $Msg
    
30. _CheckUser()
    
31. Func _CheckUser()
    
32. 
    
33. Local $sMsg = ""
    
34. 
    
35. Switch @error
    
36. Case 0
    
37.    ;簡單用當前使用者帳號來區別才可使用
    
38.           Switch @UserName
    
39.                   Case "d.duke" To "d.duke"
    
40.                           $sMsg = "OK"
    
41.                           Sleep(500)
    
42. 
    
43.                   Case Else
    
44.                           $sMsg = MsgBox(262144,"提示","未經許可使用者無法使用此功能")
    
45.                           Exit
    
46.           EndSwitch
    
47.   Case Else
    
48.           $sMsg = "Something went horribly wrong."
    
49. EndSwitch
    
50. MsgBox($MB_SYSTEMMODAL, "提示", $sMsg)
    
51. Configure()
    
52. EndFunc
    
53. ;$lnk_file = ""
    
54. 
    
55. Func Configure()
    
56. $Form1 = GUICreate("快捷修改bat工具" & $sVersion, 742, 490, 717, 158)
    
57. $Input1 = GUICtrlCreateInput("", 150, 40, 256, 21);檔案名稱輸入框
    
58. GUICtrlSetTip($Input1, "輸入要儲存的bat檔名稱（不含.bat）")
    
    
59. $btn1 = GUICtrlCreateButton ( "(Browse)", 128, 80, 20, 20,$BS_ICON);目標程式圖示
    
60. GUICtrlSetTip($btn1, "請選擇目標程式")
    
61. GUICtrlSetImage($btn1, $shell, $icoD, 0)
    
62. $Input2 = GUICtrlCreateInput("", 150, 80, 256, 21) ;目標程式框
    
63. GUICtrlSetTip($Input2, "選擇要安裝的程式")
    
64. $btnsaved = GUICtrlCreateButton ( "(Browse)", 152, 120, 20, 20,$BS_ICON);要放置BAT路徑資料夾圖示按鈕
    
65. GUICtrlSetTip($btnsaved, "請選擇編輯存放位置")
    
66. GUICtrlSetImage($btnsaved, $shell, $icoD, 0)
    
67. 
    
68. $OK = GUICtrlCreateButton("新BAT存檔", 432, 79, 75, 25, $WS_GROUP);新BAT存檔按鈕
    
69. GUICtrlSetTip($OK, "確認內容無誤後會提示是否要覆蓋，如全新檔案則提示存檔成功")
    
70. $hInput3 = GUICtrlCreateInput("", 153, 160, 250, 18);SHOW出詳細路徑輸入框
    
71. GUICtrlSetTip(-1, "這裡會秀出上面的欄位")
    
72. $btn2 = GUICtrlCreateButton("生成code", 437, 32, 56, 34);要選定檔案名稱、目標程式、詳細路徑才會show預設bat程式碼於下方編輯
    
73. GUICtrlSetTip($btn2, "按此按鈕會生成預設程式碼在下方文字框裡")
    
74. $btn_check = GUICtrlCreateButton("檢查存檔是否存在", 589, 17, 110, 26);純粹檢查是否與檔案名稱相衝突bat檔
    
75. GUICtrlSetTip($btn_check, "這裡只是檢查當前是否有同名檔案存在")
    
76. $hButton4 = GUICtrlCreateButton("選要編輯的bat檔", 218, 215, 110, 30);選要編輯的bat檔按鈕
    
77. GUICtrlSetTip(-1, "按我選擇你要編輯的bat檔")
    
78. $hButton5 = GUICtrlCreateButton("舊存檔", 418, 217, 70, 30);舊存檔按鈕
    
79. $checkbat = GUICtrlCreateButton("檢查BAT執行語法",528,380,130,26)
    
80. GUICtrlSetTip($checkbat, "檢查編輯區相對路徑是否有問題--請注意，這個適用於新編輯的，不適合用於舊存檔區")
    
    
81. $Label1 = GUICtrlCreateLabel("檔案名稱", 8, 40, 99, 27)
    
82. $Label2 = GUICtrlCreateLabel("目標程式", 8, 80, 65, 27)
    
83. $Label3 = GUICtrlCreateLabel("要放置的BAT路徑資料夾", 8, 120, 132, 19)
    
84. ;_ClearAndSetInputs($Input2)
    
85. $hEdit = GUICtrlCreateEdit("", 183, 273, 333, 151);新舊BAT存檔共用顯示編輯框
    
86. GUICtrlSetTip($hEdit, "按生成code後這裡會顯示出來，你可以在這文字框中編輯任何程式行，然後再去按新bat存檔按鈕")
    
87. 
    
88. $hLabel5 = GUICtrlCreateLabel("詳細路徑：", 8, 158, 102, 21)
    
89. GUICtrlSetTip(-1, "請確認路徑是否正確，")
    
90. 
    
91. $hGroup = GUICtrlCreateGroup("編輯區", 181, 197, 335, 60)
    
92. $hGroup2 = GUICtrlCreateGroup("新BAT建立區", 4, 5, 723, 186)
    
93. $hLabel5 = GUICtrlCreateLabel("編輯框為新bat和編輯舊bat共用區" & @CRLF & _
    
94.                                                           "但要注意的是，新建立要選定框內的按鈕", 528, 275, 196, 106)
    
95. $hInput4 = GUICtrlCreateInput("", 183, 430, 333, 19)
    
96. $hLabel6 = GUICtrlCreateLabel("相對路徑輸出", 33, 430, 83, 19)
    
97. GUICtrlSetTip(-1, "這裡會隨著點此產生選定完自動帶出來")
    
98. $hButton7 = GUICtrlCreateButton("產生", 123, 430, 53, 19)
    
99. GUICtrlSetTip(-1, "點此產生")
    
100. $hInput5 = GUICtrlCreateInput("", 183, 460, 333, 19)
     
101. GUICtrlSetTip($hInput5, "這裡會隨著產生按鈕自動帶資料,但要自行更改相對路徑位置，目前沒有另外寫出另一判定方法")
     
102. $runtest = GUICtrlCreateButton("測試", 528, 460, 53, 19)
     
     
103. GUICtrlSetTip(-1, "點此測試路徑是否能直接開啟")
     
104. 
     
105. GUISetState(@SW_SHOW)
     
106. $title = "Choose .exe or .msi file"
     
107. 
     
108. Local $nMsg = 0
     
109. 
     
110. 
     
111. While 1
     
112. $nMsg = GUIGetMsg()
     
113. Switch $nMsg
     
114.    Case $GUI_EVENT_CLOSE
     
115.                  ExitLoop
     
116. 
     
117.    Case $OK;新bat存檔觸發
     
118.            If GUICtrlRead($Input1) And $Input2 And $hEdit = "" Then
     
119.                  MsgBox(0, "", "請填入上方欄位區")
     
120.    Else
     
121. 
     
122.           If FileExists(GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat") Then
     
123.                  $check_file = MsgBox (4, "確認視窗", "是否要覆蓋？")
     
124.                  If $check_file = 6 Then
     
125.                  ;MsgBox(4096,"Prompt",GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat")
     
126. 
     
127.                  $fh = FileOpen(GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat", 2 + 512)
     
128.                  FileWriteLine($fh,GUICtrlRead($hEdit))
     
129.                  FileClose($fh)
     
130.                  MsgBox(4096,"Prompt",GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat" & "已覆蓋")
     
     
131.           ElseIf $check_file = 7 Then
     
132.                  MsgBox(4096,"Prompt","取消存檔")
     
133.           EndIf
     
134.       Else;判斷未有同名bat情況下存檔
     
135.                  $fh2 = FileOpen(GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat", 2 + 512)
     
136.                  FileWriteLine($fh2,GUICtrlRead($hEdit))
     
137.                  FileClose($fh2)
     
138.                  MsgBox(4096,"確認存檔","已存檔成功" & GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat")
     
139.           EndIf
     
140.    EndIf
     
141.    Case        $hButton5;存檔
     
142.           MsgBox(64,"Prompt","舊BAT存檔：" & GUICtrlRead($hInput3))
     
143.           $fh = FileOpen(GUICtrlRead($hInput3), 2 + 512);開啟BAT
     
144.           FileWriteLine($fh,GUICtrlRead($hEdit));寫入行
     
145.           Sleep(100)
     
146.           FileClose($fh);關閉檔案
     
147.    Case $btn1;這裡是選擇圖示icon事件
     
148.                  $trag_file = FileOpenDialog($title, @ScriptDir & "..", "Applications/Batch (*.exe; *.msi; *.bat; *.rar; *.zip; *.7z)")
     
149.                  GUICtrlSetData ( $Input2, $trag_file)
     
     
150.                  If @error Then
     
151.                          MsgBox(0,"","No file was chosen")
     
152.                   EndIf
     
153.         Case $btnsaved;這裡是選擇圖示icon事件
     
154.           $sour_file = FileSelectFolder("請選定要放bat的路徑", @ScriptDir & "Software", 2)
     
155.                  GUICtrlSetData ( $hInput3, $sour_file & "")
     
156. 
     
157.           If @error Then
     
158.                   MsgBox(0,"","No file was chosen")
     
159.            EndIf
     
160.         Case $hButton7;點此產生
     
161.                  GUICtrlSetData($hInput4,"")
     
162.                  GUICtrlSetData($hInput4,"""%~dp0",1)
     
163.                  Local $string = GUICtrlRead($Input2)
     
164.                  Local $findText = "D:TESTDES";"\server pathToolsxxx"
     
165.                  Local $replaceText = ""
     
166.                  Local $newString = StringReplace($string,WildCardFindText($findText,$string),$replaceText)
     
167. 
     
168. 
     
169.                  Local $Str = StringReplace($string,WildCardFindText($findText,$string),$replaceText)
     
     
170.                  Local $ret = StringSplit ( $Str, '', 2)
     
171.                  Local $string2 = GUICtrlRead($hInput3)
     
172.                  Local $replaceText = ""
     
173. 
     
174.                  Local $findText2 = "D:TESTDES";"\server pathToolsxxx"
     
175.                  Local $newString2 = StringReplace($string2,WildCardFindText2($findText2,$string2),$replaceText)
     
176. 
     
177.                  Local $Str2 = StringReplace($string2,WildCardFindText2($findText2,$string2),$replaceText)
     
178.                  Local $ret2 = StringSplit ( $Str2, '', 2)
     
179.                  $Msg = ""
     
180.                  For $i = 0 to UBound ($ret2)-2
     
181.                                   $Msg = $Msg & $ret2[$i]
     
182.                  ;MsgBox(0,"123",StringRegExpReplace($Msg, ".*(?i)[A-Z]", $msg ))
     
183.                  ;MsgBox(0,"str2",$Str2)
     
184.                  ;$path = StringRegExpReplace($Msg, ".*(?i)[A-Z][^0-9]", "..\")
     
185.                  GUICtrlSetData($hInput4,StringRegExpReplace($Msg, ".*(?i)[A-Z].*", "..\"),1)
     
186.                  GUICtrlSetData($hInput5,StringRegExpReplace($Msg, ".*(?i)[A-Z].*", "..\"),1)
     
     
187.                  Next
     
188.                  GUICtrlSetData($hInput4,$newString & """",1)
     
189.                  GUICtrlSetData($hInput5,$newString & """",1)
     
190.    Case $btn2;生成編輯框裡的code
     
191.                  GUICtrlSetData($hEdit,"");
     
192.                  Local $string = GUICtrlRead($Input2)
     
193.                  Local $findText = "D:TESTDES";"\server pathToolsxxx"
     
194.                  Local $replaceText = ""
     
195.                  Local $newString = StringReplace($string,WildCardFindText($findText,$string),$replaceText)
     
196. 
     
197. 
     
198.                  Local $Str = StringReplace($string,WildCardFindText($findText,$string),$replaceText)
     
199.                  Local $ret = StringSplit ( $Str, '', 2)
     
200. 
     
201.                  Local $string2 = GUICtrlRead($hInput3)
     
202.                  Local $findText2 = "D:TESTDES";"\server pathToolsxxx"
     
203.                  Local $newString2 = StringReplace($string2,WildCardFindText2($findText2,$string2),$replaceText)
     
204. 
     
205. 
     
206.                  Local $Str2 = StringReplace($string2,WildCardFindText2($findText2,$string2),$replaceText)
     
     
207.                  Local $ret2 = StringSplit ( $Str2, '', 2)
     
208. 
     
209.                  $Msg = ""
     
210.                  GUICtrlSetData($hEdit,"@echo off" & @CRLF & "echo 切換cmd語系中.." & @CRLF & _
     
211. "chcp 437" & @CRLF & "echo Installing...please wait a program running" & @CRLF & _
     
212. """" & "%~dp0",1)
     
213. 
     
214.                  For $i = 0 to UBound ($ret2)-2
     
215.                                   $Msg = $Msg & $ret2[$i]
     
216.                  GUICtrlSetData($hEdit,StringRegExpReplace($Msg, ".*(?i)[A-Z].*", "..\"),1)
     
217.                  Next
     
218.                  If GUICtrlRead($Input2) = "" Then
     
219.                    MsgBox(0, "", "請填入目標程式路徑")
     
220.    Else
     
221.                  GUICtrlSetData($hEdit,$newString & """" & @CRLF & "echo Install has been done" & @CRLF & _
     
222. "timeout /t 5" & @CRLF & "exit",1)
     
223.    EndIf
     
224.    Case $btn_check;檢查存檔是否存在
     
225.           If GUICtrlRead($hInput3) = "" Then
     
226.                 MsgBox(0, "", "未填入/選擇目標bat路徑")
     
     
227.           ElseIf FileExists(GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat") Then
     
228.                  MsgBox(4096,"Check FileExists","已有與檔案名稱相同檔案")
     
229. 
     
230.           Else
     
231.                  MsgBox(4096,"Check FileExists","沒有與檔案名稱相同檔案")
     
232.           EndIf
     
233.    Case $hButton4;選要編輯的bat檔
     
234.                  $edit_file = FileOpenDialog($title, @ScriptDir & "Software", "Applications/Batch (*.bat)")
     
235.                  GUICtrlSetData ( $hInput3, $edit_file)
     
236.                  GUICtrlSetData ( $Input2, "")
     
237.                  GUICtrlSetData ( $Input1, "")
     
238.                  GUICtrlSetData ( $hInput4, "")
     
239.                  GUICtrlSetData ( $hInput5, "")
     
240.                  GUICtrlSetData($hEdit,FileRead($edit_file))
     
241.                  If @error Then
     
242.                          MsgBox(0,"","No file was chosen")
     
243.                   EndIf
     
244.    Case $checkbat;檢查BAT執行語法
     
245.                  $sText = GUICtrlRead($hEdit)
     
     
246.                  $aText = StringSplit($sText, @CRLF, 1)
     
247.                  For $i =5 To $aText[0]
     
248.                          $replace = StringReplace($aText[$i],"%~dp0",GUICtrlRead($hInput3) & "")
     
249. 
     
250.                          If FileExists(GUICtrlRead($hInput3) & "" & GUICtrlRead($Input1) & ".bat") Then
     
251.                                   MsgBox(4096, "檢查相對路徑", "bat檔存在，接著會測試是否能執行第五行code，路徑為:" & $replace)
     
252.                                   Runwait($replace)
     
253.                            Else
     
254.                                 MsgBox(4096,"",GUICtrlRead($newString) & "NONO")
     
255.                          EndIf
     
256.                          ExitLoop
     
257.                  Next
     
258.                  Case $runtest
     
259. 
     
260.                            MsgBox(64,"檢查路徑", """" & @ScriptDir & GUICtrlRead($hInput5))
     
     
261.                            ShellExecuteWait("""" & @ScriptDir & GUICtrlRead($hInput5))
     
262. EndSwitch
     
263. WEnd
     
264. 
     
265. EndFunc
     
266. ;正則處理
     
267. Func WildCardFindText($findText, $string)
     
268. If StringInStr($findText,"*") > 0 Then
     
269.   $WildCardPosition = StringInStr($findText,"*")
     
270.   If $WildCardPosition = StringLen($findText) Then
     
271.    $findText = StringLeft($findText,(StringLen($findText)-1))
     
272.    $findText = StringRight($string,(StringLen($string)-StringInStr($string,$findText))+1)
     
273.   Else
     
274.    $findText = StringRight($findText,(StringLen($findText)-1))
     
275.    $findText = StringLeft($string,(StringLen($string) - (StringLen($string)-StringInStr($string,$findText))))
     
276.   EndIf
     
277. EndIf
     
278. Return $findText
     
279. EndFunc
     
280. Func WildCardFindText2($findText2, $string2)
     
281. If StringInStr($findText2,"*") > 0 Then
     
282.   $WildCardPosition = StringInStr($findText2,"*")
     
283.   If $WildCardPosition = StringLen($findText2) Then
     
284.    $findText = StringLeft($findText2,(StringLen($findText2)-1))
     
285.    $findText = StringRight($string2,(StringLen($string2)-StringInStr($string2,$findText2))+1)
     
286.   Else
     
287.    $findText = StringRight($findText2,(StringLen($findText2)-1))
     
288.    $findText = StringLeft($string2,(StringLen($string2) - (StringLen($string2)-StringInStr($string2,$findText2))))
     
289.   EndIf
     
290. EndIf
     
291. Return $findText2
     
292. EndFunc

複製代碼