文件名称：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