vb inet控件post时出现错误问题,请高手指点,小弟感激不尽
做网络生意的跟网络银行进行合作,想通过inet控件来自架构提交到服务器并读取其返回的记录内容,提
交代码如下:
Dim SentHead as String
Dim SentData as String
dim DaState,DaTiom
SentData = "__VIEWSTATE=" & DaState & ""
SentData = SentData & "&" & "rbtselectDate=2"
SentData = SentData & "&" & "ddlCurrency"
SentData = SentData & "&" & "ddlStatus"
SentData = SentData & "&" & "txtTransactionCode"
SentData = SentData & "&" & "ddlBank"
SentData = SentData & "&" & "txtMerchantReferenceCode"
SentData = SentData & "&" & "ddlGatewaySettle"
SentData = SentData & "&" & "txtMerchantCustomerID"
SentData = SentData & "&" & "txtPageSize=" & CmbRecordNum.Text & ""
SentData = SentData & "&" & "txtDateFrom=" & Format(DTPStart.Value, "yyyy-MM-dd") &
""
SentData = SentData & "&" & "txtTimeFrom=00:00:00"
SentData = SentData & "&" & "txtDateTo=" & Format(DTPEnd.Value, "yyyy-MM-dd") & ""
SentData = SentData & "&" & "txtTimeTo=23:59:59"
SentData = SentData & "&" & "ddlSort=XPayTime"
SentData = SentData & "&" & "rblSort=DESC"
SentData = SentData & "&" & "btnsubmit=Search"
SentData = SentData & "&" & "AspNetPager2_input=1"
SentData = SentData & "&" & "__EVENTTARGET"
SentData = SentData & "&" & "__EVENTARGUMENT"
SentData = SentData & "&" & "__VIEWSTATEENCRYPTED"
SentData = SentData & "&" & "__EVENTVALIDATION=" & DaTion & ""
SentHead = "(Method-Line):POST /Transaction/TransactionList.aspx?mid=117 HTTP/1.1"
SentHead = SentHead & vbCrLf & "Accept:image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword,
application/x-shockwave-flash, */*"
SentHead = SentHead & vbCrLf &
"Referer:http://merchant.ecapay.com/Transaction/TransactionList.aspx?mid=117"
SentHead = SentHead & vbCrLf & "Accept-Language:zh-cn"
SentHead = SentHead & vbclrf & "Content-Type:application/x-www-form-urlencoded"
SentHead = SentHead & vbCrLf & "Accept-Encoding:gzip, deflate"
SentHead = SentHead & vbCrLf & "User-Agent:Mozilla/4.0 (compatible; MSIE 6.0;
Windows NT 5.1; SV1; InfoPath.1; CIBA)"
SentHead = SentHead & vbCrLf & "Host:merchant.ecapay.com"
SentHead = SentHead & vbclrf & "Content-Length=4014"
SentHead = SentHead & vbCrLf & "Connection:Keep-Alive"
SentHead = SentHead & vbCrLf & "Cache-Control:no-cache"
SentHead = SentHead & vbCrLf &
"Cookie:__utma:140877742.1877822589.1243408249.1243408249.1243408820.2; __utmb=140877742;
__utmz=140877742.1243408249.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none);
ASP.NET_SessionId=cmkygkefldvvperaknwehv55; __utmc=140877742; CheckCode=7488;
LoginType=Merchant"
Inet1.Execute ""& URL &"", "post", SentData, SentHead
其中SentData里面的SentData = "__VIEWSTATE=" & DaState & ""和SentData = SentData & "&" & "__EVENTVALIDATION=" & DaTion & ""好像是每次登录进去就会变,且前者的提交值很大
刚开始写时:SentHead只有两行:SentHead = SentHead & vbclrf & "Content-Type:application/x-www-form-urlencoded"和SentHead = SentHead & vbCrLf & "Connection:Keep-Alive",我登录进这个网络银行的后台然后提交post服务器就返回:Illegal Operation!这个错误提示,什么内容都没有。然后我就把所有Request Headers的内容都写进去,就如上面所写的,然后调试提交后就出现:“实时错误 '35758' 不能检索数据”我点调试在inet那可以顺利执行下去,但读不到什么内容即代码空白,请高手们指点指点,小弟在线等,感激不尽,
备注:这些代码的写法以前用来读取其他网络银行后台时又可以,很奇怪,这个网(网络银行)是用asp.net做的,现在是一读就出现这个错误提示,怎么办啊?