【文件属性】：
文件名称：QQ vba 登 录
文件大小：897B
文件格式：TXT
更新时间：2016-04-04 06:11:19
VBA
Sub QQ()
On Error Resume Next
With CreateObject("InternetExplorer.application")
.Visible = True
.Navigate "http://qzone.qq.com/"
Do Until .readystate = 4
DoEvents
Loop
.document.getelementbyid("u").Value = "123456789"
.document.getelementbyid("p").Value = "3s3.cn***"
.document.getelementbyid("button").Click '登 录
Do Until .readystate = 4
DoEvents
Loop
.document.getelementbyid("u").Value = "123456789"
.document.getelementbyid("p").Value = "3s3.cn****"
Do Until .readystate = 4
DoEvents
Loop
.document.getelementbyid("verifytip").Value = .document.getelementbyid("verifyshow").Value
.document.getelementbyid("button").Click '登 录
End With
End Sub