API tools faq
paste
Advertisement
Najeebsk

NAJEEB-RADIO.ahk

Najeebsk
Mar 27th, 2023 (edited)
2,173
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 14.95 KB | None | 0 0
raw download clone embed print report
  1. /*   INFO
  2.    Internet Radio-6 XML DropDownList    Creator(RadioName) and location(URL)
  3.    Written by: Najeeb Shah Khan (najeebshahkhan@gmail.com)
  4.    Last Modified: 3-27-2023
  5. */
  6. ;#warn
  7. #NoEnv            
  8. SendMode Input    
  9. SetWorkingDir %A_ScriptDir%
  10. SetTitleMatchMode 2
  11. SetBatchLines, -1
  12. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  13. FileCreateDir, %A_ScriptDir%\DATA
  14. FileInstall , NAJEEB-RADIO.ahk, %A_ScriptDir%\DATA\NAJEEB-RADIO.ahk, 1
  15. FileInstall , Milikymac.msstyles, %A_ScriptDir%\DATA\fanta.msstyles, 1
  16. FileInstall , USkin.dll, %A_ScriptDir%\DATA\USkin.dll, 1
  17. FileSetAttrib +HS, %A_ScriptDir%\DATA\NAJEEB-RADIO.ahk, 2
  18. FileSetAttrib +HS, %A_ScriptDir%\DATA\fanta.msstyles, 2
  19. FileSetAttrib +HS, %A_ScriptDir%\DATA\USkin.dll, 2
  20. FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
  21. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  22. SkinForm(Apply, A_ScriptDir . "\DATA\USkin.dll", A_ScriptDir . "\DATA\fanta.msstyles")
  23. OnExit, GetOut
  24.  
  25. CoordMode, Mouse , Relative  ;- GUI
  26. DetectHiddenWindows, On
  27. whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  28. filename1=Najeeb Internet Radio-6  ( use ESC for SOUND ON/OFF )
  29. vlcx        =%A_programfiles%\VideoLAN\VLC\vlc.exe
  30. title:=""
  31. e1x:=""
  32. e:=""
  33. ;ixex1:="C:\Program Files (x86)\Google\Chrome\Application\chrome.exe "
  34. ixex1:="C:\Program Files\Mozilla Firefox\firefox.exe "
  35.  
  36. HK1=Esc
  37.   Hotkey,%hk1%,mute1,ON
  38.  
  39. STREAMRIPPER=%A_scriptdir%\streamripper.exe
  40. loop,%streamripper%,1
  41.    STRP=%A_LoopFileShortPath%
  42. R3S=%A_scriptDir%\STREAM
  43. ifnotexist,%R3S%
  44.   FileCreateDir,%R3S%
  45. Gui,3:default
  46. Gui,3: -DPIScale
  47. Gui,3:Color, FFFFCC
  48.  
  49. wa:=A_screenwidth
  50. ha:=A_screenHeight
  51. xx:=100
  52.  
  53. ;- maybe change fontsize
  54. ;============ GUISIZEx DPIx 4Kx 3840*2160 is 100% ============
  55. if (wa=3840)
  56.   Gui,3:Font,s12 cYellow,Lucida Console
  57.  
  58. ;============ GUISIZEx DPIx FHD 1920*1080 is 100% ============
  59. if (wa=1920)
  60.  Gui,3:Font,s12 cYellow,Lucida Console
  61. ;=============================================================
  62.  
  63.  
  64. transform,s,chr,32
  65. e5x=
  66. (Ltrim join|
  67. 50s                                              ,http://opml.radiotime.com/Browse.ashx?id=g390
  68. 60s-1                                            ,http://opml.radiotime.com/Browse.ashx?id=g407
  69. 60s-2                                            ,http://opml.radiotime.com/Browse.ashx?offset=26&id=c100000633
  70. 60s-3                                            ,http://opml.radiotime.com/Browse.ashx?offset=52&id=c100000633
  71. 60s-4                                            ,http://opml.radiotime.com/Browse.ashx?offset=78&id=c100000633
  72. Indian FM                                       ,https://onlineradiofm.in/
  73. %s%
  74. )
  75.  
  76.  
  77. x:=(wa*36)/xx,y:=(ha*.1)/xx,h:=(ha*17)/xx,w:=(wa*13)/xx
  78. Gui,3:Add,DDL,x%x% y%y% w%w% h%h% cBlack vUrlDDL gAA,%e5x%
  79. Guicontrolget,mydrop, pos,urlddl  
  80. x:=(wa*.2)/xx,y:=(ha*.1)/xx,h:=(ha*2.4)/xx,w:=(wa*35)/xx
  81. Gui,3: Add, Edit, x%x% y%y% w%w% h%mydroph%  vURL,
  82.  
  83.  
  84. x:=(wa*.2)/100,y:=(ha*3)/100,h:=(ha*40)/100,w:=(wa*50)/100
  85. Gui,3:Add, ListView,x%x% y%y% w%w% h%h% +hscroll BackgroundFFFF99 altsubmit vB1 gB2,Name|URL
  86. T1:=(wa*40)/100
  87. T2:=(wa*9 )/100
  88. LV_ModifyCol(1,T1)
  89. LV_ModifyCol(2,T2)
  90. GoSub,FLVB1
  91.  
  92. x:=(wa*.2)/xx,y:=(ha*50)/xx,h:=(ha*2.5)/xx,w:=(wa*8)/xx
  93. Gui,3:add,Button,x%x% y%y% h%h% w%w% gInternetRadio,InternetRadio
  94. x:=(wa*9)/xx
  95. Gui,3:add,Button,x%x% y%y% h%h% w%w% gRadioBrowser ,RadioBrowser
  96. x:=(wa*18)/xx
  97. Gui,3:add,Button,x%x% y%y% h%h% w%w% gCloseVLC     ,Close-Audio
  98.  
  99.  
  100. x:=(wa*.1)/xx,y:=(ha*53)/xx,h:=(ha*2.5)/xx,w:=(wa*50)/xx
  101. Gui,3:add,Edit,x%x% y%y% h%h% w%w% vED1
  102.  
  103. y:=(ha*56)/xx
  104. Gui,3:add,Edit,x%x% y%y% h%h% w%w% vED2
  105.  
  106. y:=(ha*59)/xx,w:=(wa*14)/xx
  107. Gui,3:add,Edit,x%x% y%y% h%h% w%w% vED3
  108. x:=(wa*15)/xx,w:=(wa*5)/xx
  109. Gui,3: Add, Progress,x%x% y%y% h%h% w%w% Disabled BackgroundRed
  110. Gui,3: Add, Text, xp yp wp hp BackgroundTrans 0x201 +Border gRecord,Record
  111. x:=(wa*22)/xx,w:=(wa*4)/xx
  112. Gui,3:add,Edit,x%x% y%y% h%h% w%w% right vED4  ; numbers i
  113. x:=(wa*28)/xx,
  114. Gui,3:Add,Text, x%x% y%y% , Search:
  115. x:=(wa*32)/xx,w:=(wa*10)/xx
  116. Gui,3:add,Edit, x%x% y%y% w%w% h%h% vSearchx gSearchA ; search
  117. ;---------
  118. x:=(wa*.2)/100,y:=(ha*.2)/100,h:=(ha*64)/100,w:=(wa*51)/100
  119. Gui,3:show,x%x% y%y% w%w% h%h%,%filename1%
  120. Guicontrol,3:,ED4,%i%
  121. GuiControl,3: Focus,searchx
  122. GuiControl,3: ChooseString,urlddl,50s
  123. settimer,aatimer,5000
  124. gosub,aatimer
  125. gosub,aa
  126. return
  127. ;============================================================
  128.  
  129. aa:
  130. Gui,3: submit, nohide
  131. h1:=""
  132. h2:=""
  133. if urlDDL<>
  134.    {
  135.    StringSplit,h,urlddl, `,
  136.    h1=%h1%
  137.    if (h1="Indian FM")
  138.      {
  139.      LV_Delete()
  140.      try
  141.        run,%ixex1%%h2%
  142.      catch
  143.        run,%h2%
  144.      Guicontrol,3:,url,%h2%
  145.      return
  146.      }
  147.    Guicontrol,3:,url,%h2%
  148.    filexml=%h2%
  149.    gosub,readxml
  150.    }
  151. return
  152. ;---------------------------
  153. searcha:
  154. Gui,3:ListView, B1
  155. GuiControlGet, Searchx
  156. GuiControl,3: -Redraw, B1
  157. LV_Delete()
  158. i:=0
  159. For Each, Name In LVArray
  160. {
  161.    If (Searchx != "")
  162.    {
  163.       ;If (InStr(name.1, Searchx) = 1)  ; for matching at the start
  164.       If InStr(name.1, Searchx)        ; for overall matching
  165.          {
  166.          LV_Add("",name.1, name.2)
  167.          i++
  168.          }
  169.    }
  170.    Else
  171.    {
  172.       LV_Add("", name.1,name.2)
  173.    i++
  174.    }
  175. }
  176. GuiControl,3: +Redraw, B1
  177. Guicontrol,3:,ED4,%i%
  178. GuiControl,3: Focus,searchx
  179. return
  180. ;-----------------------------
  181. mute1:
  182. soundset,+1,master,mute
  183. return
  184. ;-----------------------------
  185. InternetRadio:
  186. try
  187. run,%ixex1%https://www.internet-radio.com/search/?radio=fado
  188. catch
  189. run,https://www.internet-radio.com/search/?radio=fado
  190. return
  191. ;-----------------------------
  192. RadioBrowser:
  193. try
  194. run,%ixex1%http://www.radio-browser.info/gui/#!/search
  195. catch
  196. run,http://www.radio-browser.info/gui/#!/search
  197. return
  198. ;------------ record only if contains `: in url -----------------
  199. record:
  200. Guicontrolget,ed3
  201. stringtrimleft,edx,ed3,7
  202. if edx contains :
  203. {
  204. ;run,%COMSPEC% /K %strp% %ed3% -c -t -d "%R3S%"
  205. ifexist,%strp%
  206.  run,%COMSPEC% /K %strp% %ed3% --xs_padding=5000:5000 -c -t -d "%R3S%"
  207. ;run,%strp% %ed3% -c -t -d "%R3S%"
  208. }
  209. return
  210. ;----------------------------
  211.  
  212. FLVB1:
  213. Gui, 3:ListView, B1
  214. LV_Delete()
  215. LVArray := {}
  216. I:=0
  217. Loop,parse,e,`n,`r
  218.   {
  219.   x:=a_loopfield
  220.   if x=
  221.      continue
  222.   stringmid,xp1,x,1,1
  223.   if (xp1=";")         ;- don't read beginning with ";"
  224.      continue
  225.   c1=
  226.   c2=
  227.   stringsplit,C,x,`;
  228.   c1=%c1%
  229.   c2=%c2%
  230.   LV_Add("",c1,c2)
  231.   LVArray.Push({1:c1,2:c2})
  232.   i++
  233.   }
  234. ;LV_ModifyCol(1, "Logical SortAsc")  ;- maybe sort column-1
  235. return
  236. ;----------------------------
  237.  
  238. B2:
  239. Gui,3:ListView, B1
  240. GuiControlGet,B1
  241.   RN:=LV_GetNext("C")
  242.   RF:=LV_GetNext("F")
  243.   GC:=LV_GetCount()
  244.  
  245. if A_GuiEvent = Normal
  246.   {
  247.   LV_GetText(C1,A_EventInfo,1)
  248.   LV_GetText(C2,A_EventInfo,2)
  249.   ifexist,%vlcx%
  250.      {
  251.      try
  252.        {
  253.        ;Process, Exist, vlc.exe
  254.        ;If ErrorLevel
  255.        ;      process,close,vlc.exe
  256.        ;run,%vlcx% --one-instance --qt-start-minimized %c2%,,hide,
  257.        run,%vlcx% --one-instance %c2%,,min,
  258.        Guicontrol,3:,url,%c2%
  259.        Guicontrol,3:,ed2,
  260.        }
  261.   catch
  262.      msgbox, 262208,ERROR ,CHECK PATH %vlcx%
  263.      }
  264.   Guicontrol,3:,ED1, %C1%
  265.   Guicontrol,3:,ED2,
  266.   Guicontrol,3:,ED3, %C2%
  267.   settimer,aatimer,ON
  268.   gosub,aatimer
  269.   }
  270. return
  271. ;----------------------------
  272.  
  273.  
  274. aatimer:
  275. WinGetTitle, Title, VLC media player ahk_exe vlc.exe
  276. ;WinGetTitle, Title,ahk_exe vlc.exe
  277. ;WinGetTitle, Title, VLC media player
  278. ;Process, Exist,vlc.exe
  279. ;WinGetTitle, title, ahk_pid %Errorlevel%      ;- QtrayIconMessageWindow
  280. title=%title%
  281. stringreplace,title,title,VLC media player,,
  282. Guicontrol,3:,ED2,%title%
  283. return
  284. ;----------------------------
  285.  
  286.  
  287. closevlc:
  288. Process, Exist, vlc.exe
  289. If ErrorLevel
  290. {
  291.  process,close,vlc.exe
  292.  Guicontrol,3:,ED1,
  293.  Guicontrol,3:,ED2,
  294.  settimer,aatimer,off
  295. }
  296. return
  297. ;----------------------------
  298.  
  299.  
  300. 3Guiclose:
  301. settimer,aatimer,OFF
  302. Process, Exist, vlc.exe
  303. If ErrorLevel
  304.    {
  305.    msgbox, 262435,Radio-Close,Want you close also Audio ?
  306.    ifmsgbox,NO
  307.       exitapp
  308.    ifmsgbox,Cancel
  309.       return
  310.    else
  311.      {
  312.      process,close,vlc.exe
  313.      exitapp
  314.      }
  315.    }
  316. else
  317.   exitapp
  318. return
  319. ;----------------------------
  320. ;=============================== END SCRIPT ===================
  321.  
  322.  
  323. readxml:
  324. whr.Open("GET",h2, true)
  325. whr.Send()
  326. whr.WaitForResponse()
  327. e1 := whr.ResponseText
  328. transform,r,chr,34   ;- "
  329. transform,s,chr,32
  330. transform,k,chr,59
  331. e:=""
  332. ;-- add these first to the list
  333. e=
  334. (
  335. MY-MP3;D:\VIDEOS\MP3.m3u
  336. LATA-MANGESHKAR;https://stream.zeno.fm/87xam8pf7tzuv
  337. KISHORE-KUMAR;https://stream-29.zeno.fm/0ghtfp8ztm0uv?zs=bY_YMkyZTfaDxM_0V6n4NQ
  338. MOHMMED-RAFI;https://stream-22.zeno.fm/2xx62x8ztm0uv?zs=H0kYgOvASsybRex146D3FA
  339. HITS-OF-BOLLYWOOD;https://stream-14.zeno.fm/a2gyqzwpwfeuv?zs=FZPPkfUPT1-FLq1lNTnc2A
  340. MERA-FM 107.4;https://samaapew107-itelservices.radioca.st/stream/1/
  341. FM-91 PAK MUSIC;http://cc.vmakerhost.com:8147/steam/1/
  342. ALL80s;http://listen.radionomy.com/all80s.m3u
  343. 80sPlanet;http://eu2.servemp3.com:10010
  344. RADIO PAKISTAN-TORONTO;https://s3.radio.co/s3b10a57ef/listen
  345. FM-100 PAKISTAN;http://162.244.80.118:3058/;stream.mp3
  346. PAK-FIMLI;http://74.91.125.187:8214/stream
  347. 106.2FM JUST MUSIC;https://live.wostreaming.net/direct/humfm-fm1062mp3-ibc1
  348. WORLD PAKISTAN;http://radio.itelservices.net:8612/;
  349. KARACHI 96;http://s3.voscast.com:8450/;
  350. Heart FM 100.7;http://media-ice.musicradio.com/HeartWestMidsMP3.m3u
  351. FM 101.4 Mirpur;http://210.56.24.230:8030/;
  352. Radio Pakistan Lahore;http://203.124.35.147:8086/relay
  353. Kompis FM;http://eu2.fastcast4u.com:4196/stream
  354. Buzz FM;http://fusion.shoutca.st:8112/stream
  355. Pakistani Chat Rooms;https://radio.chatroomradio.com/listen/goldchatfm/radio.mp3
  356. Dunya News;https://imob.dunyanews.tv/live/rddaudrgn.sdp/playlist.m3u8
  357. Awamichat live;https://ec1.everestcast.host/awamichat
  358. BBC Radio 1;http://www.bbc.co.uk/radio1/wm_asx/aod/radio1.asx
  359. BBC Radio 2;http://www.bbc.co.uk/radio/listen/live/r2.asx
  360. BBC Radio 4;http://bbc.co.uk/radio/listen/live/r4.asx
  361. BBC Radio 5;http://radio1.rtve.stream.flumotion.com/rtve/radio5.mp3.m3u
  362. BBC 6 Music;http://bbc.co.uk/radio/listen/live/r6.asx
  363. Radio London;http://wmlive.bbc.co.uk/wms/england/lrlondon
  364. Radio New York Live;http://www.myradiohd.com/radionylive/__WM__HD.asx
  365. ch_News DRS4;http://stream.srg-ssr.ch/drs4news/mp3_128.m3u
  366. de_NEWS DLF;https://www.deutschlandradio.de/streaming/dlf.m3u
  367. us_Oldies Retro;http://167.86.107.72:8090
  368. us_50 ABC 50s;http://144.217.253.136:8582
  369. us_50 DreamBoat;http://146.71.124.10:8100
  370. us_50 UK 1950s;http://91.121.134.23:8648
  371. us_50 HD Radio;http://167.114.64.181:8360
  372. us_Country HPR-1;http://188.165.192.5:8374
  373. eu_Folk Europe;http://79.111.14.76:9187/
  374. eu_Folk;http://79.111.119.111:9227/
  375. eu_Classic;http://79.120.39.202:9193/
  376. eu_Classic Harp;http://79.120.39.202:9201/
  377. pt_Portugal Fado Radio Caprice-Fado;http://79.111.14.76:9189
  378. pt_Portugal sounds of;http://91.121.78.191:8541
  379. jp_Oldies Japan;http://66.70.187.44:9069
  380. lt_World PMR LT;http://185.193.112.155:18638
  381. sv_Folk Sverige Svensk Folkmusic;http://82.94.205.73:8107
  382. ABC 50s (Fifties) (Canada) ; http://opml.radiotime.com/Tune.ashx?id=s165879
  383. Addictive 50s (Canada) ; http://opml.radiotime.com/Tune.ashx?id=s166793
  384. GotRadio The 50s (US) ; http://opml.radiotime.com/Tune.ashx?id=s65671
  385. radio PILE (France) ; http://opml.radiotime.com/Tune.ashx?id=s113337
  386. Rockabilly Radio (UK) ; http://opml.radiotime.com/Tune.ashx?id=s51143
  387. 1A Oldies (Germany) ; http://opml.radiotime.com/Tune.ashx?id=s307969
  388. La Tremenda Corte Radio (Trespatines) (Dominican Republic) ; http://opml.radiotime.com/Tune.ashx?id=s268168
  389. RCS Network Story (Campania, Italy) ; http://opml.radiotime.com/Tune.ashx?id=s276071
  390. Trespatines Radio (Dominican Republic) ; http://opml.radiotime.com/Tune.ashx?id=s281938
  391. Doowop Radio (US) ; http://opml.radiotime.com/Tune.ashx?id=s228873
  392. ON 50s (Germany) ; http://opml.radiotime.com/Tune.ashx?id=s307975
  393. Radio Tormenta (Morelia, Mexico) ; http://opml.radiotime.com/Tune.ashx?id=s181479
  394. MyHitMusic! JUKEBOX - GOLD (Germany) ; http://opml.radiotime.com/Tune.ashx?id=s284677
  395. Remember Then Radio (US) ; http://opml.radiotime.com/Tune.ashx?id=s184042
  396. ASANTEMAN RADIO (Kumasi, Ghana) ; http://opml.radiotime.com/Tune.ashx?id=s224923
  397. Puregold Oldies (US) ; http://opml.radiotime.com/Tune.ashx?id=s304517
  398. Radio télé Motivation Fm Gonaives-Haiti (Haiti) ; http://opml.radiotime.com/Tune.ashx?id=s287378
  399. Dusty Bag Oldies (US) ; http://opml.radiotime.com/Tune.ashx?id=s254551
  400. Cleansing 50s (US) ; http://opml.radiotime.com/Tune.ashx?id=s234015
  401. Starr (Accra, Ghana) ; http://opml.radiotime.com/Tune.ashx?id=s229680
  402. 0nlineradio 50s (US) ; http://opml.radiotime.com/Tune.ashx?id=s309730
  403. Stereo Oldies Radio (US) ; http://opml.radiotime.com/Tune.ashx?id=s172617
  404. The Belmonts Internet Radio (US) ; http://opml.radiotime.com/Tune.ashx?id=s162388
  405. Fun45s.com (US) ; http://opml.radiotime.com/Tune.ashx?id=s177735
  406. doowopradio4u (US) ; http://opml.radiotime.com/Tune.ashx?id=s99659
  407. ch_News DRS4;http://stream.srg-ssr.ch/drs4news/mp3_128.m3u
  408. de_NEWS DLF;https://www.deutschlandradio.de/streaming/dlf.m3u
  409. us_Oldies Retro;http://167.86.107.72:8090
  410. us_50 ABC 50s;http://144.217.253.136:8582
  411. us_50 DreamBoat;http://146.71.124.10:8100
  412. us_50 UK 1950s;http://91.121.134.23:8648
  413. us_50 HD Radio;http://167.114.64.181:8360
  414. us_Country HPR-1;http://188.165.192.5:8374
  415. eu_Folk Europe;http://79.111.14.76:9187/
  416. eu_Folk;http://79.111.119.111:9227/
  417. eu_Classic;http://79.120.39.202:9193/
  418. eu_Classic Harp;http://79.120.39.202:9201/
  419. pt_Portugal Fado Radio Caprice-Fado;http://79.111.14.76:9189
  420. pt_Portugal sounds of;http://91.121.78.191:8541
  421. jp_Oldies Japan;http://66.70.187.44:9069
  422. lt_World PMR LT;http://185.193.112.155:18638
  423. sv_Folk Sverige Svensk Folkmusic;http://82.94.205.73:8107
  424.  
  425. )
  426.  
  427. x:= r . s
  428. a=<outline type="audio"
  429. b=/>
  430. c1=text="           ;- radio name
  431. c2=url="            ;- radio url
  432. c3=image="          ;- radio image
  433. c4=playing_image="  ;- playing image ( change )
  434. loop,parse,e1,`n,`r
  435. {
  436. lr:= a_loopfield
  437.    stringreplace,lr,lr,`;,,all
  438.    stringreplace,lr,lr,&#39,,all
  439.    stringreplace,lr,lr,&amp,,all
  440.    stringreplace,lr,lr,&apos,,all
  441. if lr contains %a%
  442.   nr=1
  443. if lr not contains %a%
  444.   nr=0
  445. if (nr=1)
  446.  {
  447.  stringreplace,lr,lr,%x%,$,all
  448.  loop,parse,lr,$
  449.     {
  450.     y:=a_loopfield
  451.     if y contains subtext=
  452.        continue
  453.     if y contains %c1%
  454.       {
  455.       stringreplace,y,y,%c1%,,all
  456.       a1:= y . s . k . s
  457.       }
  458.     if y contains %c2%
  459.       {
  460.       stringreplace,y,y,%c2%,,all
  461.       a2:= y
  462.       }
  463.     ;if y contains %c3%                ;- picture
  464.     ;  {
  465.     ;  stringreplace,y,y,%c3%,,all
  466.     ;  a3:= y
  467.     ;  }
  468.     if y contains %b%  
  469.       e .= a1 . a2 . "`r`n"
  470.     }
  471.  }
  472. }
  473. ;msgbox,%e%
  474. fileappend,%e%,STREAM\RADIO-CHANNELS.txt
  475. gosub,flvb1
  476. return
  477. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  478. GetOut:
  479. GuiClose:
  480. Gui, Hide
  481. SkinForm(0)
  482. ExitApp
  483. return
  484.  
  485. SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
  486.     if(Param1 = Apply){
  487.         DllCall("LoadLibrary", str, DLL)
  488.         DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
  489.     }else if(Param1 = 0){
  490.         DllCall(DLL . "\USkinExit")
  491.         }
  492. }
  493. ;=============================== END SCRIPT ===================
  494.  
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!