通过从excel复制用户名密码自动登录到网页

我有一个简单的脚本登录到网页，但现在我有一个要求，建立一个VB脚本，如果我点击一个按钮

它应该登录到该网页

将粘贴用户名和密码从excel工作表复制到网页

然后单击“登录”按钮登录到该网页

---

简单地在脚本中输入用户名和密码的位置

如下 .getelementbyid（“用户ID”）.value=范围（“a1”）.value pw也是如此。 .getelementbyid（“密码”）.value=range（“a2”）.value

请考虑使用此选项

Set ie = CreateObject("InternetExplorer.application")

' Get username and password from worksheet.  Not very secure, but this way the credentials are always sitting in the same spot and the user doesn't have to enter these each time.
' Alternative is to use an input box toprompt the user for crednetials.
UserName = Worksheets("ControlSheet").Range("A1").Value
Password = Worksheets("ControlSheet").Range("A2").Value

With ie
    .Visible = True
    .navigate "YOUR_1ST_URL_HERE"

' Wait for the page to fully load; you can't do anything if the page is not fully loaded
Do While .Busy Or _
    .readyState <> 4
    DoEvents
Loop

On Error Resume Next
'Credentials are passed to the site and the button is clicked (by the code).
ie.document.forms(0).all("username").Value = UserName
ie.document.forms(0).all("password").Value = Password
ie.document.forms(0).submit.Click

    ' Wait for the page to fully load; you can't do anything if the page is not fully loaded
    Do While .Busy Or _
        .readyState <> 4
        DoEvents
    Loop

    .navigate "YOUR_2ND_URL_HERE"

    Do While .Busy Or _
        .readyState <> 4
        DoEvents
    Loop

Set ie=CreateObject（“InternetExplorer.application”）
'从工作表中获取用户名和密码。不是很安全，但这样一来，凭据总是位于同一位置，用户不必每次都输入这些凭据。
另一种方法是使用输入框提示用户输入密码。
用户名=工作表（“控制表”）.范围（“A1”）.值
密码=工作表（“控制表”）.范围（“A2”）.值
与ie
.Visible=True
.浏览“您的第一个URL”
'等待页面完全加载；如果页面未完全加载，则无法执行任何操作
忙的时候做，忙的时候做_
.readyState 4
多芬特
环
出错时继续下一步
'凭据被传递到站点并单击按钮（由代码）。
ie.document.forms（0）.all（“用户名”）.Value=用户名
ie.document.forms（0）.all（“密码”）.Value=密码
ie.document.forms（0）.提交.单击
'等待页面完全加载；如果页面未完全加载，则无法执行任何操作
忙的时候做，忙的时候做_
.readyState 4
多芬特
环
.浏览“您的第二个URL\u此处”
忙的时候做，忙的时候做_
.readyState 4
多芬特
环

请分享您的脚本，以便进一步查看……嗨，Apurv，我的脚本很简单，可以使用脚本中提供的用户名密码登录网站。现在需要的是一个脚本，它可以通过复制excel工作表中的用户名和密码登录到网页。函数主集IE=WScript.CreateObject（“InternetExplorer.Application”，“IE”）IE.Visible=True IE.Navigate“使用IE.Document.getElementByID（“Userid”）。value=“username”。getElementByID（“password”）。value=“密码”结束时结束函数子等待（IE）执行WScript.Sleep 500循环，而IE.ReadyState<4和IE.Busy执行WScript.Sleep 500循环，而IE.ReadyState<4和IE.Busy结束子任务IE_OnQuit On Error Resume Next WScript.StdErr.WriteLine“IE在脚本完成之前关闭。”WScript.Quit End Sub