[Помогите!] дружилка переписать (смотрите тему)

[F@CT312]

Привет всем писателям программ, всем нужна дружилка но никто не хочет ее писать т.к. есть старая добрая "дружилка 1,2", но она не долго работает и мне это не нравится, а сам писать я не умею Программы, я рефлектором вытащил типа исходник дружилки посмотрите и если сможите перепишите ее

public Form1 = class(Form)
    // Methods
    constructor Form1.Create;
    begin
        self.InitializeComponent
    end;

    procedure Form1.button_do_Click(sender: TObject; e: EventArgs);
    var
        element: HtmlElement;
    begin
        str := '';
        str2 := '';
        index := 0;
        flag := true;
        strArray := New(array[$16] of string);
        while (flag) do
        begin
            index := 0;
            elementsByTagName := self.webBrowser1.Document.GetElementsByTagName('form');
            num2 := 0;
            while ((num2 < elementsByTagName.Count)) do
            begin
                element := elementsByTagName.Item[num2];
                if (element.InnerHtml <> nil) then
                begin
                    elements2 := element.GetElementsByTagName('span');
                    i := 0;
                    while ((i < elements2.Count)) do
                    begin
                        element2 := elements2.Item[i];
                        innerText := element2.InnerText;
                        if (innerText <> nil) then
                        begin
                            str := innerText.Substring(0, innerText.IndexOf('@'));
                            str2 := innerText.Substring((innerText.IndexOf('@') + 1), ((innerText.LastIndexOf('.') - 1) - innerText.IndexOf('@')))
                        end;
                        inc(i)
                    end
                end;
                inc(num2)
            end;
            elementsByTagName := self.webBrowser1.Document.GetElementsByTagName('a');
            num2 := 0;
            while ((num2 < elementsByTagName.Count)) do
            begin
                element := elementsByTagName.Item[num2];
                str3 := element.InnerText;
                if ((str3 <> nil) and (str3 = '#$043d#$0430#$043f#$0438#$0441#$0430#$0442#$044c #$0441#$043e#$043e#$0431#$0449#$0435#$043d#$0438#$0435')) then
                begin
                    inc(index);
                    strArray[index] := element.GetAttribute('href').Substring((element.GetAttribute('href').IndexOf('=') + 1), ((element.GetAttribute('href').Length - element.GetAttribute('href').IndexOf('=')) - 1))
                end;
                inc(num2)
            end;
            if (index = 0) then
                flag := false;
            num2 := 1;
            while ((num2 <= index)) do
            begin
                uri := Uri.Create(string.Concat(New(array[6] of string, ( ( 'http://my.mail.ru/', str2, '/', str, '/addfriend?emails=', strArray[num2] ) ))));
                self.webBrowser1.Url := uri;
                while ((self.webBrowser1.ReadyState <> WebBrowserReadyState.Complete)) do
                begin
                    Application.DoEvents
                end;
                inc(num2)
            end;
            uri2 := Uri.Create('http://my.mail.ru/my/friends_requests');
            self.webBrowser1.Url := uri2;
            while ((self.webBrowser1.ReadyState <> WebBrowserReadyState.Complete)) do
            begin
                Application.DoEvents
            end
        end
    end;

    procedure Form1.button_GO_Click(sender: TObject; e: EventArgs);
    begin
        uri := Uri.Create(self.textBox_url.Text);
        self.webBrowser1.Url := uri
    end;

    procedure Form1.Dispose(disposing: boolean);
    begin
        if (disposing and (self.components <> nil)) then
            self.components.Dispose;
        inherited Dispose(disposing)
    end;

    procedure Form1.InitializeComponent;
    begin
        manager := ComponentResourceManager.Create(typeof(Form1));
        self.webBrowser1 := WebBrowser.Create;
        self.label1 := Label.Create;
        self.textBox_url := TextBox.Create;
        self.button_GO := Button.Create;
        self.button_do := Button.Create;
        inherited SuspendLayout;
        self.webBrowser1.Anchor := (AnchorStyles.Right or (AnchorStyles.Left or (AnchorStyles.Bottom or AnchorStyles.Top)));
        self.webBrowser1.Location := Point.Create(12, $1d);
        self.webBrowser1.MinimumSize := Size.Create(20, 20);
        self.webBrowser1.Name := 'webBrowser1';
        self.webBrowser1.Size := Size.Create($1fb, 350);
        self.webBrowser1.TabIndex := 0;
        self.webBrowser1.Url := Uri.Create('http://my.mail.ru/my/friends_requests', UriKind.Absolute);
        self.label1.AutoSize := true;
        self.label1.Font := Font.Create('Microsoft Sans Serif', 8.25, FontStyle.Bold, GraphicsUnit.Point, $cc);
        self.label1.Location := Point.Create(12, 9);
        self.label1.Name := 'label1';
        self.label1.Size := Size.Create($20, 13);
        self.label1.TabIndex := 1;
        self.label1.Text := 'URL';
        self.textBox_url.Location := Point.Create(50, 2);
        self.textBox_url.Name := 'textBox_url';
        self.textBox_url.Size := Size.Create($146, 20);
        self.textBox_url.TabIndex := 2;
        self.button_GO.Location := Point.Create($17e, 0);
        self.button_GO.Name := 'button_GO';
        self.button_GO.Size := Size.Create($3d, $17);
        self.button_GO.TabIndex := 3;
        self.button_GO.Text := '#$043f#$0435#$0440#$0435#$0439#$0442#$0438';
        self.button_GO.UseVisualStyleBackColor := true;
        self.button_GO.Click += EventHandler.Create(self,button_GO_Click);
        ;
        self.button_do.Location := Point.Create($1c1, 0);
        self.button_do.Name := 'button_do';
        self.button_do.Size := Size.Create($4b, $17);
        self.button_do.TabIndex := 4;
        self.button_do.Text := '#$0434#$0440#$0443#$0436#$0438#$0442#$044c';
        self.button_do.UseVisualStyleBackColor := true;
        self.button_do.Click += EventHandler.Create(self,button_do_Click);
        ;
        inherited AutoScaleDimensions := SizeF.Create(6, 13);
        inherited AutoScaleMode := AutoScaleMode.Font;
        self.BackColor := Color.MintCream;
        inherited ClientSize := Size.Create($213, $187);
        inherited Controls.Add(self.button_do);
        inherited Controls.Add(self.button_GO);
        inherited Controls.Add(self.textBox_url);
        inherited Controls.Add(self.label1);
        inherited Controls.Add(self.webBrowser1);
        inherited Icon := (manager.GetObject('$this.Icon') as Icon);
        inherited Name := 'Form1';
        self.Text := '#$0434#$0440#$0443#$0436#$0438#$043b#$043a#$0430 v1.3 © narfuls';
        inherited ResumeLayout(false);
        inherited PerformLayout
    end;


    // Fields
    strict private button_do: Button;
    strict private button_GO: Button;
    strict private components: IContainer = nil;
    strict private label1: Label;
    strict private textBox_url: TextBox;
    strict private webBrowser1: WebBrowser;

end;

Если перепишите все будут

Добавлено через 2 часа 2 минуты
ну вы где писатели ботов, и т.д,????