problem mit button-klick emulieren

[o0o]

hi leutz ich bekomms einfach nich gebacken...in der suche hab ich etliches gefunden nur nix davon ging einfach bei mir.
die url:
http://www.tmto.org/?category=main&page=search_md5
hier der html-source des buttons:

Code:

<input class="submit" type="submit" value="Search" title="Click to search." />             <input type="hidden" name="search" value="on" />             <input type="hidden" name="value" value="ff97545d64a5c5ac839eb4b8486f3a5c" />

mein bisheriger erfolgsversprechenderer delphi source:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
ovElements: OleVariant;
  i: Integer;
begin
  ovElements := EmbeddedWB1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).tagName = 'submit') and
      (ovElements.item(i).type = 'submit') and
      (ovElements.item(i).Value = 'Search') then
      ovElements.item(i).Click;

end;

also ich habs mal bei anderen websites probiert und dort ging es mit dem button emulieren nur hier bei der website iwi nich._.
ich hab es auch mal versucht per POST was hinzuschicken um mir das alles zu ersparen nur wurde weiss gott wieso iwi nich angenommen vom script :?

waere n1 wenn mir jemand helfen koennte....thx im vorraus :corky:


da o0o

[marabu]

Hi,

versuche es mal so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  form, element: OleVariant;
begin
  form := WebBrowser.OleObject.Document.forms.item(0);
  if not VarIsClear(form) then
  begin
    element := form.elements.item('hash');
    if not VarIsClear(element) then
    begin
      element.value := 'oOo';
      form.submit;
    end;
  end;
end;

Freundliche Grüße

[o0o]

marabu du bist der groesste... :love: :love: :love:

echt derbe alta, es funzt einwandfrei :roll:

da o0o