批处理之家 - Powered by Discuz! Board

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

作者: winsfly 时间: 2016-1-27 09:19 标题: [已解决]批处理如何依次打开和关闭多个网站？

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

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

作者: winsfly 时间: 2016-1-27 17:01

本帖最后由 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

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

作者: hlzj88 时间: 2016-1-27 19:38

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

@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

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

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

作者: codegay 时间: 2016-1-28 02:14

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

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

作者: winsfly 时间: 2016-1-28 09:06

回复 5# gawk

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

作者: winsfly 时间: 2016-1-28 09:12

回复 4# hlzj88

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

作者: winsfly 时间: 2016-1-28 09:50

回复 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

回复 10# winsfly

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

作者: 阿信 时间: 2016-1-28 12:51

新手学习下

作者: winsfly 时间: 2016-1-28 17:09

回复 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

回复 7# codegay

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

作者: gawk 时间: 2016-1-28 20:11

回复 6# wskwfkbdn

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

作者: codegay 时间: 2016-1-29 06:59

回复 15# gawk

验证码那些软件都有现成库。

作者: wskwfkbdn 时间: 2016-1-29 07:35 标题: 标题

回复 15# gawk
验证码当然可以识别了，识别需要用到验证码识别引擎，不过我觉得最简单的是post登录+手动输入验证码就可以了，

欢迎光临批处理之家 (http://www.bathome.net/)