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
上一页 [1] [2] |
