Question

VB 鼠标焦点 窗口查看器

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 Declare Function WindowFromPoint Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Const WM_GETTEXT = &HD
Private Const WM_SETTEXT = &HC

Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer1_Timer()
'
' 代码就是这么简单，你好好研究一下吧。
'
'

Dim Shu As POINTAPI
Dim Str As String * 300

GetCursorPos Shu
SendMessage WindowFromPoint(Shu.x, Shu.y), WM_GETTEXT, 299, ByVal Str
Label1.Caption = Str

End Sub
这个代码很精简，可是看不了 冰刃，360安全卫士 上面的信息，还有没有更好的~能看360之类的上面的控件
答完 再加 50分
百度文本框 也不行

Answer 1

你想做病毒 木马吧，劝你少做锋银这些事。熊猫烧香的boss怎么样？

告诉你冰刃的标题栏是随机的。杀毒软件没那么好关的。有些标题栏是图片，比如qq。
给你举个例子，我碰到过很多病毒，只要把杀毒软件改个名就可以启动了。

SendMessage 最没用了。你得昌扰找句耐基旦柄。

----所以呢，你的软件只能增加麻烦。

Answer 2

到网上下一个XdictGrb.dll，注册一下
如果电脑里裂者有金山词霸，可以从里面找
引用XdictGrb.dll

Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True
.GrabInterval = 30
.GrabMode = XDictGrabMouse
.AdviseGrab Me
End With
End Sub

Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
Label1.Caption = "当前坐标肆敬薯：" & "(" & lCursorX & "稿好," & lCursorY & ")"
Label2.Caption = "当前语句：" & SentenceString
Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc + 1, 1)
End Function

Answer 3

用spy++查看"360之类的上面的控件"
下载spy++后旅颤,有春镇芹教程的,仔细研扒毕究下!