利用百度登录163邮箱

上清宫主

以前发过登录邮箱的代码，但失效了
现有网友问到，试了下，利用百度是完全可以登录邮箱的（IE浏览器中实现）：

With CreateObject("InternetExplorer.Application")
      .Visible = True
      .Navigate "http://www.baidu.com/s?wd=163%D3%CA%CF%E4%B5%C7%C2%BD&tn=sogouie_1_dg"
      Do Until .ReadyState = 4
          DoEvents
      Loop
      Set f = .Document.getElementsByTagName("input")
      f.Item(13).Value = "账号"
      f.Item(14).Value = "密码"
      f.Item(15).Click
End With

上清宫主

这样也完全可以：
With CreateObject("InternetExplorer.Application")
      .Visible = True
      .Navigate "http://www.baidu.com/s?wd=163%D3%CA%CF%E4%B5%C7%C2%BD&tn=sogouie_1_dg"
      Do Until .ReadyState = 4
          DoEvents
      Loop
     .Document.forms(1).tags("input")(0).Value =  "账号"
     .Document.forms(1).tags("input")(1).Value ="密码"
     .Document.forms(1).tags("input")(2).Click
End With

苏子龙

关注关注关注代码能完整点吗？

砂海

批处理的可以这样直接登陆 *.bat
=============================
rem 163邮箱自动登陆 2016.10

@echo off
set var="邮箱"
set num="密码"
start "163邮箱登录中" "https://reg.163.com/logins.jsp?username=%var%&password=%num%&url=http://fm163.163.com/coremail/fcg/ntesdoor2"

rem 复制以上代码，另存为.Bat文件即可。用户名为163的用户名，密码为你帐号的密码
=====================================================
感觉 start 前面 加个什么就可以

qqyyh

批处理更简洁些

上清宫主

砂海 发表于 2017-8-17 16:13
批处理的可以这样直接登陆 *.bat
=============================
rem 163邮箱自动登陆 2016.10

这个好，还没试过

A_kingdom

砂海 发表于 2017-8-17 16:13
批处理的可以这样直接登陆 *.bat
=============================
rem 163邮箱自动登陆 2016.10

您好，我想请问下其他类似的网站是不是用同样的方式可以登录，还是说只有163能这么用

hjxlj

这个和百度有什么关系？