I am having this script but it is not working. modified notepads not being saved ... nor untitled notepads being saved. Local $var = WinList() ; proceed through all windows… For $i = 1 To $var[0][0] If $var[$i][0] "" Then ; if " – Notepad" in window title… If StringInStr($var[$i][0]," - Notepad") 0 Then MsgBox(0,"Msg",$var[$i][0]) If (StringCompare ( $var[$i][0],"Untitled – Notepad") 0) Then ; send CTRL-s to Edit control in window. ControlSend($var[$i][0], "", "[CLASS:Edit;INSTANCE:1]", "^s"