API tools faq
paste
Advertisement
Najeebsk

CREATE-SCRIPT.au3

Najeebsk
Nov 3rd, 2022
2,445
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 14.67 KB | None | 0 0
raw download clone embed print report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Res_SaveSource=y
  3. #AutoIt3Wrapper_Res_Language=1033
  4. #AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
  5. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  6. ; *** Start added by AutoIt3Wrapper ***
  7. #include <AutoItConstants.au3>
  8. #include <FileConstants.au3>
  9. #include <MsgBoxConstants.au3>
  10. #include <StringConstants.au3>
  11. ; *** End added by AutoIt3Wrapper ***
  12. #include <ButtonConstants.au3>
  13. #include <EditConstants.au3>
  14. #include <GUIConstantsEx.au3>
  15. #include <StaticConstants.au3>
  16. #include <WindowsConstants.au3>
  17. #include <GuiEdit.au3>
  18. #include <Constants.au3>
  19. #include <Array.au3>
  20. If Not FileExists ( @ScriptDir & "\CREATE-SCRIPT.ini" ) Then
  21.     If Not FileExists ( @ScriptDir & "\CREATE-SCRIPT" ) Then
  22.         DirCreate ( @ScriptDir & "\CREATE-SCRIPT" )
  23.     EndIf
  24.     $folder = FileSelectFolder ( "Select the folder where you want to store saved scripts.", @ScriptDir )
  25.     If $folder = "" Then
  26.         Exit
  27.     Else
  28.         IniWrite ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", $folder )
  29.     EndIf
  30. EndIf
  31.  
  32. #Region ### START Koda GUI section ### Form=c:\users\whiggs\onedrive\always script\form\script creator.kxf
  33. $Form1 = GUICreate("NAJEEB-CREATE-SCRIPT", 410, 375, 192, 124, BitOR($GUI_SS_DEFAULT_GUI, $DS_SETFOREGROUND), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
  34. $Label1 = GUICtrlCreateLabel("File name", 160, 0, 89, 29)
  35. GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
  36. $Input1 = GUICtrlCreateInput("", 38, 40, 337, 21)
  37. GUIStartGroup()
  38. $Radio1 = GUICtrlCreateRadio("Powershell", 38, 80, 75, 17)
  39. $Radio2 = GUICtrlCreateRadio("AutoIt", 118, 80, 57, 17)
  40. $Radio3 = GUICtrlCreateRadio("Visual Basic Script", 175, 80, 105, 17)
  41. $Radio4 = GUICtrlCreateRadio("Batch Script", 285, 80, 105, 17)
  42. GUIStartGroup()
  43. $Label2 = GUICtrlCreateLabel("Script Content", 140, 112, 128, 29)
  44. GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
  45. $Edit1 = GUICtrlCreateEdit("", 32, 152, 329, 169, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
  46. $Button1 = GUICtrlCreateButton("Create file", 152, 328, 105, 33, $BS_NOTIFY)
  47. GUICtrlSetState(-1, $GUI_DISABLE)
  48. GUICtrlSetCursor(-1, 0)
  49. GUISetState(@SW_SHOW)
  50. #EndRegion ### END Koda GUI section ###
  51. $aRect = _GUICtrlEdit_GetRECT($Edit1)
  52. $aRect[0] += 10
  53. $aRect[1] += 10
  54. $aRect[2] -= 10
  55. $aRect[3] -= 10
  56. _GUICtrlEdit_SetRECT($Edit1, $aRect)
  57. While 1
  58.     If _GUICtrlEdit_GetTextLen($Input1) > 0 And _GUICtrlEdit_GetTextLen($Edit1) > 0 And BitAND(GUICtrlGetState($Button1), 128) Then
  59.         GUICtrlSetState($Button1, $GUI_ENABLE)
  60.     EndIf
  61.     If (_GUICtrlEdit_GetTextLen($Input1) = 0 Or _GUICtrlEdit_GetTextLen($Edit1) = 0) And BitAND(GUICtrlGetState($Button1), 64) Then
  62.         GUICtrlSetState($Button1, $GUI_DISABLE)
  63.     EndIf
  64.  
  65.     $nMsg = GUIGetMsg()
  66.     Switch $nMsg
  67.  
  68.         Case $GUI_EVENT_CLOSE
  69.             Exit
  70.  
  71.         Case $Input1
  72.             If StringRight(GUICtrlRead($Input1), 4) = ".ps1" Then
  73.                 GUICtrlSetState($Radio2, $GUI_UNCHECKED)
  74.                 GUICtrlSetState($Radio3, $GUI_UNCHECKED)
  75.                 GUICtrlSetState($Radio1, $GUI_ENABLE)
  76.                 GUICtrlSetState($Radio1, $GUI_CHECKED)
  77.                 GUICtrlSetState($Radio2, $GUI_DISABLE)
  78.                 GUICtrlSetState($Radio3, $GUI_DISABLE)
  79.             ElseIf StringRight(GUICtrlRead($Input1), 4) = ".au3" Then
  80.                 GUICtrlSetState($Radio1, $GUI_UNCHECKED)
  81.                 GUICtrlSetState($Radio3, $GUI_UNCHECKED)
  82.                 GUICtrlSetState($Radio2, $GUI_ENABLE)
  83.                 GUICtrlSetState($Radio2, $GUI_CHECKED)
  84.                 GUICtrlSetState($Radio1, $GUI_DISABLE)
  85.                 GUICtrlSetState($Radio3, $GUI_DISABLE)
  86.             ElseIf StringRight(GUICtrlRead($Input1), 4) = ".vbs" Then
  87.                 GUICtrlSetState($Radio1, $GUI_UNCHECKED)
  88.                 GUICtrlSetState($Radio2, $GUI_UNCHECKED)
  89.                 GUICtrlSetState($Radio3, $GUI_ENABLE)
  90.                 GUICtrlSetState($Radio3, $GUI_CHECKED)
  91.                 GUICtrlSetState($Radio1, $GUI_DISABLE)
  92.                 GUICtrlSetState($Radio2, $GUI_DISABLE)
  93.             ElseIf StringRight(GUICtrlRead($Input1), 4) = ".bat" Then
  94.                 GUICtrlSetState($Radio2, $GUI_UNCHECKED)
  95.                 GUICtrlSetState($Radio3, $GUI_UNCHECKED)
  96.                 GUICtrlSetState($Radio4, $GUI_ENABLE)
  97.                 GUICtrlSetState($Radio4, $GUI_CHECKED)
  98.                 GUICtrlSetState($Radio2, $GUI_DISABLE)
  99.                 GUICtrlSetState($Radio3, $GUI_DISABLE) 
  100.             Else
  101.                 If BitAND(GUICtrlGetState($Radio1), 128) Or BitAND(GUICtrlGetState($Radio2), 128) Or BitAND(GUICtrlGetState($Radio3), 128) Or BitAND(GUICtrlGetState($Radio4), 128) Then
  102.                     GUICtrlSetState($Radio1, $GUI_ENABLE)
  103.                     GUICtrlSetState($Radio1, $GUI_UNCHECKED)
  104.                     GUICtrlSetState($Radio2, $GUI_ENABLE)
  105.                     GUICtrlSetState($Radio2, $GUI_UNCHECKED)
  106.                     GUICtrlSetState($Radio3, $GUI_ENABLE)
  107.                     GUICtrlSetState($Radio3, $GUI_UNCHECKED)
  108.                     GUICtrlSetState($Radio4, $GUI_ENABLE)
  109.                     GUICtrlSetState($Radio4, $GUI_UNCHECKED)
  110.                 EndIf
  111.             EndIf
  112.  
  113.         Case $Edit1
  114.  
  115.         Case $Button1
  116.             If GUICtrlRead($Radio1) = 4 And GUICtrlRead($Radio2) = 4 And GUICtrlRead($Radio3) = 4 And GUICtrlRead($Radio4) = 4 Then
  117.                 If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer
  118.                 $sToolTipAnswer = ToolTip("You need to select one of the script types item.", Default, Default, "Make a selection", 0, 0)
  119.                 Sleep(3000)
  120.                 ToolTip("")
  121.             Else
  122.  
  123.                 If GUICtrlRead($Radio1) = 1 Then
  124.                     If StringRight(GUICtrlRead($Input1), 4) = ".ps1" Then
  125.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1)
  126.                     Else
  127.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1) & ".ps1"
  128.                     EndIf
  129.  
  130.                 ElseIf GUICtrlRead($Radio2) = 1 Then
  131.                     If StringRight(GUICtrlRead($Input1), 4) = ".au3" Then
  132.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1)
  133.                     Else
  134.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1) & ".au3"
  135.                     EndIf
  136.                 ElseIf GUICtrlRead($Radio3) = 1 Then
  137.                     If StringRight(GUICtrlRead($Input1), 4) = ".vbs" Then
  138.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1)
  139.                     Else
  140.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1) & ".vbs"
  141.                     EndIf
  142.                 ElseIf GUICtrlRead($Radio4) = 1 Then
  143.                     If StringRight(GUICtrlRead($Input1), 4) = ".bat" Then
  144.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1)
  145.                     Else
  146.                         $file = IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ) & "\" & GUICtrlRead($Input1) & ".bat"
  147.                     EndIf
  148.                 Else
  149.                     SetError(3)
  150.                 EndIf
  151.                 If @error Then
  152.                     SetError(0)
  153.                 Else
  154.                     $hand = Null
  155.                     If FileExists($file) And Not filetextcompare(_GUICtrlEdit_GetText($Edit1), $file) Then
  156.                         ShellExecute($file, "", IniRead ( @ScriptDir & "\CREATE-SCRIPT.ini", "Settings", "Script folder", "Error" ), $SHEX_OPEN)
  157.                         #Region --- CodeWizard generated code Start ---
  158.  
  159.                         ;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes, No, and Cancel, Icon=Warning
  160.                         If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
  161.                         $iMsgBoxAnswer = MsgBox($MB_YESNOCANCEL + $MB_ICONEXCLAMATION, "File Exists", 'The file already exists, but it appears the contents are different.  Would you like to replace the existing file?  Select "no" to rename.')
  162.                         Select
  163.                             Case $iMsgBoxAnswer = $IDYES
  164.                                 If StringRight($file, 4) = "au3" Then
  165.                                     $hand = FileOpen($file, $FO_OVERWRITE)
  166.                                 Else
  167.                                     $hand = FileOpen($file, 514)
  168.                                 EndIf
  169.  
  170.                                 FileWrite($hand, _GUICtrlEdit_GetText($Edit1))
  171.                                 FileClose($hand)
  172.                             Case $iMsgBoxAnswer = $IDNO
  173.                                 $b = 0
  174.                                 Do
  175.                                     $b += 1
  176.                                 Until Not FileExists(_GetFilenameDrive($file) & _GetFilenamePath($file) & _GetFilename($file) & "(" & $b & ")." & _GetFilenameExt($file))
  177.                                 If StringRight($file, 3) = "au3" Then
  178.                                     $hand = FileOpen(_GetFilenameDrive($file) & _GetFilenamePath($file) & _GetFilename($file) & "(" & $b & ")." & _GetFilenameExt($file), $FO_OVERWRITE)
  179.                                 Else
  180.                                     $hand = FileOpen(_GetFilenameDrive($file) & _GetFilenamePath($file) & _GetFilename($file) & "(" & $b & ")." & _GetFilenameExt($file), 514)
  181.                                 EndIf
  182.                                 FileWrite($hand, _GUICtrlEdit_GetText($Edit1))
  183.                                 FileClose($hand)
  184.  
  185.                             Case $iMsgBoxAnswer = $IDCANCEL
  186.  
  187.                         EndSelect
  188.                         #EndRegion --- CodeWizard generated code Start ---
  189.                     Else
  190.                         If StringRight($file, 3) = "au3" Then
  191.                             $hand = FileOpen($file, $FO_OVERWRITE)
  192.                         Else
  193.                             $hand = FileOpen($file, 514)
  194.                         EndIf
  195.                         FileWrite($hand, _GUICtrlEdit_GetText($Edit1))
  196.                         FileClose($hand)
  197.                     EndIf
  198.                     _GUICtrlEdit_SetText($Edit1, "")
  199.                     GUICtrlSetData($Input1, "")
  200.                 EndIf
  201.  
  202.             EndIf
  203.  
  204.     EndSwitch
  205. WEnd
  206.  
  207.  
  208. Func filetextcompare($text1, $two)
  209.     $same = True
  210.     $arr = StringSplit($text1, @CRLF, $STR_NOCOUNT)
  211.     $ext2 = _GetFilenameExt($two)
  212.     $arr2 = FileReadToArray($two)
  213.     $search = _ArraySearch($arr2, "; Script Start - Add your code below here")
  214.     If @error Then
  215.         SetError(0)
  216.     Else
  217.         _ArrayDelete($arr2, "0-" & $search)
  218.     EndIf
  219.  
  220.     $hol = ""
  221.     $hol2 = ""
  222.  
  223.     For $i = 0 To UBound($arr) - 1 Step 1
  224.         If StringIsSpace($arr[$i]) Then
  225.             $hol = $hol & $i & ";"
  226.             ContinueLoop
  227.         Else
  228.             $arr[$i] = StringStripWS($arr[$i], 3)
  229.             ContinueLoop
  230.         EndIf
  231.     Next
  232.     _ArrayDelete($arr, StringTrimRight($hol, 1))
  233.     For $i = 0 To UBound($arr2) - 1 Step 1
  234.         If StringIsSpace($arr2[$i]) Then
  235.             $hol2 = $hol2 & $i & ";"
  236.             ContinueLoop
  237.         Else
  238.             $arr2[$i] = StringStripWS($arr2[$i], 3)
  239.             ContinueLoop
  240.         EndIf
  241.     Next
  242.     _ArrayDelete($arr2, StringTrimRight($hol2, 1))
  243.  
  244.  
  245.     If UBound($arr) <> UBound($arr2) Then
  246.         $same = False
  247.     Else
  248.         $same2 = True
  249.         $where = 0
  250.         $val1 = ""
  251.         $val2 = ""
  252.         For $i = 0 To UBound($arr2) - 1 Step 1
  253.             If $arr[$i] <> $arr2[$i] Then
  254.                 $same2 = False
  255.                 $where = $i
  256.                 $val1 = $arr[$i]
  257.                 $val2 = $arr2[$i]
  258.                 ExitLoop
  259.             Else
  260.                 ContinueLoop
  261.             EndIf
  262.         Next
  263.         If $same2 Then
  264.             $same = True
  265.         Else
  266.             $same = False
  267.         EndIf
  268.     EndIf
  269.     Return $same
  270. EndFunc   ;==>filetextcompare
  271.  
  272.  
  273.  
  274.  
  275. Func _GetFilename($sFilePath)
  276.     Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
  277.     Local $oColFiles = $oWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & StringReplace($sFilePath, "\", "\\") & "'")
  278.     If IsObj($oColFiles) Then
  279.         For $oObjectFile In $oColFiles
  280.             Return $oObjectFile.FileName
  281.         Next
  282.     EndIf
  283.     Return SetError(1, 1, 0)
  284. EndFunc   ;==>_GetFilename
  285.  
  286. Func _GetFilenameExt($sFilePath)
  287.     Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
  288.     Local $oColFiles = $oWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & StringReplace($sFilePath, "\", "\\") & "'")
  289.     If IsObj($oColFiles) Then
  290.         For $oObjectFile In $oColFiles
  291.             Return $oObjectFile.Extension
  292.         Next
  293.     EndIf
  294.     Return SetError(1, 1, 0)
  295. EndFunc   ;==>_GetFilenameExt
  296.  
  297. Func _GetFilenameInt($sFilePath)
  298.     Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
  299.     Local $oColFiles = $oWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & StringReplace($sFilePath, "\", "\\") & "'")
  300.     If IsObj($oColFiles) Then
  301.         For $oObjectFile In $oColFiles
  302.             Return $oObjectFile.Name
  303.         Next
  304.     EndIf
  305.     Return SetError(1, 1, 0)
  306. EndFunc   ;==>_GetFilenameInt
  307.  
  308. Func _GetFilenameDrive($sFilePath)
  309.     Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
  310.     Local $oColFiles = $oWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & StringReplace($sFilePath, "\", "\\") & "'")
  311.     If IsObj($oColFiles) Then
  312.         For $oObjectFile In $oColFiles
  313.             Return StringUpper($oObjectFile.Drive)
  314.         Next
  315.     EndIf
  316.     Return SetError(1, 1, 0)
  317. EndFunc   ;==>_GetFilenameDrive
  318.  
  319. Func _GetFilenamePath($sFilePath)
  320.     Local $oWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
  321.     Local $oColFiles = $oWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & StringReplace($sFilePath, "\", "\\") & "'")
  322.     If IsObj($oColFiles) Then
  323.         For $oObjectFile In $oColFiles
  324.             Return $oObjectFile.Path
  325.         Next
  326.     EndIf
  327.     Return SetError(1, 1, 0)
  328. EndFunc   ;==>_GetFilenamePath
  329.  
  330.  
  331.  
  332.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!