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.
вот код. Но почемуто браузер не открывает флешь, как подключить?
________________ [Ссылки могут видеть только зарегистрированные пользователи. ]
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.
вот код. Но почемуто браузер не открывает флешь, как подключить?
Как так?!!!??!?!??!7171717
А у меня он нычки из Ч.Д. собирает, делает срочняки, автоматом бицуху по 10к в час поднимает и убивает по шайбе в день!!!!!11111
З.Ы. Уговорили ... 100 дерева и научу как делать (Delphi) ваших ботов (via скайп\ТВ).