利用默认浏览器打开网页,并输入用户名和密码 VBA

987654321 · 发表于 2016-11-19 09:13

求助: 利用默认浏览器(系统中有多个浏览器)打开网页,并输入用户名(username)和密码(password) VBA
测试网址:

http://wsbs.jxgs.gov.cn:7070/js3q/login.jsp

只要能用默认浏览器打开该网址并输入用户名和密码即可

sac100 · 发表于 2016-11-19 11:55

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://wsbs.jxgs.gov.cn:7070/js3q/login.jsp"
Do Until .ReadyState = 4 And .Busy = False
DoEvents
Loop
.Document.all("username").Value = "123"
.Document.all("password").Value = "456"
End With

复制代码

sac100 · 发表于 2016-11-19 11:55

         Set ie = CreateObject("InternetExplorer.Application")
         With ie
            .Visible = True
            .Navigate "http://网址"
            Do Until .ReadyState = 4 And .Busy = False
                  DoEvents
            Loop
            .Document.all("username").Value = "123"
            .Document.all("password").Value = "456"
         End With

987654321 · 发表于 2016-11-19 12:39

sac100 发表于 2016-11-19 11:55
Set ie = CreateObject("InternetExplorer.Application")
With ie
...

要求要用默认浏览器(因为系统里有好几个浏览器),不限定是IE浏览器,谢谢 ASC100

我是来讨说法的 · 发表于 2016-11-19 13:12

987654321 发表于 2016-11-19 12:39
要求要用默认浏览器(因为系统里有好几个浏览器),不限定是IE浏览器,谢谢 ASC100

vba只能操作ie内核的浏览器，谢谢！
如果要操作其他内核的浏览器，请改用python，谢谢

huang1314wei · 发表于 2016-11-19 15:17

此题暂时无解

987654321 · 发表于 2016-11-21 13:37

我是来讨说法的发表于 2016-11-19 13:12
vba只能操作ie内核的浏览器，谢谢！
如果要操作其他内核的浏览器，请改用python，谢谢

谢谢!
我现在用的是这个代码打开,主要是想直接输入用户名和密码
ShellExecute 0&, vbNullString, "http://www.jxds.gov.cn/wsbs/jsp/do_login_zjzs_init.jsp", vbNullString, vbNullString, vbNormalFocus

落英1 · 发表于 2022-7-3 12:34

请教大家，输入用户名密码，如何实现确定回车

tspliu · 发表于 2022-7-3 15:57

落英1 发表于 2022-7-3 12:34
请教大家，输入用户名密码，如何实现确定回车

试试tab键如果管用，就模拟键盘过去再点击，如果不行就找图找色脚本+模拟鼠标点击吧，百度都轻松搜到

adfs945 · 发表于 2023-5-30 17:01

同样的问题，学习中。。。

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

[求助] 利用默认浏览器打开网页,并输入用户名和密码 VBA