模拟点击 Discuz 论坛的按钮

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

Dim vDoc, vTag
Set vDoc = WebBrowser1.DocumentFor i = 0 To vDoc.All.length - 1 '潰聆垀衄梓
  If UCase(vDoc.All(i).tagName) = "BUTTON" Then   '梑善input梓
      Set vTag = vDoc.All(i)
      If vTag.Type = "submit" And vTag.Name = "replysubmit" Then vTag.Click  'And vTag.Value = "replysubmit"
  End If
Next i

Answer 2

WebBrowser1.Document.getElementsByName("replysubmit")(0).Click
上面的可以