ICQ PassWord and Info changer

Discussion in 'Skype, IRC, ICQ, Jabber и другие IM' started by FIND_ERROR, 19 Apr 2008.

  1. FIND_ERROR

    FIND_ERROR Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    70
    Likes Received:
    14
    Reputations:
    0
    Вот написал неольшую прожку для массовой смены инфы ICQ мож кому будет полезно, также сообшаем о багах и корявостях что добавить\удалить

    ps сильно непинать...

    скачать! :)
     
    #1 FIND_ERROR, 19 Apr 2008
    3 people like this.
  2. FIND_ERROR

    FIND_ERROR Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    70
    Likes Received:
    14
    Reputations:
    0
    эх...
    Code:
    unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ICQClient, StdCtrls,  ICQWorks, ExtCtrls, ComCtrls, ImgList,
  Menus, Spin, XPMan, Buttons, Gauges, MMsystem;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    XPManifest1: TXPManifest;
    BitBtn7: TBitBtn;
    ICQClient1: TICQClient;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    UinPass: TMemo;
    CheckUinPass: TMemo;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    GroupBox1: TGroupBox;
    Nik: TEdit;
    first: TEdit;
    last: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    email: TEdit;
    PMail: TCheckBox;
    GroupBox3: TGroupBox;
    city: TEdit;
    state: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    street: TEdit;
    Label7: TLabel;
    GroupBox4: TGroupBox;
    phone: TEdit;
    Label8: TLabel;
    fax: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Mobile: TEdit;
    GroupBox6: TGroupBox;
    HomePage: TEdit;
    DataB: TDateTimePicker;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    GroupBox7: TGroupBox;
    MemoAbout: TMemo;
    Gender: TComboBox;
    Country: TComboBox;
    GroupBox5: TGroupBox;
    GroupBox8: TGroupBox;
    Label11: TLabel;
    Label15: TLabel;
    GroupBox9: TGroupBox;
    NewPass: TEdit;
    BitBtn4: TBitBtn;
    GroupBox10: TGroupBox;
    UinPassFile: TEdit;
    Label16: TLabel;
    CheckUinPassFile: TEdit;
    Label17: TLabel;
    TimeOut: TSpinEdit;
    Label18: TLabel;
    CPW: TCheckBox;
    BitBtn6: TBitBtn;
    BitBtn11: TBitBtn;
    GroupBox11: TGroupBox;
    ProxyHost: TEdit;
    Label19: TLabel;
    Label20: TLabel;
    ProxyPort: TSpinEdit;
    ProxyType: TComboBox;
    Label21: TLabel;
    UseProxy: TCheckBox;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Image2: TImage;
    GroupBox12: TGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    ImageList1: TImageList;
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure ICQClient1UserGeneralInfo(Sender: TObject; UIN, NickName,
      FirstName, LastName, Email, City, State, Phone, Fax, Street,
      Cellular, Zip, Country: String; TimeZone: Byte;
      PublishEmail: Boolean);
    procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String);
    procedure UseProxyClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  zip:string;
  t:TStringList;
  Byear:Integer;
  BMonth:Integer;
  BDay:Integer;
  NU:Integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
 UinPass.Lines.LoadFromFile(UinPassFile.Text);
 UinPass.Lines.Add('END');
 Timer2.Interval:=TimeOut.Value;
 Timer3.Enabled:=False;
 Timer1.Enabled:=True;
 Timer2.Enabled:=True;
 t:=TStringList.create;
 t.text:=stringReplace(DateToStr(DataB.Date) ,'.',#13#10,[rfReplaceAll]);
 BYear:=StrToInt(t[2]);
 BMonth:=StrToInt(t[1]);
 BDay:=StrToInt(t[0]);
 t.free;


end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
 Timer3.Enabled:=True;
 NU:=0;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
 Timer3.Enabled:=True;
end;

procedure TForm1.ICQClient1UserGeneralInfo(Sender: TObject; UIN, NickName,
  FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular,
  Zip, Country: String; TimeZone: Byte; PublishEmail: Boolean);
begin
 Form1.Caption:=Zip;
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String);
begin
Form1.Caption:=ErrorMsg;
if (ErrorMsg='Bad password') then CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+ICQClient1.Password+' BAD');
end;

procedure TForm1.UseProxyClick(Sender: TObject);
var
 it:integer;
begin
 if (UseProxy.Checked=True) then
  begin
   it:=ProxyType.ItemIndex;
   ICQClient1.ProxyHost:=ProxyHost.Text;
   ICQClient1.ProxyPort:=ProxyPort.Value;
   ICQClient1.ProxyResolve:=True;
   case it of
    0:ICQClient1.ProxyType:=P_HTTP;
    1:ICQClient1.ProxyType:=P_HTTPS;
    2:ICQClient1.ProxyType:=P_NONE;
    3:ICQClient1.ProxyType:=P_SOCKS4;
    4:ICQClient1.ProxyType:=P_SOCKS5;
   end
  end
  else begin
   ICQClient1.ProxyResolve:=False;
   ICQClient1.ProxyType:=P_NONE;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 t1:TStringList;
begin
 ICQClient1.Disconnect;
 t1:=TStringList.create;
 t1.text:=stringReplace(UinPass.Lines.Strings[NU],';',#13#10,[rfReplaceAll]);
 ICQClient1.UIN:=StrToInt(t1[0]);
 ICQClient1.Password:=t1[1];
 ICQClient1.Login;
 Timer1.Enabled:=False;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 ICQClient1.SetSelfInfoGeneral(nik.Text, first.Text, last.text, email.text, city.text, state.text, phone.Text, fax.text, street.Text, Mobile.text, zip,Country.ItemIndex, 0, PMail.Checked);
 ICQClient1.SetSelfInfoMore(0, Gender.ItemIndex, HomePage.Text, BYear, BMonth, BDay, '0', '0', '0');
 ICQClient1.SetSelfInfoAbout(MemoAbout.Text);
 if (CPW.Checked=True) then ICQClient1.ChangePassword(NewPass.Text);
 NU:=NU+1;
 Sleep (3000);
 if (CPW.Checked=True) then CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+ICQClient1.Password+' GOOD')
  else CheckUinPass.Lines.Add(IntToStr(ICQClient1.UIN)+';'+NewPass.Text+' GOOD');

 if (UinPass.Lines.Strings[NU]='END') then
  begin
   Timer1.Enabled:=False;
   Timer2.Enabled:=False;
   Timer3.Enabled:=True;
   CheckUinPass.Lines.Add('COMPLITE');
   MessageBox (getactivewindow , 'CHANGE COMPLITE', 'CHANGE COMPLITE', mb_iconinformation or mb_ok);
  end;
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 Timer1.Enabled:=False;
 Timer2.Enabled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 NU:=0;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Timer1.Enabled:=True;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=0;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=1;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=2;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=3;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=4;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
 CheckUinPass.Lines.SaveToFile(CheckUinPassFile.Text);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
 OpenDialog1.Execute;
 UinPassFile.Text:=OpenDialog1.FileName;
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
 SaveDialog1.Execute;
 CheckUinPassFile.Text:=SaveDialog1.FileName;
end;

end.
     
    #2 FIND_ERROR, 19 Apr 2008
    1 person likes this.
  3. X-Venom

    X-Venom Banned

    Joined:
    29 Apr 2008
    Messages:
    569
    Likes Received:
    365
    Reputations:
    21
    Интерфейс приятный но иногда при выборе файла с номерами выдает ошибку и приложение закрывается
     
    #3 X-Venom, 18 Jul 2008
  4. de0n1k

    de0n1k New Member

    Joined:
    18 Jul 2008
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    У вас реальные проблемы со зрением
    [​IMG]
     
    #4 de0n1k, 19 Jul 2008
  5. R-e-V

    R-e-V Elder - Старейшина

    Joined:
    4 Jun 2008
    Messages:
    66
    Likes Received:
    65
    Reputations:
    0
    Прикол в том,что когда я ввожу картинку на депозите,он пишет что я ввёл её не правильно!(
     
    #5 R-e-V, 19 Jul 2008
    1 person likes this.
  6. sasha008

    sasha008 Elder - Старейшина

    Joined:
    2 Apr 2008
    Messages:
    102
    Likes Received:
    49
    Reputations:
    -3
    R-e-V для тебя http://slil.ru/25992879
     
    #6 sasha008, 19 Jul 2008
  7. white

    white Elder - Старейшина

    Joined:
    26 Dec 2006
    Messages:
    545
    Likes Received:
    219
    Reputations:
    31
    Не оставляем просто сообщения, что не работает, пишем какая ошибка или почему не работает.
     
    #7 white, 16 Aug 2008
  8. NightStalkeR

    NightStalkeR Member

    Joined:
    1 Nov 2007
    Messages:
    4
    Likes Received:
    10
    Reputations:
    -5
    Не работает просто,вроде указал инфу он пишет не возможно выполнить опирацию
     
    #8 NightStalkeR, 16 Aug 2008
    2 people like this.
  9. KeS

    KeS Elder - Старейшина

    Joined:
    7 Apr 2007
    Messages:
    51
    Likes Received:
    168
    Reputations:
    0
    Не работает. А имено Загружает Список уин;пас и стоит.. мертво. Может ктото сталкивался с такой проблемой?
     
    #9 KeS, 22 Aug 2008
    3 people like this.
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.