小弟我用webbrowser 给一个象是文本框网页元素给值 就是把一串字符串送到送给他
下面就是网页的html代码,外观看起来就象一个文本框。
我用 webbrowser1.docoment.all("Dvbbs_Composition").value ="我的文章"试过
但是没成功,错误是说该对象没这样的方法。请问有人愿意帮帮我吗?谢谢了各位大哥大姐下面就是我说的那个文本的html代码。
<tr>
<td class=tablebody1 height="100%" valign=middle>
<table border=0 width="100%" height="100%"><tr height="*"><td height=150>
<iframe class="Dvbbs_Reply" ID="Dvbbs_Composition" MARGINHEIGHT="5" MARGINWIDTH="5" width="100%" height="100%" onBlur="CheckCount('Body','total');"></iframe></td></tr>
<tr><td height=10 id="emot" class="Dvbbs_Reply">读取心情图片...</td></tr></table>
</td></tr>
下面就是网页的html代码,外观看起来就象一个文本框。
我用 webbrowser1.docoment.all("Dvbbs_Composition").value ="我的文章"试过
但是没成功,错误是说该对象没这样的方法。请问有人愿意帮帮我吗?谢谢了各位大哥大姐下面就是我说的那个文本的html代码。
<tr>
<td class=tablebody1 height="100%" valign=middle>
<table border=0 width="100%" height="100%"><tr height="*"><td height=150>
<iframe class="Dvbbs_Reply" ID="Dvbbs_Composition" MARGINHEIGHT="5" MARGINWIDTH="5" width="100%" height="100%" onBlur="CheckCount('Body','total');"></iframe></td></tr>
<tr><td height=10 id="emot" class="Dvbbs_Reply">读取心情图片...</td></tr></table>
</td></tr>
<tr>
<td class=tablebody1 height="100%" valign=middle>
<table border=0 width="100%" height="100%"><tr height="*"><td height=150>
<iframe class="Dvbbs_Reply" ID="Dvbbs_Composition" MARGINHEIGHT="5" MARGINWIDTH="5" width="100%" height="100%" onBlur="CheckCount('Body','total');"></iframe></td></tr>
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口
If browser.Document.Title = "网页Title" Then
'获得浏览器地文档对象
Set Doc = browser.Document
'填写用户名字段
Doc.body.All("first_name").Value = NName.Text
'证件类型
Doc.body.All("identity_kind").Value = 2
'填写证件号码字段
Doc.body.All("identity_code").Value = Number.Text
End If
NextEnd Sub