Dim vDoc, vTag
Dim I As Integer
Set vDoc = w1.Document
For I = 0 To vDoc.All.length - 1
If UCase(vDoc.All(I).tagName) = "INPUT" Then
Set vTag = vDoc.All(I)
Select Case vTag.Name
Case "u" '用戶名
vTag.Value = Text5.Text
Case "p" '密碼
vTag.Value = Text6.Text
Case "verifycode" '驗證碼
vTag.Value = Text7.Text
End Select
Select Case vTag.Type
Case "submit" '登陸
vTag.Click
End Select
End If
Next I
用這個就可以操作網頁,具體的妳要查看網頁源文件