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")
	unread=sms+mms+vmail
	RegWriteDWord("HKLM", "\System\State\Messages\SMS\Unread\", "Count", unread)
Sleep (3000)
EndWhile