[Скрипт] Помогите (Пишу клиент для тюряги)

[OneShot]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('my.mail.ru');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag:variant;
begin
html_tag:=WebBrowser1.OleObject.document.forms.item(0).elements;
 for i:=0 to (html_tag.length-1) do
 begin
 if (html_tag.item(i).name='Login') then
 html_tag.item(i).value:=Edit1.Text;

 if (html_tag.item(i).name='Password') then
 html_tag.item(i).value:=Edit2.Text;

 if (html_tag.item(i).name='Domain') then
 html_tag.item(i).value:=Edit3.Text;

 if (html_tag.item(i).value=' Войти ') then
 html_tag.item(i).click;
 sleep(1000);
 webbrowser1.Navigate('http://my.mail.ru/apps/552078');
 end

end;

end.

вот код. Но почемуто браузер не открывает флешь, как подключить?

[OP3]

Так что, уважаемый, вы пишите - клиент для "тюряги" или форму с браузером для подгрузки приложения?
Про код ничего и не скажу даже ...

[kjksvkew]

может уже хватит с ботами ? их и так полно

[Nice42rus]

Это браузер а не клиент для тюряги

[BONER1488]

Цитата: Сообщение от OneShot unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Edit3: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin webbrowser1.Navigate('my.mail.ru'); end; procedure TForm1.Button2Click(Sender: TObject); var i:integer; s:string; html_tag:variant; begin html_tag:=WebBrowser1.OleObject.document.forms.item(0).elements; for i:=0 to (html_tag.length-1) do begin if (html_tag.item(i).name='Login') then html_tag.item(i).value:=Edit1.Text; if (html_tag.item(i).name='Password') then html_tag.item(i).value:=Edit2.Text; if (html_tag.item(i).name='Domain') then html_tag.item(i).value:=Edit3.Text; if (html_tag.item(i).value=' Войти ') then html_tag.item(i).click; sleep(1000); webbrowser1.Navigate('http://my.mail.ru/apps/552078'); end end; end. вот код. Но почемуто браузер не открывает флешь, как подключить?

у меня воообще ничего не происходит)))

[OP3]

Как так?!!!??!?!??!7171717
А у меня он нычки из Ч.Д. собирает, делает срочняки, автоматом бицуху по 10к в час поднимает и убивает по шайбе в день!!!!!11111

З.Ы. Уговорили ... 100 дерева и научу как делать (Delphi) ваших ботов (via скайп\ТВ).

[OneShot]

Мой вопрос звучал так: браузер не открывает флеш, как подключить?