Question

vb读取网页的一部分内容，自动填写至目标input text

<tr height="20" align="center">
<td class="td-b-ltb" colspan="3">用户号</td>
<td class="td-b-ltb" colspan="2">20200033 </td>
<td class="td-b-ltb">户主</td>
<td class="td-b-ltb" colspan="2">郭志杰 </td>
<td class="td-b-ltb">承租人</td>
<td class="td-b-tblr" colspan="2" align="left">
<input type="text" name="linkName" maxlength="50" value="" style="width:180px;">
</td>
</tr>
...。。。
<td class="td-b-ltb" rowspan="2" width="12%">客户签名</td>
<td class="td-b-tblr" rowspan="2" width="21%">
<input type="text" name="clientMarkName" maxlength="20" value="" style="width:200px;"> 
</td>

此网页上还有多个input
网页源代码，需复制 郭志杰 名字
填写至客户签名 后面的 input里
谁能给个大致的代码或者类似的案例 谢谢
初学 请多多包涵
最好vb语言

Answer 1

Private Sub Command1_Click()
Dim Html As String
Dim XM As String
Html = WebBrowser1.Document.body.innertext
XM = Mid(Html, InStr(Html, "户主") + 2, InStr(Html, "承租仿扰人") - InStr(Html, "户主备敬旦") - 2)
WebBrowser1.Document.All("clientmarkname"稿凯).Value = XM
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "网址"
End Sub