VBS脚本错误800A03F4

时间:2016-05-02 15:49:28

标签: windows vbscript

当我尝试制作自定义屏幕保护程序时,我收到此错误。 它说:(脚本位置) 行:20 Char:4 错误:预期“如果”,当我chane it它也说预期结束或其他。 我的想法是启动我在.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

提前感谢〜丹

2 个答案:

答案 0 :(得分:0)

默认If语句为

If True Then
  WScript.Echo "True"
End If

如果您删除了If中的End If,则可以获得预期的'如果'错误。

在您的代码中,您打开'两个Ifs和一个For。正确关闭它们并缩进代码。

答案 1 :(得分:0)

我更新了脚本,因此它正确启动了屏幕保护程序,但仍然没有检测到空闲时间,并且计时器不能正常工作。我改变了剧本。