vb inet控件post时出现错误问题，请高手指点，小弟感激不尽

Question

做网络生意的跟网络银行进行合作，想通过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做的，现在是一读就出现这个错误提示，怎么办啊？

Answer 1

可能是Cookie的问题，有些站每访问一个页面就会重新设置Cookie试试这样来,就不会存在Cookie的问题，INET会处理！Inet1.Execute ""& URL &"", "post", SentData, "Content-Type:application/x-www-form-urlencoded"

Answer 2

您好！Forditor，没用啊，我直接用你这个就提示错误：实时错误'35756'不能完成请求去？而服务器就返回：Illegal Operation!这个代码，请高手们帮我想想办法啊！

Answer 3

80分没人要啊，我尝试用模拟点击来实现，但点击不了，请大侠看看这段代码：（网页里提交的表单的代码)
 <form name="form1" method="post" action="URL" id="form1">
<div>
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="nQ8W8CEu1Y+bf8QH5fbHNBv4fpC+6a0sXM6D7uk/2IEmlzPy4Ay+uxc8KFD/p6eadkPoQJluEXff3+thcI27IHgqAR2CXriR/goPFKLIKpoxWydTFKrlwhSaueZ7TyKqTxt5SkA/k3ecA0fU+w34PmeZogQebw5tS/5z39Oih26W/yuTPqos0F/vnnMcJG0vZFWbIrSSOlCZOdriyKFGlU5Xi31hSbWj7FDP0PBxyn+Xtxqe6L/joDfr0TDSKsmAZ9T66FUCnokMVAqXhPoSooXUc87CMMF3PW3CmCuLTq63nN0GwoP3H7CKh21IwC+r3OoR8EeWQuGOfqwX/+LwZjyR1Kj/6cV7HHMGWgoXmdl9UPoVBjnmM0CNnggwpC7qTapfj19B+IJzlm1J01iSGdrnwVz+RnKvgPpftPACBu+bdsZPEvHxpkyDhykRD+wYL0STKJG84azUoR+QKHSD0n1enArJn8HXieP/M2R33XQgMSHucNB1+5Fw83UhWkQIr0/caAI8xjzmRsN8qp/GWjVQaSoiywmV+CtiNpFDQ/V9t1yxK2mx4M8bFi34VeXFMLWbMqzusVT38GyQeD/J/AqZMWiO5itkTtb3roZukF0w+sglgW+NVJGATdDnWP9rM/y5qI+l+gFIrrT3GfS4Dsho28p1osFfoEm8CEoTGf7vJK9GJ21rT5SL5OIm8ERMgmO9QYLsTEaTyP3ynGl+uHjRJntHuAa/7yxKEWPew8oUW8fS8/QTHd3JPAyVXEmMpBV+6pNa/2VLtILemiU8f2oPJmMKcOBmNWyEmT0Xb4VUQEMgTyc1ISv4LqndnYXSASy8Ou34OQgQHsKLT0xBOQIaxbkNVP3o2/mdhXCJbXRuAEmXIRfYmzIMZDH/vbfWmfs7evTNnq77JOi6oG3fPXLLkvZ4x8gwjK/2pe28IQwHHIY9etKPoeWyL0TAstJmP34Xre52izsqYzehihRvTsyjukQJPcSuKGLpC4OIJiH09mgkyatv2cByqtA0KXOyYkfUceXftohnVpm72Wl+/Q5+GUQ0Qdo5JopNFrkWStWTicyxyzDjEP6aE3nSFYDfRyQQKumNQhhrgBe+tBAgVUtNrzh7I8GLHuE36bYzSe+X+NsdO8KVkMk7iF1vgP3PBCAiLqi9W/AFoTg3pUfA7DEBen8aFWCrIZT7PxCddv03vVNUeI5RBOKkedc7ToZm2jgdzbxu5o47NWL4uchsRI7dv4MnHl99Q5lABuAGKPxLotUj1DTe/IV3HFtGecauvq38L7Qpvtt/5ZuO5NrYDa0kXQHMemEwlwvtScN5UsoEKmyp+Do5Brfc+9c81zafNP0CjnE6v59A1V/pnrhEB5e2+1VeI2ujgGMbsPY3hjrWQKW/SFnSmVZIba8+QE+03AhKGXJDsIzZ/pV3gmIWvYgzcGVz4o/m1FEQ5eA+lK1+6n9DJdfxXrm4N72nEpv6nZgusMQPkyKYw/07GPWirpeNd0REF5uYQJrbQIMugheXB9jPe4VXHakNNuA4qwQ9JSXp40EeguCcTh+0pRn1WuXCpsIixZ8TRZJ52TF34qEdhBUap7eu6PMl3hQ3HMOXoD1t05odu5zaKEmHy+4c5srAz80GApzMwOH0kjkXR7jthpHa4AMKfrPadCT4Mv0LMdhoYXTr1GHanOyqPc0zjr8Smdl1u5/pIDr+nQ2QckvGwlf0wNLXagJfa4wG6IkIk5HxrZ/VgDbzWNt7bmgvXS5X1EDXHcpZ4IMfHViDVwp0bXjMYAwhx0J7jU9QzgCs0ilslnp+YLuI/U2iT6/SmTr0fqIvmpWxCKfn8GpTywx8O2EmsSjKpRTcB4X1jeLvZevUdSj7+9wJm2Jjo6t1tsFGpnrDFIF+pAmIBsHaqo/gZBW/H4kKppnE5wmck+jP2qxwnXDv35PKA0OXKuK5pq0QoXP9uZp8w6oTebPAZZzwBJQxBCV9iA6rCLVN7DX81uRirGv0o/ywloZh04NqOivXAqUVZQbYRjTtNJcG40oD4ibiULU3MugFvIDRdbJpPPQOH7Yf/Dzxn86vt2qzB+HiWZItV3JV/rtAsCQ87vU3jt+hHSadSf+rFtBmGQ4jjujw9KMk6/i/ZcFWIFt/1qBTKlQaut+ewSFUnNw00nt9319jTd4RAnayE04UZxZCJJ6EiRzx2wjwDofBMOIFOusy5Ucfl6eWj+gIhOp2KBnwEe3QM+9Y7/KmeIr9J9Du18Ea3lgmTAm1AUJVybOzWN76KUBny5DUZZvSGnka8F7iZVt/42z3SI1A7FP9oZ5mqe5ZgtoW5vjxFCx4c5i7M2FOWHwgqsXtUMqGNoqsIgb2CiULPEzJyvmOz/RSoij7bq+XB0cC1IszicxUm1dm5fyhgycyEtBatHZHCaxucEcZmyHUN1xofCEgiB8QvcPeZa7fbMgoPR2XxP86SGe59fQ9EOGXmCMgb1qlyOeUao3s54pBGUAkwGzEllvq2AofR9NA+iDbC0mgWfUc8x8RmU9gqjQctXrJelT1PBmBQSLJwpcKHkwGZU5bDtwcui73FsCFLS5bGouPlGcBuH9UYGVeVcxxB5ORcrhsn6Fp5ByeeDMG9C41WJ1qeA4BT2adLSn6FiobUNfkCoJalr7yKeR8XBvN43UVdkiR7Ef7zOL2RAAP9Mlh6eaHeYpNTZSogLUWgzYnAjHDvUwaDA6U+jmJ20DaU1icwMMHu9eASmAX53jYwdVGHSNytkpSzljpQcF8W6gqg3E7N8aMzJARIu6a2L0KuXAJ/v+chn5mzYs=" />
</div>        <div>
            <table align="center" width="100%" border="0" cellpadding="1" cellspacing="1">
                <tr>
                    <td bgcolor="white">
                        <table align="center" width="100%" border="0">
                            <tr>
                                <td align="center" height="50">
                                    <span id="lbText" style="font-size:Large;font-weight:bold;">Transaction Enquiry</span>
                                </td>
                            </tr>
                            <tr>
                                <td align="center">
                                    <fieldset style="width: 700px">
                                        <legend><a id="spShow" onclick="ShowSearchTable();return false;" href="#">Hide</a> </legend>
                                        <table border="0" style="width: 100%" id="tbSearch">
                                            <tr id="trDateType">
<td align="right">
                                                    <span id="lbDateType">Date Type</span>：
                                                    &nbsp;
                                                </td>
<td align="left" colspan="3">
                                                    <table id="rbtselectDate" border="0">
<tr>
<td><input id="rbtselectDate_0" type="radio" name="rbtselectDate" value="2" checked="checked" /><label for="rbtselectDate_0">System Time</label></td><td><input id="rbtselectDate_1" type="radio" name="rbtselectDate" value="1" /><label for="rbtselectDate_1">Merchant Time</label></td><td><input id="rbtselectDate_2" type="radio" name="rbtselectDate" value="3" /><label for="rbtselectDate_2">Bank Settlement Date</label></td>
</tr>
</table></td>
</tr>                                            <tr>
                                                <td align="right" style="height: 24px;">
                                                    <span id="lbCurrency">Currency</span>：</td>
                                                <td align="left" style="height: 24px;">
                                                    <select name="ddlCurrency" id="ddlCurrency" style="width:150px;">
<option value="">All</option>
<option value="CNY">CNY</option>
<option value="MYR">MYR</option>
<option value="THB">THB</option>
<option value="TWD">TWD</option>
<option value="VND">VND</option>

Answer 4

</select></td> <td id="tdMerchantCode" align="right" style="visibility: hidden; height: 24px;">
                                                    ：</td>
                                                <td align="left" style="height: 24px;">      </td>
                                            </tr>
                                            <tr id="trStatus"> <td align="right" style="height: 24px;">
                                                    &nbsp;<span id="lbStatus">Status</span>：</td>
<td align="left" style="height: 24px;">
                                                    <select name="ddlStatus" id="ddlStatus" style="width:150px;">
<option value="">All</option>
<option value="1">Pending</option>
<option value="3">Bank Payment Fail</option>
<option value="4">Success</option>
<option value="5">Fail</option>
<option value="7">Invalid Transaction</option>
</select></td>
<td align="right" style="height: 24px;">
                                                    <span id="lbTransactionCode">Transaction ID</span>：</td>
<td align="left" style="height: 24px;">
                                                    <input name="txtTransactionCode" type="text" maxlength="20" id="txtTransactionCode" /></td>
</tr>                                            <tr id="trBank">
<td align="right">
                                                    <span id="lbBank">Bank Name</span>：</td>
<td align="left">
                                                    <select name="ddlBank" id="ddlBank" style="width:150px;">
<option value="">All</option>
<option value="招商银行">招商银行</option><option value="中国工商银行">中国工商银行</option><option value="中国农业银行">中国农业银行</option><option value="中国银行">中国银行</option>
<option value="中国建设银行">中国建设银行</option><option value="交通银行">交通银行</option><option value="兴业银行">兴业银行</option><option value="中国民生银行">中国民生银行</option>
<option value="广东发展银行">广东发展银行</option> <option value="深圳发展银行">深圳发展银行</option><option value="中国光大银行">中国光大银行</option><option value="中国邮政储蓄">中国邮政储蓄</option>
<option value="广州商业银行">广州商业银行</option><option value="上海农村商业银行">上海农村商业银行</option><option value="上海浦东发展银行">上海浦东发展银行</option><option value="深圳平安银行">深圳平安银行</option>
<option value="渤海银行">渤海银行</option><option value="农村信用合作社">农村信用合作社</option><option value="中信银行">中信银行</option><option value="华夏银行">华夏银行</option>
<option value="农村商业银行">农村商业银行</option> <option value="广州农村信用合作社">广州农村信用合作社</option><option value="北京银行">北京银行</option><option value="南海农村信用合作社">南海农村信用合作社</option>
<option value="民生签约">民生签约</option><option value="南京市商业银行">南京市商业银行</option><option value="北京农村商业银行">北京农村商业银行</option>
<option value="Maybank2u">Maybank2u</option>
<option value="Public Bank">Public Bank</option>
<option value="CIMB">CIMB</option>
<option value="Hong Leong Bank">Hong Leong Bank</option>
<option value="Alliance Bank">Alliance Bank</option> </select></td>
<td align="right">
                                                    <span id="lbMerchantReferenceCode">Merchant Ref ID</span>：</td>
<td align="left">
                                                    <input name="txtMerchantReferenceCode" type="text" maxlength="50" id="txtMerchantReferenceCode" /></td>
</tr>                                            <tr>
                                                <td align="right">
                                                    <span id="lbGatewaySettle">Balance Updated</span>：</td>
                                                <td align="left">
                                                    <select name="ddlGatewaySettle" id="ddlGatewaySettle" style="width:150px;">