dim args
Set args = WSCript.Arguments
if args.Count < 1 then
WScript.Sleep(1000) '数値はミリ秒、引数が無いとき１秒待つ
else
WScript.Sleep(args.item(0)*1000)
end if

自動ログイン用　VBSサンプル集サブルーチン編

各サイト自動ログイン用サンプルVBS

各自動ログイン用サンプルVBS内で使用するサブルーチンです