Yahoo Plus By Christian•h3cker SRC

الموضوع في 'قسم الدلفي-Delphi' بواسطة Mariio, بتاريخ ‏9 نوفمبر 2012.

  1. Mariio

    Mariio Excellent

    x

    [​IMG]


    عملت برنامج ياهو بلس
    تقدر تفتح اكثر من ياهو بنفس الوقت
    طلبه مني احد الاعضاء وقال مع الشرح
    وانا ايضا احتاجيته لاني فرمتت
    وشرحت كل الاكواد بلسورس

    Delphi Xe2
    :)



    [​IMG]



    صوره البرنامج



    [​IMG]




    كود:
    
    {
    Very Simple Yahoo Plus
    You Can Open More Then Yahoo
    By
    Christian•h3cker
    
    Just For Fun   <========== *_*
    
    Delphi Xe2
    November 7, 2012
    }
    
    unit Unit1;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls,
      Vcl.StdCtrls,registry;
    
    type
      TForm1 = class(TForm)
        Image1: TImage;
        Button3: TButton;
        Button1: TButton;
        Button2: TButton;
        procedure Button3Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      Reg:TRegistry;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Reg:=TRegistry.Create;
    reg.RootKey:= HKEY_CURRENT_USER;  //open root key
    if reg.KeyExists ('Software\yahoo') then     // if key exists
    try
      reg.OpenKey('Software\yahoo\pager\test',false) ;         //open
      reg.WriteString('Plural','1');                                  //write string
       MessageDlg('Finsh' , mtInformation, [mbOK], 0);                   //message
     finally
     reg.Free ;                                      //reg free
    
       //  else
    //   MessageDlg('Can''t Exists Yahoo' , mtInformation, [mbOK], 0);
    
    end;
    
     end;
    
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
     Reg:=TRegistry.Create;
    reg.RootKey:= HKEY_CURRENT_USER;           //open root key
    if reg.KeyExists ('Software\yahoo') then       // if key exists
    try
      reg.OpenKey('Software\yahoo\pager\test',false) ;     //open
      reg.WriteString('Plural','0');                        //  write string
      reg.DeleteKey('Plural');                                  //DeleteKey
     MessageDlg('Finsh' , mtInformation, [mbOK], 0);           //message
     finally
     reg.Free ;
    end;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    Application.Terminate;                               //Exit
    end;
    
    end.
    
    


    الاكواد كلها من كتابتي
    وهذا اسهل برنامج اعتبره
    فقط يفتح الريجستري ثم
    يضيف مفتاح ويعطيه قيمه 1
    وراح يفتح اكثر من ياهو
    واعطي قيمه 0 راح يفتح
    ياهو واحد فقط




    روابط التحميل



    [​IMG]



    Or



    [​IMG]





    [​IMG]




    [​IMG]
     
  2. Viřŭs ɱŝf

    Viřŭs ɱŝf .:: مشرف أقسام الأختراق ::.

    رد: Yahoo Plus By Christian•h3cker SRC

    مشكور اخى كرستيان شرح رائع جارى التطبيق ان شاء الله بس اما احمل الدلفى :d
     
  3. Mariio

    Mariio Excellent

    رد: Yahoo Plus By Christian•h3cker SRC

    هلا اخوي
    نورت الموضوع
     
  4. CHESTER 619 TOP

    CHESTER 619 TOP .:: V.I.P ::.

    رد: Yahoo Plus By Christian•h3cker SRC

    برمجة ذهبية وواجهة انيقة سلمت يداك
     
  5. رد: Yahoo Plus By Christian•h3cker SRC

    - تسلم الايـادى يا مبدعنا الغالى . بجد برنامج خلفيتوا روعة .
    - وان شاء الله نحمل ونرجع نديك احلى تقييم

    - تقبل مرورى
     

مشاركة هذه الصفحة