while(1)
  mssms = RegRead("HKCU", "System\State\Messages\sms\Unread\", "Count")
  lgsms = RegRead("HKLM", "System\State\Messages\SMS\Unread\", "Count")

  If (mssms <> lgsms)
    RegWriteDword ("HKCU", "System\State\Messages\sms\Unread\","Count",lgsms)
  endif
  sleep 2000
endwhile
exit