ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 
function TForm1.ByName(FieldName: string; Value: string): Boolean;
 var
   i, j: Integer;
   FormItem: Variant;
begin
 Result := False;
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
 begin
   Exit;
 end;
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
 begin
   FormItem := WebBrowser.OleObject.Document.forms.Item(I);
   for j := 0 to FormItem.Length - 1 do
   begin
     try
     if FormItem.Item(j).Name = FieldName then
       begin
         if Value = 'Click' then
           FormItem.Item(j).Click
         else
           FormItem.Item(j).Value := Value;
         Result := True;
       end;
     except
       Exit;
     end;
   end;
 end;
end;

<input onkeyup=\"_feProc(0)\" size=2 name=\"gte\" type=\"text\" value=\"0\" class=\"field\">

<script language="JavaScript"> тут задаются поля ввода и кнопки </script>