有关一个VB问题

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

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

然后再进入主页

其它方法也可以,VB更好
楼下已经说的都不是太详细，我要一步一步的

因为我是菜鸟，还不会引用那些函数

用EnumProcess 找到IExplore
msgbox "上网时间不要超过十五分钟",vbinformation+vbsystemmodal
十五分钟后。。。。。。
TerminateProcess
启动时检查日期，若与上次启动日期相同则自动TerminateProcess

单做一个信息窗口，先加载信息窗口，然后再加载主要程序

你可以用VB的findwindow 函数查找到IEframe!
如果找到!就用postmessage函数给他投递一条关闭消息!然后用: msgbox "上网时间不要超过十五分钟",vbinformation
然后x=shell("c:\program files\Intelnet explorer\iexplorer.exe",1)
再计时,当时间达到50分钟后!就用上面的postmessage关闭窗口!

用API sendmessage