age aa, WM_CLOSE, 0, 0 Sleep 100 Exit Sub End If aa = FindWindow(vbNullString, "浏览文件夹") If aa <> 0 Then PostMessage aa, WM_CLOSE, 0, 0 Sleep 100 Exit Sub End If aa = FindWindow(vbNullString, "KuGoo") If aa <> 0 And tt = 6 Then PostMessage aa, WM_CLOSE, 0, 0 Sleep 1000 Call Command1_Click Exit Sub End If End Sub