Rich4rd

12 Month Calendar

May 28th, 2020
2,046
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;12 Month Calendar
  2. ^F5::
  3. Gui, +Resize +AlwaysOnTop
  4. Gui, Add, MonthCal, vMyCalendar g12Calendar R4 W-8 W700 H600, 12 Month Calendar
  5. Gui, Add, Button, Default, Submit
  6. Gui, show
  7. return
  8.  
  9. 12Calendar:
  10. Gui, Submit, NoHide
  11. FormatTime, MyCalendar, %MyCalendar%, dddd MMMM d yyyy
  12. Clipboard = %MyCalendar%
  13. ToolTip, %Clipboard%
  14. Sleep, 2000
  15. ToolTip
  16. return
  17.  
  18. ButtonSubmit:
  19. Gui, Submit
  20. FormatTime, MyCalendar, %MyCalendar%, dddd MMMM d yyyy
  21. SendInput, %MyCalendar%
  22. Gui, Destroy
  23. return
  24.  
  25. GuiClose:
  26. Gui, Destroy
  27. return
RAW Paste Data