如何获得已知Handle的窗体的所有子控件Handle？如何探测浏览器页面中的密码框，并进行模拟输入？(200分)

creation-zy · 2002-01-18

如题，我的主要目的是要写一个 Single Sign On （单点登陆）工具，它必须能够探测到窗体/IE页面 中的密码输入框，并且实现模拟输入用户名/密码+按下“确定”按钮的功能。   我现在实现了一个最基本过程，它能获得当前窗口句柄以及得到焦点的控件的部分信息： var   LastFocusH:HWnd=0; procedure CheckPwdWindow; var   FocusH,WindowH,ChildH:HWnd;   ThreadH:dword;   Buf:array[0..1024]of Char;   Style:Integer;   Str:String;   procedure ShowCtrlInfo(H:HWnd);   begin     FillChar(Buf,1024,0);     SendMessage(H,WM_GETTEXT,1024,Integer(@Buf[0]));     Form1.Memo1.Lines.Add('内容: '+String(Buf));     FillChar(Buf,1024,0);     GetClassName(FocusH,@Buf[0],1024);     Form1.Memo1.Lines.Add('Class: '+String(Buf)+#13#10);     FillChar(Buf,1024,0);     Style:=GetWindowLong(H,GWL_STYLE);     Str:='Style: '+IntToHex(Style,8)+#13#10;     if Style and ES_NUMBER>0 then       Str:=Str+' ES_NUMBER';     if Style and ES_PASSWORD>0 then       Str:=Str+' ES_PASSWORD';     if Style and ES_MULTILINE>0 then       Str:=Str+' ES_MULTILINE';     if Style and ES_READONLY>0 then       Str:=Str+' ES_READONLY';     Form1.Memo1.Lines.Add(Str);   end; begin   WindowH:=GetForegroundWindow;   if WindowH=Form1.Handle then     exit;   ThreadH:=GetWindowThreadProcessId(WindowH,nil);   AttachThreadInput(GetCurrentThreadId,ThreadH,true);   FocusH:=GetFocus;   if FocusH=LastFocusH then     exit   else     LastFocusH:=FocusH;   AttachThreadInput(GetCurrentThreadId,ThreadH,false);   if FocusH=0 then     Exit;   FillChar(Buf,1024,0);   SendMessage(WindowH,WM_GETTEXT,1024,Integer(@Buf[0]));   Form1.Memo1.Lines.Add('标题: '+String(Buf));   ShowCtrlInfo(FocusH); end;   但是在使用中发现，它不能获得IE页面内部的控件Handle。请高手指点！   还有一个问题就是如何获得窗体的全部子控件？   请大家帮忙提前，谢谢！！

yhaochuan · 2002-01-18

好象有这方面的代码，你要search一下。

卷起千堆雪tyn · 2002-01-18

获得任意窗口和控件的类名和句柄： procedure TForm1.GetMousePosHwndAndClassName(Sender: TPoint); var   hWnd: THandle;   aName: array [0..255] of char; begin   hWnd := WindowFromPoint(Sender);   Label1.Caption := 'Handle : ' + IntToStr(hWnd);   if boolean(GetClassName(hWnd, aName, 256)) then     Label2.Caption := 'ClassName : ' + string(aName)   else     Label2.Caption := 'ClassName : not found'; end; procedure TForm1.FormCreate(Sender: TObject); begin   Form1.FormStyle := fsStayOnTop;   Timer1.Interval := 50; end; procedure TForm1.Timer1Timer(Sender: TObject); var   rPos: TPoint; begin   if boolean(GetCursorPos(rPos)) then     GetMousePosHwndAndClassName(rPos); end;

creation-zy · 2002-01-18

 好快呀！

谢谢大家的热心帮助！   我刚才可能没有将应用目标说清楚：   Single Sign On，它的目标是在用户进行一次性设定之后，以后每次弹出需要输入密码的窗体/页面时， 可以进行自动登录。它在系统的后台执行，监视系统中的当前窗体以及浏览器的页面，如果发现其中有 类似 ******* 的密码编辑框，就会自动填写用户预先定义的内容。   比如，我用的是需要用户名和密码的代理上Internet，每新开一个窗口都会弹出一个框，要我输入用户 信息，有了SSO，就可以让它帮我自动完成了。   卷兄的方法和当前的鼠标位置有关，实际应用中，不论鼠标现在在哪里，只要符合模式的窗口一出现， 就应当立刻输入相应信息。（比如：打开 sina 后自动输入用户名和密码进入免费邮箱）

xianjun · 2002-01-22

获得窗体的全部子控件可以用EnumChildWindows简单搞定 但IE里的各种控件与普通窗体的是不同的，并不能用那些API轻松获得 好象要用到比较底层的东西 关注此题[

]

南宫吹云 · 2002-01-22

获得一个窗口的句柄不是就可以对这个窗口进行修改，大小，形状、位置等？

bubble · 2002-01-22

IE里面的东西好像不是API轻易做到的事情. 溯雪能够监测到IE里面的框框们,不知道他是怎么搞的, 去问问小榕吧.[*D]

Shenxinaz · 2002-01-23

如何获取网页密码框中的密码? http://www.vchelp.net/source/submit/get_html_password.htm 这里说得很详细，但是。。。。八成看完了你就没有干劲了：（

datoncg · 2002-01-23

我也正在研究，类似你这样的问题，但还没有你的深入！ 不知你得到后，又怎样触发确认BUTTON呢？ 我以前看过怎么搞WINZIP的AGREE BUTTON，但现在不知到哪儿去了？ 这是我问的问题： http://www.delphibbs.com/delphibbs/dispq.asp?lid=876572

creation-zy · 2002-01-24

先谢谢大家了！  

我大致看了一下 Shenxinaz 兄推荐的文章... >>IHTMLDocument2接口   弱项呀！看来要补课了... to bubble:   不知“小榕”是谁？还请示下联系方法。 to datoncg: >>又怎样触发确认BUTTON呢？   如果EnumChildWindows能够起作用的话，完全可以遍历窗体中的控件，找到“确认”按钮， （用SendMessage(H,WM_GETTEXT,1024,Integer(@Buf[0]));可以获得按钮文本），然后发一个 回车键给它估计就搞定了！   我待会儿就试验！

sw · 2002-01-24

非常关注此题！ to creation-zy：    小榕是我国著名的电脑黑客，《流光》是他的大作。

creation-zy · 2002-01-29

下面是我的EnumChildWindows实验结果，很成功！谢谢 xianjun 兄！

[00020594]  Static  标题  请键入用户名和密码。 [00020596]  Static  标题  防火墙: [00020598]  Static  标题  101.236.50.173 [0002059A]  Static  标题  领域 [00020574]  Static  标题  用户名(&U) [00020576]  Edit  标题  123 [00020578]  Static  标题  密码(&P) [0002057A]  Edit  标题  123 [0002057C]  Button  标题  将密码存入密码表中(&S) [0002057E]  Button  标题  确定 [0002059C]  Button  标题  取消 [0002059E]  Static  标题  Software. 最新进展：   用 SendMessage(hwnd,WM_SETTEXT,0,Integer(@MyText[1])); 设定编辑框的内容。   用 SendMessage(hwnd,BM_CLICK,0,0); 点击“确定”按钮。

阿拉宁波人 · 2002-01-29

这个涉及到WebBrowse的Web编程,你这种方法不行的,我以前试过了,点击网页中的按钮, 要发送类似于Post之类的操作,有点类似于"登录奇兵"!

creation-zy · 2002-01-30

>>这种方法不行   你的意思是不是：不能获得IE页面内部的Edit,Button等的Handle，或者不能向它们发送消息？

xianjun · 2002-03-01

其实Shenxinaz贴出来的那个： http://www.vchelp.net/source/submit/get_html_password.htm 文章里说得很清楚了！ 照着做就行了，也不难。 Shenxinaz：一看名字我就想起你是谁了！给你看一段话看你不记不记得： [

] procedure TForm1.N2Click(Sender: TObject); begin   ShowMessage('NUS(No-Use-SoftWare)'+#13+               'JUST Drag over and Release it '+#13+               'Enable Every Handle,'+#13+               'UnReadonly Every Handel,'+#13+               'See Every ''*****'''+#13+   'Please E-Mail to Shenxinaz@Hotmail.com for the Source-Code.') end; 这是你99年写的代码吧，找了好一会才从硬盘上翻出来！嘿嘿...[

]

lai-sha · 2002-03-01

ftp://delphi6789:cfik2e@delphi-tip.51.net/public_html/get_html_password.exe 照 http://www.vchelp.net/source/submit/get_html_password.htm 做的

a1b1c1d1 · 2002-03-05

我也有类似问题,但更加麻烦,需要用模拟键盘输入汉字!在网页中? 怎样处理?

creation-zy · 2002-07-24

vividwang · 2002-07-30

大家看看这个小活  http://www.delphibbs.com/delphibbs/dispq.asp?lid=1217194

Ale. · 2002-10-03

如何获得已知Handle的窗体的所有子控件Handle？ 如何探测浏览器页面中的密码框，并进行模拟输入？(200分)

creation-zy

Unregistered / Unconfirmed

yhaochuan

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

Shenxinaz

Unregistered / Unconfirmed

datoncg

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

sw

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

阿拉宁波人

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

lai-sha

Unregistered / Unconfirmed

a1b1c1d1

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

vividwang

Unregistered / Unconfirmed

Ale.

Unregistered / Unconfirmed

Similar threads

如何获得已知Handle的窗体的所有子控件Handle？如何探测浏览器页面中的密码框，并进行模拟输入？(200分)