中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 21:13
47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行
DOS批处理 & 脚本技术(批处理室) » 【已经解决】如何用批处理或vbs实现打开n个指定网页?
可打印版本  1,828 / 9
第1楼 MASKKID 发表于 2008-05-27 11:07
初级用户 发帖 15 积分 34
【已经解决】如何用批处理或vbs实现打开n个指定网页?
请教大家一下,因为平时要打开很多的网页(大概每天几百个左右),一个一个打开太麻烦,小弟刚学批处理和vbs时间不长,但是我感觉bat或vbs应该可以实现,具体的工作如下:

1 手动将要打开的n多网址整理到一个记事本,每行一个
2 用命令实现,每次从记事本中顺序(从上到下)选择15个打开(如果打开的个数能自己设定最好)
3 打开的程序是否可以选择?比如用ie、遨游或火狐,如果不行,用ie也ok~~


先谢谢大侠

[ Last edited by MASKKID on 2008-5-28 at 04:41 PM ]
第2楼 Climbing 发表于 2008-05-27 11:52
铂金会员 发帖 2,753 积分 6,962 来自 河北保定
这个应该不难实现吧。至少用IE是可以的。

用for命令就行了。
第3楼 MASKKID 发表于 2008-05-27 12:20
初级用户 发帖 15 积分 34
我自己整理了一下,打开自己指定的网页是可以的,但是还有具体问题如下:
我的bat:for /f %%a in (1.txt) do ("D:\Program Files\Maxthon2\Maxthon.exe" %%a)

因为网页是顺序页面,从1~100页,但是他的链接地址是www.?.com\(页码乘以15).htm

我的1.txt是:
1
2
3
... ...
100

这个在bat中怎么怎么实现正确的跳转?

谢谢啊~~~
第4楼 Climbing 发表于 2008-05-27 13:00
铂金会员 发帖 2,753 积分 6,962 来自 河北保定
要想解决问题,请首先把问题说清楚。

自己看一下,看能不能明白自己在说什么。
第5楼 slore 发表于 2008-05-27 13:01
铂金会员 发帖 2,478 积分 5,212
@echo off
for /L %%a in (1,1,100) do Call :OpenWeb %%a
pause>nul
exit
:OpenWeb
Set /a n=%1*15
"D:\Program Files\Maxthon2\Maxthon.exe" %n%
第6楼 MASKKID 发表于 2008-05-28 08:52
初级用户 发帖 15 积分 34
climbing,谢谢你,可能是我表述不够清楚,但是我的问题就是那样,真诚的谢谢你~~

slore的方法太好了,谢谢你,因为我也是刚学bat不久,各种命令自己运用还很差,但通过这次针对这个问题的摸索和求教,对for的用法有了一个新的提高,真的很感谢你们!!!

祝这些热心的网友一切都好

——————————————————
小弟在slore的脚本:openweb 处加了个pause,防止一下子打开那么多会死机
如下:
@echo off
for /L %%a in (1,1,10) do Call :OpenWeb %%a
pause>nul
exit
:OpenWeb
Set /a n=%1*15
"D:\Program Files\Maxthon2\Maxthon.exe" %n%
pause

这样,每按一下任意键就会打开一页,但是现在我想记下打开的页面数目,应该怎么实现呢?

[ Last edited by MASKKID on 2008-5-28 at 09:36 AM ]
第7楼 Climbing 发表于 2008-05-28 10:35
铂金会员 发帖 2,753 积分 6,962 来自 河北保定
我主要是不理解为什么把一个数字当成网页来打开,是不是实际上是这样:

D:\Program Files\Maxthon2\Maxthon.exe" http://www.xxx.com/%n%.htm

想记下打开页面的数目很简单,设置一个环境变量即可。

第8楼 slore 发表于 2008-05-28 14:02
铂金会员 发帖 2,478 积分 5,212
@echo off
for /L %%a in (1,1,100) do Call :OpenWeb %%a
pause>nul
exit
:OpenWeb
Set /a P=%1%%5
If %P%==4 pause
Set /a n=%1*15
"D:\Program Files\Maxthon2\Maxthon.exe" %n%
第9楼 MASKKID 发表于 2008-05-28 16:37
初级用户 发帖 15 积分 34
谢谢两位老师了~~
第10楼 qinchun36 发表于 2008-05-31 22:23
高级用户 发帖 400 积分 609
你开始问的时候就应该给一个 文件的片断出来,人家才好给你弄
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023