Question

vb 判断FindWindow窗口

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("360se6_Frame", vbNullString)
SetForegroundWindow hwnd
End Sub
判断是否有360se6_Frame窗口如果没有则打开360se

Answer 1

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("360se6_Frame", vbNullString)
if hwnd=0 then
SetForegroundWindow hwnd
else
shell "e:/programme files/360se.exe" '360se的地址。

end if
End Sub

Answer 2

如果findwindow获取失败hwnd为0，成功不为0