時間になったらアナログ時計が前面にでます.vbs

DOBON.NETお気楽掲示板

HOME HELP 新規作成新着記事ツリー表示スレッド表示トピック表示検索

[ 最新記事及び返信フォームをトピックトップへ ]

[ トピック内全1記事(1-1 表示) ]　 << 0 >>

■1543 / inTopicNo.1)

　時間になったらアナログ時計が前面にでます.vbs

▼■

□投稿者/ okhdonsn -(2014/06/16(Mon) 08:17:01)

'時間になったらアナログ時計が前面にでます.vbs
'インストール方法
' ①ClocXを標準でダウンロードする。 http://www.clocx.net/download.php
' ②（お好みで設定後,閉じる:ウインドウオプション常に手前に表示:概観拡大300%)
'実行方法:vbsを実行する。
'入力方法:HHMMを入力する。(例)時刻午前11:55の時1155
'実行結果:時間になったらClocXが前面にでます
'時刻設定確認方法:Task Schedulerを一度閉じて開く。
'実行環境:Windows7
'
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Input = InputBox("HHMM")
HH = Mid(Input,1,2)
MM = Mid(Input,3,2)
TaskName=HH & "：" & MM & "マイアラーム"
StartTime=HH &":" & MM & ":00"
TaskRun="C:\PROGRA~1\ClocX\ClocX.exe"
TaskRun="""" & TaskRun & """"
Meirei = "schtasks /create /tn """ & TaskName & """ /tr " & TaskRun
Meirei = Meirei & " /sc once /st " & StartTime
WshShell.Exec("cmd /c " & Meirei)

このトピックをツリーで一括表示

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

管理人はこの掲示板をまともにチェックしていないかもしれませんし、返事も出さないかもしれません。
ちゃんとした(?)投稿はマナーを守って別の掲示板へ。
管理人の独断で不適切と判断した投稿は絡垂ﾈく削除されます。
投稿は、明記のない限り、パブリックドメインになります。
本文と題名には必ずひらがなを入れてください。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No1543に返信(okhdonsnさんの記事) > '時間になったらアナログ時計が前面にでます.vbs > 'インストール方法 > ' ①ClocXを標準でダウンロードする。 http://www.clocx.net/download.php > ' ②（お好みで設定後,閉じる:ウインドウオプション常に手前に表示:概観拡大300%) > '実行方法:vbsを実行する。 > '入力方法:HHMMを入力する。(例)時刻午前11:55の時1155 > '実行結果:時間になったらClocXが前面にでます > '時刻設定確認方法:Task Schedulerを一度閉じて開く。 > '実行環境:Windows7 > ' > Dim WshShell > Set WshShell = WScript.CreateObject("WScript.Shell") > Input = InputBox("HHMM") > HH = Mid(Input,1,2) > MM = Mid(Input,3,2) > TaskName=HH & "：" & MM & "マイアラーム" > StartTime=HH &":" & MM & ":00" > TaskRun="C:\PROGRA~1\ClocX\ClocX.exe" > TaskRun="""" & TaskRun & """" > Meirei = "schtasks /create /tn """ & TaskName & """ /tr " & TaskRun > Meirei = Meirei & " /sc once /st " & StartTime > WshShell.Exec("cmd /c " & Meirei) >
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
プレビュー/　クッキーに保存しない/