比较古怪的网页提交
大家先看这个网站
http://w571.hg3088.com/

下面是我做的提交

Dim username As String
Dim password As String
username = "flyfly"
password = "fl8888"

With CreateObject("InternetExplorer.Application")

.Visible = True
.Navigate "http://w571.hg3088.com/"
Dim StarTime As Date
StarTime = Now()
Do Until .ReadyState = 4
If Second(Now() - StarTime) > 20 Then '超过20秒，则认为网络未能正确连接，退出
MsgBox "网络连接超时，请稍候再试！"
Exit Sub
End If
DoEvents
Loop

Dim vDoc, vTag
Dim i As Integer
Dim z As Integer
Set vDoc = .document
For i = 0 To vDoc.All.Length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '检测类型
If vTag.name = "username" Then
vTag.Value = username
End If
If vTag.Type = "password" Then
If vTag.name = "passwd" Then
vTag.Value = password
End If
End If
End If
End If
Next i

If vTag.Type = "submit" And Value = "确定" Then '登陆按钮
vTag.Click
End If

End With

源码怎么看问题都应该是正确的，但是卯时找不到提交地点。请大家指教。
[解决办法]
输入name的框框有动态验证码id是否重复的功能，键盘手工输入就会有，估计得触发onblue事件等。


另外
justin919
等　级：
结帖率：81.48%
该用户人品较差，结贴率不及格。以下是详细信息：
*总发帖：54
*正常结贴：31
*未结贴：10
*无满意结贴：13

*正常结贴率：57.41%
*无满意结贴率：24.07%

别怪我，上面是插件自动提示的，尽管插件也是我写的，但是我写这插件时还不认识你。。。