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

winsfly

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

wskwfkbdn

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

codegay

回复 15# gawk


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

gawk

回复 6# wskwfkbdn


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

CrLf

回复 7# codegay


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

winsfly

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

阿信

新手学习下

ygqiang

回复 10# winsfly


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

winsfly

回复 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
)
复制代码

winsfly

回复 4# hlzj88

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

winsfly

回复 5# gawk


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

codegay

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

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

wskwfkbdn

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


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

gawk

@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
)
复制代码

hlzj88

start "" http://www.baidu.com/&pause
start "" http://www.hao123.com/&pause
start "" http://www.163.com/&pause
%0
复制代码

这样行不？