好吧问答库 > vbs运行程序

vbs运行程序

我要让C:尀Program Files尀Tencent尀QQMiniDownloader尀jcqqdlq-v1.0尀桔城QQ2010自动登录器.exe运行两次间隔10秒...给出VBS代码..简洁实用点...好的加分一楼的你给的代码我试了试...我要的是两次间隔10秒（双击vbs文件，马上运行隔十秒在运行一次）不是过10秒后运行然后再运行一次... ...二楼的的出现了严重死循环..... 问下..系统的对话框是不是也是vbs啊..怎么编一个关机对话框抱歉在回答个问题if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if把他改成没有取消只有确定 “系统将立刻重起你上当了” 把这个去掉变成：对不起,您灌水太多需要重新启动计算机确定后重启计算机已经加分这个回答了再加我别的什么都不要只要vbs 并且要符合我的要求

2026年09月26日 08:40

有4个网友回答

网友（1）：

vbs代码如下：

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
path=fso.getfile("C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\桔城QQ2010自动登录器.exe").shortpath
ws.run path
wscript.sleep 10*1000
ws.run path
'Coded By escortmnm from VBS团队
'══代══码══结══束════

我给的代码确实是双击运行后立即运行，10秒后再运行。

网友（2）：

@echo off
start "" "C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\桔城QQ2010自动登录器.exe"
ping /n 10 127.1>nul
start "" "C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\桔城QQ2010自动登录器.exe"
echo 以下是关机命令，是否继续！(注意时间)
pause
shutdown -s -t 120 -c "时间之后2分钟，如果需要取消请回到BAT窗口，按任意键取消"
pause
shutdown -a
exit

::以上代码为BAT 批处理代码，也属于是脚本类的。
::复制粘贴到记事本保存为123.bat运行即可。

网友（3）：

vbs更改如下：

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
path=fso.getfile("C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\桔城QQ2010自动登录器.exe").shortpath
for i = 1 to 2
ws.run path
wscript.sleep 10*1000
next
'Coded By escortmnm from VBS团队
'══代══码══结══束════

呵呵看错你的需求了
已经修改
没运行，你自己试一下

网友（4）：

Dim WshShell
set WshShell = CreateObject("wscript.Shell")
do
WshShell.Run "C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\桔城QQ2010自动登录器.exe"
wscript.sleep 10000
loop

系统的对话框不是vbs...
要关机的话用下面的。
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "shutdown -s -t 5"

额，问题好多耶...
MsgBox "对不起,您灌水太多需要重新启动计算机确定后重启计算机",16,"重新启动计算机"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
改好的代码如上.