当前位置:首页 » 网页前端 » vbs延时运行脚本
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

vbs延时运行脚本

发布时间: 2022-12-27 00:00:07

❶ 如何用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