- TVTestについて語るスレ Part 84©2ch.net
425 :名無しさん@編集中 (ワッチョイ a311-28Zt)[sage]:2017/06/11(日) 12:12:10.94 ID:OyLZ67Pv0 - >>417 vbs
-- intAddTime = 180 ' 単位:分 Set objWS = CreateObject("WScript.Shell") strTest = DateAdd("n", intAddTime, Now) strDate = DateValue(strTest) strTime = Split(TimeValue(strTest), ":") objWS.Run "schtasks /create /tn KillTVTest /tr ""taskkill /IM TVTest.exe /F"" /sc once /sd " & _ strDate & " /st " & Right("0" & strTime(0), 2) & ":" & Right("0" & strTime(1), 2) & " /f", 7, True objWS.Run "〜\TVTest.exe" --
|