请问如何用WINSOCK如何登录一个网页呢？
我试了一下，发送代码如下
Dim S As String
Dim D As String
Dim T As String
D = "mainid=3&mainurl=abcdefg&Submit=%C8%B7%B6%A8%CC%ED%BC%D3 "
T = "POST /webad/savemainurl.asp HTTP/1.1 " & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */* " & vbCrLf & _
"Referer: http://127.0.0.1/webad/addmainweb.asp " & vbCrLf & _
"Accept-Language: zh-cn " & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded " & vbCrLf & _
"Accept-Encoding: gzip, deflate " & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) " & vbCrLf & _
"Host: 127.0.0.1 " & vbCrLf & _
"Content-Length: 56 " & vbCrLf & _
"Connection: Keep-Alive " & vbCrLf & _
"Cache-Control: no-cache " & vbCrLf & _
"Cookie: ASPSESSIONIDQCCTSQTB=DDDHDAGAFAICPMDHPNLKFJNC " & vbCrLf & vbCrLf
S = T & D
Winsock1.SendData S '发送数据包了
返回的信息
HTTP/1.0 403 Forbidden
Server: squid/2.5.STABLE12
Mime-Version: 1.0
Date: Tue, 06 Feb 2007 19:13:19 GMT
Content-Type: text/html
Content-Length: 1166
Expires: Tue, 06 Feb 2007 19:13:19 GMT
X-Squid-Error: ERR_ACCESS_DENIED 0
X-Cache: MISS from Cache.51CDN.com
Connection: keep-alive
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " "http://www.w3.org/TR/html4/loose.dtd ">
<HTML> <HEAD>
<META HTTP-EQUIV= "Content-Type " CONTENT= "text/html; charset=gb2312 ">
<TITLE> 错误：您所请求的网址（URL）无法获取 </TITLE>
<STYLE type= "text/css "> <!--BODY{background-color:#ffffff;font-family:verdana,sans-serif}PRE{font-family:sans-serif}--> </STYLE>
</HEAD> <BODY>
<H1> 错误 </H1>
<H2> 您所请求的网址（URL）无法获取 </H2>
<HR noshade size= "1px ">
<P>
当尝试读取以下网址（URL）时：
<A HREF= "http://127.0.0.1/old/dnage/bbs/login.asp "> http://127.0.0.1/old/dnage/bbs/login.asp </A>
<P>
发生了下列的错误：
<UL>
<LI>
<STRONG>
Access Denied.
<BR> 拒绝访问
</STRONG>
<P>
Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect.
<BR>
当前的存取控制设定禁止您的请求被接受，
如果您觉得这是错误的，请与您网路服务的提供者联系。
</UL>
</P>
<P> 本缓存服务器管理员： <A HREF= "mailto:cdn@chinanetcenter.com "> cdn@chinanetcenter.com </A>
<BR clear= "all ">
<HR noshade size= "1px ">
<ADDRESS>
Generated Tue, 06 Feb 2007 19:13:19 GMT by Cache.51CDN.com
</ADDRESS>
</BODY>
</HTML>
[解决办法]
............
[解决办法]
一开始发送的包 有问题
吧?!
:)
