VBSスクリプトエラー800A03F4

Question

カスタムスクリーンセーバーを作成しようとしているときにこのエラーが発生します。 それは言う：（スクリプトの場所） 行：20 文字：4 エラー：期待される "もし"と私はそれも期待されている終わりや何かを言います。 アイデアは、.batスクリプトで作成したスクリーンセーバーを起動し、起動するタイミングを検出します。また、マウスが特定の時間動かないことを検出する助けを借りてもらえますか？ とにかく、ここで私はこれまでやっていることです：事前に

set service = GetObject ("winmgmts:") 
Dim StartTime, EndTime, Elapsed 
StartTime = Timer 
Elapsed = Timer - StartTime 
If Timer > 100000 Then 
for each Process in Service.InstancesOf ("Win32_Process") 
If Process.Name = "cmd.exe" then 
sleep 0 
else 
createObject("WScript.Shell").Run "screensaver.bat" 
StartTime = 0 
EndTime = 0 
Elapsed = 0 
Timer = 0 
end 

おかげで〜ダン・

Answer 1

スクリーンセーバーを正常に起動するようにスクリプトを更新しましたが、まだアイドル時間は検出されず、タイマーは実際には機能しません。私はスクリプトを変更しました。

Answer 2

がデフォルトIf文が

If True Then 
    WScript.Echo "True" 
End If 

あなたはEnd IfでIfを削除した場合、あなたが得るですExpected 'If'エラー。

コードでは、2つのIfと1つのForを開きます。それらを適切に閉じ、コードをインデントします。