Question

我正在尝试使用Google和本网站上的资源来帮助我，但我正在努力在登录页面的输入框中输入用户名和密码。

该页面位于我们的工作服务器上的本地网络上。

登录页面的HTML代码：

final Disposable disposable = booksApi
        .getBookTitle(bookId1, "en")
        .observeOn(AndroidSchedulers.mainThread())
        .subscribe(title -> {
            // got the result
        }, throwable -> {

        });

到目前为止，我已经尝试过：

<TD background=/frontend/images/greenback.gif width=302><INPUT maxLength=32 name=username> </TD>

<TD background=/frontend/images/greenback.gif width=302><INPUT maxLength=32 type=password value="" name=password> </TD>

我也尝试过：

Sub Test()

On Error Resume Next

Dim sUrl As String: sUrl = "https://workplace.plus.net/index.html?"
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

ie.navigate sUrl

Do While ie.readystate <> 4: DoEvents: Loop

ie.document.getElement.Name("username").Value = 1234

End Sub

问题是我在Google上使用了具有ID按钮的相同代码，并且可以正常工作。有没有我没有考虑的东西？

Answer 1

在这里，我正在使用Facebook登录页面。您可以放置任何其他链接来登录，将sUser作为字符串，将sPass作为字符串。分配要输入的值。 Application.Wait（Now + TimeValue（“ 00:00:02”））是加载页面与添加登录ID和密码之间的时间。另一方面，将传递用户ID和密码IE.Document.all.Item（“ email”）。Value = sUser。请尝试此代码

Sub facebookPost()
Dim IE As Object
Dim sUser As String, sPass As String


sUser = "1234"
sPass = "1234"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.Facebook.com")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))

IE.Document.all.Item("email").Value = sUser
IE.Document.all.Item("pass").Value = sPass
IE.Document.all.Item("loginbutton").Click
End Sub

使用VBA脚本登录网站登录页面

1 个答案: