dim lNotepadHwnd as long lNotepadHwnd=findwindow(vbnullstring,"notepad") if lNotepadHwnd=0 then msgbox "Can not find speif window!",vbokonly,"error" endif
VB声明 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Dim hw& hw& = FindWindow("notepad", vbNullString)
lNotepadHwnd=findwindow(vbnullstring,"notepad")
if lNotepadHwnd=0 then
msgbox "Can not find speif window!",vbokonly,"error"
endif
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hw&
hw& = FindWindow("notepad", vbNullString)