// ****************************************** // **** iTunes Operator ********************* // **** Developed by Tetsu Kimura *********** // **** 2019.12.12 Version 1.0 ************** // **** 2019.12.22 Version 1.2 ************** // **** Input Check, Settings, .ini ******* // **** 2019.12.22 Version 1.3 ************** // **** Max and Topmost at Selet&Play ***** // **** 2020.1.22 Version 1.4 ************** // **** Media, Top/Side Margin, Window **** // **** 2020.2.15 Version 1.5 ************** // **** Scroll **************************** // ****************************************** // // ******** ini-File Check ******** FID = FOPEN("01-iTunes.ini",F_READ) TEMP = FGET(FID,28) FCLOSE(FID) IFB TEMP = "" SLCTBOX(SLCT_BTN,10,80,110,"01-itunes.iniファイルも最新のものに入れ替えてください。ダウンロードした中にあります。") EXITEXIT ENDIF // ******** Settings ******** FID = FOPEN("01-iTunes.ini",F_READ) FGET(FID,F_alltext) PT = FGET(FID,2) // - MR = FGET(FID,4) // Mute Rate MX = FGET(FID,6) // ON=カレントアプリ画面優先 / OFF=iTunes画面優先 ITP = FGET(FID,8) // Path for iTunes.exe SF = FGET(FID,10) // Shuffle Log ITE = FGET(FID,12) // iTunes ON or OFF when script end VL = FGET(FID,16) // Set PC Volume % LIV = FGET(FID,20) // Last iTunes Volume ITT = FGET(FID,22) // iTunes Start Wait Time Sec DEF = FGET(FID,24) // Default Grid & Sort by Album TM = FGET(FID,26) // Top Margin SM = FGET(FID,28) // Side Margin FCLOSE(FID) CME = "Music" TM = VAL(TM) SM = VAL(SM) IFB ITT = "" ITT = 7 ENDIF // ******** EXEC iTunes ******** SID = GETID("iTunes","iTunes") IFB SID = -1 EXEC(ITP) SLCTBOX(SLCT_BTN,3.5,15,110,"<<< Hello! iTunes Operator V1.5 / Start with iTunes >>>") SLEEP(ITT) ELSE SLCTBOX(SLCT_BTN,2,15,110,"<<< Hello! iTunes Operator V1.5 >>>") ENDIF // ******** Settings ******** MD = "MENU" // Menu Mode PV = 0 // Previous FLG MT = "OFF" // Mute FLG ST = PT * 300 // Select & Play Waiting Timer, 300=1min XX = 0 // SID = ID for iTunes // XID = ID for Current Application // ******** Menu Definition ******** MM = "♪♪ iTunes Operator V1.5 ♪♪" M0 = "Select Album" M1 = "Play > Pause ||" M2 = "<< Previous  " M3 = "  Next >>" M4 = "Stop ■" M5 = "Volume ++" M6 = "Volume +" M7 = "Volume -" M8 = "Volume --" M9 = "Mute ♪  - " + LIV + " -" M10 = "PC Volume " + VL + "%" M11 = "Now Playing!" IFB SF = "OFF2" M12 = "Shuffle (×)" ELSEIF SF = "ON2" M12 = "Shuffle (●)" ELSE M12 = "Shuffle ON/OFF" ENDIF M13 = "Media -" + CME + "-" M14 = "Window Control" M15 = "Settings" M16 = "Move → R" M17 = "□ End □" SS = "===== Settings =====" S0 = "メインメニューに戻る" S1 = "iTunesを起動" S2 = "設定なし" S3 = "アプリ画面優先(" + MX + ")" S4 = "PC音量設定(" + VL + "%)" S5 = "PCボリューム設定 +" S6 = "PCボリューム設定 −" S7 = "ミュートレート(" + MR + ")" S8 = "サイドバー ON/OFF" S9 = "iTunes環境設定" S10 = "iTunes同時終了(" + ITE + ")" S11 = "iTunes起動時間(" + ITT + "秒)" S12 = "グリッド&アルバム順(" + DEF + ")" S13 = "メニュー上下位置(" + TM + ")" S14 = "メニュー左右位置(" + SM + ")" // ******** Get Display Size ******** FOR E = 1 TO 30 SID = GETID("iTunes","iTunes") IFB SID = -1 SLEEP(0.2) ELSE SLEEP(0.6) BREAK ENDIF NEXT IFB SID = -1 SLCTBOX(SLCT_BTN,3,15,110,"iTunesが見つかりません。起動のためのパスを確認してください。") MD = "STOP" ENDIF // SID = GETID("iTunes","iTunes") CTRLWIN(SID,MAX) CTRLWIN(SID,ACTIVATE) mon = status(SID, ST_MONITOR) ZMAX = monitor(mon, MON_WIDTH) ZL = SM ZR = ZMAX - SM - 240 ZP = ZL XL = SM XR = ZMAX - SM - 380 XP = XL // ******** Set PC & iTunes Volume ******** FOR A = 1 TO 50 // PC Down KBD(VK_volume_down,CLICK,60) NEXT KBD(VK_CTRL,DOWN,80) // iTunes Down FOR A = 1 TO 22 KBD(VK_down,CLICK,70) NEXT FOR A = 1 TO LIV // iTunes Up KBD(VK_up,CLICK,70) NEXT KBD(VK_CTRL,UP,80) VL2 = VL / 2 // PC Up FOR A = 1 TO VL2 KBD(VK_volume_up,CLICK,70) NEXT // ******** Set Media ******** KBD(VK_ALT,DOWN,105) KBD(VK_V,CLICK,105) KBD(VK_ALT,UP,105) KBD(VK_K,CLICK,105) KBD(VK_I,CLICK,105) // ******** Set Grid & A-Z ******** IFB DEF = "ON" KBD(VK_ALT,DOWN,105) KBD(VK_V,CLICK,105) KBD(VK_ALT,UP,105) KBD(VK_DOWN,CLICK,105) KBD(VK_RETURN,CLICK,105) KBD(VK_RETURN,CLICK,105) // KBD(VK_ALT,DOWN,105) KBD(VK_V,CLICK,105) KBD(VK_ALT,UP,105) KBD(VK_DOWN,CLICK,105) KBD(VK_DOWN,CLICK,105) KBD(VK_RETURN,CLICK,105) KBD(VK_RETURN,CLICK,105) ENDIF // ******** Ready to Start ******** FOR A = 1 TO 99999 // ******** Main Menu ******** IFB MD = "MENU" PX = ZP + 95 PY = TM + 93 + ( XX * 41 ) MMV(PX,PY) M10 = "PC Volume " + VL + "%" M13 = "Media -" + CME + "-" XX = SLCTBOX(SLCT_NUM,0,ZP,TM,MM,M0,M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12,M13,M14,M15,M16,M17) XID = GETID(GET_FROMPOINT_WIN) IFB XX = 2 and PV = 1 // Previous Control XX = 22 ENDIF ENDIF // ******** (14) Window Control ******** IFB XX = 14 XX = 0 FOR B = 1 to 19 IFB CME = "Movie" WID = GETID(GET_FROMPOINT_WIN) ELSE WID = SID ENDIF CTRLWIN(SID, ACTIVATE) PX = ZP + 95 PY = TM + 93 + ( XX * 41 ) MMV(PX,PY) ME = "= Window Control =" ME0 = "Quit" ME1 = "|← Full Screen →|" ME2 = "→| Normal Size |←" ME3 = "← Move Left" ME4 = "Move Right →" ME5 = "↑ Move Up" ME6 = "Move Down ↓" ME7 = "Wider >>" ME8 = "Narrower <<" ME9 = "↑↑ Taller ↓↓" ME10 = "▽ Shorter △" XX = SLCTBOX(SLCT_NUM,0,ZP,TM,ME,ME0,ME1,ME2,ME3,ME4,ME5,ME6,ME7,ME8,ME9,ME10) IFB XX = 0 BREAK ELSEIF XX = 1 CTRLWIN(SID,MAX) ELSEIF XX = 2 CTRLWIN(SID,NORMAL) ELSEIF XX = 3 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_M,CLICK,120) FOR D = 1 TO 4 KBD(VK_LEFT,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 4 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_M,CLICK,120) FOR D = 1 TO 4 KBD(VK_RIGHT,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 5 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_M,CLICK,120) FOR D = 1 TO 4 KBD(VK_UP,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 6 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_M,CLICK,120) FOR D = 1 TO 4 KBD(VK_DOWN,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 7 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_S,CLICK,120) FOR D = 1 TO 4 KBD(VK_RIGHT,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 8 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_S,CLICK,120) KBD(VK_RIGHT,CLICK,120) FOR D = 1 TO 5 KBD(VK_LEFT,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 9 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_S,CLICK,120) FOR D = 1 TO 4 KBD(VK_DOWN,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ELSEIF XX = 10 CTRLWIN(SID, ACTIVATE) KBD(VK_ALT,DOWN,100) KBD(VK_SPACE,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_S,CLICK,120) KBD(VK_DOWN,CLICK,120) FOR D = 1 TO 3 KBD(VK_UP,CLICK,120) NEXT KBD(VK_ENTER,CLICK,100) ENDIF NEXT // ******** (0) Select Album and Play ******** ELSEIF XX = 0 YY = 0 CX = ZMAX / 1.9 CY = CX * 0.4 FOR B = 1 to 99 CTRLWIN(SID,ACTIVATE) PX = ZP + 95 PY = TM + 93 + ( YY * 41 ) MMV(PX,PY) NN = "Scroll & Select Album" N0 = "Quit" N1 = "↑↑↑↑↑ Top" N2 = "↑↑↑↑ Scroll Up" N3 = "↑↑↑ Scroll Up" N4 = "↑↑ Scroll Up" N5 = "↑ Scroll Up" N6 = "Scroll Down ↓" N7 = "Scroll Down ↓↓" N8 = "Scroll Down ↓↓↓" N9 = "Scroll Down ↓↓↓↓" N10 = "Bottom ↓↓↓↓↓" N11 = "Play > Pause ||" N12 = "New Play List" N13 = "Add to Play List※" N14 = "※How to Use" YY = SLCTBOX(SLCT_NUM,0,ZP,TM,NN,N0,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14) IFB YY = 0 BREAK ELSEIF YY = 1 CTRLWIN(SID,ACTIVATE) KBD(VK_HOME,CLICK,100) ELSEIF YY = 2 or YY = 9 ZZ = 32 ELSEIF YY = 3 or YY = 8 ZZ = 16 ELSEIF YY = 4 or YY = 7 ZZ = 8 ELSEIF YY = 5 or YY = 6 ZZ = 4 ELSEIF YY = 10 CTRLWIN(SID,ACTIVATE) KBD(VK_END,CLICK,100) ELSEIF YY = 11 CTRLWIN(SID,ACTIVATE) KBD(VK_SPACE,CLICK,300) ELSEIF YY = 12 NAME = INPUT("Enter Play List Name","-",,ZP,TM) CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,100) KBD(VK_N,CLICK,100) KBD(VK_CTRL,UP,100) SLEEP(0.2) SENDSTR(0,NAME) KBD(VK_CTRL,DOWN,100) KBD(VK_V,CLICK,100) KBD(VK_CTRL,UP,100) KBD(VK_RETURN,CLICK,100) ELSEIF YY = 13 CTRLWIN(SID,ACTIVATE) SLCTBOX(SLCT_BTN,4,XP,TM,"======== 使い方を説明します ========") SLCTBOX(SLCT_BTN,5,XP,TM,"== まず、プレイリストに登録したいアルバムや曲の画面を開いてください ==") SLCTBOX(SLCT_BTN,5,XP,TM,"== 「Start!!!」したら登録したいアルバムや曲を左クリックします ==") SLCTBOX(SLCT_BTN,5,XP,TM,"■■■ Start !!! ■■■") IFB GETKEYSTATE(VK_LBUTTON) = TRUE SLEEP(0.5) ENDIF FOR C = 1 TO 40 IFB GETKEYSTATE(VK_LBUTTON) = TRUE SLEEP(0.5) BREAK ENDIF SLEEP(1) NEXT SLCTBOX(SLCT_BTN,4,XP,TM,"== これからプレイリストが7秒間ずつ繰り返し表示されます ==") SLCTBOX(SLCT_BTN,4,XP,TM,"== 表示されている間に視線入力キーボードでEnterしてください ==") SLCTBOX(SLCT_BTN,4,XP,TM,"== 何度も繰り返し表示されますから慌てないで ==") CTRLWIN(SID,ACTIVATE) SLEEP(1) KBD(VK_ALT,DOWN,100) KBD(VK_S,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_D,CLICK,100) SLEEP(7.5) FOR C = 1 TO 30 KBD(VK_DOWN,CLICK,100) IFB GETKEYSTATE(VK_RETURN) BREAK ENDIF SLEEP(7) NEXT ELSEIF YY = 14 SLCTBOX(SLCT_BTN,5,XP,TM,"======== プレイリストへの登録方法を説明します ========") SLCTBOX(SLCT_BTN,6,XP,TM,"== まず、プレイリストに登録したいアルバムや曲の画面を開いてください ==") SLCTBOX(SLCT_BTN,6,XP,TM,"== 「Start!!!」したら登録したいアルバムや曲を左クリックします ==") SLCTBOX(SLCT_BTN,6,XP,TM,"== このメッセージが出ます→ ■■■ Start !!! ■■■ ==") SLCTBOX(SLCT_BTN,6,XP,TM,"== その後、プレイリストが7秒間ずつ繰り返し表示されます ==") SLCTBOX(SLCT_BTN,6,XP,TM,"== 表示されている間に視線入力キーボードでEnterしてください ==") SLCTBOX(SLCT_BTN,6,XP,TM,"== 何度も繰り返し表示されますから慌てないで ==") ENDIF IFB YY > 1 and YY < 6 CTRLWIN(SID,ACTIVATE) FOR C = 1 to ZZ BTN(WHEEL,1,CX,CY) SLEEP(0.15) NEXT ELSEIF YY > 5 and YY < 10 CTRLWIN(SID,ACTIVATE) FOR C = 1 to ZZ BTN(WHEEL,-1,CX,CY) SLEEP(0.15) NEXT ENDIF NEXT // ******** (1) Space-Key for Play & Pause ******** ELSEIF XX = 1 CTRLWIN(SID,ACTIVATE) KBD(VK_SPACE,CLICK,300) // ******** (2) Previous ******** ELSEIF XX = 2 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_LEFT,CLICK,80) KBD(VK_CTRL,UP,80) PV = 1 // ******** (22) Previous Double Click ******** ELSEIF XX = 22 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_LEFT,CLICK,80) KBD(VK_LEFT,CLICK,80) KBD(VK_CTRL,UP,80) PV = 0 // ******** (3) Next ******** ELSEIF XX = 3 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_RIGHT,CLICK,80) KBD(VK_CTRL,UP,80) // ******** (4) Stop ******** ELSEIF XX = 4 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_OEM_PERIOD,CLICK,80) KBD(VK_CTRL,UP,80) // ******** (5) iTunes Volume ++ ******** ELSEIF XX = 5 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_UP,CLICK,80) KBD(VK_UP,CLICK,80) KBD(VK_CTRL,UP,80) LIV = LIV + 2 IFB LIV > 22 LIV = 22 ENDIF // ******** (6) iTunes Volume + ******** ELSEIF XX = 6 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_UP,CLICK,80) KBD(VK_CTRL,UP,80) LIV = LIV + 1 IFB LIV > 22 LIV = 22 ENDIF // ******** (7) iTunes Volume - ******** ELSEIF XX = 7 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_DOWN,CLICK,80) KBD(VK_CTRL,UP,80) LIV = LIV - 1 IFB LIV < 1 LIV = 0 ENDIF // ******** (8) iTunes Volume -- ******** ELSEIF XX = 8 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_DOWN,CLICK,80) KBD(VK_DOWN,CLICK,80) KBD(VK_CTRL,UP,80) LIV = LIV - 2 IFB LIV < 1 LIV = 0 ENDIF // ******** (9) Mute ******** ELSEIF XX = 9 IFB LIV < MR MR2 = LIV ELSE MR2 = MR ENDIF CTRLWIN(SID,ACTIVATE) IFB MT = "OFF" // Mute ON KBD(VK_CTRL,DOWN,120) FOR B = 1 TO MR2 KBD(VK_DOWN,CLICK,80) NEXT KBD(VK_CTRL,UP,80) MT = "ON" M9 = "Mute ●" ELSE // Mute OFF KBD(VK_CTRL,DOWN,120) FOR B = 1 TO MR2 KBD(VK_UP,CLICK,400) NEXT KBD(VK_CTRL,UP,80) MT = "OFF" M9 = "Mute ♪  - " + LIV + " -" ENDIF // ******** (10) PC Volumew ******** ELSEIF XX = 10 VID = FOPEN("01-volume.txt",F_READ or F_WRITE) FGET(VID,F_ALLTEXT) FPUT(VID,VL,2) FCLOSE(VID) CALL 01-volume.UWS VID = FOPEN("01-volume.txt",F_READ) VL = VAL(FGET(VID,2)) FCLOSE(VID) FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,VL,16) FCLOSE(FID) // ******** (11) Now Playing!! ******** ELSEIF XX = 11 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,120) KBD(VK_L,CLICK,80) KBD(VK_CTRL,UP,80) // ******** (12) Shuffle ON/OFF ******** ELSEIF XX = 12 IFB SF = "OFF" or SF = "OFF2" CTRLWIN(SID,ACTIVATE) KBD(VK_ALT,DOWN,120) KBD(VK_C,CLICK,80) KBD(VK_ALT,UP,80) SLEEP(0.1) KBD(VK_S,CLICK,80) SLEEP(0.1) KBD(VK_RETURN,CLICK,80) SF = "ON" M12 = "Shuffle ●" FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,"ON2",10) FCLOSE(FID) ELSEIF SF = "ON" or SF = "ON2" CTRLWIN(SID,ACTIVATE) KBD(VK_ALT,DOWN,120) KBD(VK_C,CLICK,80) KBD(VK_ALT,UP,80) SLEEP(0.1) KBD(VK_S,CLICK,80) KBD(VK_DOWN,CLICK,80) SLEEP(0.1) KBD(VK_RETURN,CLICK,80) SF = "OFF" M12 = "Shuffle ×" FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,"OFF2",10) FCLOSE(FID) ENDIF // ******** (12) Select Media ******** ELSEIF XX = 13 TEMP = CME ME = "= Select Media =" ME0 = "Quit" ME1 = "Music" ME2 = "Movie" ME3 = "TV" ME4 = "Podcast" ME5 = "AudioBook" XX = SLCTBOX(SLCT_STR,0,ZP,TM,ME,ME0,ME1,ME2,ME3,ME4,ME5) CME = XX CTRLWIN(SID,ACTIVATE) IFB XX = "Quit" CME = TEMP ELSE KBD(VK_ALT,DOWN,100) KBD(VK_V,CLICK,100) KBD(VK_ALT,UP,100) KBD(VK_K,CLICK,100) IFB XX = "Music" KBD(VK_I,CLICK,100) ELSEIF XX = "Movie" KBD(VK_S,CLICK,100) ELSEIF XX = "TV" KBD(VK_T,CLICK,100) ELSEIF XX = "Podcast" KBD(VK_C,CLICK,100) ELSEIF XX = "AudioBook" KBD(VK_K,CLICK,100) ENDIF CME = XX ENDIF XX = 0 // ******** (15) iTunes Setting ******** ELSEIF XX = 15 FOR C = 1 TO 50 YY = SLCTBOX(SLCT_NUM,0,ZP,TM,SS,S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14) // ******** 終了 ******** IFB YY = 0 BREAK // ******** iTunesを起動 ******** ELSEIF YY = 1 EXEC(ITP) SLEEP(3) SID = GETID("iTunes") BREAK // ******** - ******** ELSEIF YY = 2 PT = INPUT("設定なし",PT,,XP,TM) PT = STRCONV(PT,SC_HALFWIDTH) FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,PT,2) FCLOSE(FID) S2 = "設定なし" // ******** OFF=SID / ON=XID ******** ELSEIF YY = 3 IFB MX = "OFF" MX = "ON" ELSE MX = "OFF" ENDIF S3 = "アプリ画面優先(" + MX + ")" FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,MX,6) FCLOSE(FID) // ******** PCボリューム% ******** ELSEIF YY = 4 FOR D = 1 TO 50 KBD(VK_VOLUME_DOWN,CLICK,50) NEXT VL2 = VL / 2 FOR D = 1 TO VL2 KBD(VK_VOLUME_UP,CLICK,50) NEXT MSG = "現在の値は" + VL + "%です" TEMP = VL VL = INPUT(MSG,VL,,XP,TM) IFB VL = "" VL = TEMP ELSE VL = STRCONV(VL,SC_HALFWIDTH) VL = VAL(VL) IFB VL > 100 VL = 100 ENDIF FOR D = 1 TO 50 KBD(VK_VOLUME_DOWN,CLICK,50) NEXT VL2 = VL / 2 FOR D = 1 TO VL2 KBD(VK_VOLUME_UP,CLICK,50) NEXT FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,VL,16) FCLOSE(FID) ENDIF S4 = "PCボリューム設定(" + VL + "%)" // ******** PCボリューム+ ******** ELSEIF YY = 5 KBD(VK_VOLUME_UP,CLICK,90) VL = VL + 2 FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,VL,16) FCLOSE(FID) S4 = "PCボリューム設定(" + VL + "%)" // ******** PCボリューム− ******** ELSEIF YY = 6 KBD(VK_VOLUME_DOWN,CLICK,90) VL = VL - 2 FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,VL,16) FCLOSE(FID) S4 = "PCボリューム設定(現在" + VL + "%)" // ******** ミュートレート ******** ELSEIF YY = 7 MSG = "現在の値は" + MR + "です" MR = INPUT(MSG,MR,,XP,TM) MR = STRCONV(MR,SC_HALFWIDTH) MR = VAL(MR) FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,MR,4) FCLOSE(FID) S7 = "ミュートレート(" + MR + ")" // ******** サイドバーON/OFF ******** ELSEIF YY = 8 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,90) KBD(VK_ALT,DOWN,90) KBD(VK_S,CLICK,90) KBD(VK_ALT,UP,90) KBD(VK_CTRL,UP,90) // ******** iTunes環境設定 ******** ELSEIF YY = 9 CTRLWIN(SID,ACTIVATE) KBD(VK_CTRL,DOWN,90) KBD(VK_OEM_COMMA,CLICK,90) KBD(VK_CTRL,UP,90) SLEEP(3) XID = GETID("環境設定") ZZ = MSGBOX("環境設定を閉じる時はここを押してください",BTN_YES or BTN_NO,XP,TM) // YES=4,NO=8 IFB ZZ = 4 CTRLWIN(XID,ACTIVATE) KBD(VK_RETURN,CLICK,90) ENDIF sleep(3) // ******** iTunesも一緒に終了 ******** ELSEIF YY = 10 IFB ITE = "OFF" ITE = "ON" S10 = "iTunes同時終了(" + ITE + ")" ELSE ITE = "OFF" S10 = "iTunes同時終了(" + ITE + ")" ENDIF FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,ITE,12) FCLOSE(FID) // ******** iTunes起動待ち時間 ******** ELSEIF YY = 11 ITT = INPUT("iTunes起動待ち時間",ITT,,XP,TM) ITT = STRCONV(ITT,SC_HALFWIDTH) FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,ITT,22) FCLOSE(FID) S11 = "iTunes起動時間(" + ITT + "秒)" // ******** デフォルト グリッド&ソート ******** ELSEIF YY = 12 IFB DEF = "OFF" DEF = "ON" ELSE DEF = "OFF" ENDIF FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,DEF,24) FCLOSE(FID) S12 = "グリッド&アルバム順(" + DEF + ")" // ******** メニュー上下位置 ******** ELSEIF YY = 13 TEMP = TM MSG = "現在の値は" + TM + "です(10-200)" TM = INPUT(MSG,TM,,XP,TM) TM = STRCONV(TM,SC_HALFWIDTH) TM = VAL(TM) IFB TM < 10 or TM > 200 TM = TEMP SLCTBOX(SLCT_BTN,3,XP,TM,"10-200の範囲を指定してください。") ENDIF FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,TM,26) FCLOSE(FID) S13 = "メニュー上下位置(" + TM + ")" // ******** メニュー左右位置 ******** ELSEIF YY = 14 TEMP = SM MSG = "現在の値は" + SM + "です(15-300)" SM = INPUT(MSG,SM,,XP,TM) SM = STRCONV(SM,SC_HALFWIDTH) SM = VAL(SM) IFB SM < 15 or SM > 300 SM = TEMP SLCTBOX(SLCT_BTN,3,XP,TM,"10-200の範囲を指定してください。") ENDIF FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,SM,28) FCLOSE(FID) S14 = "メニュー左右位置(" + SM + ")" ZL = SM ZR = ZMAX - SM - 240 XL = SM XR = ZMAX - SM - 260 IFB ZP < 301 ZP = ZL XP = XL ELSE ZP = ZR XP = XR ENDIF ENDIF // ******** Activate XID ******** IFB MX = "ON" CTRLWIN(XID,ACTIVATE) ELSE CTRLWIN(SID,ACTIVATE) ENDIF NEXT // ******** (16) Move Menu ******** ELSEIF XX = 16 IFB ZP = ZL ZP = ZR XP = XR M16 = "L ← Move" ELSE ZP = ZL XP = XL M16 = "Move → R" ENDIF // ******** (17) Break Loop and Stop Script ******** ELSEIF XX = 17 BREAK // ******** Close Main If - Endif ******** ENDIF // ******** Set LIV to M9 ******** IFB MT = "OFF" M9 = "Mute ♪  - " + LIV + " -" ENDIF // ******** Activate XID ******** IFB MX = "ON" CTRLWIN(XID,ACTIVATE) ENDIF NEXT // ******** Loop End ******** // ******** Stop iTunes ******** IFB ITE = "OFF" XX = MSGBOX("iTunesを残して終了しますか?",BTN_YES or BTN_NO,XP,TM) // YES=4,NO=8 ELSE XX = 8 ENDIF IFB XX = 8 SLCTBOX(SLCT_BTN,1.8,15,110,"< Stop iTunes! >") CTRLWIN(GETID("iTunes","iTunes"),ACTIVATE) SLEEP(0.2) KBD(VK_ALT,DOWN,100) KBD(VK_F4,CLICK,100) KBD(VK_ALT,UP,100) ENDIF // ******** Final Message ******** SLCTBOX(SLCT_BTN,2,15,110,"< Script Stopped, Goodbye and See You Again! >") // ******** ini-File Backup ******** FID = FOPEN("01-iTunes.ini",F_READ) PT = FGET(FID,20) FCLOSE(FID) IFB PT = "" doscmd("copy 01-itunes.bak *.ini") ELSE FID = FOPEN("01-iTunes.ini",F_READ or F_WRITE) FGET(FID,F_alltext) FPUT(FID,LIV,20) FCLOSE(FID) doscmd("copy 01-itunes.ini *.bak") ENDIF // ******** All Over ******** // ***