FindWindow的使用

Question

winHwnd = FindWindow(vbNullString,  窗口标题)我好象怎么试都没用,包括MSN,EditPlus等程序，都说没找到，请高手指点

Answer 1

试了，连文件夹都找不到
winHwnd = FindWindow(vbNullString, "新建文件夹")
返回0，我明明开着这个呢

Answer 2

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Form_Load()
    Dim winHwnd As Long
    winHwnd = FindWindow(vbNullString, "新建文件")
End Sub我试过，ok

Answer 3

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Sub Command1_Click()
    Dim winHwnd As Long
    winHwnd = FindWindow(vbNullString, "Symantec AntiVirus 企业版")
    SendMessage winHwnd, 10, 0, 0
End Sub

Answer 4

copy过去试试行不行，你的操作系统是？

Answer 5

win2k,我是Copy过去的啊 ！真的见鬼了

Answer 6

先打开“我的电脑”，试试看。Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
Private Sub Command1_Click()
    Dim winHwnd As Long
    winHwnd = FindWindow(vbNullString, "我的电脑")
    If winHwnd > 0 Then
        MsgBox "找到“我的电脑”了"
    End If
    
End Sub

Answer 7

我在不同的机器使用这个API都调试通过了，没出现楼主说的问题。郁闷呀！！！
你换台机器试试，是不是你机器问题？？？按理说不应该的。