さて、これからNHK衛星第二で『ER10』が始まりますよ。
追記:
…フゥーーー……。(深く溜息をつく)
追記:
…フゥーーー……。(深く溜息をつく)
エキサイト | ODN | |
---|---|---|
サービスを受けるための会員登録 | エキサイト会員(無料登録) | ODN会員、または無料登録会員 |
決済方法 | クレジットカード、ネットキャッシュ | ODN会員 : 接続料金と一緒に決済 無料登録会員 : クレジットカード |
専用ビューア | G-cluster PC Viewer | G-cluster PC Viewer |
お試し | ぷよぷよのみ可能(動作確認用) | たいていのゲームで、数分間可能(もしくはぷよぷよでの確認) |
高解像度オプション | クレジットカード 月額315円 ネットキャッシュ 月額420円 | 帯域さえ確保できれば 特に追加料金は無し? (ただし対応ゲームは一部?) |
KIDのゲーム | 2ヶ月100時間 税込1,000円 | 2ヶ月100時間 税込1,050円 |
ぷよぷよ | 8時間500円 | 6時間210円 |
式神の城 | 8時間500円 | 24時間315円 1ヶ月1,050円 |
ファンタシースター2 | スペースハリアーII、アウトランナーズと共通で 24時間以内1時間200円 48時間以内8時間500円 | 1日間6時間210円 |
sFolder = "C:¥My Documents¥" Set oFs = CreateObject("Scripting.FileSystemObject") Set aFiles = oFs.GetFolder(sFolder).Files For Each sFile In aFiles If vbCancel = MsgBox("只今、" & sFile & "を扱っています。", vbOkCancel) Then WScript.Quit Next MsgBox "終了しました。"
sScript = "フォルダ内のWAVをLAMEへ渡すスクリプト…の骨" ' LAMEへのフルパス sApp = "C:¥tools¥media¥lame¥lame.exe" ' LAMEのエンコードオプション sOpt = "--preset insane -q 0" Dim aFiles If WScript.Arguments.Count = 0 Then sFolder = InputBox("フォルダを指定して下さい。", sScript) If sFolder = "" Then WScript.Quit Else sFolder = WScript.Arguments(0) End If If vbCancel = MsgBox("作業を開始します。", vbOkCancel, sScript) Then WScript.Quit Set oFs = CreateObject("Scripting.FileSystemObject") Set oWsh = CreateObject("WScript.Shell") oWsh.CurrentDirectory = sFolder Set aFiles = oFs.GetFolder(sFolder).Files For Each sFile In aFiles If Right(sFile.name, Len(sFile.name) - InStrRev(sFile.name, ".")) = "wav" Then sCommand = sApp & " " & sOpt & " " & sFile If vbOk = MsgBox(sCommand, vbOkCancel, sScript) Then oWsh.Run sCommand, , True End If Next MsgBox "終了しました。"
sFolder = "C:¥My Documents¥" Set oFs = CreateObject("Scripting.FileSystemObject") Set aFiles = oFs.GetFolder(sFolder).Files iCount = aFiles.Count ii = 0 For Each sFile In aFiles If iCount = ii Then Exit For If vbCancel = MsgBox("只今、" & sFile & "を扱っています。", vbOkCancel) Then WScript.Quit ii = ii + 1 Next