Question

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 并且要符合我的要求

Answer 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秒后再运行。

Answer 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运行即可。

Answer 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团队
'══代══码══结══束════

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

Answer 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
改好的代码如上.