while (1)
	sms=RegRead("HKLM", "\System\State\Messages\Unread\", "SMS")
	mms=RegRead("HKLM", "\System\State\Messages\Unread\", "MMS")
	vmail=RegRead("HKLM", "\System\State\Messages\Unread\", "vmail")
	unreads=sms
	unreadm=mms
	unreadv=vmail
  RegWriteDWord("HKCU", "\System\State\Messages\SMS\Unread\", "Count", unreads)
  RegWriteDWord("HKCU", "\System\State\Messages\MMS\Unread\", "Count", unreadm)
  RegWriteDWord("HKCU", "\System\State\Messages\vmail\Unread\", "Count", unreadv)
Sleep (5000)
EndWhile