<http://forum.pspad.com/read.php?f=2&i=10806&t=10776> 
----------------------------------------------------------------


Const module_name  = "Dont double post"         'this name must be
unique !!!
Const module_ver   = "1.00"              'version

Sub SaveAllExit
    Set SH = Wscript.CreateObject("WScript.Shell")
    SH.SendKeys "%FL"
    SH.SendKeys "%{F4}"
End Sub

Sub Init
    menuName = "&" & module_name
    addMenuItem "Save All & Exit"       , menuName, "SaveAllExit",
"Alt+F3"
End Sub


[%sig%]

-- 
PSPad freeware editor http://www.pspad.com

Reply via email to