Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.248.24] |
|
Сообщ.
#1
,
|
|
|
http://forum.sources.ru/index.php?act=Reg&CODE=00
к примеру хочу заполнить форму регистрации на вашем сайте.не заполняется пишу код. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://forum.sources.ru/index.php?act=Reg&CODE=00'); end; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; html: Variant; //Ã*âòîðèçÃ*öèÿ begin html := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (html.Length - 1) do begin if (html.item(i).name = 'send') then html.item(i).value := 'yes'; if (html.item(i).name = 'login') then html.item(i).value := Edit1.Text; if (html.item(i).name = 'UserName') then html.item(i).value := Edit2.Text; if (html.item(i).value = 'âõîä') then html.item(i).click; end; end; если рассмотреть пример с другого сайт, то форма заполняется. Что делать? http://web.tak.ru/registuser.php |
Сообщ.
#2
,
|
|
|
Вы хотите написать программу которая будет автоматически регистрировать в каталогах ?
|