webbrowser控件填表问题

交易员黑哥 2013-01-24 10:03:14
我在写一个聊天室自动发言工具
聊天室html如下:
<INPUT type="button" value="信 息"style="color:red;" name="submit1212" class="btnStyle"><span class="p9">
<INPUT name="msg" size="35" maxlength="120"><INPUT type="button" value="<" name="cP" TITLE="上一句话" class="btnStyle" onclick="gP();" ondblclick="gP();"><INPUT type="button" value=">" name="cN" TITLE="下一句话" class="btnStyle" onclick="gN();" ondblclick="gN();"><INPUT type="submit" value="发 送" name="submit1" class="btnStyle">


尽管在功能上使用了大量的js...
信息框是那句input name="msg" 发送按钮为"submit1"
我使用了webbrowser控件
我是这样来实现标签查找的

Private Sub InputForm(Mode As Integer)
On Error Resume Next

Dim vDoc, vTag, vTag2
Dim i As Integer
Dim msg As String, Submit As String
msg = "msg"
Submit = "submit1"
Set vDoc = WebBrowser2.Document
For i = 0 To vDoc.All.Length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Select Case vTag.Name
Case msg
vTag.Value = "test"

Exit Sub
Case Else

End Select

End If
End If

Next i

call这个过程,找不到标签...郁闷.....
在聊天室js中发现了 "inputform.msg.value="
难道是通过js给文本框赋值?
在webbrowser中怎么来执行这段js呢?
在网页中弹出大量的js错误提示,郁闷~~~

求指导!!!!
...全文
165 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
黑哥量化交易 2014-04-23
  • 打赏
  • 举报
回复
楼上的是.net的写法 楼主是vb6啊
现在还是人类 2013-01-24
  • 打赏
  • 举报
回复
WebBrowser1.Document.parentWindow.execScript "JS函数名('字符参数',数字参数)", "javascript"

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧