[已解决]批处理如何依次打开和关闭多个网站？

winsfly · 发表于 2016-1-27 09:19:46

本帖最后由 winsfly 于 2016-1-28 09:57 编辑

本人做业务的，经常要登录十几个几十个供销商网站发布消息，那么多网站名字，账号密码难得记，
如果有一个可以打开第一个网站登录发布完消息后关闭，接着会自动弹出第二个网站，我再发布消息后关闭，如此循环下去的脚本就好了，
我没奢望可以每个网站自动登录，那不太现实毕竟有验证码 cookies等等因素

winsfly · 发表于 2016-1-27 17:01:21

本帖最后由 winsfly 于 2016-1-27 17:22 编辑

回复 1# winsfly

哎，没人来，只有自己抛砖引玉了

@echo off
mode con cols=14 lines=1
start "" "C:\Program Files\Internet Explorer\iexplore.exe" "http://www.baidu.com/"

:a
tasklist /nh|find /i "iexplore.exe"
if ERRORLEVEL 1 (goto b) else (goto a)

:b
start "" "C:\Program Files\Internet Explorer\iexplore.exe" "http://www.hao123.com/"
tasklist /nh|find /i "iexplore.exe"
if ERRORLEVEL 1 (goto c) else (goto a)

:c
start "" "C:\Program Files\Internet Explorer\iexplore.exe" "http://www.163.com/"
tasklist /nh|find /i "iexplore.exe"
if ERRORLEVEL 1 (goto d) else (goto a)

winsfly · 发表于 2016-1-27 17:31:16

可惜不能循环下去，还有一个不能精简，谁帮帮我啊

hlzj88 · 发表于 2016-1-27 19:38:15

start "" http://www.baidu.com/&pause
start "" http://www.hao123.com/&pause
start "" http://www.163.com/&pause
%0

复制代码

这样行不？

gawk · 发表于 2016-1-27 20:38:43

@echo off
REM 几十个供销商网站地址全部放到URL.txt里面，每行一个网址
for /f "delims=" %%i in ('type "URL.txt"') do (
call :OpenURL "%%i"
)
goto :eof
:OpenURL
start "" "C:\Program Files\Internet Explorer\iexplore.exe" %1
:CheckProc
tasklist /nh | find /i "iexplore.exe"
if errorlevel 1 (
goto :eof
) else (
goto :CheckProc
)

复制代码

wskwfkbdn · 发表于 2016-1-27 23:50:40

涉及到编程方面
1、了解下网页填表技术可无视任何框架。（一般第三方浏览器有记住网页表单及账号密码可以同步）
2、使用按键精灵或网页post技术实现。

批处理实现打开网页，操作完毕后关闭网页，可以用start /wart 命令，可是手动操作毕竟还是繁琐的，建议使用第三方浏览器记住账号密码。

codegay · 发表于 2016-1-28 02:14:10

lastpass是带网络同步的密码管理软件。收费便宜，一年70块钱。
应该是大部分都可以自动填充。

快手是autoit之类的同类工具，http://www.oschina.net/p/aauto-quicker 这类工具好像都有浏览器框架

winsfly · 发表于 2016-1-28 09:06:59

回复 5# gawk

谢谢大神，受教了，基本都懂，就是脑袋转不过弯，说明自己的逻辑能力太差。

winsfly · 发表于 2016-1-28 09:12:00

回复 4# hlzj88

不够智能，你那个还要关闭网页后,再切换到cmd窗口按一下才能继续，况且如果默认浏览器不是ie的话，会出现各种各样的问题

winsfly · 发表于 2016-1-28 09:50:40

回复 5# gawk

还是修改了一下，把分隔符换成\，把网址放在第一位，后面放网址中文名和账户密码就可以了，简直是文员业务员的至宝。

@echo off
REM 几十个供销商网站地址全部放到URL.txt里面，每行一个网址
for /f "tokens=1 delims=" %%i in ('type "URL.txt"') do (
call :OpenURL "%%i"
)
goto :eof
:OpenURL
start "" "C:\Program Files\Internet Explorer\iexplore.exe" %1
:CheckProc
tasklist /nh | find /i "iexplore.exe"
if errorlevel 1 (
goto :eof
) else (
goto :CheckProc
)

复制代码

ygqiang · 发表于 2016-1-28 10:57:08

回复 10# winsfly

你的 URL.txt具体是啥内容》？

阿信 · 发表于 2016-1-28 12:51:58

新手学习下

winsfly · 发表于 2016-1-28 17:09:17

回复 winsfly

你的 URL.txt具体是啥内容》？
ygqiang 发表于 2016-1-28 10:57

http://www.qihuiwang.com\                   企汇网 cslandwell *******
http://www.youboy.com\ 一呼百应             18670014378 *******
http://www.hc360.com\ 慧聪网 cslandwell *******
http://china.herostart.com\                   环球贸易网             cslandwell *******
http://www.qjy168.com\ 勤加缘网             cslandwell *******

CrLf · 发表于 2016-1-28 18:59:27

回复 7# codegay

同推荐 lastpass，仅本机使用不需要购买高级版

gawk · 发表于 2016-1-28 20:11:20

回复 6# wskwfkbdn

密码好说，这样做可以解决验证码么？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[网络连接] [已解决]批处理如何依次打开和关闭多个网站？

评分

评分

		自动登录	找回密码
密码			注册