delphi cookie发送php,用VBS实现的发送带Cookie的HTTP请求的代码

为了方便测试，先写一个回显Cookie的简单的PHP程序：

复制代码 代码如下:

foreach($_COOKIE as $key => $value)

echo "$key => $value\r\n";

?>

然后分别用ServerXMLHTTP和XMLHTTP测试：

复制代码 代码如下:

Dim http

Set http = CreateObject("Msxml2.XMLHTTP")

http.open "GET", "http://demon.tw/test/cookie.php", False

http.SetRequestHeader "Cookie", "user=demon; passwd=123456"

http.send

WScript.Echo http.responseText

用Msxml2.XMLHTTP什么都没有返回。

复制代码 代码如下:

Dim http

Set http = CreateObject("Msxml2.ServerXMLHTTP")

http.open "GET", "http://demon.tw/test/cookie.php", False

http.SetRequestHeader "Cookie", "user=demon; passwd=123456"

http.send

WScript.Echo http.responseText

用Msxml2.ServerXMLHTTP返回

user => demon

passwd => 123456

以后碰到需要Cookie的网页就不用愁了。

原文： http://demon.tw/programming/vbs-http-cookie.html