API tools faq
paste
Advertisement
Najeebsk

MY-TOOLS.ahk

Najeebsk
Apr 6th, 2023 (edited)
1,414
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 18.53 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 AND MANY MORE WORKS
  3.    Written by: Najeeb Shah Khan (najeebshahkhan@gmail.com)
  4.    Last Modified: 4-6-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. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  21. FileInstall , GUI.ini, %A_ScriptDir%\DATA\GUI.ini, 1
  22. FileInstall , WEB.ini, %A_ScriptDir%\DATA\WEB.ini, 1
  23. FileInstall , VIDEO.ini, %A_ScriptDir%\DATA\VIDEO.ini, 1
  24. FileInstall , CMD.ini, %A_ScriptDir%\DATA\CMD.ini, 1
  25. FileInstall , RunExe.ini, %A_ScriptDir%\DATA\RunExe.ini, 1
  26. FileInstall , RENAMER.exe, %A_ScriptDir%\DATA\RENAMER.exe, 1
  27. F2=%A_ScriptDir%\DATA\FLIST.ini
  28. FileCreateDir, %A_ScriptDir%\DATA
  29. FileInstall , MY-TOOLS.ahk, %A_ScriptDir%\DATA\MY-TOOLS.ahk, 1
  30. FileInstall , S12.she, %A_ScriptDir%\DATA\S12.she, 1
  31. FileInstall , SkinH_EL.dll, %A_ScriptDir%\DATA\SkinH_EL.dll, 1
  32. FileSetAttrib +HS, %A_ScriptDir%\DATA\MY-TOOLS.ahk, 2
  33. FileSetAttrib +HS, %A_ScriptDir%\DATA\S12.she, 2
  34. FileSetAttrib +HS, %A_ScriptDir%\DATA\SkinH_EL.dll, 2
  35. FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
  36. FileSetAttrib +HS, %A_ScriptDir%\DATA\FLIST.ini, 2
  37. FileSetAttrib +HS, %A_ScriptDir%\DATA\CMD.ini, 2
  38. FileSetAttrib +HS, %A_ScriptDir%\DATA\RunExe.ini, 2
  39. FileSetAttrib +HS, %A_ScriptDir%\DATA\VIDEO.ini, 2
  40. FileSetAttrib +HS, %A_ScriptDir%\DATA\WEB.ini, 2
  41. FileSetAttrib +HS, %A_ScriptDir%\DATA\GUI.ini, 2
  42. FileSetAttrib +HS, %A_ScriptDir%\DATA\RENAMER.exe, 2
  43. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  44. GroupAdd ExplorerWindows, ahk_class ExploreWClass|CabinetWClass|Progman
  45.     global SubKey := "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
  46.    
  47.     gosub MakeTrayMenu
  48. return
  49.  
  50. ; Toggle the show/hide of hidden files
  51. ^!h::
  52. ToggleHiddenFilesStatus:
  53.    GetRegValue("Hidden") = 1
  54.         ? SetRegValue("Hidden", 2)
  55.         : SetRegValue("Hidden", 1)
  56.     Menu Tray, ToggleCheck, Show Hidden Files`tCtrl+Alt+H
  57.     gosub UpdateWindows
  58. return
  59.  
  60. ; Toggle the show/hide of system files
  61. ^!s::
  62. ToggleSystemFilesStatus:
  63.    GetRegValue("ShowSuperHidden")
  64.         ? SetRegValue("ShowSuperHidden", 0)
  65.         : SetRegValue("ShowSuperHidden", 1)
  66.     Menu Tray, ToggleCheck, Show System Files`tCtrl+Alt+S
  67.     gosub UpdateWindows
  68. return
  69.  
  70. ; Toggle the show/hide of extensions for known file types
  71. ^!e::
  72. ToggleFileExtStatus:
  73.    GetRegValue("HideFileExt")
  74.         ? SetRegValue("HideFileExt", 0)
  75.         : SetRegValue("HideFileExt", 1)
  76.     Menu Tray, ToggleCheck, Show File Extentions`tCtrl+Alt+E
  77.     gosub UpdateWindows
  78. return
  79.  
  80. About:
  81.    MsgBox, , About NajeebShowHide,
  82.     (
  83.         This program will show/hide hidden files, system files
  84.         and file extensions via hotkey or tray menu. and
  85.         Change Extension and Renamer and Create File and
  86.         Folder
  87.         The defined hotkeys are:
  88.        Ctrl+Alt+H      Toggle the show/hide of hidden files
  89.         Ctrl+Alt+E      Toggle the show/hide of file extensions
  90.         Ctrl+Alt+S      Toggle the show/hide of system files
  91.  
  92.         Works on both Windows XP and Windows 7
  93.         Written by: NAJEEB SHAH KHAN 3-25-2023
  94.     )
  95. return
  96.  
  97. GetRegValue(ValueName) {
  98.     RegRead Value, HKCU, %SubKey%, %ValueName%
  99.     return Value
  100. }
  101.  
  102. SetRegValue(ValueName, Value) {
  103.     RegWrite REG_DWORD, HKCU, %SubKey%, %ValueName%, %Value%
  104. }
  105.  
  106. ; Send a "Refresh" message to all of the Explorer windows including the Desktop
  107. UpdateWindows:
  108.    Code := Is_In(A_OSVERSION, "WIN_XP", "WIN_2000") ? 28931 : 41504
  109.     WinGet WindowList, List, ahk_Group ExplorerWindows
  110.     Loop %WindowList%
  111.         PostMessage 0x111, %Code%, , , % "ahk_id" WindowList%A_Index%
  112. return
  113.  
  114. Is_In(pStr, pList*)
  115. {
  116.     for key, val in pList
  117.         if (A_StringCaseSense = "Off" ? pStr = val : pStr == val)
  118.             return key
  119.        
  120.     return 0
  121. }
  122.  
  123. MakeTrayMenu:
  124.     Menu Default Menu, Standard
  125.     Menu Tray, NoStandard
  126.     Menu Tray, Add, About, About
  127.     Menu Tray, Add
  128.     Menu Tray, Add, Default Menu, :Default Menu
  129.     Menu Tray, Add
  130.     Menu Tray, Add, Show System Files`tCtrl+Alt+S, ToggleSystemFilesStatus
  131.     Menu Tray, Add, Show File Extentions`tCtrl+Alt+E, ToggleFileExtStatus
  132.     Menu Tray, Add, Show Hidden Files`tCtrl+Alt+H, ToggleHiddenFilesStatus
  133.     Menu Tray, Default, Show Hidden Files`tCtrl+Alt+H
  134.  
  135.     ; If any of the menu items need to start off checked, take care of it here
  136.     if GetRegValue("Hidden") = 1
  137.         Menu Tray, Check, Show Hidden Files`tCtrl+Alt+H
  138.     if GetRegValue("ShowSuperHidden") = 1
  139.         Menu Tray, Check, Show System Files`tCtrl+Alt+S
  140.     if GetRegValue("HideFileExt") = 0
  141.         Menu Tray, Check, Show File Extentions`tCtrl+Alt+E
  142. ;return
  143. SkinForm(Apply, A_ScriptDir . "\DATA\SkinH_EL.dll", A_ScriptDir . "\DATA\S12.she")
  144. OnExit, GetOut
  145. CustomColor = FFFF99
  146. Gui, Color, %CustomColor%
  147. ;Gui,Font,S10 Bold,Verdana ;Calibri
  148. GUI, FONT, S16
  149. Gui, Add, Text,CRed x5 y2, NAJEEB CHANGE EXTENSION
  150. GUI, FONT, S8
  151. Gui, Add, Text, x8 y30 w120 h20,ORIGINAL EXTENSION:
  152. Gui, Add, Edit, x140 y28 w120 h20 vOGF,    
  153. Gui, Add, Text, x8 y58 w120 h20,CHANGE EXT HIDE/U:
  154. Gui, Add, Edit, x140 y56 w120 h20 vEXT,
  155. Gui, Add, Button, x8 y84 w120 h30 gEXTRename, Change Extension
  156. Gui, Add, Button, x150 y84 w65 h30 gEXTHide, Hide
  157. Gui, Add, Button, x220 y84 w65 h30 gUNHide, UnHide
  158. Gui, Add, Text, x8 y120 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  159. GUI, FONT, S16
  160. Gui, Add, Text,CRed x15 y140, RENAME AND CREATE FILE
  161. GUI, FONT, S8
  162. Gui, Add, Text, x8 y171 w120 h20,FILE EXTENSION:
  163. Gui, Add, Edit, x130 y170 w120 h20 vEXT2,
  164. Gui, Add, Text, x8 y199 w120 h20,FILE NUMBER:
  165. Gui, Add, Edit, x130 y198 w120 h20 vNUM,    
  166. Gui, Add, Text, x8 y228 w120 h20,ADD ALPHABET:
  167. Gui, Add, Edit, x130 y227 w120 h20 vALF,   
  168. Gui, Add, Text, x8 y257 w120 h20,CREATE FILE FOLDER:
  169. Gui, Add, Edit, x130 y255 w120 h20 vFCreate,
  170. Gui, Add, Button, x8 y285 w70 h30 gChaRename, Renamer
  171. Gui, Add, Button, x82 y285 w70 h30 gCREATEF, Create File
  172. Gui, Add, Button, x157 y285 w80 h30 gCREATED, Create Folder
  173. Gui, Add, Button, x240 y285 w60 h30 gCHRCmd, Cmd
  174. Gui, Add, Text, x8 y320 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  175. GUI, FONT, S16
  176. Gui, Add, Text,CRed x30 y335, NAJEEB FOLDER OPEN
  177. GUI, FONT, S10
  178. Gui, Add, Text, x8 y372 w100 h20,FOLDER:
  179. Gui, Add, DropDownList, x75 y370 w200  vList1 gOnSelect, %FLIST%|
  180. Gui, Add, Text, x8 y402 w100 h20,W-TOOLS:
  181. Gui, Add, DropDownList, x75 y400 w200  vList2 gOnSelect2, %FLIST2%|
  182. Gui, Add, Text, x8 y437 w100 h20,LINKS:
  183. Gui, Add, DropDownList, x75 y435 w200  vList3 gOnSelect3, %FLIST3%|
  184. Gui, Add, Text, x8 y470 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  185. GUI, FONT, S16
  186. Gui, Add, Text,CRed x325 y2, NAJEEB SEARCH FILES AND COMMANDS
  187. GUI, FONT, S10
  188. Gui, Add, Edit, x315 y32 w488 vneedle grefresh,
  189. Gui, Add, ListBox, x315 y60 vresults r32.8 w488
  190. Gui, Add, Button, x765 y2 gClip2,Clip
  191. Gui, Add, Button, x472 y594 gRUN,Run Exe
  192. Gui, Add, Button, x542 y594 gRUN3,Run Cmd
  193. Gui, Add, Button, x615 y594 gRUN4,Open Folder
  194. Gui, Add, Button, x710 y594 gRUN5,Video
  195. Gui, Add, Button, x765 y594 gRUN6,Web
  196. listboxvisible := true
  197. Gui, Add, DropDownList, x315 y596 gDDL vColorChoice, Select File Search||RunExe|CMD|FLIST|VIDEO|WEB|GUI
  198. GUI, FONT, S16
  199. Gui, Add, Text,CRed x20 y485, NAJEEB RUN COMMANDS
  200. GUI, FONT, S10
  201. Gui, Add, Text, x8 y522 w100 h20,RUN FILE:
  202. Gui, Add, Edit, x75 y520 w160 CBLUE vList4,
  203. Gui, Add, Button, x245 y520 gRUN2,Run
  204. Gui, Add, Text, x8 y562 w100 h20,RUN CMD:
  205. Gui, Add, Edit, x75 y560 w160 CRED vList5,
  206. Gui, Add, Button, x245 y560 gCMD,Cmd
  207. Gui, Add, Text, x8 y597 w100 h20,FILE SAVE:
  208. Gui, Add, Edit, x75 y595 w160 CRED vList6,
  209. Gui, Add, Button, x240 y595 gSave,SAVE
  210. gosub,FLIST
  211. Gui, Add, Text, x10 y626 w785,-=-=-=-=-=-=-=-=-=-=-=-=-Najeeb Shah Khan Software World -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  212. Gui, Show, w810 h644, NAJEEB CHANGE EXTENSION AND RENAMER
  213. GuiControl, Focus, needle
  214. Return
  215. Refresh:
  216. Gui, Submit, NoHide
  217. choicelimit := 0
  218. GuiControl,, results, |
  219. listbox:=""
  220. if (needle != "")
  221. {
  222. Guicontrol, show, results
  223. listboxvisible := true
  224. Loop, parse, FileContents, `n, `r
  225.     {
  226.         haystack:=A_LoopField
  227.         position := instr(haystack, needle)
  228.         if (position = 1) ;if it matches from the left
  229.         {
  230.             listbox.="|" . haystack
  231.             choicelimit := choicelimit + 1
  232.         }
  233.     }
  234. Loop, parse, FileContents, `n, `r
  235.     {
  236.         haystack:=A_LoopField
  237.         position := instr(haystack, needle)
  238.         if (position > 1)
  239.         {
  240.             listbox.="|" . haystack
  241.             choicelimit := choicelimit + 1
  242.         }
  243.     }
  244. if (listbox = "" || listbox = "|") {
  245. listboxvisible := false
  246. return
  247. }
  248. GuiControl,, results, %listbox%
  249. GuiControl, choose, results, 1
  250. resultchosen := 1
  251. }
  252. return
  253. DDL:
  254. Gui,submit,nohide
  255. GuiControlGet, ColorChoice
  256. FileRead, FileContents, %A_ScriptDir%\DATA\%ColorChoice%.ini
  257. Sort, FileContents
  258. Return
  259. Run:
  260. Gui,submit,nohide
  261. Run, %results%
  262. Return
  263. Run3:
  264. Gui,submit,nohide
  265. Run, %comspec% /c %results%
  266. Return
  267. Run4:
  268. Gui,submit,nohide
  269. Run, C:\Windows\explorer.exe shell:%results%
  270. Return
  271. Run5:
  272. Gui,submit,nohide
  273. Run, %A_programfiles%\VideoLAN\VLC\vlc.exe %results%
  274. Return
  275. Run6:
  276. Gui,submit,nohide
  277. Run, "%A_programfiles%\Mozilla Firefox\firefox.exe" %results%
  278. Return
  279. Clip2:
  280. Gui,submit,nohide
  281. Clipboard := results
  282. ClipWait  ; Wait for the clipboard to contain text.
  283. MsgBox %clipboard%
  284. Return
  285. CREATED:
  286.     Gui, Submit, Nohide
  287.     FileCreateDir, %FCreate%
  288.     Return
  289. CREATEF:
  290.     Gui, Submit, Nohide
  291.     FileAppend, , %FCreate%
  292.     Return
  293. EXTHide:
  294.     Gui, Submit, Nohide
  295.     FileSetAttrib, +HS, *.%EXT%
  296.     Return
  297. UNHide:
  298.     Gui, Submit, Nohide
  299.     FileSetAttrib, -HS, *.%EXT%
  300.     Return
  301. EXTRename:
  302.     Gui, Submit, Nohide
  303.     Run, %comspec% /c Ren *.%OGF% *.%EXT%,,hide
  304.     Return
  305. ChaRename:
  306.                {
  307.     Gui, Submit, Nohide
  308.     iCOPN := NUM
  309.    
  310.     Loop *.%EXT2%
  311.     {
  312.             FileMove, %A_LoopFileFullPath%, %ALF%%iCOPN%.%EXT2%
  313.             iCOPN++
  314.     }
  315.     return
  316. }
  317. CHRCmd:
  318. Gui, Submit, Nohide
  319.     Run,  %A_ScriptDir%\DATA\RENAMER.exe
  320.     return
  321. ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  322. OnSelect:
  323. Gui, Submit, nohide
  324. Run, C:\Windows\explorer.exe shell:%List1%
  325. return
  326.  
  327. OnSelect2:
  328. Gui, Submit, nohide
  329. Run, %List2%
  330. return
  331.  
  332. OnSelect3:
  333. Gui, Submit, nohide
  334. Run, %List3%
  335. return
  336.  
  337. RUN2:
  338. gui, submit, nohide
  339. Run, %List4%
  340. return
  341. CMD:
  342. Gui, submit, nohide
  343. Run, %comspec% /c CALL %List5%,,hide
  344. return
  345. FLIST:
  346. Gui,1:submit,nohide
  347. LIST=
  348. (
  349. [FLIST]
  350. 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
  351.  
  352. [FLIST2]
  353. 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|
  354.  
  355. [FLIST3]
  356. 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
  357. )
  358. ifnotexist,%F2%
  359.   fileappend,%LIST%,%F2%
  360. LIST=
  361. return
  362. Save:
  363. Gui, submit, nohide
  364. FileAppend, `n%results%, %A_Desktop%\%List6%
  365. return
  366. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  367. GetOut:
  368. GuiClose:
  369. Gui, Hide
  370. SkinForm(0)
  371. ExitApp
  372. return
  373.  
  374. SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
  375.     if(Param1 = Apply){
  376.         DllCall("LoadLibrary", str, DLL)
  377.         DllCall(DLL . "\SkinH_AttachEx", AStr,SkinName, Str,"mhgd")
  378.     }else if(Param1 = 0){
  379.         DllCall(DLL . "\USkinExit")
  380.         }
  381. }
  382. ;=-=-=-=-=-=-=-=-=-=- END SCRIPT -=-=-=-=-=-=-=-=-=-=-=-
  383.  
  384.  
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!