哪位高手朋友能幫我這個忙,急急急!
----------------------------------------------------------
我最近做了一個P2P網貸網站的搶標軟體。
大致說明一下這個網站:有人不定時的在該網站上轉讓自己已經買到的標(理財產品),網站實時更新資料,我和別人看到后都可以買這個標,誰先買到算誰的,有的利率高的大家都想買,誰下手快誰就能買到(也就是需要搶標),利率低的那些則沒人搶,成交比較慢。
為了能買到好標,很多人是用軟體來搶的,可以肯定的是搶標都是用軟體,人工是不可能搶到的。
于是我也自己用VB做了個搶標軟體,使用XMLHTTP(或Msxml2.XMLHTTP/WINHTTP我都試過),來不停的取得網頁資料(只取未成交的標的網頁),發現合適的標就立即買入。可是不知道為什么,我取得的網頁資料80%沒有那些高利率標(我分析是這些高利率標已經被買走了,此時這些標就不在這個網頁上了,所以我取得的網頁資料里已經沒有這些標了),但那些利率低的標從來沒有缺失過。
我的問題是:
為什么我取得網頁資料速度比別人慢(1.肯定不是網路的問題,因為我取得網頁資料速度很快,只要0.1S,我確定不是這個原因2.我提交的網址后面加了個&(int(1000000*rnd(1))也不行,&后面只有數字,沒有"t="這樣的引數可以吧)。
以下是我抓取網頁的原始碼(Xmlhttp,winhttp我都試過了都一樣。open用true,然后后面判斷是否完成抓取也不行。)
Private Function aaa(url As String) As String
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "If-Modified-Since", "0"
xmlHttp.send (Null)
aaa = xmlHttp.responseText
End Function
---------------------------------
另外以下這個用winhttp的,為什么 xmlHttp.send (null)這句經常報錯(不是每次都報),(錯誤是實時錯誤-2147012894 操作超時),錯在哪里了?
Private Function aaa(url As String) As String
Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "If-Modified-Since", "0"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
xmlHttp.Option(4) = &H3300
xmlHttp.send (null)
aaa = xmlHttp.responseText
Set xmlHttp = Nothing
End Function
麻煩解答,謝謝
uj5u.com熱心網友回復:
我懷疑那些高的是網站主放上面給你們看的實際上你是買不到的
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/78278.html
標籤:網絡編程
下一篇:vb怎么連接mysql資料庫
