VB 网页自动登陆
Option Explicit

Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.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 vTag.Name
Case "userid" '帐号
vTag.Value = "XXXXXXX"
Case "pwd" '密码
vTag.Value = "PPPPPPP"
End Select
ElseIf vTag.Type = "button" Then
vTag.Click
End If
End If
Next i
End Sub

高人看看啊，能输入帐号和密码就是不按登陆
另外在请教flash的怎样做自动登陆啊，比如这个网站http://s.qeedoo.com/mc/s28/
[最优解释]
也就是改为:

 
                    Case "pwd"    '密码
                        vTag.Value = "PPPPPPP"
                End Select
        End If
         End If
    Next i
    Dim OButton
    OButton = WebBrowser1.Document.getElementsByTagName("BUTTON")
    OButton.Click
End Sub

[其他解释]
Dim OButton
OButton = WebBrowser1.Document.getElementsByTagName("BUTTON")
OButton.Click
[其他解释]
来学习了
[其他解释]
测试过了，2楼的代码没有问题
[其他解释]
http://s.qeedoo.com/mc/s28/ 这种怎么登陆啊
[其他解释]

引用:

http://s.qeedoo.com/mc/s28/ 这种怎么登陆啊

只能手动登陆
[其他解释]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.getElementsByName("userid")(0)
.Value = "XXXXXXX" 
    WebBrowser1.Document.getElementsByName("pwd")(0)
.Value = "PPPPPPP" 
    WebBrowser1.Document.getElementsByTagName("button")(0).click
End Sub

dthml参考使用（个人总结，不足的可以在下面补充）：
http://blog.csdn.net/sysdzw/archive/2009/08/19/4463844.aspx

dhtml中文手册：
http://download.csdn.net/source/1660838
[其他解释]
有点问题，修改了下

Option Explicit 

Private Sub Command1_Click() 
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php" 
End Sub 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.getElementsByName("userid")(0).Value = "XXXXXXX" 
    WebBrowser1.Document.getElementsByName("pwd")(0).Value = "PPPPPPP" 
    WebBrowser1.Document.getElementsByTagName("button")(0).click
End Sub

[其他解释]
WebBrowser1.Document.All("idUserLoginBtn").click

[其他解释]
flash控件的 能不能用API？
获取类，sendmessage
[其他解释]
顶一下，学习！
[其他解释]
学习，顶一下
[其他解释]
支持 学习
------其他解决方案--------------------

学习!!