wininet进行网页的post与get方法。

最新推荐文章于 2024-03-29 15:16:46 发布
最新推荐文章于 2024-03-29 15:16:46 发布
阅读量167 收藏 1
点赞数
原文链接：http://www.cnblogs.com/prtmon/p/3297216.html
版权 
uses Winapi.Wininet

function WebPagePost(sURL,sPostData:AnsiString):AnsiString;stdcall;
const
  RequestMethod = 'POST';
  HTTP_VERSION  = 'HTTP/1.1';  //HTTP版本 我抓包看过 HTTP/1.0 HTTP/1.1。尚未仔细了解其区别。按MSDN来写的。留空默认是1.0
var
  HttpsFlag:Boolean;
  dwSize:DWORD;
  dwFileSize: Int64;
  dwBytesRead,dwReserved:DWORD;
  hInte,hConnection,hRequest:HInternet;
  ContentSize:array[1..1024] of Char;
  HostPort:Integer;
  HostName,FileName,sHeader:String;
  Contents:PAnsiChar;
  procedure ParseURL(URL: string;var HostName,FileName:string;var HostPort:Integer;var httpsFlag:Boolean);
  var
    i,p,k: DWORD;
    function StrToIntDef(const S: string; Default: Integer): Integer;
    var
      E: Integer;
    begin
      Val(S, Result, E);
      if E <> 0 then Result := Default;
    end;
  begin
    if lstrcmpi('http://',PChar(Copy(URL,1,7))) = 0 then System.Delete(URL, 1, 7);
    if lstrcmpi('https://',PChar(Copy(URL,1,8))) = 0 then
    begin
      System.Delete(URL, 1, 8);
      HttpsFlag:=True;
    end else HttpsFlag:=False;
    HostName := URL;
    FileName := '/';
    if HttpsFlag then
      HostPort := INTERNET_DEFAULT_HTTPS_PORT
    else
      HostPort := INTERNET_DEFAULT_HTTP_PORT;
    i := Pos('/', URL);
    if i <> 0 then
    begin
      HostName := Copy(URL, 1, i-1);
      FileName := Copy(URL, i, Length(URL) - i + 1);
    end;
    p:=pos(':',HostName);
    if p <> 0 then
    begin
      k:=Length(HostName)-p;
      if HttpsFlag then
        HostPort:=StrToIntDef(Copy(HostName,p+1,k),INTERNET_DEFAULT_HTTPS_PORT)
      else
        HostPort:=StrToIntDef(Copy(HostName,p+1,k),INTERNET_DEFAULT_HTTP_PORT);
      Delete(HostName,p,k+1);
    end;
  end;
begin
  Result := '';
  dwFileSize :=0;
  ParseURL(sURL,HostName,FileName,HostPort,HttpsFlag);
  // 函数原型见 http://technet.microsoft.com/zh-cn/subscriptions/aa385096(v=vs.85).aspx
  hInte := InternetOpen('', //UserAgent
                           INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if hInte<>nil then
  begin
    hConnection := InternetConnect(hInte,   // 函数原型见 http://technet.microsoft.com/zh-cn/query/ms909418
                                   PChar(HostName),
                                   HostPort,
                                   nil,
                                   nil,
                                   INTERNET_SERVICE_HTTP,
                                   0,
                                   0);
    if hConnection<>nil then
    begin
      if HttpsFlag then

      hRequest := HttpOpenRequest(hConnection,  // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa917871
                                  PChar(RequestMethod),
                                  PChar(FileName),
                                  HTTP_VERSION,
                                  '', //Referrer 来路
                                  nil,//AcceptTypes 接受的文件类型 TEXT/HTML */*
                                  INTERNET_FLAG_NO_CACHE_WRITE or
                                  INTERNET_FLAG_RELOAD or INTERNET_FLAG_SECURE,
                                  0)
      else
      hRequest := HttpOpenRequest(hConnection,  // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa917871
                                  PChar(RequestMethod),
                                  PChar(FileName),
                                  HTTP_VERSION,
                                  '', //Referrer 来路
                                  nil,//AcceptTypes 接受的文件类型 TEXT/HTML */*
                                  INTERNET_FLAG_NO_CACHE_WRITE or
                                  INTERNET_FLAG_RELOAD,
                                  0);
      if hRequest<>nil then
      begin
        sHeader := 'Content-Type: application/x-www-form-urlencoded' + #13#10;
    //    +'CLIENT-IP: 216.13.23.33'+#13#10
    //    'X-FORWARDED-FOR: 216.13.23.33' + #13#10+; 伪造代理IP

        // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa384227(v=VS.85)
        HttpAddRequestHeaders(hRequest,PChar(sHeader),
                              Length(sHeader),
                              HTTP_ADDREQ_FLAG_ADD or HTTP_ADDREQ_FLAG_REPLACE);
        // 函数原型见 http://msdn.microsoft.com/zh-cn/library/windows/desktop/aa384247(v=vs.85).aspx
        if HttpSendRequest(hRequest,nil,0,PChar(sPostData),Length(sPostData)) then
        begin
          dwReserved:=0;
          dwSize:=SizeOf(ContentSize);
          // 函数原型 http://msdn.microsoft.com/zh-cn/subscriptions/downloads/aa384238.aspx
          if HttpQueryInfo(hRequest,HTTP_QUERY_CONTENT_LENGTH,@ContentSize,dwSize,dwReserved) then
          begin
            dwFileSize:=StrToInt(ContentSize);
            GetMem(Contents, dwFileSize);
            InternetReadFile(hRequest,Contents,dwFileSize,dwBytesRead);
            Result:=StrPas(Contents);
            FreeMem(Contents);
          end;
        end;
      end;
      InternetCloseHandle(hRequest);
    end;
    InternetCloseHandle(hConnection);
  end;
  InternetCloseHandle(hInte);
end;

function WebPageGet(sURL:AnsiString):AnsiString;stdcall;
const
  RequestMethod = 'GET';
  HTTP_VERSION  = 'HTTP/1.1';  //HTTP版本 我抓包看过 HTTP/1.0 HTTP/1.1。尚未仔细了解其区别。按MSDN来写的。留空默认是1.0
var
  HttpsFlag:Boolean;
  dwSize:DWORD;
  dwFileSize: Int64;
  dwBytesRead,dwReserved:DWORD;
  hInte,hConnection,hRequest:HInternet;
  ContentSize:array[1..1024] of Char;
  HostPort:Integer;
  HostName,FileName,sHeader:String;
  Contents:PAnsiChar;
  procedure ParseURL(URL: string;var HostName,FileName:string;var HostPort:Integer;var httpsFlag:Boolean);
  var
    i,p,k: DWORD;
    function StrToIntDef(const S: string; Default: Integer): Integer;
    var
      E: Integer;
    begin
      Val(S, Result, E);
      if E <> 0 then Result := Default;
    end;
  begin
    if lstrcmpi('http://',PChar(Copy(URL,1,7))) = 0 then System.Delete(URL, 1, 7);
    if lstrcmpi('https://',PChar(Copy(URL,1,8))) = 0 then
    begin
      System.Delete(URL, 1, 8);
      HttpsFlag:=True;
    end else HttpsFlag:=False;
    HostName := URL;
    FileName := '/';
    if HttpsFlag then
      HostPort := INTERNET_DEFAULT_HTTPS_PORT
    else
      HostPort := INTERNET_DEFAULT_HTTP_PORT;
    i := Pos('/', URL);
    if i <> 0 then
    begin
      HostName := Copy(URL, 1, i-1);
      FileName := Copy(URL, i, Length(URL) - i + 1);
    end;
    p:=pos(':',HostName);
    if p <> 0 then
    begin
      k:=Length(HostName)-p;
      if HttpsFlag then
        HostPort:=StrToIntDef(Copy(HostName,p+1,k),INTERNET_DEFAULT_HTTPS_PORT)
      else
        HostPort:=StrToIntDef(Copy(HostName,p+1,k),INTERNET_DEFAULT_HTTP_PORT);
      Delete(HostName,p,k+1);
    end;
  end;
begin
  Result := '';
  dwFileSize :=0;
  ParseURL(sURL,HostName,FileName,HostPort,HttpsFlag);
  // 函数原型见 http://technet.microsoft.com/zh-cn/subscriptions/aa385096(v=vs.85).aspx
  hInte := InternetOpen('', //UserAgent
                           INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if hInte<>nil then
  begin
    hConnection := InternetConnect(hInte,   // 函数原型见 http://technet.microsoft.com/zh-cn/query/ms909418
                                   PChar(HostName),
                                   HostPort,
                                   nil,
                                   nil,
                                   INTERNET_SERVICE_HTTP,
                                   0,
                                   0);
    if hConnection<>nil then
    begin
      if HttpsFlag then

      hRequest := HttpOpenRequest(hConnection,  // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa917871
                                  PChar(RequestMethod),
                                  PChar(FileName),
                                  HTTP_VERSION,
                                  '', //Referrer 来路
                                  nil,//AcceptTypes 接受的文件类型 TEXT/HTML */*
                                  INTERNET_FLAG_NO_CACHE_WRITE or
                                  INTERNET_FLAG_RELOAD or INTERNET_FLAG_SECURE,
                                  0)
      else
      hRequest := HttpOpenRequest(hConnection,  // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa917871
                                  PChar(RequestMethod),
                                  PChar(FileName),
                                  HTTP_VERSION,
                                  '', //Referrer 来路
                                  nil,//AcceptTypes 接受的文件类型 TEXT/HTML */*
                                  INTERNET_FLAG_NO_CACHE_WRITE or
                                  INTERNET_FLAG_RELOAD,
                                  0);
      if hRequest<>nil then
      begin
        sHeader := 'Content-Type: application/x-www-form-urlencoded' + #13#10;
    //    +'CLIENT-IP: 216.13.23.33'+#13#10
    //    'X-FORWARDED-FOR: 216.13.23.33' + #13#10+; 伪造代理IP

        // 函数原型见 http://msdn.microsoft.com/zh-cn/library/aa384227(v=VS.85)
        HttpAddRequestHeaders(hRequest,PChar(sHeader),
                              Length(sHeader),
                              HTTP_ADDREQ_FLAG_ADD or HTTP_ADDREQ_FLAG_REPLACE);
        // 函数原型见 http://msdn.microsoft.com/zh-cn/library/windows/desktop/aa384247(v=vs.85).aspx
        if HttpSendRequest(hRequest,nil,0,nil,0) then
        begin
          dwReserved:=0;
          dwSize:=SizeOf(ContentSize);
          // 函数原型 http://msdn.microsoft.com/zh-cn/subscriptions/downloads/aa384238.aspx
          if HttpQueryInfo(hRequest,HTTP_QUERY_CONTENT_LENGTH,@ContentSize,dwSize,dwReserved) then
          begin
            dwFileSize:=StrToInt(ContentSize);
            GetMem(Contents, dwFileSize);
            InternetReadFile(hRequest,Contents,dwFileSize,dwBytesRead);
            Result:=StrPas(Contents);
            FreeMem(Contents);
          end;
        end;
      end;
      InternetCloseHandle(hRequest);
    end;
    InternetCloseHandle(hConnection);
  end;
  InternetCloseHandle(hInte);
end;

初步判断了一下https情况，还有flags需要再细致一点设置，还有自定义表头，https的用户名密码等用参数形式封装.

还有一个最主要的问题就是超时问题的解决。这个等以后有时间再弄

转载于:https://www.cnblogs.com/prtmon/p/3297216.html

weixin_30333885
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
易语言-wininet实现GET和POST访问网页
06-29
wininet实现GET和POST访问网页 易语言在线自学
转载：winInet的GET和POST实现
weixin_33688840的博客
06-01 539
2019独角兽企业重金招聘Python工程师标准>>> ...
WinInet简单实现GET与POST请求(Win32, C++)
最新发布
FlameCyclone的博客
03-29 216
使用WinInet简单实现GET与POST请求
MFC下使用winInet实现Get与Post功能的http客户端，实现文件上传，实现basic认证
linyibin_123的博客
03-21 893
该客户端工程基于VS2019下，使用winInet进行实现。主要功能是通过Get和Post与服务器进行交互，认证采用了basic认证。
C++通过Wininet库提交POST信息登录到PHPChina中文开发者社区
17岁boy的博客
08-26 4471
与上一篇教程文章“c++通过TCP/IP协议提交POST信息登录到PHPChina中文开发者社区”不同的是这次我们使用Wininet库来提交POST请求并得到HTTP响应消息而非服务器响应消息！本步骤就不讲诉抓包和分析协议包的过程了，如果想知道的话可以去看一下我原先写的TCP提交POST请求里有详细的抓包过程"c++通过TCP/IP协议提交POST信息登录到PHPChina中文开发者社区"下面是...
VC通过Http协议Get或Post方式与WebService通信，解析返回的Json
11-25
本资源是一个封装类，采用异步方式解决了Wininet不能设置超时的问题，当前异步采用C++11线程库及同步方式，可修改为MFC工作线程后在VS2012以下版本使用。JSON解析库采用JSONCPP。调用方式参考: CWininetHttp MyHttp...
VC6.0实现POST和Get,调用后端WEBAPI接口_MFC版.rar
11-17
HttpRequest.HttpPost("http://www.baidu.com/","",ret); ofstream OutFile("C:\\11111111111111.txt"); //利用构造函数创建txt文本，并且打开该文本 OutFile (); //把字符串内容，写入Test.txt文件 OutFile....
Wininet-Post
dianfoutie3139的博客
11-20 141
#include "stdafx.h"#include <Windows.h>#include <wininet.h>#include <iostream>#include <fstream>#include <time.h>//#include <MAPIUTIL.H > using namespace std;...
VB6Get和POST请求异步处理请求
01-03
异步处理主球，能有效地解决xmlhttp组件卡死问题
WinInet http post
02-12
VC编程实现使用WinInet通过HTTP协议读取网上文件
基于WindowsAPI HTTP 客户端支持Post，Get
11-28
基于windows API 的HTTP 客户端，采用C++实现，支持POST方法，GET方法，源码可用于Windows平台开发调用第三方web接口所用，效率高，只需要修改INI配置的URL，就可以测试第三方接口，可当HTTP接口测试工具
Delphi 使用WinInet 进行下载
warrially的专栏
09-21 5315
WinInetDownLoad('http://下载地名','c:\本地文件名') 引用 unit xHttpGetThread; interface const MAXBLOCKSIZE = 1024; function WinInetDownLoad(Url:PChar; FileName:string):Boolean; implementation uses Windo
在VC中WININET如何使用HTTP的POST方法
foreverxyz的专栏
04-18 2352
SUMMARYTo properly simulate a Form submission using WinInet, you need to send a header that indicates the proper Content-Type. For Forms, the proper Content-Type header is: Content-Type: application/x-www-form-urlencodedMORE INFORMATION     In many cases,
用Wininet以Https的post方式登录
chenxiao88957478的博客
07-08 6896
整个过程大概是这样的：发送http请求报文到服务器，报文的数据体中带有账号密码；服务器接受处理后返回响应报文；根据响应报文的状态码判断登录是否成功，通过读取返回报文的首部行获取所需的信息。我这里是通过Location获取返回的cookie信息，用webBroswer登录时加载cookie即可。 大致的代码如下： // strUrl：登录检测的地址；postData：发送的账号密码字符串（如：n
在 MQL5 中使用 WININET。第二部分：POST 请求和文件
JanLEE
07-25 283
简介 在前一课“使用 WinInet.dll 通过互联网在客户端之间交换数据”一课中，我们已经学习了如何使用库、打开网页、使用 GET 请求发送和接收信息。 在本课中，我们将学习如何： 创建简单的 POST 请求并将请求发送到服务器； 使用multipart/form-data表示法将文件发送到服务器； 使用 Cookie 并通过登录从网站读取信息。 和以前一样，我强烈建议设置一台本地代理服务器Charles；对于您的学习和进一步试验，它将是必不可少的。 POST 请求 为了发送信...
javsscript怎么使用wininet的方式访问网页
10-05
2. 创建WinINet对象：使用ActiveXObject对象的createObject方法创建一个WinINet对象，该对象提供了与WinINet库进行交互的方法和属性。 3. 设置WinINet对象的属性：通过调用WinINet对象的属性，可以配置请求的各种...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值