作者larry5490 (單翼天使)
看板Visual_Basic
標題[.NET] VB2005 如何讀取網頁並自動跳轉下一頁
時間Sun May 31 08:25:51 2009
在VB2005 中如何寫一個執行檔去讀取網頁上的資料
並在完成後自動跳轉下一頁呢?
一向對網路程式陌生的我,
在端午節突然被屈原叫去想寫一個可以由網頁上自動讀取資料的程式,
在東拼西湊後終於可以自動進入查詢畫面,但是小弟我試了又試,
用了好幾種方法都沒有辦法達到我要的自動轉下一頁,
希望各位先進可以指導一下小弟是那裡做錯了.告知一下方向
還是可以提供程式碼告訴小弟怎麼做
小弟沒有什麼QP請各位先進還多多包含
下面是我用Sniffe所產生的網頁資料
進入查詢畫面後回傳第一頁Http Request Header資料
GET /abbs/wkw/WHD2A03.jsp?hsimun=all&ctmd=all&sec=all&saledate1=&saledate2=&crmyy=&crmid=&crmno=&dpt=&minprice1=&minprice2=&area1=&area2=®isteno=&rrange=%A4%A3%A4%C0&owner1=&order=odcrm&court=TPD&proptype=C52&saletype=5&query_type=db HTTP/1.1
Host: XXX.XXX.XXX.XXX
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-TW; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: zh-tw,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: Big5,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer:
http://XXX.XXX.XXX.XXX/abbs/wkw/WHD2A02.jsp?proptype=C52&saletype=5&court=TPD
Cookie: JSESSIONID=0000fsQ34jzJUUNbFd-RMp32NdL:-1
進入查詢畫面後回傳第二頁Http Request Header資料
GET /abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27TPD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980301%27++AND+a.saledate%3C%3D%270980531%27+&pageTotal=17&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=TPD&order=odcrm&query_type=session&pageNow=2 HTTP/1.1
Host: XXX.XXX.XXX.XXX
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-TW; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: zh-tw,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: Big5,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer:
http://XXX.XXX.XXX.XXX/abbs/wkw/WHD2A03.jsp?hsimun=all&ctmd=all&sec=all&saledate1=&saledate2=&crmyy=&crmid=&crmno=&dpt=&minprice1=&minprice2=&area1=&area2=®isteno=&rrange=%A4%A3%A4%C0&owner1=&order=odcrm&court=TPD&proptype=C52&saletype=5&query_type=db
Cookie: JSESSIONID=0000fsQ34jzJUUNbFd-RMp32NdL:-1
進入查詢畫面後回傳第三頁Http Request Header資料
GET /abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27TPD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980301%27++AND+a.saledate%3C%3D%270980531%27+&pageTotal=17&pageSize=15&rowStart=16&saletype=5&proptype=C52&court=TPD&order=odcrm&query_type=session&pageNow=3 HTTP/1.1
Host:XXX.XXX.XXX.XXX
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-TW; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: zh-tw,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: Big5,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer:
http://XXX.XXX.XXX.XXX/abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27TPD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980301%27++AND+a.saledate%3C%3D%270980531%27+&pageTotal=17&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=TPD&order=odcrm&query_type=session&pageNow=2
Cookie: JSESSIONID=0000fsQ34jzJUUNbFd-RMp32NdL:-1
................到最後一頁
我目前所用的方法為
1 Dim encoding As New System.Text.ASCIIEncoding
2 url = New Uri("
http://XXX.XXX.XXX.XXX/alx.asp")
3 Dim getdata As String = "/abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27KSD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980227%27++AND+a.saledate%3C%3D%270980529%27+&pageTotal=154&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=KSD&order=odcrm&query_type=session&pageNow=2"
4 Dim myRequest As HttpWebRequest
5 Dim data As Byte() = encoding.GetBytes(getdata)
6 Dim myRequest As HttpWebRequest = HttpWebRequest.Create(url)
7 myRequest.Method = "GET"
8 myRequest.ContentLength = data.Length
9 Dim newStream As IO.Stream
10 newStream = myRequest.GetRequestStream()
11 '我的程式只要執行到上面這一行就跳掉了
12 newStream.Write(data, 0, data.Length)
13 newStream.Close()
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.4.150