Notepad Autosave - need HELP!

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")
EndIf
EndIf
EndIf
Next

Pls let me know correct script for saving all notepads which are open (maximized and minimized both). Thanks in advance for your help