首页 新闻 搜索 专区 学院

请教ryueifu老师

0
[待解决问题]

您好老师,我最近在学习您的SeleniumBasic 3.141.0.0-在VBA中操作浏览器的应用,看了好几遍,还是不理解,请问我该怎样在这个网页的用户名输入“333999”,在密码框中输入“123456”,并提交页面?谢谢!
<html>
<head>
</head>
<body>
<form class="el-form el-form--label-left" style="box-sizing: border-box; width: 282.737px; height: 370.938px; margin: 0px auto; background-color: white">
<div class="el-form-item is-required" style="box-sizing: border-box; ">
<label for="name" class="el-form-item__label" style="box-sizing: border-box; ">
用户名</label><div class="el-form-item__content" style="box-sizing: border-box; ">
<div class="login-input el-input" style="box-sizing: border-box; ">
<input type="text" autocomplete="off" maxlength="64" placeholder="请输入用户名" class="el-input__inner" style="box-sizing: border-box; " name="T1" size="20"></div>
</div>
</div>
<div class="el-form-item is-required" style="box-sizing: border-box; ">
<label for="password" class="el-form-item__label" style="box-sizing: border-box; text-align:">
密码</label><div class="el-form-item__content" style="box-sizing: border-box; ">
<div class="login-input el-input" style="">
<input type="password" autocomplete="off" maxlength="64" placeholder="请输入密码" class="el-input__inner" style=""></div>
</div>
</div>
<div type="primary" class="btn-login" style="">
LOGIN</div>
</form>
</div>

</body>

</html>

** 一直弄不对,请指教,谢谢!**
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()

On Error GoTo Err1
Dim Service As SeleniumBasic.ChromeDriverService
Dim Options As SeleniumBasic.ChromeOptions
Set WD = New SeleniumBasic.IWebDriver
Set Service = New SeleniumBasic.ChromeDriverService
With Service
.CreateDefaultService driverPath:=“E:\chrome85“
.HideCommandPromptWindow = True
End With
Set Options = New SeleniumBasic.ChromeOptions
With Options
.BinaryLocation = “C:\Program Files\Google\Chrome\Application\Chrome.exe“
.AddExcludedArgument “enable-automation“
.AddArgument “--start-maximized“

End With
WD.New_ChromeDriver Service:=Service, Options:=Options
WD.URL = “http://214/alms/login“
Dim form As SeleniumBasic.IWebElement
Dim text As SeleniumBasic.IWebElement
Dim password As SeleniumBasic.IWebElement
Dim primary As SeleniumBasic.IWebElement
Set form = WD.FindElementById(“div“)
Set text = WD.FindElementByName(“Text“)
text.SendKeys “333999“
Set password = WD.FindElementByTagName(tagName:=“input“)
password.SendKeys “123456“
Set primary = WD.FindElementByType(Type:=“primary“)
primary.Click
MsgBox “下面退出浏览器。“
WD.Quit
Exit Sub
Err1:
MsgBox Err.Description, vbCritical
End Sub

hdzhlhj1234的主页 hdzhlhj1234 | 菜鸟二级 | 园豆:202
提问于:2022-01-04 14:13
< >
分享
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册