Question

vb 获取网页文本框内容

vb利用WebBrowser1打开网页：WebBrowser1.Navigate "http://localhost/index.asp"
网页源码<form id="123" name="123" method="post" action="">
<label>
<input name="1" type="text" id="1" value="123-321" />
我想把vb中WebBrowser1的name=123内容获取好vb的text1.text中

Answer 1

private sub command1_click
text1=webBrowser1.document.getelementbyid("1").value
或：
text1=webBrowser1.document.getelementsbyname("1")(0).value
end sub
可把上述代码写到WebBrowser1_DownloadComplete事件中
需要将ID设为唯一的，如果有多个tag的ID为"1"（这是网页设计所不允许但不是完全限制的），无法用getelementbyid，但可用getelementsbyname，如：
<input name="1" type="text" id="1" value="123-321" />
<input name="1" type="text" id="1" value="4442121" />
其他可用的方法：
text1=WebBrowser1.Document.getelementbyid("123").children(1).Value'<label>需要配套，加上</label>，否则将无法识别children
text1=WebBrowser1.Document.getelementbyid("123").getelementsbytagname("input")(0).Value
还可用for each obj in WebBrowser1.Document.all来循环判断。

Answer 2

Private Sub Command1_Click()
Dim ss As String
ss = Text2.Text 'Text2中放你的网页源码

Dim i As Integer, j As Integer
i = InStr(ss, "form id")
ss = Mid(ss, i)
i = InStr(ss, "name")
j = InStr(ss, "method")
Text1.Text = Mid(ss, i, j - i - 1)
End Sub

追问

你还是没有明白我的意思，你还是看一下程序窗体，拜托了!