大家好,本人最近在做个小程序,希望可以在网页中的编辑框自动输入想要输入的信息
如,想在google里面查询什么内容,那么就点击一下按钮,自动打开google,然后在查询的位置输入“天气预报”
自动点击按钮,进行搜索。
请高手赐教。先谢谢了。
如,想在google里面查询什么内容,那么就点击一下按钮,自动打开google,然后在查询的位置输入“天气预报”
自动点击按钮,进行搜索。
请高手赐教。先谢谢了。
解决方案 »
- 那里有介绍rave report的资料和程序,请推荐,给分.
- 手机接受短信问题:MScomm+AT指令
- 怎么释放windows对某个文件的占用,有时候并没有使用该文件的程序,但系统仍不让删该文件,真郁闷了!
- 请教用delphi如何检测当前系统是否支持OpenGL
- 在qr中怎么实现根据分组查找后进行分页打印呢?
- 求使用odac调用oracle存储过程的方法和实例
- waveInOpen 第二个参数使用 deviceID 0 或 1...
- ADO+Access2000中的Blob字段最大字节数怎么设定呀
- 怎么样才能使我的程序在进行数据库查询时不像死机一样?
- 文件操作的错误
- 请教一下这个简单的控制台程序错在哪?
- 问一个关于字符串分割的问题
搜一下,很多资料的.
也可以参考一下这里的代码:
http://blog.csdn.net/iseekcode/archive/2009/10/21/4708400.aspx
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;