'自動登錄Yahoo，修改一下

Private Sub Command1_Click()
yahoo
End Sub
Sub yahoo()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate " https://login.yahoo.com/config/login_verify2?&.src=ym"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(26).Value = "my_user_id"
.Document.Forms(0).All(29).Value = "my_password"
.Document.Forms(0).All(38).Click
End With
End Sub

Private Sub Command3_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = Web.document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case LCase(vTag.Name)
Case ""
'vTag.Value = Text1.Text '帳戶
If i = 40 Then vTag.Value = Text1.Text '帳戶
If i = 207 Then vTag.Value = Text2.Text '帳戶
If i = 214 Then vTag.Value = Text2.Text '帳戶
Case "password"
vTag.Value = "9999999999999999999" '密碼
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If

Next i
End Sub

Private Sub Form_Load()

Web.navigate " http://reg.qq.com/"
End Sub

'我也是新學(xué)的給你做個看看吧,