'**********************************************************************************************************
'Note: Any comment beginning with RemindMe is a functional RemindMe comment, they
'are used to add GUI functionality to procedure/functions in the operation wizard
'
'	Usage: 'RemindMe:Enum:Name(DisplayedEnum:Value, DisplayedEnum:Value, DisplayedEnum:Value, ....)
'	Usage: 'RemindMe:Function:Name(DisplayedParam:Type, DisplayedParam:Type, DisplayedParam:Type, ....)
'
'Types for function parameters can be Boolean, Numeric, String, Browse, or 
'The name field of functions must be the same as the actual scripted function
'Declared RemindMe enumerators can be used in as types for function parameters
'Underscores are replaced with spaces (" ") in display, double underscores are replaced with dashes (" - ")
'**********************************************************************************************************

'############ Enum Examples: (The following enum examples are used in distributed RemindMe functions)
'RemindMe:Enum:IconTypes(Information:64, Exclamation:48, Critical:16)
'RemindMe:Enum:FocusTypes(Normal_Focus:1, Normal_No_Focus:4, Minimized_Focus:2, Minimized_No_Focus:6, Maximized_Focus:3, Hidden:0)

'############ Function Examples: (The following function examples are distributed as RemindMe operations able to be scheduled)
'RemindMe:Function:Popup_Window(Message:String, Title:String, Icon:IconTypes)
Public Function Popup_Window(aMessage, aTitle, aIcon)
	Dim popup
	Set popup = CreateObject("NTPopup21.Window")
	With popup
		.Message = aMessage
		.Icon = aIcon
		.Title = aTitle
		.Visible = True
	End With
End Function

'RemindMe:Function:Popup_Window_with_Sound(Message:String, Title:String, Icon:IconTypes, SoundFile:Browse, Loop_Enabled:Boolean, Loop_Times:Numeric)
Public Function Popup_Window_with_Sound(aMessage, aTitle, aIcon, aSoundFile, aLoopEnabled, aLoopTimes)
	Dim popup
	Set popup = CreateObject("NTPopup21.Window")
	With popup
		.Message = aMessage
		.Icon = aIcon
		.Title = aTitle
		.Visible = True
	End With
	Dim sound
	Set sound = CreateObject("NTSound20.Player")
	With sound
		.FileName = aSoundFile
		.LoopEnabled = aLoopEnabled
		.LoopTimes = aLoopTimes
		.PlaySound
	End With
End Function

'RemindMe:Function:Run_Program(FileName:Browse, Params:String, Focus:FocusTypes)
Public Function Run_Program(aFileName, aParams, aFocus)
	Dim shell
	Set shell = CreateObject( "NTShell22.Process")
	shell.Run aFileName, aParams, aFocus, False
End Function

'RemindMe:Function:Play_Sound(SoundFile:Browse, Loop_Enabled:Boolean, Loop_Times:Numeric)
Public Function Play_Sound(aSoundFile, aLoopEnabled, aLoopTimes)
	Dim sound
	Set sound = CreateObject("NTSound20.Player")
	With sound
		.FileName = aSoundFile
		.LoopEnabled = aLoopEnabled
		.LoopTimes = aLoopTimes
		.PlaySound
	End With
End Function

'RemindMe:Function:Open_Website(WebLink:String)
Public Function Open_Website(aWebLink)
	Dim web
	Set web = CreateObject("NTShell22.Internet")
	web.OpenWebsite aWebLink
End Function