请看看下面的这段vbs代码有什么问题: set wsh=createobject("wscript
请看看下面的这段vbs代码有什么问题:setwsh=createobject("wscript.shell")dowsh.run"calc"loop...
请看看下面的这段vbs代码有什么问题:
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop 展开
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop 展开
2个回答
展开全部
这是一个QQ刷屏用的. 首先复制一段文字后,运行此VBS,将把此段文字发送10次,并在尾部加上1到10的序号.
如若有误的话,就是AppActivate ""这没指定窗口标题,比如AppActivate "与孤星_交谈中",不过当鼠标手动激活窗口的话,程序同样能用.
----------
Set WshShell= WScript.CreateObject("WScript.Shell") '创建对象
WshShell.AppActivate "" '激活窗口,但应指定标题才对.
for i=1 to 10 '1到10循环
WScript.Sleep 500 '延时0.5秒
WshShell.SendKeys "^v" '发送按键Ctrl+V,也就是粘贴
WshShell.SendKeys i '分别发送按键1到10
WshShell.SendKeys "%s" '发送按键Alt+s.也就是发送消息.
Next '循环结束,对应for命令的.
如若有误的话,就是AppActivate ""这没指定窗口标题,比如AppActivate "与孤星_交谈中",不过当鼠标手动激活窗口的话,程序同样能用.
----------
Set WshShell= WScript.CreateObject("WScript.Shell") '创建对象
WshShell.AppActivate "" '激活窗口,但应指定标题才对.
for i=1 to 10 '1到10循环
WScript.Sleep 500 '延时0.5秒
WshShell.SendKeys "^v" '发送按键Ctrl+V,也就是粘贴
WshShell.SendKeys i '分别发送按键1到10
WshShell.SendKeys "%s" '发送按键Alt+s.也就是发送消息.
Next '循环结束,对应for命令的.
追问
不是,这个是打开无数计算器到死机,可我运行时显示“错误的参数个数或无效的参数属性值:‘wsh’”
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询