趣味でつながる、仲間ができる、大人世代のSNS、趣味人倶楽部(しゅみーとくらぶ)

よくあるご質問

NHKプラスの番組を録画する

Windows DVR が、Windows10には装備されています。
これは、Gameなどを録画して配信するためのもののようです。

このWindows DVR を利用して、NHKプラスで配信される番組を、録画しちゃおうというわけです。

Windows DVRには、タイマー機能がないので、録画を始めると、終わる頃には、PCに張り付いて、停止させるか、そののち動画編集アプリで編集するかということになります。

なので、動画を録画し終わったら、ブラウザを閉じて、PCをスリープ状態にしちゃうという荒業を、UWSCにお願いしてみました。
エラーなど対応していないし、数回のテストしかしてないので、なんとか使えるかな程度にお考えください。
 どなたか、仕上げてもらうと嬉しいのですが・・・^^;
ダウンロードではありません、キャプチャです。
多分、ダウンロードはできないだろうし、それをすると法に触れることになると思います。
あくまで録画ですが、著作権もあるので、自分で楽しむ以外に、人に配ったりすることはしてはいけません。
録画したものを、NETに上げたりすると、損害賠償請求されると思います。

//番組名と時間
banname = INPUT("番組名を入力してください")
rectime = INPUT("録画時間は何分ですか?")
bantime = rectime*60+5
//PRINT bantime

//起動オプション
DosCmd("start firefox.exe -url https://plus.nhk.jp/watch/ch/g1")
SLEEP(1)

REPEAT
SLEEP(0.5)
UNTIL GETID(Get_Active_Win) = GETID("NHKプラス")

id =GETID("NHKプラス")
SLEEP(1)

//画面が表示するまで待つ
REPEAT
GETITEM(id,ITM_TAB,1)
SLEEP(0.5)
//PRINT GETITEM(id,ITM_TAB,1)
UNTIL GETITEM(id,ITM_TAB,1)>3

//ウィンドウを最大化にしてアクティブにする
CTRLWIN(id , MAX)
CTRLWIN(id,ACTIVATE)
SLEEP(1)

//”番組”をさがす
CLKITEM(id, "さがす", CLK_TAB)
SLEEP(0.4)

FOR i = 1 to 4
KBD(VK_TAB)
SLEEP(0.2)
NEXT
SLEEP(0.4)

SENDSTR( id,banname )
SLEEP(0.4)
KBD(VK_ENTER)
SLEEP(2)

//リストの一番上をクリック
GETITEM(id, ITM_LIST, 1)
name1 = ALL_ITEM_LIST[0]
//PRINT name1
CLKITEM(id,name1,CLK_BTN)

//動画をプレイ
CLKITEM(id, "再生", CLK_BTN)
SLEEP(1)

//ブラウザ内全画面
CLKITEM(id,"ブラウザ内全画面")
SLEEP(0.4)
CLKITEM(id,"一時停止")
SLEEP(0.4)
CLKITEM(id,"先頭へ戻る")
SLEEP(1)

//Windows DVR を起動する
SCKEY(id, VK_WIN, VK_G)
SLEEP(1)

//録画を開始
SCKEY(id, VK_WIN,VK_ALT, VK_R)
SLEEP(1)

//動画の再生開始
CLKITEM(id,"再生")

//録画時間(秒:28=1680)
SLEEP(bantime)

//録画を停止
SCKEY(id, VK_WIN,VK_ALT, VK_R)
SLEEP(2)

//ウィンドウを閉じる
CTRLWIN(id, CLOSE)

//休止状態に
SLEEP(3)
POFF(P_SUSPEND2)

コメント

コメントはありません。