怎样用批处理或vbs访问一些网页
用批处理命令或vbs都行。达到如下效果。比如顺序访问http://www.baidu.com/get&id=10000http://www.baidu.com/get&i...
用批处理命令或vbs都行。
达到如下效果。
比如顺序访问
http://www.baidu.com/get&id=10000
http://www.baidu.com/get&id=10001
http://www.baidu.com/get&id=10002
http://www.baidu.com/get&id=10003
http://www.baidu.com/get&id=10004
http://www.baidu.com/get&id=10005
........
http://www.baidu.com/get&id=19998
http://www.baidu.com/get&id=19999
中间要有停顿,就是等第一个访问完成了再访问下一个。
只要达到访问目的就行,前台后台都行,能把访问的网页保存也行。
T_CNN_PP的回答现在不能运行了,有错误,说下标越界 展开
达到如下效果。
比如顺序访问
http://www.baidu.com/get&id=10000
http://www.baidu.com/get&id=10001
http://www.baidu.com/get&id=10002
http://www.baidu.com/get&id=10003
http://www.baidu.com/get&id=10004
http://www.baidu.com/get&id=10005
........
http://www.baidu.com/get&id=19998
http://www.baidu.com/get&id=19999
中间要有停顿,就是等第一个访问完成了再访问下一个。
只要达到访问目的就行,前台后台都行,能把访问的网页保存也行。
T_CNN_PP的回答现在不能运行了,有错误,说下标越界 展开
4个回答
展开全部
你先在c盘建立1个a.txt文本,然后把你要访问的网址一行行放进去,
然后建立一个批处理,代码如下
@echo off
for /F %%i in (c:\a.txt) do start iexplore.exe "%%i"
然后建立一个批处理,代码如下
@echo off
for /F %%i in (c:\a.txt) do start iexplore.exe "%%i"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
脚本修改了。
关于为什么每次递增不是1的问题,可能是那网页无法访问
vbscript脚本
***********************************
dim temp1,temp3
'网站路径http://www.baidu.com/get&id=10000
temp1=10000
dim websz(20000)
for i = 0 to 19999
temp1=temp1+i
websz(i)= "http://www.baidu.com/get&id=" & temp1
next
for j=0 to 19999
'文件保存格式
temp3=j & ".html"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",websz(j),0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile temp3,2
Wscript.sleep 1500
next
关于为什么每次递增不是1的问题,可能是那网页无法访问
vbscript脚本
***********************************
dim temp1,temp3
'网站路径http://www.baidu.com/get&id=10000
temp1=10000
dim websz(20000)
for i = 0 to 19999
temp1=temp1+i
websz(i)= "http://www.baidu.com/get&id=" & temp1
next
for j=0 to 19999
'文件保存格式
temp3=j & ".html"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",websz(j),0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile temp3,2
Wscript.sleep 1500
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
@echo off
for /l %%a in (10000 1 19999) do (
start iexplore "http://www.baidu.com/get&id=%%a"
ping /n 5 127.1>nul
if %%a==19999 exit
)
for /l %%a in (10000 1 19999) do (
start iexplore "http://www.baidu.com/get&id=%%a"
ping /n 5 127.1>nul
if %%a==19999 exit
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
终于弄出来了!QQ283403224
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询