На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> автозаполнение форм веб , не заполняется форма (не на всех веб страницах)
    http://forum.sources.ru/index.php?act=Reg&CODE=00
    к примеру хочу заполнить форму регистрации на вашем сайте.не заполняется

    пишу код.
    ExpandedWrap disabled
      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
    Сообщение отредактировано: тигр -
      Вы хотите написать программу которая будет автоматически регистрировать в каталогах ? :lool:
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0244 ]   [ 16 queries used ]   [ Generated: 28.03.24, 21:00 GMT ]