{"id":188,"date":"2009-01-06T21:11:00","date_gmt":"2009-01-06T01:11:00","guid":{"rendered":""},"modified":"2013-11-18T21:39:08","modified_gmt":"2013-11-18T13:39:08","slug":"%e7%94%a8delphi%e5%ae%9e%e7%8e%b0%e6%b8%b8%e6%88%8f%e5%a4%96%e6%8c%82","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/188.html","title":{"rendered":"\u7528Delphi\u5b9e\u73b0\u6e38\u620f\u5916\u6302"},"content":{"rendered":"<p>\u5728\u51e0\u5e74\u524d\u6211\u770b\u5230\u522b\u4eba\u73a9\u7f51\u7edc\u6e38\u620f\u7528\u4e0a\u4e86\u5916\u6302\uff0c\u505a\u4e3a\u7a0b\u5e8f\u5458\u7684\u6211\u5fc3\u91cc\u5b9e\u5728\u662f\u4e0d\u723d\uff0c\u60f3\u641e\u6e05\u695a\u8fd9\u5230\u5e95\u662f\u600e\u4e48\u56de\u4e8b\u3002\u5c31\u62ff\u4e86\u4e00\u4e9b\u6765\u7814\u7a76\uff0c\u5c0f\u6709\u5fc3\u5f97\uff0c\u62ff\u51fa\u6765\u4e0e\u5927\u5bb6\u5171\u4eab\uff0c\u5916\u6302\u65e0\u975e\u5c31\u662f\u5206\u51e0\u79cd\u7f62\u4e86\uff08\u4f9d\u5236\u4f5c\u96be\u5ea6\uff09\uff1a<br \/>\n1\u3001\u52a8\u4f5c\u5f0f\uff0c\u6240\u8c13\u52a8\u4f5c\u5f0f\uff0c\u5c31\u662f\u6307\u7528API\u53d1\u547d\u4ee4\u7ed9\u7a97\u53e3\u6216API\u63a7\u5236\u9f20\u6807\u3001\u952e\u76d8\u7b49\uff0c\u4f7f\u6e38\u620f\u91cc\u7684\u4eba\u7269\u8fdb\u884c\u6d41\u52a8\u6216\u8005\u653b\u51fb\uff0c\u6700\u65e9\u4ee5\u524d\u7684\u201c\u77f3\u5668\u201d\u5916\u6302\u5c31\u662f\u8fd9\u79cd\u65b9\u5f0f\u3002<br \/>\n2\u3001\u672c\u5730\u4fee\u6539\u5f0f\uff0c\u8fd9\u79cd\u5916\u6302\u8ddf\u4f20\u7edf\u4e0a\u7684\u4e00\u4e9b\u6e38\u620f\u4fee\u6539\u5668\u6ca1\u6709\u4e24\u6837\uff0c\u505a\u8fd9\u79cd\u5916\u6302\u5728\u7f16\u7a0b\u53ea\u9700\u8981\u5bf9\u5185\u5b58\u5730\u5740\u6709\u4e00\u70b9\u8ba4\u8bc6\u5e76\u4e14\u638c\u63e1API\u5c31\u53ef\u4ee5\u5b9e\u73b0\uff0c\u201c\u7cbe\u7075\u201d\u7684\u5916\u6302\u8fd9\u662f\u8fd9\u79cd\u65b9\u5f0f\u5199\u6210\u7684\uff0c\u5b83\u7684\u96be\u70b9\u5728\u4e8e\u627e\u5230\u90a3\u4e9b\u5730\u5740\u7801\uff0c\u627e\u5730\u5740\u4e00\u822c\u5730\u8981\u501f\u52a9\u4e8e\u522b\u4eba\u7684\u5de5\u5177\uff0c\u6709\u7684\u6e38\u620f\u8fd8\u6709\u53cc\u7801\u6821\u9a8c\uff0c\u6b63\u6b63\u627e\u8d77\u6765\u4f1a\u6bd4\u8f83\u56f0\u96be\u3002<br \/>\n3\u3001\u6728\u9a6c\u5f0f\uff0c\u8fd9\u79cd\u5916\u6302\u7684\u76ee\u7684\u662f\u5e2e\u5916\u6302\u5236\u4f5c\u8005\u5077\u5230\u7528\u6237\u7684\u5bc6\u7801\uff0c\u505a\u8fd9\u79cd\u5916\u6302\u6709\u4e00\u5b9a\u7684\u96be\u5ea6\uff0c\u9700\u8981HOOK\u6216\u952e\u76d8\u76d1\u89c6\u6280\u672f\u505a\u5e95\u5b50\uff0c\u624d\u53ef\u4ee5\u5b8c\u6210\uff0c\u5b83\u7684\u539f\u7406\u662f\u5148\u9996\u622a\u4e86\u7528\u6237\u7684\u5e10\u53f7\u6216\u5bc6\u7801\uff0c\u7136\u540e\u53d1\u5230\u6307\u5b9a\u90ae\u7bb1\u3002<br \/>\n4\u3001\u52a0\u901f\u5f0f\uff0c\u8fd9\u79cd\u5916\u6302\u53ef\u4ee5\u52a0\u5feb\u6e38\u620f\u7684\u901f\u5ea6\u3002\u539f\u672c\u6211\u4e00\u76f4\u4ee5\u4e3a\u52a0\u901f\u5916\u6302\u662f\u9488\u5bf9\u67d0\u4e2a\u6e38\u620f\u800c\u5199\u7684\uff0c\u540e\u6765\u53d1\u73b0\u6211\u8fd9\u79cd\u6982\u5ff5\u662f\u4e0d\u5bf9\u7684\uff0c\u6240\u8c13\u52a0\u901f\u5916\u6302\u5176\u5b9e\u662f\u4fee\u6539\u65f6\u949f\u9891\u7387\u8fbe\u5230\u52a0\u901f\u7684\u76ee\u7684\u3002<br \/>\n5\u3001\u5c01\u5305\u5f0f\uff0c\u8fd9\u79cd\u5916\u6302\u662f\u9ad8\u96be\u5ea6\u5916\u6302\uff0c\u9700\u8981\u6709\u5f88\u5f3a\u7684\u7f16\u7a0b\u529f\u529b\u624d\u53ef\u4ee5\u5199\u5f97\u51fa\u6765\u3002\u5b83\u7684\u539f\u7406\u662f\u5148\u622a\u53d6\u5c01\u5305\uff0c\u540e\u4fee\u6539\uff0c\u518d\u8f6c\u53d1\u3002\u8fd9\u79cd\u5916\u6302\u9002\u7528\u4e8e\u5927\u591a\u6570\u7f51\u7edc\u6e38\u620f\uff0c\u50cfWPE\u53ca\u4e00\u4e9b\u7f51\u7edc\u6e38\u620f\u5916\u6302\u90fd\u662f\u7528\u8fd9\u79cd\u65b9\u5f0f\u5199\u6210\u7684\uff0c\u7f16\u5199\u8fd9\u79cd\u5916\u6302\u9700\u8981apihook\u6280\u672f\uff0cwinsock2\u6280\u672f\u2026\u2026\u2026\u2026<\/p>\n<p>\u4ee5\u4e0b\u5c31\u7528Delphi\u5b9e\u73b0\u7f51\u7edc\u6e38\u620f\u5916\u6302\u3002<\/p>\n<p>\u4e0a\u56de\u5bf9\u4e94\u79cd\u7c7b\u578b\u7684\u5916\u6302\u505a\u4e86\u4e00\u4e2a\u5927\u4f53\u7684\u6982\u62ec\uff0c\u5927\u5bb6\u5bf9\u8fd9\u51e0\u79cd\u5916\u6302\u90fd\u6709\u4e86\u4e00\u5b9a\u7684\u4e86\u89e3\uff0c\u73b0\u5728\u5c31\u4f9d\u6b21\uff08\u5236\u4f5c\u96be\u5ea6\uff09\u7531\u6d45\u5230\u6df1\u8c08\u8c08\u6211\u5bf9\u5916\u6302\u5236\u4f5c\u7684\u4e00\u4e9b\u8ba4\u8bc6\u5427~~~~<br \/>\n\u9996\u5148\uff0c\u5148\u6765\u8c08\u4e00\u4e0b\u52a8\u4f5c\u5f0f\u7684\u5916\u6302\uff0c\u8fd9\u4e5f\u662f\u6211\u7b2c\u4e00\u6b21\u5199\u5916\u6302\u65f6\u505a\u7684\u6700\u7b80\u5355\u7684\u4e00\u79cd\u3002<br \/>\n\u8bb0\u5f97\u8fd8\u5728\u201c\u77f3\u5668\u201d\u65f6\u4ee3\u7684\u65f6\u5019\uff0c\u6211\u770b\u5230\u522b\u4eba\u6302\u7740\u4e00\u79cd\u8f6f\u4ef6\uff08\u5916\u6302\uff09\u4eba\u7269\u5c31\u53ef\u4ee5\u56db\u5916\u6e38\u8d70\uff08\u5f53\u65f6\u6211\u8fd8\u4e0d\u77e5\u9053\u5916\u6302\u600e\u4e48\u56de\u4e8b^_^\uff09\uff0c\u4e8e\u662f\u627e\u4e86\u8fd9\u79cd\u8f6f\u4ef6\u8fc7\u6765\u7814\u7a76\uff08\u62ff\u6765\u540e\u624d\u542c\u522b\u4eba\u8bf4\u8fd9\u53eb\u5916\u6302\uff09\uff0c\u53d1\u73b0\u8fd9\u79cd\u4e1c\u4e1c\u5176\u5b9e\u5b9e\u73b0\u8d77\u6765\u5e76\u4e0d\u96be\uff0c\u4ed4\u4f43\u770b\u5176\u5b9e\u4eba\u7269\u7684\u884c\u8d70\u65e0\u975e\u5c31\u662f\u9f20\u6807\u5728\u4e0d\u540c\u7684\u5730\u65b9\u70b9\u6765\u70b9\u53bb\u800c\u5df2\uff0c\u770b\u540e\u5c31\u6709\u5b9e\u73b0\u8fd9\u529f\u80fd\u7684\u51b2\u52a8\uff0c\u968f\u540e\u8dd1\u5230MSDN\u4e0a\u770b\u4e86\u4e00\u4e9b\u8d44\u6599\uff0c\u53d1\u73b0\u8fd9\u79cd\u5b9e\u73b0\u8fd9\u51e0\u4e2a\u529f\u80fd\uff0c\u53ea\u9700\u8981\u51e0\u4e2a\u7b80\u5355\u7684API\u51fd\u6570\u5c31\u53ef\u4ee5\u641e\u5b9a\uff1a<br \/>\n1\u3001\u9996\u5148\u6211\u4eec\u8981\u77e5\u9053\u73b0\u5728\u9f20\u6807\u7684\u4f4d\u7f6e\uff08\u4e3a\u4e86\u597d\u8fd8\u539f\u73b0\u5728\u9f20\u6807\u7684\u4f4d\u7f6e\uff09\u6240\u4ee5\u6211\u4eec\u5c31\u8981\u7528\u5230API\u51fd\u6570GetCursorPos\uff0c\u5b83\u7684\u4f7f\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nBOOL GetCursorPos(    LPPOINT lpPoint \/\/ address of structure for cursor position );\r\n<\/pre>\n<p>2\u3001\u6211\u4eec\u628a\u9f20\u6807\u7684\u4f4d\u7f6e\u79fb\u5230\u8981\u5230\u4eba\u7269\u8d70\u5230\u7684\u5730\u65b9\uff0c\u6211\u4eec\u5c31\u8981\u7528\u5230SetCursorPos\u51fd\u6570\u6765\u79fb\u52a8\u9f20\u6807\u4f4d\u7f6e\uff0c\u5b83\u7684\u4f7f\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nBOOL SetCursorPos(    int X, \/\/ horizontal position\r\n    int Y \/\/ vertical position\r\n   );\r\n<\/pre>\n<p>3\u3001\u6a21\u62df\u9f20\u6807\u53d1\u51fa\u6309\u4e0b\u548c\u653e\u5f00\u7684\u52a8\u4f5c\uff0c\u6211\u4eec\u8981\u7528\u5230mouse_event\u51fd\u6570\u6765\u5b9e\u73b0\uff0c\u5177\u4f11\u4f7f\u7528\u65b9\u6cd5\u7528\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nVOID mouse_event(    DWORD dwFlags, \/\/ flags specifying various motion\/click variants\r\n    DWORD dx, \/\/ horizontal mouse position or position change\r\n    DWORD dy, \/\/ vertical mouse position or position change\r\n    DWORD dwData, \/\/ amount of wheel movement\r\n    DWORD dwExtraInfo \/\/ 32 bits of application-defined information\r\n   );\r\n<\/pre>\n<p>\u5728\u5b83\u7684dwFlags\u5904\uff0c\u53ef\u7528\u7684\u4e8b\u4ef6\u5f88\u591a\u5982\u79fb\u52a8MOUSEEVENTF_MOVE\uff0c\u5de6\u952e\u6309\u4e0bMOUSEEVENTF_LEFTDOWN\uff0c\u5de6\u952e\u653e\u5f00MOUSEEVENTF_LEFTUP\uff0c\u5177\u4f53\u7684\u4e1c\u4e1c\u8fd8\u662f\u67e5\u4e00\u4e0bMSDN\u5427~~~~~<br \/>\n\u597d\u4e86\uff0c\u6709\u4e86\u4ee5\u524d\u7684\u77e5\u8bc6\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u6765\u770b\u770b\u4eba\u7269\u79fb\u8d70\u662f\u600e\u4e48\u5b9e\u73b0\u7684\u4e86\uff1agetcursorpos(point);<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nsetcursorpos(ranpoint(80,windowX),ranpoint(80,windowY));\/\/ranpoint\u662f\u4e2a\u81ea\u5236\u7684\u968f\u673a\u5750\u6807\u51fd\u6570\r\nmouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);\r\nmouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);\r\nsetcursorpos(point.x,point.y);\u770b\u4e86\u4ee5\u4e0a\u7684\u4ee3\u7801\uff0c\u662f\u4e0d\u662f\u89c9\u5f97\u4eba\u7269\u7684\u6e38\u8d70\u5f88\u7b80\u5355\u5566~~\uff0c\u4e3e\u4e00\u4eff\u4e09\uff0c\u8fd8\u6709\u597d\u591a\u597d\u4e1c\u4e1c\u53ef\u4ee5\u7528\u8fd9\u4e2a\u6280\u5de7\u5b9e\u73b0\uff08\u6211\u65e9\u5c31\u8bf4\u8fc7\uff0cTMD\uff0c\u8fd9\u662f\u5783\u573e\u5916\u6302\u7684\u505a\u6cd5\uff0c\u76f8\u4fe1\u4e86\u5427~~~\uff09\uff0c\u63a5\u4e0b\u6765\uff0c\u518d\u770b\u770b\u6e38\u620f\u91cc\u9762\u81ea\u52a8\r\n<\/pre>\n<p>\u653b\u51fb\u7684\u505a\u6cd5\u5427\uff08\u5fc5\u9700\u6e38\u620f\u4e2d\u653b\u51fb\u652f\u6301\u5feb\u6377\u952e\u7684\uff09\uff0c\u9053\u7406\u8fd8\u662f\u4e00\u6837\u7684\uff0c\u53ea\u662f\u7528\u7684API\u4e0d\u540c\u7f62\u4e86~~~\uff0c\u8fd9\u56de\u6211\u4eec\u8981\u7528\u5230\u7684\u662fkeybd_event\u51fd\u6570\uff0c\u5176\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nVOID keybd_event(    BYTE bVk, \/\/ virtual-key code\r\n    BYTE bScan, \/\/ hardware scan code\r\n    DWORD dwFlags, \/\/ flags specifying various function options\r\n    DWORD dwExtraInfo \/\/ additional data associated with keystroke\r\n   );\r\n<\/pre>\n<p>\u6211\u4eec\u8fd8\u8981\u77e5\u9053\u626b\u63cf\u7801\u4e0d\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528\uff0c\u8981\u7528\u51fd\u6570MapVirtualKey\u628a\u952e\u503c\u8f6c\u6210\u626b\u63cf\u7801\uff0cMapVirtualKey\u7684\u5177\u4f53\u4f7f\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nUINT MapVirtualKey(    UINT uCode, \/\/ virtual-key code or scan code\r\n    UINT uMapType \/\/ translation to perform\r\n   );\r\n<\/pre>\n<p>\u597d\u4e86\uff0c\u6bd4\u8bf4\u6b64\u5feb\u63a5\u952e\u662fCTRL+A\uff0c\u63a5\u4e0b\u6765\u8ba9\u6211\u4eec\u770b\u770b\u5b9e\u9645\u4ee3\u7801\u662f\u600e\u4e48\u5199\u7684\uff1akeybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),0,0);<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nkeybd_event(65,mapvirtualkey(65,0),0,0);\r\nkeybd_event(65,mapvirtualkey(65,0),keyeventf_keyup,0);\r\nkeybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),keyeventf_keyup,0);\u9996\u5148\u6a21\u62df\u6309\u4e0b\u4e86CTRL\u952e\uff0c\u518d\u6a21\u62df\u6309\u4e0bA\u952e\uff0c\u518d\u6a21\u62df\u653e\u5f00A\u952e\uff0c\u6700\u540e\u653e\u5f00CTRL\u952e\uff0c\u8fd9\u5c31\u662f\u4e00\u4e2a\u6a21\u62df\u6309\u5feb\u6377\u952e\u7684\u5468\u671f\u3002\r\n<\/pre>\n<p>\uff08\u770b\u5230\u8fd9\u91cc\uff0c\u5dee\u4e0d\u591a\u5bf9\u7b80\u6613\u5916\u6302\u6709\u4e86\u4e00\u5b9a\u7684\u4e86\u89e3\u4e86\u5427~~~~\u505a\u4e00\u4e2a\u8bd5\u8bd5\uff1f\u5982\u679c\u4f60\u4e3e\u4e00\u4eff\u4e09\u8fd8\u80fd\u6709\u66f4\u597d\u7684\u4e1c\u4e1c\u51fa\u6765\uff0c\u8fd9\u5c31\u8981\u770b\u4f60\u7684\u9886\u609f\u80fd\u529b\u4e86~~\uff0c\u4e0d\u8fc7\u4e0d\u8981\u9ad8\u5174\u592a\u65e9\u8fd9\u53ea\u662f\u624d\u5f00\u59cb\uff0c\u4ee5\u540e\u8fd8\u6709\u66f4\u590d\u6742\u7684\u4e1c\u4e1c\u7b49\u7740\u4f60\u5462~~\uff09<\/p>\n<p>\u4e0a\u56de\u6211\u4eec\u5bf9\u52a8\u4f5c\u5f0f\u5916\u6302\u505a\u4e86\u4e00\u4e2a\u89e3\u6790\uff0c\u52a8\u4f5c\u5f0f\u662f\u6700\u7b80\u5355\u7684\u5916\u6302\uff0c\u73b0\u5728\u6211\u4eec\u5e26\u6765\u770b\u770b\uff0c\u6bd4\u52a8\u4f5c\u5f0f\u5916\u6302\u66f4\u8fdb\u4e00\u6b65\u7684\u5916\u6302\u2014\u2014\u672c\u5730\u4fee\u6539\u5f0f\u5916\u6302\u7684\u6574\u4e2a\u5236\u4f5c\u8fc7\u7a0b\u8fdb\u884c\u4e00\u4e2a\u8be6\u7ec6\u7684\u5206\u89e3\u3002<br \/>\n\u5177\u6211\u6240\u77e5\uff0c\u672c\u5730\u4fee\u6539\u5f0f\u5916\u6302\u6700\u5178\u578b\u7684\u5e94\u7528\u5c31\u662f\u5728\u201c\u7cbe\u7075\u201d\u6e38\u620f\u4e0a\u9762\uff0c\u56e0\u4e3a\u6211\u5728\u8fd1\u4e00\u5e74\u524d\uff08\u201c\u7cbe\u7075\u201d\u8fd8\u5728\u6d4b\u8bd5\u9636\u6bb5\uff09\uff0c\u6211\u6240\u5728\u7684\u516c\u53f8\u91cc\u6709\u5f88\u591a\u540c\u4e8b\u73a9\u201c\u7cbe\u7075\u201d\uff0c\u4e8e\u662f\u6211\u770b\u4e86\u4e00\u4e0b\u6e38\u620f\u7684\u6570\u636e\u5904\u7406\u65b9\u5f0f\uff0c\u53d1\u73b0\u5b83\u6240\u53d1\u9001\u5230\u670d\u52a1\u5668\u4e0a\u7684\u4fe1\u606f\u662f\u5b58\u5728\u4e8e\u5185\u5b58\u5f53\u4e2d\uff08\u6211\u770b\u540e\u7b2c\u4e00\u4e2a\u611f\u53d7\u662f\uff1a\u4fee\u6539\u8fd9\u79cd\u6e38\u620f\u548c\u4fee\u6539\u5355\u673a\u7248\u7684\u6e38\u620f\u6ca1\u6709\u591a\u5927\u5206\u522b\uff0c\u6362\u53e5\u8bdd\u8bf4\u5c31\u662f\u5728\u4ed6\u5411\u670d\u52a1\u5668\u63d0\u4ea4\u4fe1\u606f\u4e4b\u524d\u4fee\u6539\u4e86\u5185\u5b58\u5730\u5740\u5c31\u53ef\u4ee5\u4e86\uff09\uff0c\u5f53\u65f6\u6211\u627e\u5230\u4e86\u5730\u5740\u4e8e\u662f\u4fee\u6539\u4e86\u5185\u5b58\u5730\u5740\uff0c\u679c\u7136\uff0c\u6309\u6211\u7684\u60f3\u6cd5\u4fee\u6539\u4e86\u5730\u5740\uff0c\u8ba9\u7cfb\u7edf\u81ea\u52a8\u63d0\u4ea4\u540e\uff0c\u679c\u7136\u6210\u529f\u4e86~~~~~\uff0c\u540e\u6765\u201c\u7cbe\u7075\u201d\u53c8\u6539\u6210\u4e86\u53cc\u5730\u5740\u6821\u68c0\uff0c\u5185\u5b58\u6821\u68c0\u7b49\u7b49\uff0c\u5728\u8fd9\u91cc\u6211\u5c31\u4e0d\u5e9f\u8bdd\u4e86~~~~\uff0cOK\uff0c\u6211\u4eec\u5c31\u6765\u770b\u770b\u8fd9\u7c7b\u5916\u6302\u662f\u5982\u4f55\u5236\u4f5c\u7684\uff1a<br \/>\n\u5728\u505a\u5916\u6302\u4e4b\u524d\u6211\u4eec\u8981\u5bf9Windows\u7684\u5185\u5b58\u6709\u4e2a\u5177\u4f53\u7684\u8ba4\u8bc6\uff0c\u800c\u5728\u8fd9\u91cc\u6211\u4eec\u6240\u6307\u7684\u5185\u5b58\u662f\u6307\u7cfb\u7edf\u7684\u5185\u5b58\u504f\u79fb\u91cf\uff0c\u4e5f\u5c31\u662f\u76f8\u5bf9\u5185\u5b58\uff0c\u800c\u6211\u4eec\u6240\u8981\u5bf9\u5176\u8fdb\u884c\u4fee\u6539\uff0c\u90a3\u4e48\u6211\u4eec\u8981\u5bf9\u51e0\u4e2aWindows API\u8fdb\u884c\u4e86\u89e3\uff0cOK\uff0c\u8ddf\u7740\u4f8b\u5b50\u8ba9\u6211\u4eec\u770b\u6e05\u695a\u8fd9\u79cd\u5916\u6302\u7684\u5236\u4f5c\u548cAPI\u7684\u5e94\u7528\uff08\u4e3a\u4e86\u4fdd\u8bc1\u7f51\u7edc\u6e38\u620f\u7684\u6b63\u5e38\u8fd0\u884c\uff0c\u6211\u5c31\u4e0d\u628a\u627e\u5185\u5b58\u5730\u5740\u7684\u65b9\u6cd5\u8be6\u7ec6\u89e3\u8bf4\u4e86\uff09\uff1a<br \/>\n1\u3001\u9996\u5148\u6211\u4eec\u8981\u7528FindWindow,\u77e5\u9053\u6e38\u620f\u7a97\u53e3\u7684\u53e5\u67c4\uff0c\u56e0\u4e3a\u6211\u4eec\u8981\u901a\u8fc7\u5b83\u6765\u5f97\u77e5\u6e38\u620f\u7684\u8fd0\u884c\u540e\u6240\u5728\u8fdb\u7a0b\u7684ID\uff0c\u4e0b\u9762\u5c31\u662fFindWindow\u7684\u7528\u6cd5\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nHWND FindWindow(    LPCTSTR lpClassName, \/\/ pointer to class name\r\n    LPCTSTR lpWindowName \/\/ pointer to window name\r\n   );\r\n<\/pre>\n<p>2\u3001\u6211\u4eecGetWindowThreadProcessId\u6765\u5f97\u5230\u6e38\u620f\u7a97\u53e3\u76f8\u5bf9\u5e94\u8fdb\u7a0b\u7684\u8fdb\u7a0bID\uff0c\u51fd\u6570\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nDWORD GetWindowThreadProcessId(    HWND hWnd, \/\/ handle of window\r\n    LPDWORD lpdwProcessId \/\/ address of variable for process identifier\r\n   );\r\n<\/pre>\n<p>3\u3001\u5f97\u5230\u6e38\u620f\u8fdb\u7a0bID\u540e\uff0c\u63a5\u4e0b\u6765\u7684\u4e8b\u662f\u8981\u4ee5\u6700\u9ad8\u6743\u9650\u6253\u5f00\u8fdb\u7a0b\uff0c\u6240\u7528\u5230\u7684\u51fd\u6570OpenProcess\u7684\u5177\u4f53\u4f7f\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nHANDLE OpenProcess(    DWORD dwDesiredAccess, \/\/ access flag\r\n    BOOL bInheritHandle, \/\/ handle inheritance flag\r\n    DWORD dwProcessId \/\/ process identifier\r\n   );\r\n<\/pre>\n<p>\u5728dwDesiredAccess\u4e4b\u5904\u5c31\u662f\u8bbe\u5b58\u53d6\u65b9\u5f0f\u7684\u5730\u65b9\uff0c\u5b83\u53ef\u8bbe\u7684\u6743\u9650\u5f88\u591a\uff0c\u6211\u4eec\u5728\u8fd9\u91cc\u4f7f\u7528\u53ea\u8981\u4f7f\u7528PROCESS_ALL_ACCESS \u6765\u6253\u5f00\u8fdb\u7a0b\u5c31\u53ef\u4ee5\uff0c\u5176\u4ed6\u7684\u65b9\u5f0f\u6211\u4eec\u53ef\u4ee5\u67e5\u4e00\u4e0bMSDN\u3002<\/p>\n<p>4\u3001\u6253\u5f00\u8fdb\u7a0b\u540e\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u7528\u51fd\u6570\u5bf9\u5b58\u5185\u8fdb\u884c\u64cd\u4f5c\uff0c\u5728\u8fd9\u91cc\u6211\u4eec\u53ea\u8981\u7528\u5230WriteProcessMemory\u6765\u5bf9\u5185\u5b58\u5730\u5740\u5199\u5165\u6570\u636e\u5373\u53ef\uff08\u5176\u4ed6\u7684\u64cd\u4f5c\u65b9\u5f0f\u6bd4\u5982\u8bf4\uff1aReadProcessMemory\u7b49\uff0c\u6211\u5728\u8fd9\u91cc\u5c31\u4e0d\u4e00\u4e00\u4ecb\u7ecd\u4e86\uff09\uff0c\u6211\u4eec\u770b\u4e00\u4e0b<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nWriteProcessMemory\u7684\u7528\u6cd5\uff1a\r\nBOOL WriteProcessMemory(    HANDLE hProcess, \/\/ handle to process whose memory is written to\r\n    LPVOID lpBaseAddress, \/\/ address to start writing to\r\n    LPVOID lpBuffer, \/\/ pointer to buffer to write data to\r\n    DWORD nSize, \/\/ number of bytes to write\r\n    LPDWORD lpNumberOfBytesWritten \/\/ actual number of bytes written\r\n   );\r\n<\/pre>\n<p>5\u3001\u4e0b\u9762\u7528CloseHandle\u5173\u95ed\u8fdb\u7a0b\u53e5\u67c4\u5c31\u5b8c\u6210\u4e86\u3002<br \/>\n\u8fd9\u5c31\u662f\u8fd9\u7c7b\u6e38\u620f\u5916\u6302\u7684\u7a0b\u5e8f\u5b9e\u73b0\u90e8\u4efd\u7684\u65b9\u6cd5\uff0c\u597d\u4e86\uff0c\u6709\u4e86\u6b64\u65b9\u6cd5\uff0c\u6211\u4eec\u5c31\u6709\u4e86\u7406\u6027\u7684\u8ba4\u8bc6\uff0c\u6211\u4eec\u770b\u770b\u5b9e\u9645\u4f8b\u5b50\uff0c\u63d0\u5347\u4e00\u4e0b\u6211\u4eec\u7684\u611f\u6027\u8ba4\u8bc6\u5427\uff0c\u4e0b\u9762\u5c31\u662fXX\u6e38\u620f\u7684\u5916\u6302\u4ee3\u7801\uff0c\u6211\u4eec\u7167\u4e0a\u9762\u7684\u65b9\u6cd5\u5bf9\u5e94\u53bb\u7814\u7a76\u4e00\u4e0b\u5427\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nconst\r\nResourceOffset: dword = $004219F4;\r\nresource: dword = 3113226621;\r\nResourceOffset1: dword = $004219F8;\r\nresource1: dword = 1940000000;\r\nResourceOffset2: dword = $0043FA50;\r\nresource2: dword = 1280185;\r\nResourceOffset3: dword = $0043FA54;\r\nresource3: dword = 3163064576;\r\nResourceOffset4: dword = $0043FA58;\r\nresource4: dword = 2298478592;\r\nvar\r\nhw: HWND;\r\npid: dword;\r\nh: THandle;\r\ntt: Cardinal;\r\nbegin\r\nhw := FindWindow(\u2018XX\u2019, nil);\r\nif hw = 0 then\r\n    Exit;\r\nGetWindowThreadProcessId(hw, @pid);\r\nh := OpenProcess(PROCESS_ALL_ACCESS, false, pid);\r\nif h = 0 then\r\n    Exit;\r\nif flatcheckbox1.Checked=true then\r\nbegin\r\n    WriteProcessMemory(h, Pointer(ResourceOffset), @Resource, sizeof(Resource), tt);\r\n    WriteProcessMemory(h, Pointer(ResourceOffset1), @Resource1, sizeof(Resource1), tt);\r\nend;\r\nif flatcheckbox2.Checked=true then\r\nbegin\r\n    WriteProcessMemory(h, Pointer(ResourceOffset2), @Resource2, sizeof(Resource2), tt);\r\n    WriteProcessMemory(h, Pointer(ResourceOffset3), @Resource3, sizeof(Resource3), tt);\r\n    WriteProcessMemory(h, Pointer(ResourceOffset4), @Resource4, sizeof(Resource4), tt);\r\nend;\r\nMessageBeep(0);\r\nCloseHandle(h);\r\nclose;\r\n<\/pre>\n<p>\u8fd9\u4e2a\u6e38\u620f\u662f\u7528\u4e86\u591a\u5730\u5740\u5bf9\u6240\u8981\u63d0\u4ea4\u7684\u6570\u636e\u8fdb\u884c\u4e86\u6821\u9a8c\uff0c\u6240\u4ee5\u8bf4\u8fd9\u7c7b\u6e38\u620f\u5916\u6302\u5236\u4f5c\u5e76\u4e0d\u662f\u5f88\u96be\uff0c\u6700\u96be\u7684\u662f\u8981\u627e\u5230\u8fd9\u4e9b\u5730\u5740\u3002<\/p>\n<p>\u6211\u4e00\u76f4\u6ca1\u6709\u641e\u61c2\u5236\u4f5c\u52a0\u901f\u5916\u6302\u662f\u600e\u4e48\u4e00\u56de\u4e8b\uff0c\u76f4\u5230\u524d\u4e0d\u4e45\u53c8\u7ffb\u51fa\u6765\u4e862001\u5e74\u4e0b\u534a\u671f\u7684\u300a\u7a0b\u5e8f\u5458\u5408\u8ba2\u672c\u300b\u4e2d\u300a\u201c\u53d8\u901f\u9f7f\u8f6e\u201d\u7814\u7a76\u624b\u8bb0\u300b\u91cd\u65b0\u56de\u5473\u4e86\u4e00\u904d\uff0c\u624d\u6709\u4e86\u4e00\u70b9\u70b9\u5f00\u609f\uff0c\u968f\u540e\u7528Delphi\u91cd\u5199\u4e86\u4e00\u904d\uff0c\u4e0b\u9762\u6211\u5c31\u628a\u6211\u7684\u5fc3\u5f97\u8bf4\u7ed9\u5927\u5bb6\u542c\u542c\uff0c\u5e76\u4e14\u5728\u6b64\u611f\u8c22\u300a\u201c\u53d8\u901f\u9f7f\u8f6e\u201d\u7814\u7a76\u624b\u8bb0\u300b\u4f5c\u8005\u891a\u745e\u5927\u8672\u7ed9\u4e86\u63d0\u793a\u3002\u5e9f\u8bdd\u6211\u5c31\u4e0d\u591a\u8bf4\u4e86\uff0c\u90a3\u5c31\u5f00\u59cb\u795e\u5947\u7684\u52a0\u901f\u578b\u5916\u6302\u4f53\u9a8c\u4e4b\u65c5\u5427\uff01<br \/>\n\u539f\u672c\u6211\u4e00\u76f4\u4ee5\u4e3a\u52a0\u901f\u5916\u6302\u662f\u9488\u5bf9\u67d0\u4e2a\u6e38\u620f\u800c\u5199\u7684\uff0c\u540e\u6765\u53d1\u73b0\u6211\u8fd9\u79cd\u6982\u5ff5\u662f\u4e0d\u5bf9\u7684\uff0c\u6240\u8c13\u52a0\u901f\u5916\u6302\u5176\u5b9e\u662f\u4fee\u6539\u65f6\u949f\u9891\u7387\u8fbe\u5230\u52a0\u901f\u7684\u76ee\u7684\u3002<br \/>\n\u4ee5\u524dDOS\u65f6\u4ee3\u73a9\u8fc7\u7f16\u7a0b\u7684\u4eba\u5c31\u4f1a\u9a6c\u4e0a\u60f3\u5230\uff0c\u8fd9\u5f88\u7b80\u5355\u561b\u4e0d\u5c31\u662f\u76f4\u63a5\u4fee\u6539\u4e00\u4e0b8253\u5bc4\u5b58\u5668\u561b\uff0c\u8fd9\u5728\u4ee5\u524dDOS\u65f6\u4ee3\u53ef\u80fd\u53ef\u4ee5\u884c\u5f97\u901a\uff0c\u4f46\u662fwindows\u5219\u4e0d\u7136\u3002windows\u662f\u4e00\u4e2a32\u4f4d\u7684\u64cd\u4f5c\u7cfb\u7edf\uff0c\u5e76\u4e0d\u662f\u4f60\u60f3\u6539\u54ea\u5c31\u6539\u54ea\u7684\uff08\u5fae\u8f6f\u7684\u4e1c\u4e1c\u5c31\u662f\u5982\u6b64\u9738\u6c14\uff0c\u8bf4\u4e0d\u7ed9\u4f60\u6539\u5c31\u4e0d\u7ed9\u4f60\u6539^_^\uff09\uff0c\u4f46\u8981\u6539\u4e5f\u4e0d\u662f\u4e0d\u53ef\u80fd\uff0c\u6211\u4eec\u53ef\u4ee5\u901a\u8fc7\u4e24\u79cd\u65b9\u6cd5\u6765\u5b9e\u73b0\uff1a\u7b2c\u4e00\u662f\u5199\u4e00\u4e2a\u786c\u4ef6\u9a71\u52a8\u6765\u5b8c\u6210\uff0c\u7b2c\u4e8c\u662f\u7528Ring0\u6765\u5b9e\u73b0\uff08\u8fd9\u79cd\u65b9\u6cd5\u662fCIH\u7684\u4f5c\u8005\u9648\u76c8\u8c6a\u9996\u7528\u7684\uff0c\u5b83\u7684\u539f\u7406\u662f\u4fee\u6539\u4e00\u4e0bIDT\u8868-&gt;\u521b\u5efa\u4e00\u4e2a\u4e2d\u65ad\u95e8-&gt;\u8fdb\u5165Ring0-&gt;\u8c03\u7528\u4e2d\u65ad\u4fee\u6539\u5411\u91cf\uff0c\u4f46\u662f\u6ca1\u6709\u529e\u6cd5\u53ea\u80fd\u7528ASM\u6c47\u7f16\u6765\u5b9e\u73b0\u8fd9\u4e00\u5207*_*\uff0c\u505a\u4e3a\u9ad8\u7ea7\u8bed\u8a00\u4f7f\u7528\u8005\u60e8\u5566\uff01\uff09\uff0c\u7528\u7b2c\u4e00\u79cd\u65b9\u6cd5\u7528\u70b9\u9ebb\u70e6\uff0c\u6240\u4ee5\u6211\u4eec\u5728\u8fd9\u91cc\u5c31\u7528\u7b2c\u4e8c\u79cd\u65b9\u6cd5\u5b9e\u73b0\u5427~~~<br \/>\n\u5728\u5b9e\u73b0\u4e4b\u524d\u6211\u4eec\u6765\u7406\u4e00\u4e0b\u601d\u8def\u5427\uff1a<br \/>\n1\u3001\u6211\u4eec\u9996\u5148\u8981\u5199\u4e00\u4e2a\u8fc7\u7a0b\u5728\u8fd9\u4e2a\u8fc7\u7a0b\u91cc\u5d4c\u5165\u6c47\u7f16\u8bed\u8a00\u6765\u5b9e\u73b0\u4fee\u6539IDE\u8868\u3001\u521b\u5efa\u4e2d\u65ad\u95e8\uff0c\u4fee\u6539\u5411\u91cf\u7b49\u5de5\u4f5c<br \/>\n2\u3001\u8c03\u7528\u8fd9\u4e2a\u8fc7\u7a0b\u6765\u5b9e\u73b0\u52a0\u901f\u529f\u80fd<br \/>\n\u597d\u4e86\uff0c\u73b0\u5728\u601d\u8def\u6709\u4e86\uff0c\u6211\u4eec\u5c31\u8fb9\u770b\u4ee3\u7801\u8fb9\u8bb2\u89e3\u5427\uff1a<br \/>\n\u9996\u5148\u6211\u4eec\u5efa\u7acb\u4e00\u4e2a\u8fc7\u7a0b\uff0c\u8fd9\u4e2a\u8fc7\u7a0b\u5c31\u662f\u672c\u7a0b\u5e8f\u7684\u6838\u5fc3\u90e8\u4efd\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure SetRing(value:word); stdcall;\r\nconst ZDH = $03;        \uff0f\uff0f \u8bbe\u4e00\u4e2a\u4e2d\u65ad\u53f7\r\nvar\r\nIDT : array &#x5B;0..5] of byte; \uff0f\uff0f \u4fdd\u5b58IDT\u8868\r\nOG : dword;          \uff0f\uff0f\u5b58\u653e\u65e7\u5411\u91cf\r\nbegin\r\n   asm\r\n     push ebx\r\n     sidt IDT                  \uff0f\uff0f\u8bfb\u5165\u4e2d\u65ad\u63cf\u8ff0\u7b26\u8868\r\n     mov ebx, dword ptr &#x5B;IDT+2] \uff0f\uff0fIDT\u8868\u57fa\u5730\u5740\r\n     add ebx, 8*ZDH \uff0f\uff0f\u8ba1\u7b97\u4e2d\u65ad\u5728\u4e2d\u65ad\u63cf\u8ff0\u7b26\u8868\u4e2d\u7684\u4f4d\u7f6e\r\n     cli                       \uff0f\uff0f\u5173\u4e2d\u65ad\r\n     mov dx, word ptr &#x5B;ebx+6]\r\n     shl edx, 16d\r\n     mov dx, word ptr &#x5B;ebx]\r\n     mov &#x5B;OG], edx\r\n     mov eax, offset @@Ring0   \uff0f\uff0f\u6307\u5411Ring0\u7ea7\u4ee3\u7801\u6bb5\r\n     mov word ptr &#x5B;ebx], ax        \uff0f\uff0f\u4f4e16\u4f4d,\u4fdd\u5b58\u57281,2\u4f4d\r\n     shr eax, 16d\r\n     mov word ptr &#x5B;ebx+6], ax      \uff0f\uff0f\u9ad816\u4f4d\uff0c\u4fdd\u5b58\u57286,7\u4f4d\r\n     int ZDH             \uff0f\uff0f\u4e2d\u65ad\r\n     mov ebx, dword ptr &#x5B;IDT+2]    \uff0f\uff0f\u91cd\u65b0\u5b9a\u4f4d\r\n     add ebx, 8*ZDH\r\n     mov edx, &#x5B;OG]\r\n     mov word ptr &#x5B;ebx], dx\r\n     shr edx, 16d\r\n     mov word ptr &#x5B;ebx+6], dx      \uff0f\uff0f\u6062\u590d\u88ab\u6539\u4e86\u7684\u5411\u91cf\r\n     pop ebx\r\n     jmp @@exitasm \uff0f\uff0f\u5230exitasm\u5904\r\n    @@Ring0:    \uff0f\uff0fRing0,\u8fd9\u4e2a\u4e5f\u662f\u6700\u6700\u6700\u6838\u5fc3\u7684\u4e1c\u4e1c\r\n      mov al,$34    \uff0f\uff0f\u5199\u51658253\u63a7\u5236\u5bc4\u5b58\u5668\r\n      out $43,al\r\n      mov ax,value\u3000\uff0f\uff0f\u5199\u5165\u5b9a\u65f6\u503c\r\n      out $40,al    \uff0f\uff0f\u5199\u5b9a\u65f6\u503c\u4f4e\u4f4d\r\n      mov al,ah\r\n      out $40,al    \uff0f\uff0f\u5199\u5b9a\u65f6\u503c\u9ad8\u4f4d\r\n      iretd         \uff0f\uff0f\u8fd4\u56de\r\n   @@exitasm:\r\n   end;\r\nend;\r\n<\/pre>\n<p>\u6700\u6838\u5fc3\u7684\u4e1c\u897f\u5df2\u7ecf\u5199\u5b8c\u4e86\uff0c\u5927\u90e8\u4efd\u8bfb\u8005\u662f\u77e5\u5176\u7136\u4e0d\u77e5\u5176\u6240\u4ee5\u7136\u5427\uff0c\u5475\u5475\uff0c\u4e0d\u8fc7\u4e0d\u77e5\u5176\u6240\u4ee5\u7136\u4e5f\u7136\u3002\u4e0b\u9762\u6211\u4eec\u5c31\u8bd5\u7740\u7528\u4e00\u4e0b\u8fd9\u4e2a\u8fc7\u7a0b\u6765\u505a\u4e00\u4e2a\u7c7b\u4f3c\u4e8e\u201c\u53d8\u901f\u9f7f\u8f6e\u201d\u7684\u4e00\u4e2a\u4e1c\u4e1c\u5427\uff01<br \/>\n\u5148\u52a0\u4e00\u4e2a\u7a97\u53e3\uff0c\u5728\u7a97\u53e3\u4e0a\u653e\u4e0a\u4e00\u4e2atrackbar\u63a7\u4ef6\u628a\u5176Max\u8bbe\u4e3a20\uff0cMin\u8bbe\u4e3a1\uff0c\u628aPosition\u8bbe\u4e3a10\uff0c\u5728\u8fd9\u4e2a\u63a7\u4ef6\u7684Change\u4e8b\u4ef6\u91cc\u5199\u4e0a\uff1aSetRing(strtoint(\u2018$\u2019+inttostr(1742+(10-trackbar1.Position)*160)));\u56e0\u4e3awindows\u9ed8\u8ba4\u7684\u503c\u4e3a$1742\uff0c\u6240\u4ee5\u6211\u4eec\u628a1742\u505a\u4e3a\u57fa\u6570\uff0c\u53c8\u56e0\u4e3a\u503c\u8d8a\u5c0f\u8d8a\u5feb\uff0c\u53cd\u4e4b\u8d8a\u6162\u7684\u539f\u7406\uff0c\u6240\u4ee5\u5199\u4e86\u8fd9\u6837\u4e00\u4e2a\u516c\u5f0f\uff0c\u597d\u4e86\uff0c\u8fd9\u5c31\u662f\u201c\u53d8\u901f\u9f7f\u8f6e\u201d\u7684\u4e00\u4e2aDelphi\uff0bASM\u7248\u4e86\uff08\u53ea\u9002\u7528\u4e8ewin9X\uff09\uff0c\u5475\u5475\uff0c\u8bd5\u4e00\u4e0b\u5427\uff0c\u8fd9\u5bf9\u4f60\u5e2e\u52a9\u4f1a\u5f88\u5927\u7684\uff0c\u5475\u5475\u3002<br \/>\n\u5728win2000\u91cc\uff0c\u6211\u4eec\u4e0d\u53ef\u80fd\u5b9e\u73b0\u5728\u76f4\u63a5\u5bf9\u7aef\u53e3\u8fdb\u884c\u64cd\u4f5c\uff0cRing0\u4e5f\u5931\u4e86\u6548\uff0c\u6709\u7684\u4eba\u5c31\u4f1a\u60f3\u5230\uff0c\u6211\u4eec\u53ef\u4ee5\u5199\u9a71\u52a8\u7a0b\u5e8f\u6765\u5b8c\u6210\u5440\uff0c\u4f46\u5728\u8fd9\u91cc\u6211\u544a\u8bc9\u4f60\uff0cwindows2000\u7684\u9a71\u52a8\u4e0d\u662f\u4e00\u4e2aVxD\u5c31\u80fd\u5b9e\u73b0\u7684\uff0c\u50cf\u6211\u8fd9\u6837\u7684\u4f4e\u624b\u662f\u5199\u4e0d\u51fawindows\u6240\u7528\u7684\u9a71\u52a8WDM\u7684\uff0c\u6ca1\u529e\u6cd5\uff0c\u6211\u53ea\u6709\u501f\u52a9\u5916\u529b\u5b9e\u73b0\u4e86\uff0cProtTalk\u5c31\u662f\u4e00\u4e2a\u5f88\u597d\u7684\u8bbe\u5907\u9a71\u52a8\uff0c\u4ed6\u5f88\u65b9\u4fbf\u7684\u6765\u5b9e\u73b0\u5bf9\u4f4e\u5c42\u7aef\u53e3\u7684\u64cd\u4f5c\uff0c\u4ece\u800c\u5b9e\u73b0\u52a0\u901f\u5916\u6302\u3002<br \/>\n1\u3001\u6211\u4eec\u9996\u5148\u8981\u4e0b\u4e00\u4e2aPortTalk\u9a71\u52a8\uff0c\u4ed6\u7684\u5b98\u65b9\u7f51\u7ad9\u662fhttp:\/\/www.beyondlogic.org<br \/>\n2\u3001\u6211\u4eec\u8981\u628a\u91cc\u9762\u7684prottalk.sys\u62f7\u8d1d\u51fa\u6765\u3002<br \/>\n3\u3001\u5efa\u7acb\u4e00\u4e2aProtalk.sys\u7684\u63a5\u53e3\uff08\u6211\u60f3\u7701\u7565\u4e86\uff0c\u5927\u5bb6\u53ef\u4ee5\u4e0ahttp:\/\/www.freewebs.com\/liuyue\/porttalk.pas\u4e0b\u4e2apas\u6587\u4ef6\u81ea\u5df1\u770b\u5427\uff09<br \/>\n4\u3001\u5b9e\u73b0\u52a0\u901f\u5916\u6302\u3002<br \/>\n\u672c\u6765\u5c31\u7bc7\u5c31\u662f\u8865\u5145\u7bc7\u539f\u7406\u6211\u4e5f\u4e0d\u60f3\u8bb2\u592a\u591a\u4e86\uff0c\u4e0b\u9762\u5c31\u8bb2\u4e00\u4e0b\u8fd9\u7a0b\u5e8f\u7684\u5b9e\u73b0\u65b9\u6cd5\u5427\uff0c\u5982\u679c\u8bf4\u7528ProtTalk\u6765\u64cd\u4f5c\u7aef\u53e3\u5c31\u5bb9\u6613\u591a\u4e86\uff0c\u6bd4win98\u4e0b\u7528ring\u6743\u9650\u64cd\u4f5c\u65b9\u4fbf\u3002<br \/>\n1\u3001\u65b0\u5efa\u4e00\u4e2a\u5de5\u7a0b\uff0c\u628a\u521a\u521a\u4e0b\u7684\u63a5\u53e3\u6587\u4ef6\u548cProtalk.sys\u4e00\u8d77\u62f7\u5230\u5de5\u7a0b\u6587\u4ef6\u4fdd\u5b58\u7684\u6587\u4ef6\u5939\u4e0b\u3002<br \/>\n2\u3001\u6211\u4eec\u5728\u6211\u4eec\u65b0\u5efa\u7684\u5de5\u7a0b\u52a0\u5165\u6211\u4eec\u7684\u63a5\u53e3\u6587\u4ef6<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nuses\r\n    windows,ProtTalk\u2026\u2026\r\n<\/pre>\n<p>3\u3001\u6211\u4eec\u5efa\u7acb\u4e00\u4e2a\u8fc7\u7a0b<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure SetRing(value:word);\r\nbegin\r\nif not OpenPortTalk then exit;\r\noutportb($43,$34);\r\noutportb($40,lo(Value));\r\noutprotb($40,hi(value));\r\nClosePortTalk;\r\nend;\r\n<\/pre>\n<p>4\u3001\u5148\u52a0\u4e00\u4e2a\u7a97\u53e3\uff0c\u5728\u7a97\u53e3\u4e0a\u653e\u4e0a\u4e00\u4e2atrackbar\u63a7\u4ef6\u628a\u5176Max\u8bbe\u4e3a20\uff0cMin\u8bbe\u4e3a1\uff0c\u628aPosition\u8bbe\u4e3a10\uff0c\u5728\u8fd9\u4e2a\u63a7\u4ef6\u7684Change\u4e8b\u4ef6\u91cc\u5199\u4e0a\uff1a<\/p>\n<p>SetRing(strtoint(\u2018$\u2019+inttostr(1742+(10-trackbar1.Position)*160)));<\/p>\n<p>\u7f51\u7edc\u6e38\u620f\u7684\u5c01\u5305\u6280\u672f\u662f\u5927\u591a\u6570\u7f16\u7a0b\u7231\u597d\u8005\u90fd\u6bd4\u8f83\u5173\u6ce8\u7684\u5173\u6ce8\u7684\u95ee\u9898\u4e4b\u4e00\uff0c\u5728\u8fd9\u4e00\u7bc7\u91cc\u5c31\u8ba9\u6211\u4eec\u4e00\u8d77\u7814\u7a76\u4e00\u4e0b\u8fd9\u4e00\u4e2a\u95ee\u9898\u5427\u3002<br \/>\n\u522b\u770b\u8fd9\u662f\u5c01\u5305\u8fd9\u4e00\u95ee\u9898\uff0c\u4f46\u662f\u6d89\u53ca\u7684\u6280\u672f\u8303\u56f4\u5f88\u5e7f\u8303\uff0c\u5b9e\u73b0\u7684\u65b9\u5f0f\u4e5f\u5f88\u591a\uff08\u6bd4\u5982\u8bf4APIHOOK,VXD,Winsock2\u90fd\u53ef\u4ee5\u5b9e\u73b0\uff09\uff0c\u5728\u8fd9\u91cc\u6211\u4eec\u4e0d\u53ef\u80fd\u6bcf\u79cd\u6280\u672f\u548c\u65b9\u6cd5\u90fd\u6d89\u53ca\uff0c\u6240\u4ee5\u6211\u5728\u8fd9\u91cc\u4ee5Winsock2\u6280\u672f\u4f5c\u8be6\u7ec6\u8bb2\u89e3\uff0c\u5c31\u7b97\u4f5c\u629b\u7816\u5f15\u7389\u3002<br \/>\n\u7531\u4e8e\u5927\u591a\u6570\u8bfb\u8005\u5bf9\u5c01\u5305\u7c7b\u7f16\u7a0b\u4e0d\u662f\u5f88\u4e86\u89e3\uff0c\u6211\u5728\u8fd9\u91cc\u5c31\u7b80\u5355\u4ecb\u7ecd\u4e00\u4e0b\u76f8\u5173\u77e5\u8bc6\uff1a<br \/>\nAPIHooK\uff1a<br \/>\n\u7531\u4e8eWindows\u7684\u628a\u5185\u6838\u63d0\u4f9b\u7684\u529f\u80fd\u90fd\u5c01\u88c5\u5230API\u91cc\u9762\uff0c\u6240\u4ee5\u5927\u5bb6\u8981\u5b9e\u73b0\u529f\u80fd\u5c31\u5fc5\u987b\u901a\u8fc7API\uff0c\u6362\u53e5\u8bdd\u8bf4\u5c31\u662f\u6211\u4eec\u8981\u60f3\u6355\u83b7\u6570\u636e\u5c01\u5305\uff0c\u5c31\u5fc5\u987b\u5148\u8981\u5f97\u77e5\u9053\u5e76\u4e14\u6355\u83b7\u8fd9\u4e2aAPI\uff0c\u4eceAPI\u91cc\u9762\u5f97\u5230\u5c01\u5305\u4fe1\u606f\u3002<br \/>\nVXD\uff1a<br \/>\n\u76f4\u63a5\u901a\u8fc7\u63a7\u5236VXD\u9a71\u52a8\u7a0b\u5e8f\u6765\u5b9e\u73b0\u5c01\u5305\u4fe1\u606f\u7684\u6355\u83b7\uff0c\u4e0d\u8fc7VXD\u53ea\u80fd\u7528\u4e8ewin9X\u3002<br \/>\nwinsock2\uff1a<br \/>\nwinsock\u662fWindows\u7f51\u7edc\u7f16\u7a0b\u63a5\u53e3\uff0cwinsock\u5de5\u4f5c\u5728\u5e94\u7528\u5c42\uff0c\u5b83\u63d0\u4f9b\u4e0e\u5e95\u5c42\u4f20\u8f93\u534f\u8bae\u65e0\u5173\u7684\u9ad8\u5c42\u6570\u636e\u4f20\u8f93\u7f16\u7a0b\u63a5\u53e3\uff0cwinsock2\u662fwinsock2.0\u63d0\u4f9b\u7684\u670d\u52a1\u63d0\u4f9b\u8005\u63a5\u53e3\uff0c\u4f46\u53ea\u80fd\u5728win2000\u4e0b\u7528\u3002<br \/>\n\u597d\u4e86\uff0c\u6211\u4eec\u5f00\u59cb\u8fdb\u5165winsock2\u5c01\u5305\u5f0f\u7f16\u7a0b\u5427\u3002<br \/>\n\u5728\u5c01\u5305\u7f16\u7a0b\u91cc\u9762\u6211\u51c6\u5907\u5206\u4e24\u4e2a\u6b65\u9aa4\u5bf9\u5927\u5bb6\u8fdb\u884c\u8bb2\u89e3\uff1a1\u3001\u5c01\u5305\u7684\u6355\u83b7\uff0c2\u3001\u5c01\u5305\u7684\u53d1\u9001\u3002<br \/>\n\u9996\u5148\u6211\u4eec\u8981\u5b9e\u73b0\u7684\u662f\u5c01\u5305\u7684\u6355\u83b7\uff1a<br \/>\nDelphi\u7684\u5c01\u88c5\u7684winsock\u662f1.0\u7248\u7684\uff0c\u5f88\u81ea\u7136winsock2\u5c31\u7528\u4e0d\u6210\u3002\u5982\u679c\u8981\u4f7f\u7528winsock2\u6211\u4eec\u8981\u5bf9winsock2\u5728Delphi\u91cc\u9762\u505a\u4e00\u4e2a\u63a5\u53e3\uff0c\u624d\u53ef\u4ee5\u4f7f\u7528winsock2\u3002<br \/>\n1\u3001\u5982\u4f55\u505awinsock2\u7684\u63a5\u53e3\uff1f<br \/>\n1\uff09\u6211\u4eec\u8981\u5148\u5b9a\u4e49winsock2.0\u6240\u7528\u5f97\u5230\u7684\u7c7b\u578b\uff0c\u5728\u8fd9\u91cc\u6211\u4eec\u4ee5WSA_DATA\u7c7b\u578b\u505a\u793a\u8303\uff0c\u5927\u5bb6\u53ef\u4ee5\u4e3e\u4e00\u4eff\u4e09\u7684\u6765\u5b9e\u73b0winsock2\u5176\u4ed6\u7c7b\u578b\u7684\u5c01\u88c5\u3002<br \/>\n\u6211\u4eec\u8981\u77e5\u9053WSA_DATA\u7c7b\u578b\u4f1a\u88ab\u7528\u4e8eWSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer;\uff0c\u5927\u5bb6\u4f1a\u53d1\u73b0WSData\u662f\u5f15\u7528\u53c2\u6570\uff0c\u5728\u4f20\u5165\u53c2\u6570\u65f6\u4f20\u7684\u662f\u53d8\u91cf\u7684\u5730\u5740\uff0c\u6240\u4ee5\u6211\u4eec\u5bf9WSA_DATA\u505a\u4ee5\u4e0b\u5c01\u88c5\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nconst\r\n    WSADESCRIPTION_LEN     =   256;\r\n    WSASYS_STATUS_LEN      =   128;\r\ntype\r\n    PWSA_DATA = ^TWSA_DATA;\r\n    WSA_DATA = record\r\n      wVersion: Word;\r\n      wHighVersion: Word;\r\n      szDescription: array&#x5B;0..WSADESCRIPTION_LEN] of Char;\r\n      szSystemStatus: array&#x5B;0..WSASYS_STATUS_LEN] of Char;\r\n      iMaxSockets: Word;\r\n      iMaxUdpDg: Word;\r\n      lpVendorInfo: PChar;\r\n    end;\r\n    TWSA_DATA = WSA_DATA;\r\n<\/pre>\n<p>2\uff09\u6211\u4eec\u8981\u4eceWS2_32.DLL\u5f15\u5165winsock2\u7684\u51fd\u6570\uff0c\u5728\u6b64\u6211\u4eec\u4e5f\u662f\u4ee5WSAStartup\u4e3a\u4f8b\u505a\u51fd\u6570\u5f15\u5165\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n   function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;   implementation   const WinSocket2 = \u2018WS2_32.DLL\u2019;\r\n   function WSAStartup; external winsocket name \u2018WSAStartup\u2019;\r\n<\/pre>\n<p>\u901a\u8fc7\u4ee5\u4e0a\u65b9\u6cd5\uff0c\u6211\u4eec\u4fbf\u53ef\u4ee5\u5bf9winsock2\u505a\u63a5\u53e3\uff0c\u4e0b\u9762\u6211\u4eec\u5c31\u53ef\u4ee5\u7528winsock2\u505a\u5c01\u5305\u6355\u83b7\u4e86\uff0c\u4e0d\u8fc7\u9996\u5148\u8981\u6709\u4e00\u5757\u7f51\u5361\u3002\u56e0\u4e3a\u6d89\u53ca\u5230\u6b63\u5728\u8fd0\u4f5c\u7684\u7f51\u7edc\u6e38\u620f\u5b89\u5168\u95ee\u9898\uff0c\u6240\u4ee5\u6211\u4eec\u5728\u8fd9\u91cc\u4ee5IP\u6570\u636e\u5305\u4e3a\u4f8b\u505a\u5c01\u5305\u6355\u83b7\uff0c\u5982\u679c\u4e0b\u9762\u7684\u67d0\u4e9b\u6570\u636e\u7c7b\u578b\u60a8\u4e0d\u662f\u5f88\u6e05\u695a\uff0c\u8bf7\u60a8\u67e5\u9605MSDN\uff1a<br \/>\n1\uff09\u6211\u4eec\u8981\u8d77\u52a8WSA\uff0c\u8fd9\u65f6\u4e2a\u8981\u7528\u5230\u7684WSAStartup\u51fd\u6570\uff0c\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER WSAStartup(\r\n                   wVersionRequired: word\uff0c\r\n                   WSData: TWSA_DATA\r\n                  )\uff1b\r\n<\/pre>\n<p>2\uff09\u4f7f\u7528socket\u51fd\u6570\u5f97\u5230socket\u53e5\u67c4\uff0cm_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP); \u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER socket(af: Integer,\r\n               Struct: Integer,\r\n               protocol: Integer\r\n              ); m_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP);\r\n<\/pre>\n<p>\u5728\u7a0b\u5e8f\u91ccm_hSocket\u4e3asocket\u53e5\u67c4\uff0cAF_INET\uff0cSOCK_RAW\uff0cIPPROTO_IP\u5747\u4e3a\u5e38\u91cf\u3002<br \/>\n3)\u5b9a\u4e49SOCK_ADDR\u7c7b\u578b\uff0c\u8ddf\u636e\u6211\u4eec\u7684\u7f51\u5361IP\u7ed9Sock_ADDR\u7c7b\u578b\u9644\u503c\uff0c\u7136\u540e\u6211\u4eec\u4f7f\u7528bind\u51fd\u6570\u6765\u7ed1\u5b9a\u6211\u4eec\u7684\u7f51\u5361\uff0cBind\u51fd\u6570\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nType\r\n    IN_ADDR = record\r\n    S_addr : PChar;\r\n   End;Type\r\n   TSOCK_ADDR = record\r\n    sin_family: Word;\r\n    sin_port: Word;\r\n    sin_addr : IN_ADDR\r\n    sin_zero: array&#x5B;0..7] of Char;\r\n   End;var\r\nLocalAddr:TSOCK_ADDR;LocalAddr.sin_family: = AF_INET;\r\nLocalAddr.sin_port: = 0;\r\nLocalAddr.sin_addr.S_addr: = inet_addr(\u2019192.168.1.1\u2032); \uff0f\uff0f\u8fd9\u91cc\u4f60\u81ea\u5df1\u7684\u7f51\u5361\u7684IP\u5730\u5740,\u800cinet_addr\u8fd9\u4e2a\u51fd\u6570\u662fwinsock2\u7684\u51fd\u6570\u3002\r\nbind(m_hSocket, LocalAddr, sizeof(LocalAddr))\uff1b\r\n<\/pre>\n<p>4)\u7528WSAIoctl\u6765\u6ce8\u518cWSA\u7684\u8f93\u5165\u8f93\u51fa\u7ec4\u4ef6\uff0c\u5176\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n                 INTEGER WSAIoctl(s:INTEGER,\r\n\r\n                 dwIoControlCode : INTEGER,\r\n                 lpvInBuffer :INTEGER,\r\n                 cbInBuffer : INTEGER,\r\n                 lpvOutBuffer : INTEGER,\r\n                 cbOutBuffer: INTEGER,\r\n                 lpcbBytesReturned : INTEGER,\r\n                 lpOverlapped : INTEGER,\r\n                 lpCompletionRoutine : INTEGER\r\n                );\r\n<\/pre>\n<p>5)\u4e0b\u9762\u505a\u6b7b\u5faa\u73af\uff0c\u5728\u6b7b\u5faa\u73af\u5757\u91cc\uff0c\u6765\u5b9e\u73b0\u6570\u636e\u7684\u63a5\u6536\u3002\u4f46\u662f\u5f87\u73af\u4e2d\u95f4\u8981\u7528Sleep()\u505a\u5ef6\u65f6\uff0c\u4e0d\u7136\u7a0b\u5e8f\u4f1a\u51fa\u9519\u3002<br \/>\n6)\u5728\u5faa\u73af\u5757\u91cc\uff0c\u7528recv\u51fd\u6570\u6765\u63a5\u6536\u6570\u636e\uff0crecv\u51fd\u6570\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER recv (s : INTEGER,\r\n              buffer:Array&#x5B;0..4095] of byte,\r\n              length : INTEGER,\r\n              flags : INTEGER,\r\n             )\uff1b\r\n<\/pre>\n<p>7)\u5728buffer\u91cc\u5c31\u662f\u6211\u4eec\u63a5\u6536\u56de\u6765\u7684\u6570\u636e\u4e86\uff0c\u5982\u679c\u6211\u4eec\u60f3\u8981\u77e5\u9053\u6570\u636e\u662f\u4ec0\u4e48\u5730\u65b9\u53d1\u6765\u7684\uff0c\u90a3\u4e48\uff0c\u6211\u4eec\u8981\u5b9a\u4e49\u4e00\u5b9aIP\u5305\u7ed3\u6784\uff0c\u7528CopyMemory()\u628aIP\u4fe1\u606f\u4ecebuffer\u91cc\u9762\u8bfb\u51fa\u6765\u5c31\u53ef\u4ee5\u4e86\uff0c\u4e0d\u8fc7\u8bfb\u51fa\u6765\u7684\u662f\u5341\u516d\u8fdb\u5236\u7684\u6570\u636e\u9700\u8981\u8f6c\u6362\u4e00\u4e0b\u3002<br \/>\n\u770b\u4e86\u5c01\u5305\u6355\u83b7\u7684\u5168\u8fc7\u7a0b\u5e8f\uff0c\u5bf9\u4f60\u662f\u4e0d\u662f\u6709\u70b9\u8d77\u53d1\uff0c\u7136\u800c\u5728\u8fd9\u91cc\u8981\u544a\u8bc9\u5927\u5bb6\u7684\u662f\u5c01\u5305\u7684\u83b7\u5f97\u662f\u5f88\u5bb9\u6613\u7684\uff0c\u4f46\u662f\u8bb8\u591a\u6e38\u620f\u7684\u5c01\u5305\u90fd\u662f\u52a0\u5bc6\u7684\uff0c\u5982\u679c\u4f60\u60f3\u641e\u6e05\u695a\u6240\u5f97\u5230\u7684\u662f\u4ec0\u4e48\u5185\u5bb9\u8fd8\u9700\u8981\u81ea\u5df1\u8fdb\u884c\u5c01\u5305\u89e3\u5bc6\u3002<\/p>\n<p>\u5728\u672c\u7ae0\u4e2d\uff0c\u6211\u4eec\u4e3b\u8981\u6765\u7814\u7a76\u4e00\u4e0b\u5c01\u5305\u7684\u5236\u4f5c\u548c\u53d1\u9001\uff0c\u540c\u6837\uff0c\u6211\u4eec\u6240\u91c7\u7528\u7684\u65b9\u6cd5\u662fDelphi+winsock2\u6765\u5236\u4f5c\u3002\u5728\u4ee5\u524d\u8bf4\u8fc7\u5728Delphi\u4e2d\u53ea\u5c01\u88c5\u4e86winsock1\uff0cwinsock2\u9700\u8981\u81ea\u5df2\u5c01\u88c5\u4e00\u4e0b\uff0c\u6211\u5728\u6b64\u5c31\u4e0d\u591a\u4ecb\u7ecd\u5982\u4f55\u5c01\u88c5\u4e86\u3002<br \/>\n\u4e0b\u9762\u5c31\u4e00\u6b65\u6b65\u5b9e\u73b0\u6211\u4eec\u7684\u5c01\u5305\u5c01\u88c5\u4e0e\u53d1\u9001\u5427\uff1a<br \/>\n\u9996\u5148\uff0c\u6211\u4eec\u5e94\u8be5\u77e5\u9053\uff0c\u5c01\u5305\u662f\u5206\u4e24\u6bb5\u7684\uff0c\u4e00\u6bb5\u662fIP\uff0c\u4e00\u6bb5\u662f\u534f\u8bae\uff08TCP\uff0cUDP\uff0c\u5176\u4ed6\u534f\u8bae\uff09\uff0cIP\u5c31\u50cf\u90ae\u653f\u7f16\u7801\u4e00\u6837\uff0c\u6807\u8bc6\u7740\u4f60\u7684\u8fd9\u4e2a\u5c01\u5305\u662f\u4ece\u54ea\u91cc\u5230\u54ea\u91cc\uff0c\u800c\u534f\u8bae\u91cc\u8bb0\u5f55\u7740\u76ee\u6807\u6240\u8981\u7528\u5230\u7684\u5305\u7684\u683c\u5f0f\u53ca\u6821\u9a8c\u7b49\uff0c\u5728\u7f51\u7edc\u6e38\u620f\u4e2d\u7684\u534f\u8bae\u4e00\u822c\u90fd\u662f\u81ea\u5df2\u5b9a\u4e49\u7684\uff0c\u8981\u7834\u89e3\u7f51\u7edc\u6e38\u620f\u6700\u91cd\u8981\u7684\u662f\u5b66\u4f1a\u7834\u89e3\u7f51\u7edc\u6e38\u620f\u7684\u534f\u8bae\u7f51\u7edc\u6e38\u620f\u534f\u8bae\u7834\u89e3\uff0c\u4e3a\u4e86\u4e0d\u5f71\u54cd\u73b0\u8fd0\u884c\u7684\u7f51\u7edc\u6e38\u620f\u7684\u5b89\u5168\uff0c\u6211\u5728\u6b64\u4f1a\u4ee5UDP\u534f\u8bae\u4e3a\u4f8b\uff0c\u4ecb\u7ecd\u4e00\u4e0b\u7f51\u7edc\u534f\u8bae\u7684\u5c01\u5305\u4e0e\u53d1\u9001\u7684\u5168\u8fc7\u7a0b\u3002<br \/>\n\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u5f00\u59cb\u770b\u770b\u6574\u4e2a\u5c01\u5305\u5168\u8fc7\u7a0b\u4e86\uff1a<br \/>\n1\uff09\u6211\u4eec\u8981\u8d77\u52a8sock2\uff0c\u8fd9\u65f6\u4e2a\u8981\u7528\u5230\u7684WSAStartup\u51fd\u6570\uff0c\u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER WSAStartup(\r\n                   wVersionRequired: word\uff0c\r\n                   WSData: TWSA_DATA\r\n                  )\uff1b\r\n<\/pre>\n<p>\u5728\u7a0b\u5e8f\u4e2dwVersionRequired\u6211\u4eec\u4f20\u5165\u7684\u503c\u4e3a$0002,WSData\u4e3aTWSA_DATA\u7684\u7ed3\u6784\u3002<br \/>\n2\uff09\u4f7f\u7528socket\u51fd\u6570\u521b\u5efa\u5e76\u5f97\u5230socket\u53e5\u67c4; \u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER socket(af: Integer,\r\n               Struct: Integer,\r\n               protocol: Integer\r\n              );\r\n<\/pre>\n<p>\u6ce8\u610f\u7684\u662f\u5728\u6211\u4eec\u7684\u7a0b\u5e8f\u5c01\u5305\u4e2d\u9971\u542b\u4e86IP\u5305\u5934\uff0c\u6240\u4ee5\u6211\u4eec\u7684Struct\u53c2\u6570\u8fd9\u91cc\u8981\u4f20\u5165\u7684\u53c2\u6570\u503c\u4e3a2\uff0c\u8868\u793a\u5305\u542b\u4e86\u5305\u5934\u3002\u8be5\u51fd\u6570\u8fd4\u56de\u503c\u4e3a\u521a\u521a\u521b\u5efa\u7684winsocket\u7684\u53e5\u67c4\u3002<br \/>\n3\uff09\u4f7f\u7528setsockopt\u51fd\u6570\u8bbe\u7f6esock\u7684\u9009\u9879; \u7528\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nINTEGER setsockopt(s: Integer,\r\n                   level: Integer,\r\n                   optname: Integer,\r\n                   optval: PChar,\r\n                   optlen: Integer\r\n                  );\r\n<\/pre>\n<p>\u5728S\u5904\u4f20\u5165\u7684\u662fSocket\u53e5\u67c4\uff0c\u5728\u672c\u7a0b\u5e8f\u91cclevel\u8f93\u5165\u7684\u503c\u4e3a0\u8868\u793aIP\uff08\u5982\u679c\u662f6\u8868\u793aTCP\uff0c17\u8868\u793aUDP\u7b49~\uff09\uff0cOptName\u91cc\u5199\u51652\uff0c\u800coptval\u7684\u521d\u59cb\u503c\u586b\u51651\uff0coptlen\u4e3aoptval\u7684\u5927\u5c0f\u3002<br \/>\n4\uff09\u63a5\u4e0b\u6765\u6211\u4eec\u8981\u5206\u51e0\u4e2a\u6b65\u9aa4\u6765\u5b9e\u73b0\u6784\u5efa\u5c01\u5305\uff1a<br \/>\n1\u3001\u628aIP\u8f6c\u6362\u6210sock\u5730\u5740\uff0c\u7528inet_addr\u6765\u8f6c\u6362\u3002<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nLongint inet_addr(\r\n                   cp: PChar\r\n                  );\r\n<\/pre>\n<p>2\u3001\u5b9a\u4e49\u5305\u7684\u603b\u5927\u5c0f\u3001IP\u7684\u7248\u672c\u4fe1\u606f\u4e3aIP\u7ed3\u6784\uff1a<br \/>\n\u603b\u5305\u5927\u5c0f=IP\u5934\u7684\u5927\u5c0f+UDP\u5934\u7684\u5927\u5c0f+UDP\u6d88\u606f\u7684\u5927\u5c0f\uff0c<br \/>\nIP\u7684\u7248\u672c\uff0c\u5728\u6b64\u7a0b\u5e8f\u91cc\u5b9a\u4e49\u4e3a4\uff0c<\/p>\n<p>3\u3001\u586b\u5199IP\u5305\u5934\u7684\u7ed3\u6784\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n      ip.ipverlen := IP\u7684\u7248\u672c shl 4;\r\n      ip.iptos := 0;                \/\/ IP\u670d\u52a1\u7c7b\u578b\r\n      ip.iptotallength := ;         \/\/ \u603b\u5305\u5927\u5c0f\r\n      ip.ipid := 0;                 \/\/ \u552f\u4e00\u6807\u8bc6\uff0c\u4e00\u822c\u8bbe\u7f6e\u4e3a0\r\n      ip.ipoffset := 0;             \/\/ \u504f\u79fb\u5b57\u6bb5\r\n      ip.ipttl := 128;              \/\/ \u8d85\u65f6\u65f6\u95f4\r\n      ip.ipprotocol := $11;         \/\/ \u5b9a\u4e49\u534f\u8bae\r\n      ip.ipchecksum := 0 ;          \/\/ \u68c0\u9a8c\u603b\u6570\r\n      ip.ipsrcaddr := ;             \/\/ \u6e90\u5730\u5740\r\n      ip.ipdestaddr := ;            \/\/ \u76ee\u6807\u5730\u5740\r\n<\/pre>\n<p>4\u3001\u586b\u5199UDP\u5305\u5934\u7684\u7ed3\u6784\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n      udp.srcportno := ;            \/\/\u6e90\u7aef\u53e3\u53f7\r\n      udp.dstportno := ;            \/\/\u76ee\u6807\u7aef\u53e3\u53f7\r\n      udp.udplength := ;            \/\/UDP\u5305\u7684\u5927\u5c0f\r\n      udp.udpchecksum := ;         \/\/\u68c0\u9a8c\u603b\u6570\r\n<\/pre>\n<p>5\u3001\u628aIP\u5305\u5934\uff0cUDP\u5305\u5934\u53ca\u6d88\u606f\uff0c\u653e\u5165\u7f13\u5b58\u3002<br \/>\n6\u3001\u5b9a\u4e49\u8fdc\u7a0b\u4fe1\u606f\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n      remote.family := 2;\r\n      remote.port :=;               \/\/\u8fdc\u7a0b\u7aef\u53e3\r\n      remote.addr.addr :=;          \/\/\u8fdc\u7a0b\u5730\u5740    5\uff09\u6211\u4eec\u7528SendTo\u53d1\u9001\u5c01\u5305\uff0c\u7528\u6cd5\u5982\u4e0b\uff1a\r\nINTEGER sendto(s: Integer,\r\n               var Buf: Integer,\r\n               var len: Integer,\r\n               var flags: Integer,\r\n               var addrto: TSock_Addr;\r\n               tolen: Integer\r\n              );\r\n<\/pre>\n<p>\u5728S\u5904\u4f20\u5165\u7684\u662fSocket\u53e5\u67c4,Buf\u662f\u521a\u521a\u5efa\u597d\u7684\u5c01\u5305\uff0clen\u4f20\u5165\u5c01\u5305\u7684\u603b\u957f\u5ea6\u521a\u521a\u8ba1\u7b97\u8fc7\u4e86\uff0cflag\u662f\u4f20\u5165\u6807\u8bb0\u5728\u8fd9\u91cc\u6211\u4eec\u8bbe\u4e3a0\uff0caddto\u53d1\u9001\u5230\u7684\u76ee\u6807\u5730\u5740\uff0c\u5728\u8fd9\u91cc\u6211\u4eec\u5c31\u4f20\u5165remote\u5c31\u53ef\u4ee5\u4e86\uff0ctolen\u5199\u5165\u7684\u662fremote\u7684\u5927\u5c0f\u3002<\/p>\n<p>6\uff09\u5230\u4e86\u6700\u540e\u522b\u5fd8\u8bb0\u4e86\u7528CloseSocket(sh)\u5173\u4e86socket\u548c\u7528WSACleanup\u5173\u4e86winsock\u3002\u6700\u540e\u8981\u8bf4\u7684\u662f\u8fd9\u79cd\u53d1\u9001\u65b9\u5f0f\uff0c\u53ea\u80fd\u53d1\u9001\u5b8c\u5168\u88ab\u7834\u89e3\u7684\u7f51\u7edc\u534f\u8bae\uff0c\u5982\u679c\u8981\u5728\u522b\u4eba\u7684\u7a0b\u5e8f\u4e2d\u95f4\u53d1\u9001\u6570\u636e\u5c31\u53ea\u6709\u7528APIHOOK\u6216\u5728winsock2\u505a\u4e2d\u95f4\u5c42\u4e86\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5728\u51e0\u5e74\u524d\u6211\u770b\u5230\u522b\u4eba\u73a9\u7f51\u7edc\u6e38\u620f\u7528\u4e0a\u4e86\u5916\u6302\uff0c\u505a\u4e3a\u7a0b\u5e8f\u5458\u7684\u6211\u5fc3\u91cc\u5b9e\u5728\u662f\u4e0d\u723d\uff0c\u60f3\u641e\u6e05\u695a\u8fd9\u5230\u5e95\u662f\u600e\u4e48\u56de\u4e8b\u3002\u5c31\u62ff\u4e86\u4e00\u4e9b\u6765\u7814 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-188","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/188","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=188"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/188\/revisions"}],"predecessor-version":[{"id":4802,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/188\/revisions\/4802"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=188"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=188"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=188"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}