VB点击网页按钮问题

Question

之前我自已写的代码可以用，但是后台升级了。按钮的代码不同了，模拟点击不了。请各位大大帮我解决一下 
下面是我的代码： 
Dim vDoc, vTag 
Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 '检测所有标签 
  If UCase(vDoc.All(i).tagName) = "BUTTON"  Then  '找到input标签 
      Set vTag = vDoc.All(i) 
      vTag.Type = "submit"  And vTag.Name = "replysubmit" Then  'And vTag.Value = "replysubmit" 
      vTag.Click 
  End If 
Next i 
下面是现在DZ论坛的按钮代码(红色部份) <label>标题 
    <input type="text" name="subject" value="" tabindex="1"> </label> </h5> 
    <p> <label>内容 </label> 
    <textarea rows="7" cols="80" class="autosave" name="message" id="message" onKeyDown="ctlent(event);" tabindex="2"> </textarea> 
    </p> 
    <p class="btns"> 
    <button type="submit" name="replysubmit" id="postsubmit" value="replysubmit" tabindex="3">发表帖子 </button>[完成后可按 Ctrl+Enter 发布] 

Answer 1

 If UCase(vDoc.All(i).tagName) = "replysubmit"  Then  '找到input标签 

Answer 2

Dim vDoc, vTag 
Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 '检测所有标签 
  If UCase(vDoc.All(i).tagName) = "replysubmit"  Then  '找到input标签 
      Set vTag = vDoc.All(i) 
     if vTag.Type = "submit"  And vTag.Name = "replysubmit" Then vTag.Click 
  End If
Next i 

Answer 3

放个断点在Set vTag = vDoc.All(i)这一行，看看能不能检测到button标签呢，貌似一般的按钮都是用input啊

Answer 4

现在DZ论坛升级了,都是用button的了.....

Answer 5

居然找不到button.晕死....如何是好啊?

Answer 6

WebBrowser1.Document.getElementsByName("replysubmit")(0).Click
接分 :)

Answer 7

If UCase(vDoc.All(i).tagName) = "replysubmit"  Then这里出错了，应该是
If UCase(vDoc.All(i).tagName) = "REPLYSUBMIT"  Then
请注意UCase！