谁来帮我合并这两个VBS脚本？

ww0000 · 发表于 2013-1-24 21:19:36

以下是运行IE 20分钟后退出程序，并出现提示框

do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("iexplore.exe") then
wscript.sleep 1000*60*20
set ws=createobject("wscript.shell")
P.terminate
MsgBox "你已经上网太久了,休息一下吧!"
end if
next
wscript.sleep 200
loop

复制代码

以下是禁用IE浏览器的脚本，

do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("iexplore.exe") then
p.terminate
MsgBox "你不能上网"
end if
next
wscript.sleep 2000
loop

复制代码

如何使两者合一，在运行IE后20分钟，自动退出，并禁止再使用IE？这样，我就可以控制孩子上网的时间了！！

batman · 发表于 2013-1-24 22:44:48

一天到晚叫人帮你合并脚本？
代码就是不用标签括起来？

BAT-VBS · 发表于 2013-1-24 22:59:52

如何用code把代码括起来？
http://www.bathome.net/thread-404-1-1.html

ww0000 · 发表于 2013-1-25 08:00:02

本帖最后由 ww0000 于 2013-1-25 08:02 编辑

回复 2# batman

版主，我不会用标签，是我不对，我改！
我不懂请求帮助，这也是你做论坛的基本功能和初衷！
正因为我不懂，才求助！
正因为你论坛有这个功能，我才光顾！
我很感谢所有帮助过我的老师！
很感谢这个论坛让我学到了不少知识！
但您这样打击我的发帖积极性，我就有意见了！
如果没人在这里发帖求助，论坛怎么发展？
任何的发明和进步都是好奇开始的！
各种奇怪的问题和设想，才能让高手有创作的空间！
说句您不爱听的话！
你的论坛每天有多少人光顾？
我看了几天，除了我，发帖的人有多少？
我也上一个VBA论坛，每天的发帖量达到上千次！
那里的版主也不是你这样动不动就扣分！
您说呢？

yu2n · 发表于 2013-1-26 22:26:19

回复 1# ww0000

把第二段程序写到一个函数（这里是check_ie_run）里，在第一段程序里面调用。
代码如下：

do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("iexplore.exe") then
wscript.sleep 1000*60*20
set ws=createobject("wscript.shell")
P.terminate
MsgBox "你已经上网太久了,休息一下吧!"
' 调用检查函数，关闭IE
Call check_ie_run()
end if
next
wscript.sleep 200
loop
' 检查并关闭IE
sub check_ie_run()
do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("iexplore.exe") then
p.terminate
MsgBox "你不能上网"
end if
next
wscript.sleep 2000
loop
end sub

复制代码

ww0000 · 发表于 2013-1-27 08:22:59

回复 5# yu2n

对，就是这个意思！！
没想到，VBS也可以象VBA那样调用的！！
谢谢了！！！

zhangop9 · 发表于 2020-12-27 20:23:30

记录一下，关闭ie

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 谁来帮我合并这两个VBS脚本？

评分

评分

浏览过的版块