{"id":4331,"date":"2016-12-02T22:05:53","date_gmt":"2016-12-02T14:05:53","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=4331"},"modified":"2017-01-16T08:49:06","modified_gmt":"2017-01-16T00:49:06","slug":"%e6%9d%82%e8%b0%88-%e8%b0%83%e7%94%a8-windows-api-ping-%e6%8c%87%e5%ae%9a%e7%9a%84%e4%b8%bb%e6%9c%ba","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=4331","title":{"rendered":"[\u6742\u8c08] \u8c03\u7528 Windows API Ping \u6307\u5b9a\u7684\u4e3b\u673a"},"content":{"rendered":"<p>\u4e00\u6bb5\u7b80\u5355\u7684\u4ee3\u7801\uff0c\u8c03\u7528 API \u6765\u5b9e\u73b0 PING \u6307\u5b9a\u7684\u4e3b\u673a\u3002<\/p>\n<p>[C++ Builder \u7248]<\/p>\n<pre class=\"lang:c++ decode:true\">#include &lt;iphlpapi.h&gt;\r\n#include &lt;icmpapi.h&gt;\r\n#pragma comment(lib, \"iphlpapi.lib\")\r\n#pragma comment(lib, \"ws2_32.lib\")\r\n\/\/ ---------------------------------------------------------------------------\r\n\r\nint __fastcall Ping(const AnsiString AHost) {\r\n\tHANDLE hIcmp = IcmpCreateFile();\r\n\tint ARetVal;\r\n\tif (hIcmp != INVALID_HANDLE_VALUE) {\r\n\t\ttry {\r\n\t\t\tchar AData[32] = \"ICMP Data\";\r\n\t\t\tDWORD Addr = inet_addr(AHost.c_str());\r\n\t\t\tif (Addr == INADDR_NONE) {\r\n\t\t\t\thostent *ent = gethostbyname(AHost.c_str());\r\n\t\t\t\tif (ent &amp;&amp; (ent-&gt;h_addrtype == AF_INET)) {\r\n\t\t\t\t\tAddr=*((DWORD *)ent-&gt;h_addr_list[0]);\r\n\t\t\t\t}\r\n\t\t\t\telse {\r\n\t\t\t\t\tARetVal = GetLastError();\r\n\t\t\t\t\treturn ARetVal;\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\tDWORD AReplySize = sizeof(ICMP_ECHO_REPLY)+sizeof(AData);\r\n\t\t\tchar AReply[sizeof(ICMP_ECHO_REPLY)+sizeof(AData)];\r\n\t\t\tARetVal = IcmpSendEcho(hIcmp, Addr, &amp;AData, sizeof(AData), NULL,\r\n\t\t\t\tAReply, AReplySize, 1000);\r\n\t\t\tif (ARetVal == 0)\r\n\t\t\t\tARetVal = GetLastError();\r\n\t\t\telse\r\n\t\t\t\tARetVal = 0;\r\n\t\t}\r\n\t\t__finally {\r\n\t\t\tIcmpCloseHandle(hIcmp);\r\n\t\t}\r\n\t}\r\n\telse\r\n\t\tARetVal = GetLastError();\r\n\treturn ARetVal;\r\n}<\/pre>\n<p>[Delphi \u7248]<\/p>\n<pre class=\"lang:delphi decode:true\">uses iphlpapi, winsock;\r\n\r\nconst\r\n  ICMPDLL = 'icmp.dll';\r\n\r\ntype\r\n  PIPOptionInformation = ^TIPOptionInformation;\r\n\r\n  TIPOptionInformation = packed record\r\n    TTL: Byte;\r\n    TOS: Byte;\r\n    Flags: Byte;\r\n    OptionsSize: Byte;\r\n    OptionsData: PChar;\r\n  end;\r\n\r\n  ICMP_ECHO_REPLY = packed record\r\n    Address: DWORD;\r\n    Status: DWORD;\r\n    RTT: DWORD;\r\n    DataSize: Word;\r\n    Reserved: Word;\r\n    Data: Pointer;\r\n    Options: TIPOptionInformation;\r\n  end;\r\n\r\n  TIcmpEchoReply = ICMP_ECHO_REPLY;\r\n  PIcmpEchoReply = ^TIcmpEchoReply;\r\n\r\nfunction IcmpCreateFile: THandle; stdcall; external ICMPDLL;\r\nfunction IcmpCloseHandle(IcmpHandle: THandle): Boolean; stdcall;\r\n  external ICMPDLL;\r\nfunction IcmpSendEcho(IcmpHandle: THandle; DestinationAddress: DWORD;\r\n  RequestData: Pointer; RequestSize: Word; RequestOptions: PIPOptionInformation;\r\n  ReplyBuffer: Pointer; ReplySize: DWORD; Timeout: DWORD): DWORD; stdcall;\r\n  external ICMPDLL;\r\n\r\n\/\/ ---------------------------------------------------------------------------\r\n\r\nfunction Ping(const AHost: AnsiString): Integer;\r\nvar\r\n  hIcmp: THandle;\r\n  AData: array [0 .. 31] of Byte;\r\n  AReply: array [0 .. sizeof(ICMP_ECHO_REPLY) + 31] of Byte;\r\n  Addr: Cardinal;\r\n  ent: PHostEnt;\r\n  AReplySize: Integer;\r\nbegin\r\n  hIcmp := IcmpCreateFile;\r\n  if hIcmp &lt;&gt; INVALID_HANDLE_VALUE then\r\n  begin\r\n    try\r\n      Addr := inet_addr(PAnsiChar(AHost));\r\n      if Addr = INADDR_NONE then\r\n      begin\r\n        ent := gethostbyname(PAnsiChar(AHost));\r\n        if Assigned(ent) and (ent.h_addrtype = AF_INET) then\r\n          Addr := PCardinal(ent.h_addr_list[0])^\r\n        else\r\n        begin\r\n          Result := GetLastError;\r\n          Exit;\r\n        end;      \r\n      end;\r\n      AReplySize := sizeof(ICMP_ECHO_REPLY) + sizeof(AData);\r\n      Result := IcmpSendEcho(hIcmp, Addr, @AData[0], sizeof(AData), nil,\r\n        @AReply[0], AReplySize, 1000);\r\n      if Result = 0 then\r\n        Result := GetLastError()\r\n      else\r\n        Result := 0;\r\n    finally\r\n      IcmpCloseHandle(hIcmp);\r\n    end;\r\n  end\r\n  else\r\n    Result := GetLastError();\r\nend;<\/pre>\n<p>\u6210\u529f\uff0c\u8fd4\u56de0\uff0c\u5931\u8d25\u8fd4\u56de\u9519\u8bef\u4ee3\u7801\uff0c\u53c2\u6570\u53ef\u4ee5\u662f\u4e3b\u673a\u540d\u6216IP\u5730\u5740\u3002\u5982\u679c\u662f\u4e3b\u673a\u540d\uff0c\u5219\u4f1a\u89e3\u6790\u6210IP\u5730\u5740\u624d\u80fd\u3002<\/p>\n<p>\u6ce8\u610f\u65e0\u8bba\u90a3\u4e2a\u7248\u672c\uff0c\u90fd\u8981\u5148\u8c03\u7528 WSAStartup\uff0c\u5728\u4e0d\u9700\u8981\u65f6\u8c03\u7528WSACleanup\uff0c\u8fd9\u4e2a\u5e38\u8bc6\u5c31\u4e0d\u8bf4\u4e86\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4e00\u6bb5\u7b80\u5355\u7684\u4ee3\u7801\uff0c\u8c03\u7528 API \u6765\u5b9e\u73b0 P [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,21],"tags":[689],"class_list":["post-4331","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-misc","tag-ping"],"views":4662,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4331","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4331"}],"version-history":[{"count":4,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4331\/revisions"}],"predecessor-version":[{"id":4421,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4331\/revisions\/4421"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4331"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4331"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4331"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}