求助：如何找到“登录”键

ly7aaa7

想用vba登录单位邮箱，套用下面的代码，可以填入用户名及密码，但无法实现登录按钮的单击，个人觉得是这一句“.Document.Forms(0).All("登录邮箱").Click”出了问题，代码无法找到登录键，光标一直停留在用户名的录入框中，请教高手如何修改这一句代码使程序能在登录页面找到登录键并单击。谢谢！

Sub Goto163()

With CreateObject("InternetExplorer.Application")

.Visible = True

.navigate "http://mail.163.com"

Do Until .Readystate = 4

DoEvents

Loop

.Document.Forms(0).All("username").Value = "myusername"

.Document.Forms(0).All("password").Value = "mypassword"

.Document.Forms(0).All("登录邮箱").Click

End With

MsgBox "Ok"

End Sub

zhw79

Document.Forms(0).All("登录邮箱").Click
改成
.Document.Forms(0).All("loginBtn").Click

ly7aaa7

2楼的办法不行，还是老样子，毫无改观，寻高手中......

ly7aaa7

等待中......
另外，谁有网页分析的资料请发一下。
谢谢！

蓝天630902

Sub Goto163()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://mail.163.com"
        Do Until .Readystate = 4
            DoEvents
        Loop
        .Document.Forms(0).All("username").Value = "myusername"
        .Document.Forms(0).All("password").Value = "mypassword"
        .Document.All.tags("button")(0).Click
    End With
MsgBox "Ok"
End Sub

蓝天630902

或者：

Sub Goto163()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://mail.163.com"
        Do Until .Readystate = 4
            DoEvents
        Loop
        .Document.All("username").Value = "myusername"
        .Document.All("password").Value = "mypassword"
        .Document.All.tags("button")(0).Click
    End With
MsgBox "Ok"
End Sub

ly7aaa7

运行时错误'91'   
对象变量或with块变量未设置

是这一句出的错:".Document.All.tags("button")(0).click"

继续求助中......

zhw79

.Document.Forms(0).All("loginBtn").Click
一直很正常

ly7aaa7

to zhw79:
    你的代码登录163邮箱可以,但要登录我们的内网邮箱还是出错,出错的语句还是".Document.Forms(0).All("loginBtn").Click",VBA提示如下:
运行时错误'91'   
对象变量或with块变量未设置

ly7aaa7

继续求助中......