如何用DELPHI编程在IE的地址栏中输入URL地址？？？100分(100分)

  • 主题发起人 主题发起人 lmy
  • 开始时间 开始时间
L

lmy

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用DELPHI编程在IE的地址栏中输入URL地址？？？100分
 
先得到IE窗口Handle，在用enumchildwindow来枚举子窗口，找到类名为edit的子窗口的handle
，向它发送消息sendmessage(handle,WM_GETTEXT,254,lparam(lenght('url'))，这样，url
地址就写入了url中了，你可以得到它了，如果不明白可以写信给我：tufeiping@sina.com
 
楼上有点写错 WM_GETTEXT-->WM_SETTEXT,lparam(lenght('url'))-->LPARAM(Pchar('url'))，
 
人家是要得到，不是发送字符！lparam(lenght('url'))改为integer('url')，'url'为字符
型就更简单了！
 
看错了，是输入啊，那就是WM_SETTEXT了，呵呵
 
能不能具体点？谢谢！
 
to lmy:
同意：晶晶的方法，至于得到窗体的handle，你可以用findwindow();


 
to 晶晶：
如果第一次写入url地址成功了，那么第二次的findwindow的参数windowname该如何
写，能否具体点！谢谢。
 
你可以告诉我你做的程序是什么思路吗？作用是什么，这样好说一点。
一般输入URL都是在当前的IE中进行的，所以你可以只找当前窗口（就是桌面最上层窗口）
再进行判断。设置一个变量A:Thandle;
A:=getforegroundwindow;
因为不知道你要做的目的，所以很难说明白！可以来信说详细点，也许可以帮你
 
TO 晶晶：
我就是想让当前的IE窗口能够自动访问我事先写好的地址表。现在我能找到IE的
窗口句柄，但是枚举此窗口我不太熟悉，请指教如何枚举找到的IE窗口，如何找到其中的
地址栏并向其发送消息！具体点！谢谢。
 
先介绍一下枚举函数的使用：
函数：EnumChildWindows
库名：user32.dll
说明：为指定的父窗口枚举子窗口
Function EnumChildWindows(hWndParent:Long; lpEnumFunc:Long;lParam:Long):Long
非零表示成功，零表示失败hWndParent-----Long，欲枚举子窗口的父窗口的句柄
lpEnumFunc-----Long，为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个
标准模块中的地址。就是回调函数的地址（如果回调函数是EnumFunc，这里就用@EnumFunc）。
lParam---------Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。
这个值的含义是由程序员规定的。Long
详细在情况你可以查找帮助。
这里有一个简单的方法，你看是否可以试试。
先查找当前IE窗口，得到其中的地址，如果是about:blank就读入你自己的地址表中第一条
地址，并记录好，如果再发现about:blank的IE窗口，你就读入第二条地址，就这样就可以
一直读到所有在地址读完。监测IE可以用Timer组件。
再详细不如发个源码给你，你的e-mail??
 
to 晶晶：
我的 E_mail: muzzle@yeah.net
我就想在当前的IE中访问我的定制地址表，不用管它是不是about:blank！
真是谢谢你！

lmy
 
如果桌面上开了Ｎ个ＩＥ呢？那岂不是要枚举所有的一个一个填？：）
 
to 晶晶：
我怎么没有收到源码？
 
lmy：那个地址muzzle@yeah.net怎么老是传送失败啊，邮件发不了啊，垃圾邮件又增加了
不少啊！
 
您必须登录或注册才可回复。

Similar threads

S
[教程] ZValueWatch 教程之二：在线程中处理图片
回复
0
查看
419
swish
S
S
[教程]使用 ZValueWatch 在主线程中监测值变化
回复
0
查看
476
swish
S
S
[教程]Delphi Android应用启动画面详解
回复
0
查看
831
swish
S
S
[教程]Delphi 函数的内部函数在匿名回调函数中无法使用的一种解决办法
回复
0
查看
541
swish
S
S
[教程]一种在应用中判断动态链接库是否与当前应用兼容的方法
回复
0
查看
474
swish
S
后退
顶部