VB中FINDWINDOW 总是返回0'试试这段代码PrivateDeclareFunct

'试试这段代码
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "无标题 - 记事本")
If (hwnd = 0) Then
MsgBox "Can't find the window"
'ReadTimer.Enabled = False
Exit Sub
End If

End Sub

---

dd

---