vbs报错:“未结束的字符串常量”

可以检查一下代码中的双引号、括号有没有漏掉。

 

这个错误通常是由于脚本中的引号正确配对导致的。请确保在每个字符串常量的开头和结尾都有一对引号。下面是修正后的代码: ```vbscript 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 "已退出循环并关闭脚本。" ``` 请尝试使用修正后的代码,看看是否还会报错。如果还有其他问题,请提供详细的错误信息和堆栈跟踪,以便我更好地帮助你解决问题。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值