Do //无限循环直到手动停止 RunApp "c:\我要打开的程序" 打开程序时间 = now Do Until abs(datediff("n", 打开程序时间, now)) >= 2 Delay 1000 //在2分钟内循环等待 Loop Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")//注A 根据窗口的类名、标题获取句柄 If hwnd > 0 Then Call Plugin.Window.Close(Hwnd) //Call Plugin.Window.CloseEx(Hwnd) //这里备用一个关闭命令如果不成功请试试下一个 Else MessageBox "Sorry 没能获取的可关闭的句柄,请修改A中的标题" End If Delay 20 Loop |
|