- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于提取网页内容的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110708)
-- 发布时间：2017/12/7 21:29:00
-- 关于提取网页内容的问题
老师,我代码如下:
-- 发布时间：2017/12/7 21:48:00
--
Dim web As new System.Windows.Forms.WebBrowser
Dim web1 As New System.Windows.Forms.WebBrowser
web.Navigate("http://125.35.6.84:81/xk")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("gzlist").GetElementsByTagName("li").count > 1
Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementById("gzlist").GetElementsByTagName("li")
\'If dl.GetElementsByTagName("i").count > 0 Then
Output.show(dl.GetElementsByTagName("i")(0).innerText)
\'End If
Next
-- 发布时间：2017/12/7 21:53:00
--
也可以这样获取
Dim body As String = "on=true&page=1&pageSize=15&productName=&conditionType=1&applyname=&applysn="
Dim req = System.Net.WebRequest.Create("http://125.35.6.84:81/xk/itownet/portalAction.do?method=getXkzsList")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
msgbox(str)
Dim jo As JObject = Jobject.Parse(str)
msgbox(jo.ToString)
-- 发布时间：2017/12/7 22:24:00
--
多谢老师,
-- 发布时间：2017/12/7 22:27:00
--
body 和 req 的写法在网页的什么地方能看到?
-- 发布时间：2017/12/7 22:38:00
--
下载一个 chrome 或者 firefox，然后参考下面
此主题相关图片如下：123.gif
-- 发布时间：2017/12/7 22:45:00
--
老师,我chrome,但不是这样的.
-- 发布时间：2017/12/7 22:47:00
--
6楼的是firefox的，chrome同样，只是界面不同而已，功能都有的。
-- 发布时间：2017/12/7 22:48:00
--
老师,能帮我把 那个id 的写给我吗?今晚赶着要做些事?
-- 发布时间：2017/12/7 22:48:00
--
就是点击企业名称,得到相关的数据.我不会写body 和 req .