Как програмно ввести логин и пароль на определенной странице?
Цитата:
Originally posted by Delpher
Как програмно ввести логин и пароль на определенной странице?
Как програмно ввести логин и пароль на определенной странице?
:???: :-? :???: :-? :???: :???: :-?
Цитата:
Originally posted by Delpher
Как програмно ввести логин и пароль на определенной странице?
Как програмно ввести логин и пароль на определенной странице?
Имеешь ввиду заполнить определенные поля на определенной странице?
Цитата:
Originally posted by Kai
Имеешь ввиду заполнить определенные поля на определенной странице?
Имеешь ввиду заполнить определенные поля на определенной странице?
Да
Подключаешься к IE:
var
Windows: IShellWindows;
i: integer;
begin
IE := FindWindow('IEFrame', nil);
Windows := CoShellWindows.Create;
for i := 0 to Windows.Count - 1 do
if (Windows.Item(i) as IWebBrowser2).HWND = IE then
begin
Windows.Item(i).QueryInterface(IWebBrowser2, Browser);
Browser.Document.QueryInterface(IHTMLDocument2, HTML);
break;
end;
end;
Будет что то неясно - пиши.
Переход на yandex: :) (чтоб уж ответ полным был)
Browser.Navigate2('http:\\yandex.ru', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
Процедура нахождения поля ввода, вставка туда текста, нахождение кнопки "Найти", и ее нажатие:
var
Document: Variant;
ovElements: OleVariant;
i, m: Integer;
begin
for m := 0 to HTML.forms.length - 1 do
begin
Document := HTML;
ovElements := Document.forms.Item(m).elements;
for i := 0 to ovElements.Length - 1 do
begin
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'text') = 0) then
begin
ovElements.item(i).Value := 'FindWindow';
end;
except
end;
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and (ovElements.item(i).Value = 'Найти') then
begin
ovElements.item(i).Click;
end;
except
end;
end;
end;
end;
необходимые библиотеки: MSHTML и SHDocVw
будет что-то неясно - пиши