Question

vb 读取网页中的数据

<form action='login.php' method='POST'>
<table>
<tr>
<td>
Username:
</td>
<td>
<input type='text' size='15' maxlength='25' name='username'>
</td>
</tr>
<tr>
<td>
Password:
</td>
<td>
<input type='password' size='15' maxlength='25' name='password'>
</td>
</tr>
<tr>
<td>
Security Code:
</td>
<td>
<input type='text' size='5' maxlength='5' name='code'>10112</td>
</tr>
<tr>
<td>

</td>
<td>
<input type="submit" value="Enter">
</td>
</tr>
</form>

读取<input type='text' size='5' maxlength='5' name='code'>10112</td>里面的10112,这个数是验证数字,不是图片,

Answer 1

假如你得到了网页的源码,就是你上面这些内容,且放在变量a中

a=内容
i = InStr(a, "code'>")
If i > 0 Then
j = InStr(i + 1, a, "<")
b = Mid(a, i + 6, j - i - 6)
End If

变量b中,就是你要的内容了

Answer 2

窗体中加一个ms internet control,默认名为"webbroswer1"
Private Sub Form_Load()
WebBrowser1.Navigate "http://网页的地址"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
if (LCase(doc.All(i).name)) = "code" then
Set tg = doc.All(i-1)
MsgBox tg.outertext
end if
End If
Next i
End Sub