while (1)
	RegWriteDWord("HKCU", "\System\State\Messages\vmail\Line1\Unread\", "Count", "0")
	RegWriteDWord("HKCU", "\System\State\Messages\vmail\Total\Unread\", "Count", "0")
Sleep (5000)
EndWhile