カミジン@ファンタの平穏な日常 Blog

パソコン・カメラ・アニメがないと3日持ちません。そんな学生のダラダラ日記。

イラスト:con_cen_t

0CA職人ツールをWSHで

カテゴリー:PC全般

最近ニコ生のCA職人ツールをWSHで作ってたりするのだ
まぁ作成段階だけどこんな感じですよ
================
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
‘////// 「Message」の定義とメッセージボックスの表示 //////
Dim Message
Message = MsgBox (“スタート” & vbCrLf & “OKでCAの実行”, 65, “ニコニコ生放送CA”)
‘////// キャンセルを押した時の動作 スクリプトの終了 //////
If Message=”2″ Then
Wscript.Quit
End if
‘////// OKを押した時の動作 スクリプト続行 //////
If Message=”1″ Then
Dim delay
delay = 3000 ‘///ディレイ
WScript.Sleep delay
WSHShell.SendKeys “^{tab}” ‘///第一ループ
WSHShell.SendKeys “red”
WSHShell.SendKeys “{tab}”
WSHShell.SendKeys “Comment”
WSHShell.SendKeys “{enter}”
Message = MsgBox (“スクリプトの終了”, 1, “ニコニコ生放送CA”)
End if

================
頑張るから応援してね!

コメントを残す

メールアドレスが公開されることはありません。

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>