你做过拦截如 图的 QQ消息吗？

你用我给你的程序获得它的句柄就不行了!

具体怎么编的呀？呵呵

Dim meCaption As New GetWindowsText
'Dim mePos As New CursorPos
'Dim meHwnd As New windowsRfromPoint

'Private Sub Timer1_Timer()
'Text1.Text = ""
'mePos.CurrsorPos
'meHwnd.X = mePos.PosX
'meHwnd.Y = mePos.PosY

meCaption.FrmHwnd =获得的句柄
Text1.Text = meCaption.Caption

恩 谢谢了

太高深了……什么是句柄？！

我以前有个.这个程序例子.但是我刚才找了哈.
找不到了..我记得以前我还做个 它是用了通配符..

与*聊天中

我也记不得了.

找到了哈哈哈.. 取得任何窗口的标题

我给你贴出来.. 窗体上加载个 文本框 和 时控件 并把.interval 属性设置为1

Option Explicit

Private Const WM_GETTEXT = &HD
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_GETPASSWORDCHAR = &HD2
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()
Dim PassChar As String
Dim PassWord As String
Dim lpPoint As POINTAPI
Dim hMousePWindow As Long
PassWord = String(256, Chr(0))
GetCursorPos lpPoint
hMousePWindow = WindowFromPoint(lpPoint.x, lpPoint.y)
PassChar = SendMessage(hMousePWindow, EM_GETPASSWORDCHAR, 0, 0)
Call PostMessage(hMousePWindow, EM_SETPASSWORDCHAR, 0, 0)
Call Sleep(100)
Call SendMessage(hMousePWindow, WM_GETTEXT, 256, ByVal PassWord)
Call PostMessage(hMousePWindow, EM_SETPASSWORDCHAR, PassChar, 0)
Text1.Text = PassWord
End Sub

这原本是一个密码查看器...可以查看窗体上的密码.

把鼠标移动到某窗体上就可以看到了..

我刚刚试过.可以查看传奇登陆 时的密码哦.... 但是有些还是不行.查看不到..

[此贴子已经被作者于2007-5-14 22:01:00编辑过]