如何从HWND（句柄）得到对象的类型, 并操作它？100分相送！！！

[biku]

我能得到当前鼠标指向的窗口的句柄，但我如何确定该窗口是不是资源管理器窗口（比如：我的文档）？（不要用标题来判断。）假设我能判断出它是一个资源管理器，那么我如何得到这个资源管理器的地址？

简而言之：我只想当鼠标指向一个窗口的时候就能判断是否为资源管理器，是则获得其地址。

[dongge2000]

呵呵，我写的TIMER是一秒运行一次，就是太占系统资源了。你再加个MOUSE的操作。
-----------------
Option Explicit

Public Declare Function WindowFromPoint Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type

Public Type DGfor3
ponX As Long
ponY As Long
MDC As Long
End Type

Public Function MouseDC() As DGfor3
On Error Resume Next
Dim Cur As POINTAPI
GetCursorPos Cur
MouseDC.MDC = WindowFromPoint(Cur.x, Cur.y)
MouseDC.ponX = Cur.x
MouseDC.ponY = Cur.y
End Function

[dongge2000]

楼主写完贴出来，大家共享先！我还不会SHELLWINDOWS呢！

[biku]

呵呵，成功的话，一定贴出来！！！

我菜鸟一个，还得大家帮帮忙忙呢！！

[biku]

哈哈！真的有难度的吗？

把“资源管理器”换成IE也行啊！！！

[dongge2000]

Option Explicit

Private Sub Command1_Click() '向上用
Dim Arr() As String
Dim i As Long
Dim sRet As String
Dim Str As String
Str = Text1.Text
If Right(Str, 1) = "\" Then Str = Left(Str, Len(Str) - 1)
Arr = Split(Str, "\")
For i = LBound(Arr) To UBound(Arr) - 1
If Len(Arr(i)) > 0 Then
sRet = sRet & Arr(i) & "\"
End If
Next
MsgBox sRet
End Sub

Private Sub Timer1_Timer() 'timer1.Interval=3000，后退用
SendKeys Chr(8)
End Sub

[biku]

好象要用到SHELLWINDOWS之类的。

[biku]

'一个按钮，两个LISTBOX。
'请引用 Microsoft Internet Controls
Private Sub Command1_Click()

Dim objIE As InternetExplorer
Dim dWinFolder As New ShellWindows

For Each objIE In dWinFolder

List1.AddItem objIE.hWnd '为什么这一句会出现“自动化错误”呢？你们测试一下会不会？

List2.AddItem objIE.LocationURL
Next

End Sub

如果把那一句去掉就正常？？？？为什么呢？

[viena]

学习~

[biku]

晕！都没人回答就学习！！

[dongge2000]

Option Explicit
Dim MyWin As ShellWindows

Private Sub Form_Load()
Set MyWin = New ShellWindows
Timer1.Interval = 1000
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set MyWin = Nothing
End Sub

Private Sub Timer1_Timer()
If MyWin.Count = 0 Then Exit Sub
Dim i As Long
For i = 0 To MyWin.Count - 1
If WndToProcId(MyWin(i).hwnd) = WndToProcId(MouseDC.MDC) Then
Dim Str As String
Str = Right(MyWin(i).LocationURL, Len(MyWin(i).LocationURL) - 8)
Text1.Text = Replace(Str, "/", "\")
End If
Next
End Sub
------------------------------
Option Explicit
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function WindowFromPoint Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type

Public Type DGfor3
ponX As Long
ponY As Long
MDC As Long
End Type

Public Function MouseDC() As DGfor3
On Error Resume Next
Dim Cur As POINTAPI
GetCursorPos Cur
MouseDC.MDC = WindowFromPoint(Cur.x, Cur.y)
MouseDC.ponX = Cur.x
MouseDC.ponY = Cur.y
End Function

Public Function TitleToWnd(ByVal strTitle As String, Optional strClassName As String = vbNullString) As Long
TitleToWnd = FindWindow(strClassName, strTitle)
End Function

Public Function WndToProcId(ByVal hwnd As Long) As Long
GetWindowThreadProcessId hwnd, WndToProcId
End Function
---------------
FORM1中有一个TEXT、TIMER。

[smx717616]

viena(维也纳nn-实心木头人石欠RUKYO) ( ) 信誉：1

靠，强

[dongge2000]

晕，错了，不好意思，它们是一个进程的。

[viena]

先占个位子，等人来回答，呵呵~

[dyshadow]

偶不懂，看来只能关注一下了

[dongge2000]

For i = 0 To MyWin.Count - 1
If WndToProcId(MyWin(i).hwnd) = WndToProcId(MouseDC.MDC) Then
Dim Str As String
Str = Right(MyWin(i).LocationURL, Len(MyWin(i).LocationURL) - 8)
Text1.Text = Replace(Str, "/", "\")
End If
Next
--------------
我这句怎么就行呢，楼主没有看吗？

[laisiwei]

up

[biku]

jiangsheng(蒋晟.MSMVP2004Jan)谢谢你。不过那好象是C语言写的吧？我看不懂啊。有没有关于用VB写的呢？

[biku]

我的思路遇到难题了！！

'一个按钮，两个LISTBOX。
'请引用 Microsoft Internet Controls
Private Sub Command1_Click()

Dim objIE As InternetExplorer
Dim dWinFolder As New ShellWindows

For Each objIE In dWinFolder

List1.AddItem objIE.hWnd '为什么这一句会出现“自动化错误”呢？你们测试一下会不会？

List2.AddItem objIE.LocationURL
Next

End Sub

如果把那一句去掉就正常？？？？为什么呢？不知道该如何解决》

[biku]

如果还不能解决的话，明天就结帖。然后再开新帖。

[biku]

TO：dongge2000
非常感谢你的帮助。你的代码我也试了。但是VB老是提示错误。
运行到“If WndToProcId(MyWin(i).hwnd) = WndToProcId(MouseDC.MDC) Then”中的“MyWin(i).hwnd”就提示：对象HWND的方法‘IWebBrowser2’失败。晕啊！

还有我说的代码中出现“objIE.hWnd ”也失败啊！真是搞不懂。


唉，结帖，另开新帖！