Заранее спасибо 
Код: Выделить всё
Dim MyProcess As New Process
MyProcess.StartInfo.FileName = "MzF"
' StartInfo.FileName - если приложение не описанно в sys.переменной PATH, у меня описанно как MzF
' то указывать полное имя к программе... н\п "C:\Program Files\Mozilla Firefox\firefox.exe"
MyProcess.StartInfo.Arguments = "forum.ozone.net"
MyProcess.Start()
' запуск процесса.Код: Выделить всё
function tform1.GetFormByNumber(document: IHTMLDocument2;
formNumber: integer): IHTMLFormElement;
var
forms: IHTMLElementCollection;
begin
forms := document.Forms as IHTMLElementCollection;
if formNumber < forms.Length then
result := forms.Item(formNumber,'') as IHTMLFormElement
else
result := nil;
end;
procedure tform1.SetFieldValue(theForm: IHTMLFormElement;
const fieldName: string; const newValue: string;
const instance: integer=0);
var
field: IHTMLElement;
inputField: IHTMLInputElement;
selectField: IHTMLSelectElement;
textField: IHTMLTextAreaElement;
begin
field := theForm.Item(fieldName,instance) as IHTMLElement;
if Assigned(field) then
begin
if field.tagName = 'INPUT' then
begin
inputField := field as IHTMLInputElement;
if (inputField.type_ 'radio') and
(inputField.type_ 'checkbox')
then
inputField.value := newValue
else
inputField.checked := (newValue = 'checked');
end
else if field.tagName = 'SELECT' then
begin
selectField := field as IHTMLSelectElement;
selectField.value := newValue;
end
else if field.tagName = 'TEXTAREA' then
begin
textField := field as IHTMLTextAreaElement;
textField.value := newValue;
end;
end;
end;[/b]
Потом просто сделал дополнительную процедуру Autologin:
[b]procedure tform1.autologin;
var
document: IHTMLDocument2;
theForm: IHTMLFormElement;
begin
document := WebBrowser1.Document as IHTMLDocument2;
theForm := GetFormByNumber(WebBrowser1.Document as IHTMLDocument2,0);
SetFieldValue(theForm,'Имя поля ввода логина','Имя пользователя');
form1.prog.Progress:= 4;
SetFieldValue(theForm,'Имя поля ввода пароля','Пароль');
form1.prog.Progress:= 3;
webbrowser1.Navigate('А тут код той ссылки, нажав на которую происходил вход на сайт. Тут Ява скрипт был какой то');
form1.prog.Progress:= 6;
ready:= false;
end;