#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#NoTrayIcon
TRAYCL01()

Func TRAYCL01()
$TRAYCL01 = FileRead ("4CL01.txt") 	; Check if file opened for reading OK
	If $TRAYCL01 = -1 Then 
		MsgBox(0, "Error", "Unable to open file.") 
		Exit
	EndIf
	Sleep(300)
	clipput ($TRAYCL01)
	Sleep(300)
	Send("^v")
	ControlSend("", "", "", ".", 0)
EndFunc   ;==>FileCreate