Vbs operation window

Example 1:

Set Wrap = CreateObject ("DynamicWrapper ")
Wrap. Register "user32.dll", "FindWindow", "I = ss", "f = s", "r = l"
Define whandle = Wrap. FindWindow ("", "untitled-Notepad ")
If then whandle = 0 then
MsgBox "discover window"
Else
MsgBox "not found"
End If

Example 2:

StrWindowTitle = "qq2009; a.txt-Notepad" multiple window titles to be closed are separated;
Set objWord = CreateObject ("Word. Application ")
Set colTasks = objWord. Tasks
StrWindowTitles = Split (strWindowTitle ,";")
For Each strTitle In strWindowTitles
If colTasks. Exists (strTitle) Then
StrAnswer = MsgBox ("find the specified window [" & strTitle & "] Close? ", VbYesNo + vbQuestion ,"")
If strAnswer = vbYes Then colTasks (strTitle). Close
End If
Next
ObjWord. Quit