Question

我对Delphi相对较新，所以如果标题与问题的内容不匹配，我很抱歉。我希望在提交表单的网站上自动化流程。我相信我已经从处理此问题的网站（为帐户安全编辑的值）中隔离了代码，该代码是：

    <form action="action.php" method="post">
      <p class="center">
        <input type="hidden" name="StringOne" value="StringOneB" />
        <input type="hidden" name="StringTwo" value="StringTwoB" />
        <input type="hidden" name="StringThree" value="StringThreeB" />
        <input type="image" src="img/imageone.jpg" />
      </p>
    </form>

这是页面上唯一的表单。表格通常通过点击imageone.jpg提交。三个输入的值是动态生成的。我如何自动提交此表单？我打算使用Internet Explorer OleObject。我的代码目前看起来像

    procedure TForm1.Button1Click(Sender: TObject);
    var
      IE: variant;
    begin
      IE:= CreateOleObject('internetExplorer.Application');
      IE.visible := true;
      IE.navigate('http://thesite.com');

我试图使用以下内容（每一行都是单独尝试）：

      IE.Document.GetElementByID('StringOne').setAttribute('value', 'StringOneA', 0);
      //above won't work because input has no ID
      IE.Document.GetElementByName('StringOne').setAttribute('value', 'StringOneA', 0);
      //does not appear to be understood
      IE.OleObject.Document.forms[0].submit();
      IE.OleObject.Document.forms[1].submit();
      //does not appear to recognise the form

我已经尝试了无数其他代码，但没有一个是富有成效的。可以这样做，如果是这样，怎么办？如果可以解释任何代码，那将是有帮助的，因为我不熟悉OleObject自动化。我可以从HTML源代码中获取值，问题的主要焦点是提交表单，假设我有值。其他任何东西都是奖金。如果有任何事情需要澄清，那就说吧。

通过oleobject在Delphi中自动执行.php命令

0 个答案: