[求助]单位网页 自动填表[已解]

angelating11

蓝天630902 发表于 2013-3-13 14:27
Sub GotoT()
    On Error Resume Next
    Dim myusername, mypassword, myaddress As String

谢谢，现在可以自动登陆了，不过公司会先弹出一个警告，点击ignore之后才会到登陆页面，第一次执行就不能自动登陆，后面才可以，有什么办法解决吗？

    还有tags（“a”）是什么意思，为什么跟之前的访问方法不一样。最近在学这个，有没有什么书籍可以推荐下啊，谢谢了先。

angelating11

蓝天630902 发表于 2013-3-13 14:27
Sub GotoT()
    On Error Resume Next
    Dim myusername, mypassword, myaddress As String

谢谢，现在可以自动登陆了，不过公司会先弹出一个警告，点击ignore之后才会到登陆页面，第一次执行就不能自动登陆，后面才可以，有什么办法解决吗？

    还有tags（“a”）是什么意思，为什么跟之前的访问方法不一样。最近在学这个，有没有什么书籍可以推荐下啊，谢谢了先。

angelating11

调用立即窗口得到


For i = 1 To 100
If Len(.Document.All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.All(i).Name
Next
i=3  name=keywords
i=4  name=description
i=33  name=login163
i=34  name=savelogin
i=35  name=url2
i=37  name=username
i=44  name=password

但是按照之前的代码
Sub Goto163()
Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop

On Error Resume Next
For i = 1 To 100
If Len(.document.all(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .document.all(i).Name
Next

.document.Forms(0).all("username").Value = "“
.document.Forms(0).all("password").Value = "”.document.Forms(0).all("login163").Click
End With
MsgBox "Ok"
End Sub
执行后，用户名和密码会自动填写，但是登陆按钮点击不了，不会自动登陆，需要怎么改呢？

蓝天630902

angelating11 发表于 2013-3-11 12:31
调用立即窗口得到

1. Sub 登录163()
   
2.     Dim tt
   
3.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.    
   
5.         .Open "POST", "https://ssl.mail.163.com/entry/coremail/fcg/ntesdoor2?df=webmail163&from=web&funcid=loginone&iframe=1&language=-1&net=t&passtype=1&product=mail163&race=78_63_188_gz&style=-1&uid=litz@163.com", False
   
6.         .setRequestHeader "Referer", "http://mail.163.com/"
   
7.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
8.         .send "savelogin=0&url2=http%3A%2F%2Fmail.163.com%2Ferrorpage%2Ferr_163.htm&username=litz&password=litg940"
   
9.         
   
10.         tt = Split(Split(.responsetext, "top.location.href = """)(1), """")(0)
    
11.         
    
12.         .Open "GET", tt, False
    
13.         .send
    
14.         tt = Split(Split(.responsetext, "audited':['""")(1), "'")(0)
    
15.         Cells(1, 1) = tt
    
16.         MsgBox tt
    
17.     End With
    
18. End Sub

复制代码

1. Sub Goto163()
   
2.     On Error Resume Next
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         .navigate "http://mail.163.com"
   
6.         Do Until .Readystate = 4
   
7.             DoEvents
   
8.         Loop
   
9.         .document.Forms(0).all("username").Value = "litz"
   
10.         .document.Forms(0).all("password").Value = "litg940"
    
11.         .document.getelementbyid("loginBtn").Click
    
12.     End With
    
13. End Sub
    

复制代码

angelating11

蓝天630902 发表于 2013-3-11 12:59

谢谢了，能不能再帮忙看下这个网站怎么实现自动登陆，我参照163的登陆方法实现不了，网址是http://114.251.81.164/cqweb/login，代码如下：

Sub GotoT()

On Error Resume Next
Dim myusername, mypassword, myaddress As String

myusername = "abc"
mypassword = "123"
mydb = "CQWB"

With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://114.251.81.164/cqweb/login"

Do Until .Readystate = 4
DoEvents
Loop

.document.Forms(0).all("username").Value = myusername
.document.Forms(0).all("password").Value = mypassword
.document.Forms(0).all("userDb").options[1].Value = myaddress
.document.Forms(0).all("loginButton").Click

End With

End Sub

蓝天630902

angelating11 发表于 2013-3-13 13:09
谢谢了，能不能再帮忙看下这个网站怎么实现自动登陆，我参照163的登陆方法实现不了，网址是http://114.25 ...

Sub GotoT()
    On Error Resume Next
    Dim myusername, mypassword, myaddress As String
    myusername = "abc"
    mypassword = "123"
    mydb = "CQWB"
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://114.251.81.164/cqweb/login"
        Do Until .Readystate = 4
            DoEvents
        Loop
        .document.All("username").Value = myusername
        .document.All("password").Value = mypassword
        .document.All("userDb").All.tags("option")(1).Selected = True
        .document.getelementbyid("loginButton").All.tags("a")(0).Click
    End With
End Sub

dongwenquan

这部分内容实在太有用了，请版主及高手们讲解呀，我等菜学习了

jeanwa

旧帖再学习一遍。

ak47ok

每次回帖、谢谢！辛苦了。

无姓人

谢谢分享，学习了！