大家好,本人最近在做个小程序,希望可以在网页中的编辑框自动输入想要输入的信息
如,想在google里面查询什么内容,那么就点击一下按钮,自动打开google,然后在查询的位置输入“天气预报”
自动点击按钮,进行搜索。
请高手赐教。先谢谢了。

解决方案 »

  1.   

    就是表单提交嘛.
    搜一下,很多资料的.
    也可以参考一下这里的代码:
    http://blog.csdn.net/iseekcode/archive/2009/10/21/4708400.aspx
      

  2.   

    //uses ComObj
    procedure TForm1.Button1Click(Sender: TObject);
    const
      TIMEOUT: Integer = 5000;//超时时限,单位毫秒
    var
      o: Variant;
      t: Integer;
    begin
      o := CreateOleObject('InternetExplorer.Application');
      o.Navigate('g.cn');//打开 Google
      t := 0;
      while ((o.readyState <> 4) or (o.Busy)) and (t <= TIMEOUT) do//超时时限内等待页面加载完成
      begin
        Application.ProcessMessages();
        Sleep(100);
        t := t + 100;
      end;
      if t > TIMEOUT then//超时退出
      begin
        o.Quit;
        ShowMessage('打开网址失败!');
        Exit;
      end;
      o.document.getElementsByName('q').Item(0).value := '天气预报';//搜索框赋值
      o.document.getElementsByName('btnG').Item(0).click;//点击“搜索”按钮
      o.visible := True;
    end;
      

  3.   

    谢谢各位,那我问下,3楼的朋友,你是如何知道  'btnG' 这个NAME的呢? 
      

  4.   

    就是说,我说 google只是举个例子,换成别的网页呢?我要怎么做呢?