求一个可以在后台隐藏打开网页的一个程序,vbs

求一个开机能随xp启动然后隐藏在后台打开指定网页的BAT或VBS,最好能避免杀软报毒那就更好了!OptionExplicitPrivateFunctionURL()Sta... 求一个开机能随xp启动然后隐藏在后台打开指定网页的BAT或VBS,最好能避免杀软报毒那就更好了!
Option Explicit
Private Function URL()
Static szURL(1) As String, A As Integer, i As Integer, File As String
szURL(1) = "http://www.baidu.com" '网页地址
A = 10 '打开数量
File = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
For i = 1 To A
Shell File & szURL(1), vbHide
Next
End Function

Private Sub Form_Load()
With Form1
.Visible = False
URL
End With

End Sub
上面一段代码.我也是抄过来的.不止到有没有用
如果有vb高手能帮我做个吗?小弟把分都给您

我的主要思路,就是想做一个在后台打开网页,隐藏的,开机不用自启动,也可以,主要是网页打开后,他能自动关闭,然后他关闭了之后,然后又打开,。如此重复轮回
展开
 我来答
挺生筝2554
2008-11-15 · TA获得超过2198个赞
知道小有建树答主
回答量:1084
采纳率:0%
帮助的人:564万
展开全部
保存为BAT文件,放进启动文件夹,请复制:C:\Program Files\Internet Explorer\iexplore.exe" 启动网页地址
落vs寂
2008-11-07 · TA获得超过886个赞
知道小有建树答主
回答量:458
采纳率:0%
帮助的人:740万
展开全部
代码如下:

set ws=createobject("wscript.shell")
url="www.baidu.com"'网页地址

do
ws.run"iexplore.exe "&url,0
wscript.sleep 3000
call kill_IE(url)
loop

private sub kill_IE(url)
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='iexplore.exe'")
For Each id In pipe
if instr(1,id.commandline,url)<>0 then
id.terminate()
end if
Next
end sub
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式