求一个可以在后台隐藏打开网页的一个程序,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高手能帮我做个吗?小弟把分都给您
我的主要思路,就是想做一个在后台打开网页,隐藏的,开机不用自启动,也可以,主要是网页打开后,他能自动关闭,然后他关闭了之后,然后又打开,。如此重复轮回 展开
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高手能帮我做个吗?小弟把分都给您
我的主要思路,就是想做一个在后台打开网页,隐藏的,开机不用自启动,也可以,主要是网页打开后,他能自动关闭,然后他关闭了之后,然后又打开,。如此重复轮回 展开
2个回答
展开全部
代码如下:
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询