比较古怪的网页提交

Question

大家先看这个网站
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源码怎么看问题都应该是正确的，但是卯时找不到提交地点。请大家指教。

Answer 1

找不到提交地点
-------------------
什么意思？vTag.Click没有执行吗？

Answer 2

就是，连那个 username 都没有提交进去。

Answer 3

输入name的框框有动态验证码id是否重复的功能，键盘手工输入就会有，估计得触发onblue事件等。
另外
justin919
等　级：
结帖率：81.48%
该用户人品较差，结贴率不及格。以下是详细信息：
*总发帖：54
*正常结贴：31
*未结贴：10
*无满意结贴：13
*正常结贴率：57.41%
*无满意结贴率：24.07%别怪我，上面是插件自动提示的，尽管插件也是我写的，但是我写这插件时还不认识你