Function versionCheck()
newversion = "5.8.0.0" ' ¿¬¸ðÀÇ °¡Àå ÃֽŹöÁ¯À» ¼³Á¤ÇØ ³õ½À´Ï´Ù.
yeonmo_setup_url = "http://easyinstall.icons.com.ne.kr/easyinstall/YeonMo/full/Setup.exe" ' ´Ù¿î·Îµå µÉ ¿¬¸ð ÃֽŹöÁ¯ °æ·Î µî·Ï
yeonmo_installer_url = "http://easyinstall.icons.com.ne.kr/easyinstall/YeonMo/YmInstall/NeoworkYmInstall.exe"
yeonmo_classid = "1ADD1B34-8760-4E86-B0AB-1A11811098F9" ' ¾ðÀνºÅç¿¡ ½á ÀÖ´Â ¹öÁ¯Á¤º¸ ¾Ë¾Æ³»´Â OCX
yeonmo_runocx_classid = "11040161-6FC5-4D37-A1A5-68FCCE6F5F14" ' ¿¬¸ð run-ocx (PreYeonMo.ocx) Ŭ·¡½º ID (¹Ù²ðÀÏÀÌ º°·Î ¾ø´Ù.)
bEverInstall = oInstall.GetVersion ("{" + yeonmo_classid + "}",version)
upgrade = 0
'alert newversion
'alert version
If bEverInstall Then
RegCheck = Split(version,".", -1, 1) '±âÁ¸ ¹öÁ¯
VerCheck = Split(newversion,".", -1, 1) 'ÇöÀç ¹öÁ¯
For i = 0 To 3
If RegCheck(i) > VerCheck(i) Then
Exit For
End If
If RegCheck(i) < VerCheck(i) Then
upgrade = 1
End If
Next
If upgrade = 1 Then
' ¾÷±×·¹À̵å - setup.exe ÆÄÀÏ Àý´ë°æ·Î¸¦ ±×´ë·Î ½áÁØ´Ù.
bb.innerHTML =""
oInstall.Install yeonmo_setup_url
st.innerHTML ="
"
Else
' ¿¬¸ð¸¦ ½ÇÇà½ÃÄÑÁÖ´Â ocx Áغñ.
aa.innerHTML =""
bb.innerHTML =""
End If
Else
' »õ·Î ¼³Ä¡ - ±×´ë·Î ÀνºÅç·¯¸¦ »ç¿ëÇÏ¿© Full·Î ¼³Ä¡ÇÑ´Ù.
bb.innerHTML =""
oInstall.Install yeonmo_setup_url
st.innerHTML ="
"
End If
End Function