Question

按键精灵帮忙写个VBS的代码谢谢

我用的是 按键精灵 想有个简单的功能 但是不会写代码
流程是这样的
打开脚本 出现 弹出窗口 要求 输入 时间x 输入完毕 点确定 弹出另一窗口 写着“将在x时间后停止运行" 然后点确定运行脚本 时间一到立即停止运行脚本

或 在 按键精灵制作出来的 小精灵的 自定义 里面 自己定义时间也可以
本人VB语言一窍不通 特 请各位帮忙谢谢~！

Answer 1

用taskkill不利于数据的写入
dim a
a = inputbox("请输入时间(秒)","运行时间输入框",10)
msgbox "脚本程序将在" & a & "秒后停止运行",vbinformation,"提示"
=====注释=========
加入你要运行的代码
=====注释=========
wscript.sleep 1000*a
‘这样不就好了吗

Answer 2

时间是以秒为单位的吗？

------------------------------
代码好似贴不上来，被屏蔽了，你的邮箱，我发给你吧。

Answer 3

dim a
a = inputbox("请输入时间(秒)","运行时间输入框",10)
msgbox "脚本程序将在" & a & "秒后停止运行",vbinformation,"提示"
=====注释=========
加入你要运行的代码
=====注释=========
wscript.sleep 1000*a
Set objShell = CreateObject("Wscript.Shell")
objShell.run "taskkill /im wscript.exe",vbhide

==============================
把上边的内容保存为后缀名为VBS的 然后运行就可以了