以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于爬网页资料的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122584)

--  作者:ap9709130
--  发布时间:2018/7/28 15:35:00
--  关于爬网页资料的问题
老师:

Dim body As String = "on=true&page=1&pageSize=15&productName=广州善恩化妆品有限公司&conditionType=3&applyname=&applysn="
Dim req = System.Net.WebRequest.Create("http://125.35.6.80:8080/ftba/itownet/fwAction.do?method=getBaNewInfoPage")
req.Method = "POST"
req.C
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)

用这种方法如何 能每次向服务器申请时,每次都用不同的IP 地址?

--  作者:有点蓝
--  发布时间:2018/7/28 15:41:00
--  
改变本机的IP?这个我也不会,自己网上搜搜吧,好像有些代理工具可以做到的
--  作者:ap9709130
--  发布时间:2018/7/28 16:11:00
--  
老师

以我的水平,应该搞不定的。论坛上有相关的吗?

--  作者:飞飞
--  发布时间:2018/7/28 16:20:00
--  
换IP是地球难题,几行代码搞不定
--  作者:有点蓝
--  发布时间:2018/7/28 16:20:00
--  
没见过。这种网上找个工具处理,不需要写代码的
--  作者:ap9709130
--  发布时间:2018/8/1 21:54:00
--  
老师

用这种方法如何判断所返回的信息 不是空? 如果对方的服务器拒绝的话,返回的是什么内容?如何判断呢?多谢!

--  作者:有点甜
--  发布时间:2018/8/1 22:20:00
--  
以下是引用ap9709130在2018/8/1 21:54:00的发言:
老师

用这种方法如何判断所返回的信息 不是空? 如果对方的服务器拒绝的话,返回的是什么内容?如何判断呢?多谢!

 

直接判断str的值不就可以了?如果为空或者不规范的字符,就执行另外的代码。


--  作者:有点甜
--  发布时间:2018/8/1 22:24:00
--  

用不同ip,参考

 

https://www.baidu.com/baidu?wd=c%23+%E4%BB%A3%E7%90%86ip

 


--  作者:ap9709130
--  发布时间:2018/8/2 11:52:00
--  
甜老师

多谢您的资料,大概看一下。以我现在的水平应该是搞不定的。多谢!另外 关于判断 str 的值 ,我试过 用 str > "" 但是会报错的。

--  作者:有点甜
--  发布时间:2018/8/2 11:56:00
--  
以下是引用ap9709130在2018/8/2 11:52:00的发言:
甜老师

多谢您的资料,大概看一下。以我现在的水平应该是搞不定的。多谢!另外 关于判断 str 的值 ,我试过 用 str > "" 但是会报错的。

 

1、报错报什么错?

 

2、加入try catch 能否捕捉错误?

 

3、ip的问题,你可以报错之后,断开路由的连接(路由器设置那里,断线,重新获取外网ip)