- ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
847 ：cM ◆charmyVATs [sage]：2011/07/07(木) 10:36:55.74 ID:l5JZfLOR0 - 折角直したスクリプトを晒しておく
ここに書いておけばバックアップにもなるしねw
（BBSも逝っちゃったからorz）
// 自動録音スクリプト ver.1.4
// MMJB Ver.7.0専用
TYTLE = "FIVE STARS"
ARTIST2 = "中島早貴（℃-ute）"
ARTIST3 = "前田憂佳／福田花音（S/mileage）"
ARTIST4 = "高橋愛（モーニング娘。）"
STATION = "InterFM"
// 以下次号
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
848 ：cM ◆charmyVATs [sage]：2011/07/07(木) 10:39:08.81 ID:l5JZfLOR0 - // もし録音ウィンドウ開いてなければ開く
録音ID = GETID("MMJB RECORDER")
ifb 録音ID < 0
MMJBID = GETID("MUSICMATCH JUKEBOX")
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32789)
ACW(GETID("MMJB RECORDER"),218,366,614,156,0)
else
ACW(GETID("MMJB RECORDER"),218,366,614,156,0)
endif
//Sleep(1) //1秒待機
//STOPFORMを（強制的に）出す
STOPFORM (TRUE)
//以下次号
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
849 ：cM ◆charmyVATs [sage]：2011/07/07(木) 10:39:48.48 ID:l5JZfLOR0 -
// ビットレートを（強制的に）128kにする
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32827)
// アーティスト欄を削除して指定文字列流し込み
BTN(LEFT,CLICK,300,410,0)
//KBD(VK_BACK,CLICK,0)
SENDSTR(録音ID, ARTIST, TRUE)
//Sleep(1) //1秒待機
// アルバム欄を削除して指定文字列流し込み
BTN(LEFT,CLICK,300,430,0)
//KBD(VK_BACK,CLICK,0)
SENDSTR(録音ID, STATION, TRUE)
//Sleep(1) //1秒待機
// トラック名
BTN(LEFT,CLICK,500,400,0)
GetTime() // その日の日付を取得
SENDSTR(録音ID, TYTLE + " " +G_TIME_YY+"-"+G_TIME_MM2+"-"+G_TIME_DD2, TRUE)
//Sleep(1) //1秒待機
//以下次号
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
850 ：cM ◆charmyVATs [sage]：2011/07/07(木) 10:40:12.22 ID:l5JZfLOR0 - // 録音開始
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32817)
Sleep(1) //1秒待機
// 録音時間設定
Sleep(Sec1) //録音時間
// 録音終了
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32819)
Sleep(60) // MMJBがファイルを書き終わるまで1分待機
// 録音ウィンドウを閉じMMJBも終了する
CTRLWIN(録音ID,CLOSE2)
CTRLWIN(MMJBID,CLOSE2)
//自動選局（選局ボタン01:bayfmに戻して解放）
//01:bayfm 02:FM-FUJI 03:NACK5 04:TOKYO FM
//05:InterFM 06:TBS 07:文化 08:ニッポン 09:TV電源OFF ff:解放
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 01")
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 ff")
//INI再読みのためUWSC再起動
POFF(P_UWSC_REEXEC)
//終了
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
851 ：cM ◆charmyVATs [sage]：2011/07/07(木) 10:45:38.23 ID:l5JZfLOR0 - 録音時間指定ともし録音ウィンドウの間の
大事な宣言が抜けてた
// WM_COMMANDを有効にする
DEF_DLL PostMessageA(HWND,Long,Long,DWORD):Bool:user32.DLL
WM_COMMAND = $111
//自動選局（選局ボタン05:InterFMする）
//01:bayfm 02:FM-FUJI 03:NACK5 04:TOKYO FM
//05:InterFM 06:TBS 07:文化 08:ニッポン 09:TV電源OFF ff:解放
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 05")
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
852 ：cM ◆charmyVATs [sage]：2011/07/07(木) 11:40:15.49 ID:l5JZfLOR0 - ↑の前にコレも抜けてた
// 録音時間を秒数で指定
// 35分00秒（2100秒）
Sec1 = "2100"
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
853 ：cM ◆charmyVATs [sage]：2011/07/07(木) 12:03:30.11 ID:l5JZfLOR0 - それと
×TYTLE
○TITLE
動作にカンケーないけど一応直しておきましたw
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
854 ：cM ◆charmyVATs [sage]：2011/07/07(木) 12:06:32.55 ID:l5JZfLOR0 - しかし、今昼のニュースワイド枠でやってるけど
今回は九電がやらかしてくれたよな
そりゃ世の中ヤラセがまかり通ってる昨今だが
ヤラセを自ら指示しちゃイカンよな
どっかの最大手広告代理店じゃないが
世論なんてどうにでも操作できると鷹を括って
如何に消費者が舐められてるかって事だよな
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
855 ：cM ◆charmyVATs [sage]：2011/07/07(木) 14:44:13.54 ID:l5JZfLOR0 - 実際はこう続く
// 自動録音スクリプト ver.1.4
// MMJB Ver.7.0専用
TITLE = "FIVE STARS"
ARTIST2 = "中島早貴（℃-ute）"
ARTIST3 = "前田憂佳／福田花音（S/mileage）"
ARTIST4 = "高橋愛（モーニング娘。）"
STATION = "InterFM"
//アーティスト欄設定
//曜日でアーティスト欄を自動設定
GETTIME
if G_TIME_WW = 2 then ARTIST = ARTIST2 //火曜日
if G_TIME_WW = 3 then ARTIST = ARTIST3 //水曜日
if G_TIME_WW = 4 then ARTIST = ARTIST4 //木曜日
// 録音時間を秒数で指定
// 35分00秒（2100秒）
Sec1 = "2100"
// WM_COMMANDを有効にする
DEF_DLL PostMessageA(HWND,Long,Long,DWORD):Bool:user32.DLL
WM_COMMAND = $111
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
856 ：cM ◆charmyVATs [sage]：2011/07/07(木) 14:46:58.13 ID:l5JZfLOR0 - //自動選局（選局ボタン05:InterFMする）
//01:bayfm 02:FM-FUJI 03:NACK5 04:TOKYO FM
//05:InterFM 06:TBS 07:文化 08:ニッポン 09:TV電源OFF ff:解放
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 05")
// もしMMJBが起動してなければ起動する
MMJBID = GETID("MUSICMATCH JUKEBOX")
ifb MMJBID < 0
MMJBID = EXEC("C:\Program Files\MUSICMATCH\MUSICMATCH Jukebox\mmjb.exe")
Sleep(1) //1秒待機
ACW(GETID("PLAYLISTMGR"),550,200,282,166,0)
ACW(GETID("MUSICMATCH JUKEBOX"),218,200,332,166,0)
else
ACW(GETID("PLAYLISTMGR"),550,200,282,166,0)
ACW(GETID("MUSICMATCH JUKEBOX"),218,100,332,166,0)
endif
//Sleep(1) //1秒待機
// もし録音ウィンドウ開いてなければ開く
録音ID = GETID("MMJB RECORDER")
ifb 録音ID < 0
MMJBID = GETID("MUSICMATCH JUKEBOX")
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32789)
ACW(GETID("MMJB RECORDER"),218,366,614,156,0)
else
ACW(GETID("MMJB RECORDER"),218,366,614,156,0)
endif
//Sleep(1) //1秒待機
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
857 ：cM ◆charmyVATs [sage]：2011/07/07(木) 14:48:02.08 ID:l5JZfLOR0 - //STOPFORMを（強制的に）出す
STOPFORM (TRUE)
// ビットレートを（強制的に）128kにする
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32827)
// アーティスト欄を削除して指定文字列流し込み
BTN(LEFT,CLICK,300,410,0)
//KBD(VK_BACK,CLICK,0)
SENDSTR(録音ID, ARTIST, TRUE)
//Sleep(1) //1秒待機
// アルバム欄を削除して指定文字列流し込み
BTN(LEFT,CLICK,300,430,0)
//KBD(VK_BACK,CLICK,0)
SENDSTR(録音ID, STATION, TRUE)
//Sleep(1) //1秒待機
// トラック名
BTN(LEFT,CLICK,500,400,0)
GetTime() // その日の日付を取得
SENDSTR(録音ID, TITLE + " " +G_TIME_YY+"-"+G_TIME_MM2+"-"+G_TIME_DD2, TRUE)
//Sleep(1) //1秒待機
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
858 ：cM ◆charmyVATs [sage]：2011/07/07(木) 14:48:21.36 ID:l5JZfLOR0 - // 録音開始
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32817)
Sleep(1) //1秒待機
// 録音時間設定
Sleep(Sec1) //録音時間
// 録音終了
PostMessageA(IDtoHND(MMJBID), WM_COMMAND, 32819)
Sleep(60) // MMJBがファイルを書き終わるまで1分待機
// 録音ウィンドウを閉じMMJBも終了する
CTRLWIN(録音ID,CLOSE2)
CTRLWIN(MMJBID,CLOSE2)
//自動選局（選局ボタン01:bayfmに戻して解放）
//01:bayfm 02:FM-FUJI 03:NACK5 04:TOKYO FM
//05:InterFM 06:TBS 07:文化 08:ニッポン 09:TV電源OFF ff:解放
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 01")
選局ID = EXEC("D:\My Downloads\USB-IO\usbio001\usbio.exe -w0 ff")
//INI再読みのためUWSC再起動
POFF(P_UWSC_REEXEC)
| - ◇カオリンきれいすぎる〜不死鳥伝説〜ch.18◇
859 ：cM ◆charmyVATs [sage]：2011/07/07(木) 14:49:00.64 ID:l5JZfLOR0 - ↑終わりw
|
|