While(1)
	lock = RegRead("HKLM", "System\State\", "Lock")

	If (lock = 2)
		RegWriteDword ("HKLM", "System\State\", "Lock", "0")
	EndIf

	# ¹®ÀÚ Ä«¿îÆ®
	unreadSMSCount = RegRead("HKCU", "System\State\Messages\SMS\Unread", "Count")
	oldMessageCount = RegRead("HKLM", "Software\Microsoft\CHome\CVitochat\Page1", "oldMessageCount")

	If (oldMessageCount <> unreadSMSCount)
		RegWriteString ("HKLM", "Software\Microsoft\CHome\CVitochat\Page1\","TEXT1" , "»õ ¸Þ½ÃÁö "&unreadSMSCount&"°³")

		If (unreadSMSCount > 0 )
			RegWriteString ("HKLM", "Software\Microsoft\CHome\CVitochat\CondensedPage\","PluginLabel", "»õ ¸Þ½ÃÁö "&unreadSMSCount&"°³")	
		Else
			RegWriteString ("HKLM", "Software\Microsoft\CHome\CVitochat\CondensedPage\","PluginLabel", "¹®ÀÚ ¸Þ½ÃÁö")
			RegWriteString ("HKLM", "Software\Microsoft\CHome\CVitochat\Page1\","TEXT1", "»õ ¸Þ½ÃÁö ¾øÀ½")
		EndIf

		RegWriteDword ("HKLM", "Software\Microsoft\CHome\CVitochat\Page1\","oldMessageCount",unreadSMSCount)

		RegWriteDword("HKLM","Software\Microsoft\CHome\CVitochat","Updated","0")
		Sleep(100)
		RegWriteDword("HKLM","Software\Microsoft\CHome\CVitochat","Updated","1")

		Run("\Program Files\Chome Editor\ChomeRefresh.exe")
	EndIf
	Sleep(5000)
EndWhile