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

winsfly

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

winsfly

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

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

hlzj88

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

这样行不？

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

wskwfkbdn

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


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

codegay

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

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

winsfly

回复 5# gawk


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

winsfly

回复 4# hlzj88

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

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

ygqiang

回复 10# winsfly


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

阿信

新手学习下

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

CrLf

回复 7# codegay


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

gawk

回复 6# wskwfkbdn


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