❶ 如何用VBS脚本在记事本里实现 摁下{tab} 再摁下 1 然后 延时 10秒 无限循环 再加如何停止。
set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile("结束脚本.bat")
file.writeline "@echo off"
file.writeline "taskkill /f /im wscript.exe"
file.close
msgbox "现在将开始运行脚本,如想结束请双击“结束脚本.bat“。",4096,"提示"
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500
WshShell.AppActivate "无标题 - 记事本"
do
WshShell.SendKeys "{tab}"
WScript.Sleep 10
WshShell.SendKeys "1"
WScript.Sleep 10*1000
loop
❷ 请问如何用VBS脚本实现延时 实现了再给50分! wscript.sleep 3000也没反应啊,实现了再给50分!
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
msgbox "test"
'以上代码经测试是可以的 若你的不成功 请贴代码
❸ 请教个非常简单的VBS脚本,怎么后台延时启动一个程序,启动后延时在关闭
思路:
1. 用RegWrite将vbs文件名写入开机启动注册表项:
"HKEY_CURRENT_"
SetWshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"","ThunderSpy.vbs","REG_SZ"'vbs文件名请自己修改
不过写注册表操作可能会被杀软拦截。
2. 等待10分钟
WScript.Sleep10*60*1000
3. 启动迅雷并隐藏
SetoShell=WScript.CreateObject("WSCript.shell")
oShell.run"cmd/cstartC:ProgramFilesThunder",0'自己修改迅雷路径
/c 选项表示执行指定的命令后关闭命令提示窗口(黑窗口)。
第二个参数0表示隐藏应用。
4. 关闭迅雷(杀进程)
两种方法。
DOS命令TASKKILL方法:
SetwshShell=WScript.CreateObject("WScript.Shell")
wshShell.run"TASKKILL/IMThunder.exe",0'自己确认迅雷的进程名
WMI方法:
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&" ootcimv2")
SetcolProcessList=objWMIService.ExecQuery("select*fromWin32_ProcesswhereName='Thunder.exe'")'自己确认迅雷的进程名
objProcess.Terminate()
Next
❹ =====批处理,VBS脚本,延时问题=====
start /min /wait mshta vbscript:setTimeout("window.close()",2000)
在此顺便简单说明一下: 用 mshta 来执行一个语句,就是相当于执行一个 Hta 脚本,Hta就是一个HTML应用程序(HTML Application) ,因此 Hta 就是一种 html ,要成功地让 mshta 运行一个语句,语句中的对象就必须是 html 脚本所支持的(这方面可以在网上搜索有关资料)。由于 html 中没有 WScript 对象,因此上面例子中不能用这样方式: mshta vbscript:wscript.sleep(1000)(window.close) ,但 html 脚本中有 window 对象,而 window 对象中有一个方法是 setTimeout ,可以用来延时,精度是 1 毫秒。
辛苦找的,大家一起学习,呵呵~
还有,如果start /wait mshta vbscript:wscript.sleep 2000 能用的话,早就很多人用了,为什么我们见到的都是PING呢~就是这样原因,用不了。。。
产生临时文件没有什么啊,本来电脑就有很多临时文件的,代码如下:
echo wscript.sleep 2000>%tmp%\delay.vbs&&%tmp%\delay.vbs&&del /q %tmp%\delay.vbs
知道你会写了,呵呵~让新手进来看看嘛~~~
❺ vbs脚本里Delay咋用
vbs没delay,你是在按键精灵那看到的吧?delay呢,是延迟的意思,后面加数字,意思就是让脚本停一停,等一下再运行。(比如那些怪要十五分钟出来一次,那就要把脚本停下来,就是delay,让它等十五分钟)
vbs的延迟是wscript.sleep ***,例如wscript.sleep 1000是延迟一秒
❻ VBS中延时怎么做
VBS鼠标动作触发事件CODE如下:Dimmytime,bsSetbs=HMIRuntime.Tags("BoolShow")'BoolShow是一个为测试建立的内部bool型变量bs.Write(1)'置1(高电平,波形上升)mytime=Timer+2'预设置1时间为2秒(高电平保持时间)DoUntilTimer=mytime'直到2s后再执行复位0'空循环时间2sLoopbs.Write(0)'执行复位0(低电平,波形下降)见:http://www.ad.siemens.com.cn/club/bbs/post.asp?a_id=856699&pno=1&b_id=5&s_id=17#856699