vb 获取网页文本框内容

vb利用WebBrowser1打开网页:WebBrowser1.Navigate"http://localhost/index.asp"网页源码<formid="123"... 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中
展开
 我来答
abcnyzay
2011-08-26 · TA获得超过1377个赞
知道小有建树答主
回答量:928
采纳率:100%
帮助的人:1019万
展开全部
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来循环判断。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
苏州老三石
2011-08-26 · TA获得超过1150个赞
知道小有建树答主
回答量:1300
采纳率:33%
帮助的人:925万
展开全部
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
追问
你还是没有明白我的意思,你还是看一下程序窗体,拜托了!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式