高分相送——制作IE插件获得百度搜索栏中输入的内容(200分)

有哪位高人知道，分不够，可以再加，这里先送200分，请给出源码，分不是问题

是不是针对百度收缩的流氓软件啊!把自己的项目提前到收缩页前面!嘿嘿!

呵呵，不是，只是拿百度来举个例子，我想针对阿里巴巴网站的搜索栏，想获得用户输入的内容，有什么办法吗？请多指教

用hoo啊，应该可以的吧

别说的这么空洞啊，来点实在的，给点源码，200分不够可以再加

别说的那么空洞，来点实在的，给点RMB，提示不够可以送直接的代码

哈哈，我看好了。地质灾害比较喜欢rMB，但他的确是高手

to地质灾害
高手如果知道的话，请帮忙啊，这个功能不会还需要rmb吧，并不复杂，针对阿里巴巴网站中的搜索栏，获得用户所输入的搜索词语，我想要得就是这
如果你非要rmb，弱弱的问一下，要多少阿
哎，感觉大富翁怎么有点变得功利了，不像前些年那么真诚热情，相互帮助了....
to all
请多伸出援助之手吧，我问的问题不会那么难吧

你说不需要rmb,那么请问你做这个是不是商业性的?
不管别人说Hook有没有错,总算提示你了.你看你怎么回复的:
"别说的这么空洞啊，来点实在的，给点源码，200分不够可以再加"
对问题涉及方面的没有概念和乞求代码的目的暴露无遗.
你又有什么资格抱怨dfw功利.你又为dfw奉献了什么?用别人提供的免费代码作自己的商业软件,你这算不算功利?

to地质灾害
我开始就说的很清楚了，送高分，最好给代码，本来就说的很清楚啊，呵呵，你说我功利，可是本来这就是个技术交流的平台，大家互相帮助，并没有涉及对方为什么要问这个问题吧？另外你可以看看dfw所问的问题者，你不要告诉我大家都是在学习delphi而已，有谁不是在为功利而编程，你不要告诉我大家都是编着玩，甚至今天你说的话也一样暴露你是功利的，为了rmb，所以请不要指责别人，我也不想引起争吵，我只是想来解决问题，仅此而已，而你问我说我对dfw奉献了什么?你可以看看我的专家分和每帖得分，我贡献不比你少
我为什么要来这问问题？本来这个问题对我而言不是问题，只是实话实说，不过我的水平下降的不是一点半点（因为中间上学，delphi荒废了好多年），我知道用hook是可以实现的，也只是头脑知道而已，要我实现需要很久时间，而且觉得这种方法比较麻烦，应该有更简单的方法，比如利用对象句柄直接获得的想要内容，但我只是停留在理论和概念上，很多东西都忘了，而这个问题我也只是卡在这个方面，因此不想耽误太多时间，就想起来我以前总来的dfw，结果还遇到这么一档子事，你说我能不感慨嘛？以前dfw确实不是这样的，唉，算了，不说了，你随便想吧，不想帮助就算了
to all
请大家帮帮忙，多谢了

算了!不要吵!

to all
大富翁真的没落了吗？感觉以前的高人都不见了，人气也不像以前了，无语......

抱歉!没有接触过类似问题!

to wql
那也多谢顶帖，一定给分
to all
请帮忙

TO lmeagle01 帮帮忙.
我做了个套打插件 用DELPHI 和 fastreport 就是直接把字符串到送给OCX OCX再解析一下.然后就打印.
问题.
我如果只打开一个页面(有调用到这个OCX的页面),可能正常运行.
但是如果同时打开两个页面.就会出错.
提示:
----------
DAX Error
----------
Access violation at address 03EF3AA6 in module 'PrintWHC001Proj1.ocx'. Read of address 00000000.
----------
确定
----------
不知到底是什么原因.哪位大虾帮帮忙.

to 398269344
抱歉，没有代码很难分析阿，你可以调试一下，看问题出在什么地方，把抱错的代码法上来
to all
请帮忙

to lmeagle01
我没写什么代码.也会出错.不知为什么.

网上找的,不知道有用否?

uses
MSHTML_TLB;

// first navigate to tipspage

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end;

// Try to access IE instance and fill out the search field with
// a text and click the search button

procedure TForm1.Button3Click(Sender: TObject);
var
hIE: HWND;
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
Document: Variant;
k, m: Integer;
ovElements: OleVariant;
i: Integer;
begin
ShellWindow := CoShellWindows.Create;
// get the running instance of Internet Explorer
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
// QueryInterface determines if an interface can be used with an object
spDisp.QueryInterface(iWebBrowser2, WB);

if WB <> nil then
begin
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
Document := WB.Document;

// count forms on document and iterate through its forms
for m := 0 to Document.forms.Length - 1 do
begin
ovElements := Document.forms.Item(m).elements;
// iterate through elements
for i := 0 to ovElements.Length - 1 do
begin
// when input fieldname is found, try to fill out
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'text') = 0) then
begin
ovElements.item(i).Value := 'FindWindow';
end;
except
end;
// when Submit button is found, try to click
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
(ovElements.item(i).Value = 'Search') then // Suchen für German
begin
ovElements.item(i).Click;
end;
except
end;
end;
end;
end;
end;
end;
end;
end;

不知道怎么制作IE插件，不过取出这些搜索的文本还是有办法，要不要？

可以用bho轻松搞定