高分求怎样用Delphi获取网页输入框中的密码 ( 积分: 100 )

95588 · 2005-07-26

不要给我发VC的例子，VC写出来几十K，Delphi写出来就几百K。 真正实践过的朋友才有发言权 方法越巧妙越好， 欢迎大家来讨论， 分我能给多少就给多少，或通过其他方式补偿。

95588 · 2005-07-26

不要给我发VC的例子，VC写出来几十K，Delphi写出来就几百K。 真正实践过的朋友才有发言权 方法越巧妙越好， 欢迎大家来讨论， 分我能给多少就给多少，或通过其他方式补偿。

Alucard · 2005-07-26

没实践过，不过我知道一点儿，没什么妙的方法，要么用DOM，分析文档结构，获得密码(?不知道可不可以得到即时输入的密码) 要么用HOOK截键盘消息，现成的API是没有的了

95588 · 2005-07-27

谢谢参与

95588 · 2005-07-27

dldengli · 2005-07-29

第一种方法:使用脚本语言和IE右键菜单 我们可以使用注册表来控制IE右键菜单.当你装了FlashGet(网际快车)时,你会发现IE右键菜单多了两项:"使用网际快车下载"和"使用网际快车下载全部链接",而这时你打开注册表,在HKEY_CURRENT_USERExplorer/u19979下有这两个主键.这两个主键下都有两个值,一个是默认的串值,指定了选择了这个菜单命令要打开的URL,IE在一个隐藏的窗口打开它,并这个隐藏窗口的external.menuArguments值设为当前窗口对象,执行完URL对话网页包含的脚本程序该窗口自动关闭.另一个名称是contexts是DWORD值,指定了在什么情况下需要显示这个菜单项.具体的值见下. (0x1 << CONTEXT_MENU_DEFAULT) (等于 0x1) //缺省时显示 (0x1 << CONTEXT_MENU_IMAGE) (等于 0x2) //右键点击图像时显示该项 (0x1 << CONTEXT_MENU_CONTROL) (等于 0x4) //右键点击表单元素时显示该项 (0x1 << CONTEXT_MENU_TABLE) (等于 0x8) //右键点击表格时显示该项 (0x1 << CONTEXT_MENU_TEXTSELECT) (等于 0x10) //右键点击高亮选择的文本时显示该项 (0x1 << CONTEXT_MENU_ANCHOR) (等于 0x20) //右键点击链接时显示该项 (0x1 << CONTEXT_MENU_UNKNOWN) (等于 0x40)//右键点击网页中除上以外的地方显示该项 现在我们写一段脚本程序以获取密码框的值. <!--getpassword.htm-> <script language="VBScript"> Sub GetPassword() set srcEvent = external.menuArguments.event Set doc=external.menuArguments.document set ele=doc.elementFromPoint( srcEvent.clientX, srcEvent.clientY ) if ele.type ="password" then if ele.value="" then Alert("密码为空&quot

else Alert("密码为:"+ele.value) end if end if end sub call GetPassword() </script> 然后在注册表HKEY_CURRENT_USERExplorer/u19979下新建一下主键,键名为"取得密码",缺省值设为该htm文件的路径,在该主键下另增一个DWORD值,值为4,表示只在右击表单元素时显示该项.关闭注册表,重新启动IE窗口,点击一下密码框,就会出现该项,点击该项,弹出一个对话框,告诉你的密码. 第二种方法:使用VC来实现 由于VC知识库是一个关于C++以及Visual C++的网站，与脚本语言没什么关系。所以我们要用另一种稍微复杂一点的方法来实现相同的事情，那就是用C++来做。在不同的进程中取得IE的Webbrowser控件的IHTMLDocument2接口,请参阅MSDN上的一篇文章,标题是:HOWTO: Get IHTMLDocument2 from a HWND(根据HWND取得IHTMLDocument2接口)(http://support.microsoft.com/default.aspx?scid=kb;EN-US;q249232).它的实现机理是向Webbrowser控件(窗口类名是"Internet Explorer_Server&quot

发一个WM_HTML_GETOBJECT,然后把返回值传给Microsoft Active Accessibility (MSAA) 函数ObjectFromLresult,这样你会取得一个已经编排(Marshaling)过的COM接口.如下函数所示: IHTMLDocument2* GetDocInterface(HWND hWnd) { // 我们需要显示地装载OLEACC.DLL,这样我们才知道有没有安装MSAA HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL&quot

); IHTMLDocument2* pDoc2=NULL; if ( hInst != NULL ){ if ( hWnd != NULL ){ CComPtr spDoc=NULL; LRESULT lRes; /*由于WM_HTML_GETOBJECT非Windows标准消息,所以需要RegisterWindowMessage*/ UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT&quot

); ::SendMessageTimeout( hWnd, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*)&lRes ); /*取得ObjectFromLresult函数的地址*/ LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult&quot

); if ( pfObjectFromLresult != NULL ){ HRESULT hr; hr=pfObjectFromLresult(lRes,IID_IHTMLDocument,0,(void**)&spDoc); if ( SUCCEEDED(hr) ){ CComPtr spDisp; CComQIPtr spWin; spDoc->get_Script( &spDisp ); spWin = spDisp; spWin->get_document( &pDoc2 ); } } } ::FreeLibrary(hInst); } else{//如果没有安装MSAA AfxMessageBox(_T("请您安装Microsoft Active Accessibility&quot

); } return pDoc2; } 这样,我们就取得了IHTMLDocument2*接口了,要取得密码框的密码还得一番周折,首先得构造一个基于对话框的MFC程序,增加一个按钮,在主对话框类增加一个成员变量m_bCapture,在构造函数中初始化为FALSE. 然后处理该按钮的Click事件: void CXXXXDlg::OnGetHtmlClick() { SetCapture();//跟踪鼠标 m_bCapture=TRUE; } 接着应该处理WM_LBUTTONUP消息: void CXXXXDlg::OnLButtonUp(UINT nFlags, CPoint point) { if(m_bCapture){ m_bCapture=FALSE; ReleaseCapture();//释放鼠标 static TCHAR buf[100]; POINT pt; GetCursorPos(&pt); HWND hwnd=::WindowFromPoint(pt); if(hwnd!=NULL){ ::GetClassName( hwnd, (LPTSTR)&buf, 100 ); if ( _tcscmp( buf, _T("Internet Explorer_Server&quot

) == 0 ){ POINT iept=pt; ::ScreenToClient(hwnd,&iept); GetPassword(GetDocInterface(hwnd),iept); } } } CDialog::OnLButtonUp(nFlags, point); } GetPassword函数是这样实现的,基本可以模仿VBScript的调用,但要复杂一些: void GetPassword(IHTMLDocument2* pDoc2,POINT pt) { if(pDoc2==NULL)return; CComPtr<IHTMLElement> pElement; HRESULT hr=pDoc2->elementFromPoint(pt.x,pt.y,&pElement);//取得鼠标所在的元素 if(SUCCEEDED(hr)){ CComPtr<IHTMLInputTextElement> pPwdElement; hr=pElement->QueryInterface(IID_IHTMLInputTextElement, (void**)&pPwdElement);//是否有表单输入元素 if(SUCCEEDED(hr)){ CComBSTR type; hr=pPwdElement->get_type(&type); if(SUCCEEDED(hr)){ if(type==_T("password&quot

){//是密码框吗? CComBSTR pwd; hr=pPwdElement->get_value(&pwd); if(SUCCEEDED(hr)){ if(pwd.Length()!=0){//有密码则显示 CComBSTR msg=_T("密码是:&quot

; msg+=pwd; CString str(msg); AfxMessageBox(str); } else{ AfxMessageBox(_T("密码为空!&quot

); } } } } } } pDoc2->Release(); } 使用这种方法要注意: 1.如果程序在Windows95,98和NT 4.0 Service With Pack 4 or 5下运行必须要把Microsoft Active Accessibility (MSAA)运行时组件(RDK)与程序一起发布(Windows2000及Windows NT 4.0 Service With Pack 6中已经有了,所以不用). 2.这种方法只适用用于Internet Explorer (Programming) versions 4.0, 4.01, 4.01 SP1, 4.01 SP2, 5 3.使用这种方法前要调用CoInitialize(NULL);然后应该相应地调用CoUninitialize(); 4.Microsoft Active Accessibility (MSAA)可从http://www.microsoft.com/enable/msaa/download.htm下载 附: 我们也可以使用Active Accessibility(MSAA)获取IHTMLDocument2*接口,见下程序: /*函数名:GetDocInterfaceByMSAA 参数:hwnd,WebBrowser控件的窗口句柄 功能:取得hwnd对应的Webbrowser控件的IHTMLDocument2*接口. */ IHTMLDocument2* GetDocInterfaceByMSAA(HWND hwnd) { HRESULT hr; HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL&quot

); IHTMLDocument2* pDoc2=NULL; if ( hInst != NULL ){ if ( hwnd != NULL ){ //取得AccessibleObjectFromWindow函数 LPFNACCESSIBLEOBJECTFROMWINDOW pfAccessibleObjectFromWindow = (LPFNACCESSIBLEOBJECTFROMWINDOW)::GetProcAddress(hInst,_T("AccessibleObjectFromWindow&quot

); if(pfAccessibleObjectFromWindow != NULL){ CComPtr spAccess; hr=pfAccessibleObjectFromWindow(hwnd,0, IID_IAccessible,(void**) &spAccess);//取得Webbrowser控件的IAccessible接口 if ( SUCCEEDED(hr) ){ CComPtr spServiceProv; hr=spAccess->QueryInterface(IID_IServiceProvider,(void**)&spServiceProv); if(hr==S_OK){ CComPtr spWin; hr=spServiceProv->QueryService(IID_IHTMLWindow2,IID_IHTMLWindow2, (void**)&spWin); /* 注意:并不是每次都能取得IHTMLWindow2接口,如果调用失败,可以尝试取得IHTMLElement接口: CComPtr spElement; hr=spServiceProv->QueryService(IID_IHTMLElement,IID_IHTMLElement,(void**)&spElement); */ if(hr==S_OK) spWin->get_document(&pDoc2); } } } } ::FreeLibrary(hInst); } else{ AfxMessageBox(_T("请您安装Microsoft Active Accessibility&quot

); } return pDoc2; } 具体的例程可见本文提供的源代码(在WINDOWS ME，IE 5.5,VC6.0调试通过)

zsh1213 · 2005-08-02

http://www.netyi.net/in.asp?id=zsh1213

95588 · 2005-08-08

不是我想要的答案我想要Delphi的代码

95588 · 2005-09-12

接受答案了

高分求怎样用Delphi获取网页输入框中的密码 ( 积分: 100 )

95588

Unregistered / Unconfirmed

95588

Unregistered / Unconfirmed

Alucard

Unregistered / Unconfirmed

95588

Unregistered / Unconfirmed

95588

Unregistered / Unconfirmed

dldengli

Unregistered / Unconfirmed

zsh1213

Unregistered / Unconfirmed

95588

Unregistered / Unconfirmed

95588

Unregistered / Unconfirmed

Similar threads