API tools faq
paste
Advertisement
Najeebsk

CHANGE-EXTENSION-RENAMER.ahk

Najeebsk
Mar 24th, 2023 (edited)
1,468
1
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 16.16 KB | None | 1 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. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  22. FileInstall , CMD.txt, %A_ScriptDir%\DATA\CMD.txt, 1
  23. FileInstall , RENAMER.exe, %A_ScriptDir%\DATA\RENAMER.exe, 1
  24. F2=%A_ScriptDir%\DATA\FLIST.ini
  25. FileCreateDir, %A_ScriptDir%\DATA
  26. FileInstall , CHANGE-EXTENSION-RENAMER.ahk, %A_ScriptDir%\DATA\CHANGE-EXTENSION-RENAMER.ahk, 1
  27. FileInstall , M1.msstyles, %A_ScriptDir%\DATA\M1.msstyles, 1
  28. FileInstall , USkin.dll, %A_ScriptDir%\DATA\USkin.dll, 1
  29. FileSetAttrib +HS, %A_ScriptDir%\DATA\CHANGE-EXTENSION-RENAMER.ahk, 2
  30. FileSetAttrib +HS, %A_ScriptDir%\DATA\Milikymac.msstyles, 2
  31. FileSetAttrib +HS, %A_ScriptDir%\DATA\USkin.dll, 2
  32. FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
  33. FileSetAttrib +HS, %A_ScriptDir%\DATA\FLIST.ini, 2
  34. FileSetAttrib +HS, %A_ScriptDir%\DATA\CMD.txt, 2
  35. FileSetAttrib +HS, %A_ScriptDir%\DATA\RENAMER.exe, 2
  36. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  37. GroupAdd ExplorerWindows, ahk_class ExploreWClass|CabinetWClass|Progman
  38.     global SubKey := "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
  39.    
  40.     gosub MakeTrayMenu
  41. return
  42.  
  43. ; Toggle the show/hide of hidden files
  44. ^!h::
  45. ToggleHiddenFilesStatus:
  46.    GetRegValue("Hidden") = 1
  47.         ? SetRegValue("Hidden", 2)
  48.         : SetRegValue("Hidden", 1)
  49.     Menu Tray, ToggleCheck, Show Hidden Files`tCtrl+Alt+H
  50.     gosub UpdateWindows
  51. return
  52.  
  53. ; Toggle the show/hide of system files
  54. ^!s::
  55. ToggleSystemFilesStatus:
  56.    GetRegValue("ShowSuperHidden")
  57.         ? SetRegValue("ShowSuperHidden", 0)
  58.         : SetRegValue("ShowSuperHidden", 1)
  59.     Menu Tray, ToggleCheck, Show System Files`tCtrl+Alt+S
  60.     gosub UpdateWindows
  61. return
  62.  
  63. ; Toggle the show/hide of extensions for known file types
  64. ^!e::
  65. ToggleFileExtStatus:
  66.    GetRegValue("HideFileExt")
  67.         ? SetRegValue("HideFileExt", 0)
  68.         : SetRegValue("HideFileExt", 1)
  69.     Menu Tray, ToggleCheck, Show File Extentions`tCtrl+Alt+E
  70.     gosub UpdateWindows
  71. return
  72.  
  73. About:
  74.    MsgBox, , About NajeebShowHide,
  75.     (
  76.         This program will show/hide hidden files, system files
  77.         and file extensions via hotkey or tray menu. and
  78.         Change Extension and Renamer and Create File and
  79.         Folder
  80.         The defined hotkeys are:
  81.        Ctrl+Alt+H      Toggle the show/hide of hidden files
  82.         Ctrl+Alt+E      Toggle the show/hide of file extensions
  83.         Ctrl+Alt+S      Toggle the show/hide of system files
  84.  
  85.         Works on both Windows XP and Windows 7
  86.         Written by: NAJEEB SHAH KHAN 3-25-2023
  87.     )
  88. return
  89.  
  90. GetRegValue(ValueName) {
  91.     RegRead Value, HKCU, %SubKey%, %ValueName%
  92.     return Value
  93. }
  94.  
  95. SetRegValue(ValueName, Value) {
  96.     RegWrite REG_DWORD, HKCU, %SubKey%, %ValueName%, %Value%
  97. }
  98.  
  99. ; Send a "Refresh" message to all of the Explorer windows including the Desktop
  100. UpdateWindows:
  101.    Code := Is_In(A_OSVERSION, "WIN_XP", "WIN_2000") ? 28931 : 41504
  102.     WinGet WindowList, List, ahk_Group ExplorerWindows
  103.     Loop %WindowList%
  104.         PostMessage 0x111, %Code%, , , % "ahk_id" WindowList%A_Index%
  105. return
  106.  
  107. Is_In(pStr, pList*)
  108. {
  109.     for key, val in pList
  110.         if (A_StringCaseSense = "Off" ? pStr = val : pStr == val)
  111.             return key
  112.        
  113.     return 0
  114. }
  115.  
  116. MakeTrayMenu:
  117.     Menu Default Menu, Standard
  118.     Menu Tray, NoStandard
  119.     Menu Tray, Add, About, About
  120.     Menu Tray, Add
  121.     Menu Tray, Add, Default Menu, :Default Menu
  122.     Menu Tray, Add
  123.     Menu Tray, Add, Show System Files`tCtrl+Alt+S, ToggleSystemFilesStatus
  124.     Menu Tray, Add, Show File Extentions`tCtrl+Alt+E, ToggleFileExtStatus
  125.     Menu Tray, Add, Show Hidden Files`tCtrl+Alt+H, ToggleHiddenFilesStatus
  126.     Menu Tray, Default, Show Hidden Files`tCtrl+Alt+H
  127.  
  128.     ; If any of the menu items need to start off checked, take care of it here
  129.     if GetRegValue("Hidden") = 1
  130.         Menu Tray, Check, Show Hidden Files`tCtrl+Alt+H
  131.     if GetRegValue("ShowSuperHidden") = 1
  132.         Menu Tray, Check, Show System Files`tCtrl+Alt+S
  133.     if GetRegValue("HideFileExt") = 0
  134.         Menu Tray, Check, Show File Extentions`tCtrl+Alt+E
  135. ;return
  136. SkinForm(Apply, A_ScriptDir . "\DATA\USkin.dll", A_ScriptDir . "\DATA\M1.msstyles")
  137. OnExit, GetOut
  138. CustomColor = FFFF99
  139. Gui, Color, %CustomColor%
  140. ;Gui,Font,S10 Bold,Verdana ;Calibri
  141. GUI, FONT, S16
  142. Gui, Add, Text,CRed x5 y2, NAJEEB CHANGE EXTENSION
  143. GUI, FONT, S8
  144. Gui, Add, Text, x8 y30 w120 h20,ORIGINAL EXTENSION:
  145. Gui, Add, Edit, x140 y28 w120 h20 vOGF,    
  146. Gui, Add, Text, x8 y58 w120 h20,CHANGE EXT HIDE/U:
  147. Gui, Add, Edit, x140 y56 w120 h20 vEXT,
  148. Gui, Add, Button, x8 y84 w120 h30 gEXTRename, Change Extension
  149. Gui, Add, Button, x150 y84 w65 h30 gEXTHide, Hide
  150. Gui, Add, Button, x220 y84 w65 h30 gUNHide, UnHide
  151. Gui, Add, Text, x8 y120 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  152. GUI, FONT, S16
  153. Gui, Add, Text,CRed x15 y140, RENAME AND CREATE FILE
  154. GUI, FONT, S8
  155. Gui, Add, Text, x8 y171 w120 h20,FILE EXTENSION:
  156. Gui, Add, Edit, x130 y170 w120 h20 vEXT2,
  157. Gui, Add, Text, x8 y199 w120 h20,FILE NUMBER:
  158. Gui, Add, Edit, x130 y198 w120 h20 vNUM,    
  159. Gui, Add, Text, x8 y228 w120 h20,ADD ALPHABET:
  160. Gui, Add, Edit, x130 y227 w120 h20 vALF,   
  161. Gui, Add, Text, x8 y257 w120 h20,CREATE FILE FOLDER:
  162. Gui, Add, Edit, x130 y255 w120 h20 vFCreate,
  163. Gui, Add, Button, x8 y285 w70 h30 gChaRename, Renamer
  164. Gui, Add, Button, x82 y285 w70 h30 gCREATEF, Create File
  165. Gui, Add, Button, x157 y285 w80 h30 gCREATED, Create Folder
  166. Gui, Add, Button, x240 y285 w60 h30 gCHRCmd, Cmd
  167. Gui, Add, Text, x8 y320 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
  168. GUI, FONT, S16
  169. Gui, Add, Text,CRed x30 y335, NAJEEB FOLDER OPEN
  170. GUI, FONT, S10
  171. Gui, Add, Text, x8 y372 w100 h20,FOLDER:
  172. Gui, Add, DropDownList, x75 y370 w200  vList1 gOnSelect, %FLIST%|
  173. Gui, Add, Text, x8 y402 w100 h20,W-TOOLS:
  174. Gui, Add, DropDownList, x75 y400 w200  vList2 gOnSelect2, %FLIST2%|
  175. Gui, Add, Text, x8 y437 w100 h20,LINKS:
  176. Gui, Add, DropDownList, x75 y435 w200  vList3 gOnSelect3, %FLIST3%|
  177. Gui, Add, Text, x8 y470 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  178. Gui, Add, Edit, x310 y8 h625 w500 vTCMD, %MyCMD%
  179. GUI, FONT, S16
  180. Gui, Add, Text,CRed x20 y485, NAJEEB RUN COMMANDS
  181. GUI, FONT, S10
  182. Gui, Add, Text, x8 y522 w100 h20,RUN FILE:
  183. Gui, Add, Edit, x75 y520 w160 CBLUE vList4,
  184. Gui, add, Button, x245 y520 gRUN,Run
  185. Gui, Add, Text, x8 y562 w100 h20,RUN CMD:
  186. Gui, Add, Edit, x75 y560 w160 CRED vList5,
  187. Gui, Add, Button, x245 y560 gCMD,Cmd
  188. Gui, Add, Text, x8 y597 w100 h20,FILE SAVE:
  189. Gui, Add, Edit, x75 y595 w160 CRED vList6,
  190. Gui, Add, Button, x240 y595 gSave,SAVE
  191. gosub,FLIST
  192. Gui, Add, Text, x8 y626 w300,-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  193. Gui, Show, w810 h644, NAJEEB CHANGE EXTENSION AND RENAMER
  194. CREATED:
  195.     Gui, Submit, Nohide
  196.     FileCreateDir, %FCreate%
  197.     return
  198. CREATEF:
  199.     Gui, Submit, Nohide
  200.     FileAppend, , %FCreate%
  201.     return
  202. EXTHide:
  203.     Gui, Submit, Nohide
  204.     FileSetAttrib, +HS, *.%EXT%
  205.     return
  206. UNHide:
  207.     Gui, Submit, Nohide
  208.     FileSetAttrib, -HS, *.%EXT%
  209.     return
  210. EXTRename:
  211.     Gui, Submit, Nohide
  212.     run, %comspec% /c Ren *.%OGF% *.%EXT%,,hide
  213.     return
  214. ChaRename:
  215.                {
  216.     Gui, Submit, Nohide
  217.     iCOPN := NUM
  218.    
  219.     Loop *.%EXT2%
  220.     {
  221.             FileMove, %A_LoopFileFullPath%, %ALF%%iCOPN%.%EXT2%
  222.             iCOPN++
  223.     }
  224.     return
  225. }
  226. CHRCmd:
  227. Gui, Submit, Nohide
  228.     Run,  %A_ScriptDir%\DATA\RENAMER.exe
  229.     return
  230. ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  231. OnSelect:
  232. Gui, Submit, nohide
  233. Run, C:\Windows\explorer.exe shell:%List1%
  234. return
  235.  
  236. OnSelect2:
  237. Gui, Submit, nohide
  238. Run, %List2%
  239. return
  240.  
  241. OnSelect3:
  242. Gui, Submit, nohide
  243. Run, %List3%
  244. return
  245.  
  246. RUN:
  247. gui, submit, nohide
  248. Run, %List4%
  249. return
  250. CMD:
  251. Gui, submit, nohide
  252. Run, %comspec% /c CALL %List5%,,hide
  253. return
  254. FLIST:
  255. Gui,1:submit,nohide
  256. LIST=
  257. (
  258. [FLIST]
  259. 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
  260.  
  261. [FLIST2]
  262. 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|
  263.  
  264. [FLIST3]
  265. 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
  266. )
  267. ifnotexist,%F2%
  268.   fileappend,%LIST%,%F2%
  269. LIST=
  270. return
  271. Save:
  272. Gui, submit, nohide
  273. FileAppend, `n%TCMD%, %A_Desktop%\%List6%
  274. return
  275. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  276. GetOut:
  277. GuiClose:
  278. Gui, Hide
  279. SkinForm(0)
  280. ExitApp
  281. SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
  282.     if(Param1 = Apply){
  283.         DllCall("LoadLibrary", str, DLL)
  284.         DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
  285.     }else if(Param1 = 0){
  286.         DllCall(DLL . "\USkinExit")
  287.         }
  288. }
  289. ;=-=-=-=-=-=-=-=-=-=- END SCRIPT -=-=-=-=-=-=-=-=-=-=-=-
  290.  
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!