VBSで便利なプログラムを作れスレ
' 0.1秒単位で好きな時間ウェイトをかけるスクリプト
Option Explicit
Dim WshShell, lngSec, corAg
Set WshShell = CreateObject("WScript.Shell")
Set corAg = WScript.Arguments
'
lngSec = 10 ' 引数省略時は待ち時間を1秒(＝10×100ミリ秒)とする
If corAg.Count > 0 Then lngSec = corAg(0)
lngSec = CLng(Trim(lngSec)) * 100
WScript.Sleep lngSec
'
Set WshShell = Nothing
Set corAg = Nothing
WScript.Quit()
Option Explicit
Dim WshShell, lngSec, corAg
Set WshShell = CreateObject("WScript.Shell")
Set corAg = WScript.Arguments
'
lngSec = 10 ' 引数省略時は待ち時間を1秒(＝10×100ミリ秒)とする
If corAg.Count > 0 Then lngSec = corAg(0)
lngSec = CLng(Trim(lngSec)) * 100
WScript.Sleep lngSec
'
Set WshShell = Nothing
Set corAg = Nothing
WScript.Quit()
|
|
|
611 ：デフォルトの名無しさん：2015/01/04(日) 10:55:13.06 ID:wMzfWTLi
何処が便利なの？
612 ：デフォルトの名無しさん：2015/01/04(日) 15:44:01.03 ID:k/mKj4Vo
DOSコマンドで実行できるんでしょ
普通は１秒単位でしかできないから
普通は１秒単位でしかできないから
613 ：デフォルトの名無しさん：2015/01/05(月) 10:54:40.07 ID:Ez8c83Yt
sleep.exeは同名フリーソフトまたは別売りリソースキット内の物を使うしかない
timeoutコマンドはVista以降のWindowsにしか搭載されてない上に、1秒単位でしか待ち時間を指定できない
>610なら古いWindows95などでも(WSHがあればの話だが)そのまま実行できたはず
timeoutコマンドはVista以降のWindowsにしか搭載されてない上に、1秒単位でしか待ち時間を指定できない
>610なら古いWindows95などでも(WSHがあればの話だが)そのまま実行できたはず
614 ：デフォルトの名無しさん：2015/01/06(火) 00:12:40.29 ID:kEk+oN5g
まんどくさいなぁ・・・オレならこうする
echo wscript.sleep 3000 >temp.vbs & cscript temp.vbs
あと、１秒単位のラフなsleepなら、pingを流用するのが定石じゃなかろうか
echo wscript.sleep 3000 >temp.vbs & cscript temp.vbs
あと、１秒単位のラフなsleepなら、pingを流用するのが定石じゃなかろうか