VB 编程 监视窗口

来源：百度知道 编辑：UC知道 时间：2024/06/05 01:31:37
内容：
监视窗口．如果打开．就触动 按妞1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim h As Long
Private Sub Command1_Click()
MsgBox "你打开了记事本"
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
h = FindWindow(vbNullString, "无标题 - 记事本")
If h <> 0 Then Call Command1_Click
End Sub

监视什么的窗口哇?

快捷键：Ctrl + G