API tools faq
paste
Advertisement
Najeebsk

CHANGE-EXTENSION-RENAMER2.ahk

Najeebsk
Apr 5th, 2023
1,074
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 18.40 KB | None | 0 0
raw download clone embed print report
  1. /*   INFO
  2.    CHANGE EXTENSION AND RENAMER AND HIDE/UNHIDE BOTH HIDDEN AND SYSTEM FILES AND CREATE FILE AND FOLDER
  3.    Written by: Najeeb Shah Khan (najeebshahkhan@gmail.com)
  4.    Last Modified: 3-25-2023
  5. */
  6. ;#warn
  7. #NoEnv
  8. #LTrim
  9. #SingleInstance, Force
  10. Process, Priority, , A
  11. SendMode, Input
  12. SetBatchLines, -1
  13. ;#NoTrayIcon
  14. SetKeyDelay 0    ; In case SendInput is not available
  15. SetTitleMatchMode RegEx
  16. SetWorkingDir %A_WorkingDir% ;%A_ScriptDir%  
  17. IniRead, FLIST, %A_ScriptDir%\DATA\FLIST.ini, FLIST
  18. IniRead, FLIST2, %A_ScriptDir%\DATA\FLIST.ini, FLIST2
  19. IniRead, FLIST3, %A_ScriptDir%\DATA\FLIST.ini, FLIST3
  20. FileRead, MyCMD, %A_ScriptDir%\DATA\CMD.txt
  21. FileRead, FileContents, %A_ScriptDir%\DATA\CMD.txt
  22. Sort, FileContents
  23. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  24. FileInstall , CMD.txt, %A_ScriptDir%\DATA\CMD.txt, 1
  25. FileInstall , RENAMER.exe, %A_ScriptDir%\DATA\RENAMER.exe, 1
  26. F2=%A_ScriptDir%\DATA\FLIST.ini
  27. FileCreateDir, %A_ScriptDir%\DATA
  28. FileInstall , CHANGE-EXTENSION-RENAMER.ahk, %A_ScriptDir%\DATA\CHANGE-EXTENSION-RENAMER.ahk, 1
  29. FileInstall , M1.msstyles, %A_ScriptDir%\DATA\M1.msstyles, 1
  30. FileInstall , USkin.dll, %A_ScriptDir%\DATA\USkin.dll, 1
  31. FileSetAttrib +HS, %A_ScriptDir%\DATA\CHANGE-EXTENSION-RENAMER.ahk, 2
  32. FileSetAttrib +HS, %A_ScriptDir%\DATA\Milikymac.msstyles, 2
  33. FileSetAttrib +HS, %A_ScriptDir%\DATA\USkin.dll, 2
  34. FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
  35. FileSetAttrib +HS, %A_ScriptDir%\DATA\FLIST.ini, 2
  36. FileSetAttrib +HS, %A_ScriptDir%\DATA\CMD.txt, 2
  37. FileSetAttrib +HS, %A_ScriptDir%\DATA\RENAMER.exe, 2
  38. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  39. GroupAdd ExplorerWindows, ahk_class ExploreWClass|CabinetWClass|Progman
  40.     global SubKey := "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
  41.    
  42.     gosub MakeTrayMenu
  43. return
  44.  
  45. ; Toggle the show/hide of hidden files
  46. ^!h::
  47. ToggleHiddenFilesStatus:
  48.    GetRegValue("Hidden") = 1
  49.         ? SetRegValue("Hidden", 2)
  50.         : SetRegValue("Hidden", 1)
  51.     Menu Tray, ToggleCheck, Show Hidden Files`tCtrl+Alt+H
  52.     gosub UpdateWindows
  53. return
  54.  
  55. ; Toggle the show/hide of system files
  56. ^!s::
  57. ToggleSystemFilesStatus:
  58.    GetRegValue("ShowSuperHidden")
  59.         ? SetRegValue("ShowSuperHidden", 0)
  60.         : SetRegValue("ShowSuperHidden", 1)
  61.     Menu Tray, ToggleCheck, Show System Files`tCtrl+Alt+S
  62.     gosub UpdateWindows
  63. return
  64.  
  65. ; Toggle the show/hide of extensions for known file types
  66. ^!e::
  67. ToggleFileExtStatus:
  68.    GetRegValue("HideFileExt")
  69.         ? SetRegValue("HideFileExt", 0)
  70.         : SetRegValue("HideFileExt", 1)
  71.     Menu Tray, ToggleCheck, Show File Extentions`tCtrl+Alt+E
  72.     gosub UpdateWindows
  73. return
  74.  
  75. About:
  76.    MsgBox, , About NajeebShowHide,
  77.     (
  78.         This program will show/hide hidden files, system files
  79.         and file extensions via hotkey or tray menu. and
  80.         Change Extension and Renamer and Create File and
  81.         Folder
  82.         The defined hotkeys are:
  83.        Ctrl+Alt+H      Toggle the show/hide of hidden files
  84.         Ctrl+Alt+E      Toggle the show/hide of file extensions
  85.         Ctrl+Alt+S      Toggle the show/hide of system files
  86.  
  87.         Works on both Windows XP and Windows 7
  88.         Written by: NAJEEB SHAH KHAN 3-25-2023
  89.     )
  90. return
  91.  
  92. GetRegValue(ValueName) {
  93.     RegRead Value, HKCU, %SubKey%, %ValueName%
  94.     return Value
  95. }
  96.  
  97. SetRegValue(ValueName, Value) {
  98.     RegWrite REG_DWORD, HKCU, %SubKey%, %ValueName%, %Value%
  99. }
  100.  
  101. ; Send a "Refresh" message to all of the Explorer windows including the Desktop
  102. UpdateWindows:
  103.    Code := Is_In(A_OSVERSION, "WIN_XP", "WIN_2000") ? 28931 : 41504
  104.     WinGet WindowList, List, ahk_Group ExplorerWindows
  105.     Loop %WindowList%
  106.         PostMessage 0x111, %Code%, , , % "ahk_id" WindowList%A_Index%
  107. return
  108.  
  109. Is_In(pStr, pList*)
  110. {
  111.     for key, val in pList
  112.         if (A_StringCaseSense = "Off" ? pStr = val : pStr == val)
  113.             return key
  114.        
  115.     return 0
  116. }
  117.  
  118. MakeTrayMenu:
  119.     Menu Default Menu, Standard
  120.     Menu Tray, NoStandard
  121.     Menu Tray, Add, About, About
  122.     Menu Tray, Add
  123.     Menu Tray, Add, Default Menu, :Default Menu
  124.     Menu Tray, Add
  125.     Menu Tray, Add, Show System Files`tCtrl+Alt+S, ToggleSystemFilesStatus
  126.     Menu Tray, Add, Show File Extentions`tCtrl+Alt+E, ToggleFileExtStatus
  127.     Menu Tray, Add, Show Hidden Files`tCtrl+Alt+H, ToggleHiddenFilesStatus
  128.     Menu Tray, Default, Show Hidden Files`tCtrl+Alt+H
  129.  
  130.     ; If any of the menu items need to start off checked, take care of it here
  131.     if GetRegValue("Hidden") = 1
  132.         Menu Tray, Check, Show Hidden Files`tCtrl+Alt+H
  133.     if GetRegValue("ShowSuperHidden") = 1
  134.         Menu Tray, Check, Show System Files`tCtrl+Alt+S
  135.     if GetRegValue("HideFileExt") = 0
  136.         Menu Tray, Check, Show File Extentions`tCtrl+Alt+E
  137. ;return
  138. SkinForm(Apply, A_ScriptDir . "\DATA\USkin.dll", A_ScriptDir . "\DATA\M1.msstyles")
  139. OnExit, GetOut
  140. CustomColor = FFFF99
  141. Gui, Color, %CustomColor%
  142. ;Gui,Font,S10 Bold,Verdana ;Calibri
  143. GUI, FONT, S16
  144. Gui, Add, Text,CRed x5 y2, NAJEEB CHANGE EXTENSION
  145. GUI, FONT, S8
  146. Gui, Add, Text, x8 y30 w120 h20,ORIGINAL EXTENSION:
  147. Gui, Add, Edit, x140 y28 w120 h20 vOGF,    
  148. Gui, Add, Text, x8 y58 w120 h20,CHANGE EXT HIDE/U:
  149. Gui, Add, Edit, x140 y56 w120 h20 vEXT,
  150. Gui, Add, Button, x8 y84 w120 h30 gEXTRename, Change Extension
  151. Gui, Add, Button, x150 y84 w65 h30 gEXTHide, Hide
  152. Gui, Add, Button, x220 y84 w65 h30 gUNHide, UnHide
  153. Gui, Add, Text, x8 y120 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  154. GUI, FONT, S16
  155. Gui, Add, Text,CRed x15 y140, RENAME AND CREATE FILE
  156. GUI, FONT, S8
  157. Gui, Add, Text, x8 y171 w120 h20,FILE EXTENSION:
  158. Gui, Add, Edit, x130 y170 w120 h20 vEXT2,
  159. Gui, Add, Text, x8 y199 w120 h20,FILE NUMBER:
  160. Gui, Add, Edit, x130 y198 w120 h20 vNUM,    
  161. Gui, Add, Text, x8 y228 w120 h20,ADD ALPHABET:
  162. Gui, Add, Edit, x130 y227 w120 h20 vALF,   
  163. Gui, Add, Text, x8 y257 w120 h20,CREATE FILE FOLDER:
  164. Gui, Add, Edit, x130 y255 w120 h20 vFCreate,
  165. Gui, Add, Button, x8 y285 w70 h30 gChaRename, Renamer
  166. Gui, Add, Button, x82 y285 w70 h30 gCREATEF, Create File
  167. Gui, Add, Button, x157 y285 w80 h30 gCREATED, Create Folder
  168. Gui, Add, Button, x240 y285 w60 h30 gCHRCmd, Cmd
  169. Gui, Add, Text, x8 y320 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  170. GUI, FONT, S16
  171. Gui, Add, Text,CRed x30 y335, NAJEEB FOLDER OPEN
  172. GUI, FONT, S10
  173. Gui, Add, Text, x8 y372 w100 h20,FOLDER:
  174. Gui, Add, DropDownList, x75 y370 w200  vList1 gOnSelect, %FLIST%|
  175. Gui, Add, Text, x8 y402 w100 h20,W-TOOLS:
  176. Gui, Add, DropDownList, x75 y400 w200  vList2 gOnSelect2, %FLIST2%|
  177. Gui, Add, Text, x8 y437 w100 h20,LINKS:
  178. Gui, Add, DropDownList, x75 y435 w200  vList3 gOnSelect3, %FLIST3%|
  179. Gui, Add, Text, x8 y470 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  180. Gui, Add, listbox, x310 y8 h600 w500 vresults,
  181. Gui, Add, Edit, x310 y615 w500 vneedle grefresh,
  182. listboxvisible := true
  183. GUI, FONT, S16
  184. Gui, Add, Text,CRed x20 y485, NAJEEB RUN COMMANDS
  185. GUI, FONT, S10
  186. Gui, Add, Text, x8 y522 w100 h20,RUN FILE:
  187. Gui, Add, Edit, x75 y520 w160 CBLUE vList4,
  188. Gui, add, Button, x245 y520 gRUN,Run
  189. Gui, Add, Text, x8 y562 w100 h20,RUN CMD:
  190. Gui, Add, Edit, x75 y560 w160 CRED vList5,
  191. Gui, Add, Button, x245 y560 gCMD,Cmd
  192. Gui, Add, Text, x8 y597 w100 h20,FILE SAVE:
  193. Gui, Add, Edit, x75 y595 w160 CRED vList6,
  194. Gui, Add, Button, x240 y595 gSave,SAVE
  195. gosub,FLIST
  196. Gui, Add, Text, x8 y626 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  197. Gui, Show, w810 h644, NAJEEB CHANGE EXTENSION AND RENAMER
  198. GuiControl, Focus, needle
  199. Return
  200.  
  201. Refresh:
  202. Gui, Submit, NoHide ; Save the user's input without hiding the window
  203. choicelimit := 0 ; resets the listbox choices counter every time the user adds or removes a letter from the edit box
  204. GuiControl,, results, | ; this empties the previous listbox entries
  205. listbox:="" ; this empties variable that controls the listbox entries
  206. if (needle != "") ; if the user's entry isn't empty (if something typed into editbox)
  207. {
  208. Guicontrol, show, results ; show the listbox
  209. listboxvisible := true
  210. Loop, parse, FileContents, `n, `r ; parse the wordlist.txt in memory to find matches
  211.     {
  212.         haystack:=A_LoopField ; cycles each line 1 by 1 matching 1 word at a time
  213.         position := instr(haystack, needle) ; finds out where the user's entry matches the word at (left, middle, or end of word etc.) or if not at all
  214.         if (position = 1) ;if it matches from the left
  215.         {
  216.                                                 listbox.="|" . haystack ; add it to the listbox variable
  217.             choicelimit := choicelimit + 1 ; increase the counter which counts how many results are going to be in the listbox
  218.         }
  219.     }
  220. Loop, parse, FileContents, `n, `r ; parse the wordlist.txt in memory again for a different kind of matching (midstring match)
  221.     {
  222.         haystack:=A_LoopField ; cycles each line 1 by 1 matching 1 word at a time
  223.         position := instr(haystack, needle) ; finds out where the user's entry matches the word at (left, middle, or end of word etc.) or if not at all
  224.         if (position > 1) ; if it matches anywhere but from the left
  225.         {
  226.                                                 listbox.="|" . haystack ; add it to the listbox variable, importantly AFTER the above matches
  227.             choicelimit := choicelimit + 1 ; increase the counter which counts how many results are going to be in the listbox
  228.         }
  229.     }
  230. if (listbox = "" || listbox = "|") {
  231. listboxvisible := false
  232. return
  233. }
  234. GuiControl,, results, %listbox% ; add the matched words to the listbox entries
  235. GuiControl, choose, results, 1 ; choose the first one by default (highlight it)
  236. resultchosen := 1 ; store which choice is highlighted in a variable
  237. }
  238. return
  239.  
  240. CREATED:
  241.     Gui, Submit, Nohide
  242.     FileCreateDir, %FCreate%
  243.     return
  244. CREATEF:
  245.     Gui, Submit, Nohide
  246.     FileAppend, , %FCreate%
  247.     return
  248. EXTHide:
  249.     Gui, Submit, Nohide
  250.     FileSetAttrib, +HS, *.%EXT%
  251.     return
  252. UNHide:
  253.     Gui, Submit, Nohide
  254.     FileSetAttrib, -HS, *.%EXT%
  255.     return
  256. EXTRename:
  257.     Gui, Submit, Nohide
  258.     run, %comspec% /c Ren *.%OGF% *.%EXT%,,hide
  259.     return
  260. ChaRename:
  261.                {
  262.     Gui, Submit, Nohide
  263.     iCOPN := NUM
  264.    
  265.     Loop *.%EXT2%
  266.     {
  267.             FileMove, %A_LoopFileFullPath%, %ALF%%iCOPN%.%EXT2%
  268.             iCOPN++
  269.     }
  270.     return
  271. }
  272. CHRCmd:
  273. Gui, Submit, Nohide
  274.     Run,  %A_ScriptDir%\DATA\RENAMER.exe
  275.     return
  276. ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  277. OnSelect:
  278. Gui, Submit, nohide
  279. Run, C:\Windows\explorer.exe shell:%List1%
  280. return
  281.  
  282. OnSelect2:
  283. Gui, Submit, nohide
  284. Run, %List2%
  285. return
  286.  
  287. OnSelect3:
  288. Gui, Submit, nohide
  289. Run, %List3%
  290. return
  291.  
  292. RUN:
  293. gui, submit, nohide
  294. Run, %List4%
  295. return
  296. CMD:
  297. Gui, submit, nohide
  298. Run, %comspec% /c CALL %List5%,,hide
  299. return
  300. FLIST:
  301. Gui,1:submit,nohide
  302. LIST=
  303. (
  304. [FLIST]
  305. OPEN WIN FOLDER||AddNewProgramsFolder|Administrative Tools|AppData|AppUpdatesFolder|Cache|CD Burning|ChangeRemoveProgramsFolder|Common Administrative Tools|Common AppData|Common Desktop|Common|Documents|Common Programs|Common Start Menu|Common Startup|Common Templates|CommonDownloads|CommonMusic|CommonPictures|CommonVideo|ConflictFolder|ConnectionsFolder|Contacts|ControlPanelFolder|Cookies|CredentialManager|CryptoKeys|CSCFolder|Default Gadgets|Desktop|Downloads|DpapiKeys|Favorites|Fonts|Gadgets|Games|GameTasks|History|InternetFolder|Links|Local|AppData|LocalAppDataLow|LocalizedResourcesDir|MAPIFolder|My Music|My Pictures|My Video|MyComputerFolder|NetHood|NetworkPlacesFolder|OEM Links|Original Images|Personal|PhotoAlbums|Playlists|PrintersFolder|PrintHood|Profile|ProgramFiles|ProgramFilesCommon|Programs|Public|PublicGameTasks|Quick Launch|Recent|RecycleBinFolder|ResourceDir|SampleMusic|SamplePictures|SamplePlaylists|SampleVideos|SavedGames|Searches|SearchHomeFolder|SendTo|Start Menu|Startup|SyncCenterFolder|SyncResultsFolder|SyncSetupFolder|System|SystemCertificates|SystemX86|Templates|TreePropertiesFolder|UserProfiles|UsersFilesFolder|Windows|CommonRingtones|Device Metadata Store|DocumentsLibrary|ImplicitAppShortcuts|Libraries|MusicLibrary|OtherUsersFolder|PicturesLibrary|PublicSuggestedLocations|RecordedTVLibrary|Ringtones|SuggestedLocations|User Pinned|UserProgramFiles|UserProgramFilesCommon|UsersLibrariesFolder|VideosLibrary
  306.  
  307. [FLIST2]
  308. OPEN FILES AND FOLDERS||C:\Users\admin\AppData\Local\Temp|C:\Users\admin\AppData\Roaming|C:\Windows|C:\Windows\System32|C:\Program Files|D:\DATA|mspaint|notepad|cmd|C:\Windows\System32\DevicePairingWizard.exe|C:\Windows\System32\hdwwiz.exe|rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL|AddPrinter|rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1|control /name Microsoft.AdministrativeTools|control admintools|control /name Microsoft.AutoPlay|control /name Microsoft.BackupAndRestoreCenter|control /name Microsoft.BitLockerDriveEncryption|explorer shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921} -Microsoft.Personalization\pageColorization|control /name Microsoft.ColorManagement|control /name Microsoft.CredentialManager|control /name Microsoft.DateAndTime|control timedate.cpl|control date/time|rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0|rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1|control /name Microsoft.DefaultPrograms|explorer shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921} -Microsoft.Personalization\pageWallpaper|rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0|control /name Microsoft.DeviceManager|control hdwwiz.cpl|devmgmt.msc|control /name Microsoft.DevicesAndPrinters|control printers|control /name Microsoft.EaseOfAccessCenter|control access.cpl|control /name Microsoft.FolderOptions|control folders|rundll32.exe shell32.dll,Options_RunDLL 0|rundll32.exe shell32.dll,Options_RunDLL 7|rundll32.exe|shell32.dll,Options_RunDLL 2|control /name Microsoft.FileHistory|control /name Microsoft.Fonts|control fonts|control /name Microsoft.GameControllers|control joy.cpl|control /name Microsoft.GetPrograms|rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1|control /name Microsoft.HomeGroup|control /name Microsoft.IndexingOptions|rundll32.exe|shell32.dll,Control_RunDLL srchadmin.dll|control /name Microsoft.Infrared|control irprops.cpl|control /name Microsoft.InfraredOptions|control /name Microsoft.InternetOptions|control inetcpl.cpl|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,1|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,2|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,3|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,5|rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,6|control /name Microsoft.iSCSIInitiator|control /name Microsoft.Keyboard|control keyboard|control /name|Microsoft.Languag|control /name Microsoft.Mouse|control main.cpl|control mouse|rundll32.exe shell32.dll,Control_RunDLL main.cpl,,0|control main.cpl,,1|rundll32.exe shell32.dll,Control_RunDLL main.cpl,,1|control main.cpl,,2|rundll32.exe shell32.dll,Control_RunDLL main.cpl,,2|control main.cpl,,3|rundll32.exe shell32.dll,Control_RunDLL main.cpl,,3|control main.cpl,,4|rundll32.exe shell32.dll,Control_RunDLL main.cpl,,4|control /name Microsoft.NetworkAndSharingCenter|control ncpa.cpl|control netconnections|control netsetup.cpl|explorer shell:::{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9}|control odbccp32.cpl|control /name Microsoft.OfflineFiles|C:\Windows\system32\SystemPropertiesPerformance.exe|C:\Windows\system32\SystemPropertiesDataExecutionPrevention.exe|explorer shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}|control /name Microsoft.PhoneAndModem|control telephon.cpl|control /name Microsoft.PowerOptions|control powercfg.cpl|control powercfg.cpl,,1|control /name Microsoft.PowerOptions /page pageCreateNewPlan|control /name Microsoft.PowerOptions /page pagePlanSettings|control /name Microsoft.PowerOptions /page pageGlobalSettings|C:\Windows\system32\PresentationSettings.exe|control /name Microsoft.ProgramsAndFeatures|control appwiz.cpl|control /name Microsoft.Recovery|control /name Microsoft.RegionAndLanguage|control /name Microsoft.RegionalAndLanguageOptions /page /p:"Formats"|control intl.cpl|control international|control /name Microsoft.RegionalAndLanguageOptions /page /p:"Location"|control /name Microsoft.RegionalAndLanguageOptions /page /p:"Administrative"|control /name Microsoft.RemoteAppAndDesktopConnections|control /name Microsoft.ScannersAndCameras|control sticpl.cpl|rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1|control /name Microsoft.ActionCenter|control wscui.cpl|control /name Microsoft.DefaultPrograms /page pageFileAssoc|control /name Microsoft.DefaultPrograms /page pageDefaultProgram|rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3|control /name Microsoft.Sound|control mmsys.cpl|C:\Windows\System32\rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0|C:\Windows\System32\rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1|C:\Windows\System32\rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2|C:\Windows\System32\rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3|control /name Microsoft.SpeechRecognition|control /name Microsoft.StorageSpaces|control /name Microsoft.SyncCenter|control /name Microsoft.System|control sysdm.cpl|explorer shell:::{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9} \SystemIcons,,0|C:\Windows\System32\SystemPropertiesComputerName.exe|C:\Windows\System32\SystemPropertiesHardware.exe|C:\Windows\System32\SystemPropertiesAdvanced.exe|C:\Windows\System32\SystemPropertiesProtection.exe|C:\Windows\System32\SystemPropertiesRemote.exe|control /name Microsoft.TabletPCSettings|control /name Microsoft.TextToSpeech|control /name Microsoft.UserAccounts|control userpasswords|netplwiz|control userpasswords2|control /name Microsoft.WindowsFirewall|control firewall.cpl|C:\Windows\System32\OptionalFeatures.exe|rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2|control /name Microsoft.MobilityCenter|C:\Windows\System32\WorkFolders.exe|OPEN FILES AND FOLDERS|
  309.  
  310. [FLIST3]
  311. OPEN LINKS||https://www.youtube.com|http://www.google.com/|https://autohotkey.com/board/forum/49-scripts-and-functions/page-54?prune_day=100&sort_by=Z-A&sort_key=last_post&topicfilter=all|https://pastebin.com/archive/dos|https://stackoverflow.com/users/3080770/hackoo|https://pastebin.com/u/Najeebsk|https://drive.google.com/drive/my-drive|C:\Windows\System32|C:\Program Files|D:\DATA|mspaint|notepad|cmd
  312. )
  313. ifnotexist,%F2%
  314.   fileappend,%LIST%,%F2%
  315. LIST=
  316. return
  317. Save:
  318. Gui, submit, nohide
  319. FileAppend, `n%results%, %A_Desktop%\%List6%
  320. return
  321. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  322. GetOut:
  323. GuiClose:
  324. Gui, Hide
  325. SkinForm(0)
  326. ExitApp
  327. SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
  328.     if(Param1 = Apply){
  329.         DllCall("LoadLibrary", str, DLL)
  330.         DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
  331.     }else if(Param1 = 0){
  332.         DllCall(DLL . "\USkinExit")
  333.         }
  334. }
  335. ;=-=-=-=-=-=-=-=-=-=- END SCRIPT -=-=-=-=-=-=-=-=-=-=-=-
  336.  
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!