#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.2.10.0
	
	Author:			Michael T. Bee (c) 2008
	
	Name:			SetDateTime
	
	Description:	This stores date and time on clipboard
	and optionally, stores pre-existing
	clipboard for later pickup
	
	Input parms:	Clipboard
	Process:		1.	check clipboard if format not date/time then
	store to HKCU\Software\MyItzyBits\@ScriptName\Stored_Clipboard
	else restore from previous call (if available
	
	history:
	
	who			date		description
	MTB			 - Shortcut
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Dim $debug
Dim $ClipBoard
Dim $KeyName
Dim $DateTime_Stamp
Dim $Scriptname
Dim $Date_Sep
Dim $Time_Sep
Dim $debug_disp_time

$debug_disp_time = 7
$debug = 'N'

$Scriptname = StringReplace(StringReplace(@ScriptName, ".exe", ""), ".au3", "")
$KeyName = "HKCU\Software\myItzyBits\" & $Scriptname

$DateTime_Stamp = @MON & '/' & @MDAY & '/' & @YEAR & ' ' & @HOUR & ':' & @MIN
$ClipBoard = ClipGet()
$Date_Sep = StringInStr($ClipBoard, "/")
$Time_Sep = StringInStr($ClipBoard, ":")

If $debug = 'Y'  Then
	MsgBox(4096, $Scriptname, _
			'$DateTime_Stamp[' & $DateTime_Stamp & ']' & Chr(10) & _
			'$ClipBoard[' & $ClipBoard & ']' & Chr(10) & _
			'$Date_Sep[' & $Date_Sep & ']' & Chr(10) & _
			'$Time_Sep[' & $Time_Sep & ']' & Chr(10) & _
			'$ClipBoard[' & $ClipBoard & ']', _
			$debug_disp_time)
EndIf


If $Date_Sep = 0 And $Time_Sep = 0 Then
	SetClipBoard_With_DateTime()
Else
	Restore_ClipBoard()
EndIf

Exit

Func SetClipBoard_With_DateTime()
	RegWrite($KeyName, "Stored_ClipBoard", "REG_SZ", $ClipBoard)
	MsgBox(4096, $Scriptname, 'SetClipBoard_With_DateTime...$DateTimeStamp[' & $DateTime_Stamp & ']', 2)
	ClipPut($DateTime_Stamp)
EndFunc   ;==>SetClipBoard_With_DateTime

Func Restore_ClipBoard()
	$ClipBoard = RegRead($KeyName, "Stored_ClipBoard")
	MsgBox(4096, $Scriptname, 'Restore_Clipboard...$ClipBoard[' & $ClipBoard & ']', 2)
	ClipPut($ClipBoard)
EndFunc   ;==>Restore_ClipBoard