我运行后报错，显示字符54，未结束的字符串常量，代码800A0409，怎么解决

这个错误通常是由于脚本中的引号未正确配对导致的。请确保在每个字符串常量的开头和结尾都有一对引号。下面是修正后的代码：

Set objShell = WScript.CreateObject("WScript.Shell")

WScript.Echo "请将鼠标移到指定位置后按下空格键开始自动双击屏幕。"
WScript.Sleep 500

' 等待用户按下空格键
Do While Not objShell.AppActivate("VBScript")
    WScript.Sleep 100
Loop

' 获取鼠标坐标
Set objMouse = CreateObject("WScript.Shell").Exec("cmd /c echo %MOUSE_X% %MOUSE_Y%")
strOutput = objMouse.StdOut.ReadAll
arrCoords = Split(strOutput, " ")
intX = arrCoords(0)
intY = arrCoords(1)

WScript.Echo "已获取鼠标坐标：" & intX & ", " & intY

dtmEndTime = DateAdd("n", 1, Now) ' 运行一分钟的时间限制
blnExitLoop = False

Do While Now < dtmEndTime And Not blnExitLoop
    ' 检查空格键是否被按下
    If objShell.AppActivate("VBScript") Then
        strKeyState = objShell.SendKeys("{SPACE}", True)
        
        ' 如果空格键被再次按下，则退出循环
        If strKeyState = "True" Then
            blnExitLoop = True
        End If
    End If
    
    ' 执行双击操作
    objShell.Run "cmd /c echo WScript.Sleep 1000 ^& WScript.SendKeys ""{LEFTCLICK}"" > temp.vbs", 0, True
    objShell.Run "wscript.exe temp.vbs", 0, True
    objShell.Run "cmd.exe /C del temp.vbs", 0, True
Loop

WScript.Echo "已退出循环并关闭脚本。"

请尝试使用修正后的代码，看看是否还会报错。如果还有其他问题，请提供详细的错误信息和堆栈跟踪，以便我更好地帮助你解决问题。