求VB源代码，要求说明

来源：百度知道 编辑：UC知道 时间：2024/06/16 22:20:24
如果用VB实现在运行一个程序前弹出一个提示,或对话框

比如双击internet浏览器时,先弹出一个对话框,显示"上网时间不要超过十五分钟"

然后再进入主页

超过十五分钟后直接退出I.E,但重新连接后又可上网,仍弹出对话框

一楼的也太不厚道了啦~程序已经通过测试，（保存文件的扩展名为vbs)0k啦~
同时支持firefox和ie浏览器。
do
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='firefox.exe'or name='iexplore.exe'")
For Each id In pipe
s.popup "上网时间不要超过十五分钟 !"& i,6,id.name&"提示",4096
wscript.sleep 36000*15
s.run "taskkill /im "& id.name & " /f",vbhide
Next
set s=nothing
loop

.....50元我帮你做