uDate = FormatTime( "y.m.d" ) uTime = FormatTime( "h:i a" ) cityCode = RegRead( "HKLM", "Software\ThrottleLauncher\yWeather", "City Code" ) If( cityCode eq "" ) cName = Array( "°¸ª(°¿øµµ)" , "±¤ÁÖ" , "±º»ê(Àü¶óºÏµµ)", "±èõ½Ã(°æ»óºÏµµ)", "´ë°æµµ(Àü¶ó³²µµ)", \ "´ë±¸(½Å¾Ïµ¿)" , "´ë±¸(¿ùÃÌ)" , "´ë±¸(ÇϺó¸é)" , "´ëÀü" , "µ¿ÇØ(°¿øµµ)" , \ "¸ðµµ(°æ»ó³²µµ)" , "¸ñÆ÷(Àü¶ó³²µµ)", "¹Ð¾ç(°æ»ó³²µµ)", "ºÎ»ê" , "¼»ê(Ãæû³²µµ)" , \ "¼¿ï" , "¼³¾Ç»ê(°¿øµµ)", "¼º³²(°æ±âµµ)" , "½ÅÁöµµ(Àü¶ó³²µµ)", "¼ÓÃÊ(°¿øµµ)" , \ "¼ö¿ø(°æ±âµµ)" , "¾Èµ¿(°æ»óºÏµµ)", "¾È¾ç(°æ±âµµ)" , "¾ç¾ç(°¿øµµ)" , "¿À»ê(°æ±âµµ)" , \ "¿ï¸ªµµ(°æ»óºÏµµ)", "¿ï»ê" , "¿øÁÖ(°¿øµµ)" , "ÀÍ»ê(Àü¶óºÏµµ)" , "ÀÎõ" , \ "ÀüÁÖ(Àü¶óºÏµµ)" , "Á¦ÁÖµµ" , "Á¦ÁÖµµ(ºñ¾çµµ)", "Á¦ÁÖµµ(¼±ÍÆ÷)" , "Á¦ÁÖµµ(ÃßÀÚ¸é)" , \ "ÁöÁÖµµ(Àü¶ó³²µµ)", "ÁøÁÖ(°æ»ó³²µµ)", "â¿ø(°æ»ó³²µµ)", "õ¾È(Ãæû³²µµ)" , "ÃæÁÖ(ÃæûºÏµµ)" , \ "Æ÷Ç×(°æ»óºÏµµ)" , "ȵµ(°æ»ó³²µµ)" ) cCode = Array( "kangwon-do/gangneung-si-1132475" , "gwangju/%EC%8B%A0%ED%9D%A5%EB%8F%99-28995198" , \ "jeollabuk-do/gunsan-si-1132480" , "gyeongsangbuk-do/gimcheon-si-1122356" , \ "jeollanam-do/taegyong-do-12495760" , "daegu/½Å¾Ïµ¿-28835232" , \ "daegu/wolch'on-22336677" , "daegu/habin-myeon-28835005" , \ "daejon/taejon-airport-12514233" , "kangwon-do/donghae-si-1132575" , \ "gyeongsangnam-do/mo-do-12508663" , "jeollanam-do/mokpo-airport-12514211" , \ "gyeongsangnam-do/miryang-si-1132524" , "busan/%EA%B4%91%EB%B3%B5%EB%8F%99-28995080" , \ "chungcheongnam-do/seosan-si-1132563" , "seoul/seoul-1132599" , \ "kangwon-do/solak-airport-12514222" , "kyeongki-do/%EB%8B%A8%EB%8C%80%EB%8F%99-28806706" , \ "jeollanam-do/sinji-do-12495623" , "kangwon-do/sokcho-si-1132556" , \ "kyeongki-do/suwon-airport-12514230" , "gyeongsangbuk-do/andong-si-1132441" , \ "kyeongki-do/anyang-si-1132443" , "kangwon-do/yang-yang-international-airport-28808959" , \ "kyeongki-do/osan-air-base-12514214" , "gyeongsangbuk-do/dagelet-island-12495862" , \ "ulsan/%EC%98%A5%EA%B5%90%EB%8F%99-28995259" , "kangwon-do/wonju-si-1132584" , \ "jeollabuk-do/iksan-si-1121683" , "incheon/%EB%8F%99%EC%9D%B8%EC%B2%9C%EB%8F%99-28995149", \ "jeollabuk-do/%EB%85%B8%EC%86%A1%EB%8F%99-28807727", "/quelpart-island-12495133" , \ "jaeju-do/piyang-do-12508641" , "jaeju-do/seogwipo-si-1128226" , \ "jaeju-do/chu-ja-heliport-12523361" , "jeollanam-do/chiju-do-12495142" , \ "gyeongsangnam-do/jinju-si-1132459" , "gyeongsangnam-do/changwon-si-1132449" , \ "chungcheongnam-do/cheonan-si-1132455" , "chungcheongbuk-do/chungju-si-1132464" , \ "gyeongsangbuk-do/pohang-airport-12514216" , "gyeongsangnam-do/hwa-do-12508659" ) i = choice( "Áö¿ª¼±ÅÃ", "Áö¿ªÀ» ¼±ÅÃÇϼ¼¿ä.", 0, 0, \ "°¸ª(°¿øµµ)" , "±¤ÁÖ" , "±º»ê(Àü¶óºÏµµ)", "±èõ½Ã(°æ»óºÏµµ)", "´ë°æµµ(Àü¶ó³²µµ)", \ "´ë±¸(½Å¾Ïµ¿)" , "´ë±¸(¿ùÃÌ)" , "´ë±¸(ÇϺó¸é)" , "´ëÀü" , "µ¿ÇØ(°¿øµµ)" , \ "¸ðµµ(°æ»ó³²µµ)" , "¸ñÆ÷(Àü¶ó³²µµ)", "¹Ð¾ç(°æ»ó³²µµ)", "ºÎ»ê" , "¼»ê(Ãæû³²µµ)" , \ "¼¿ï" , "¼³¾Ç»ê(°¿øµµ)", "¼º³²(°æ±âµµ)" , "½ÅÁöµµ(Àü¶ó³²µµ)", "¼ÓÃÊ(°¿øµµ)" , \ "¼ö¿ø(°æ±âµµ)" , "¾Èµ¿(°æ»óºÏµµ)", "¾È¾ç(°æ±âµµ)" , "¾ç¾ç(°¿øµµ)" , "¿À»ê(°æ±âµµ)" , \ "¿ï¸ªµµ(°æ»óºÏµµ)", "¿ï»ê" , "¿øÁÖ(°¿øµµ)" , "ÀÍ»ê(Àü¶óºÏµµ)" , "ÀÎõ" , \ "ÀüÁÖ(Àü¶óºÏµµ)" , "Á¦ÁÖµµ" , "Á¦ÁÖµµ(ºñ¾çµµ)", "Á¦ÁÖµµ(¼±ÍÆ÷)" , "Á¦ÁÖµµ(ÃßÀÚ¸é)" , \ "ÁöÁÖµµ(Àü¶ó³²µµ)", "ÁøÁÖ(°æ»ó³²µµ)", "â¿ø(°æ»ó³²µµ)", "õ¾È(Ãæû³²µµ)" , "ÃæÁÖ(ÃæûºÏµµ)" , \ "Æ÷Ç×(°æ»óºÏµµ)" , "ȵµ(°æ»ó³²µµ)" ) cityName = cName[ i ] cityCode = "http://weather.yahoo.com/south-korea/" & cCode[ i ] & "/?unit=c" RegWriteString( "HKLM", "Software\ThrottleLauncher\yWeather", "Location", cityName) RegWriteString( "HKLM", "Software\ThrottleLauncher\yWeather", "City Code", cityCode) EndIf Download( cityCode, SystemPath("ScriptPath") \ "yWeather.html" ) Sleep(1000) wSource = ReadFile( SystemPath("ScriptPath") \ "yWeather.html" ) # ÇöÀç »óÅ ÅؽºÆ® ÃßÃâ strSt = Find( wSource, "Current conditions as of" ) strEnd = Find( wSource, "sizingMethod" ) str = SubStr( wSource, strSt, strEnd - strSt ) i = 1 ForEach line in split( str, "^LF^", TRUE ) wData[i] = line i = i + 1 EndForEach # ÇöÀç »óÅ µ¥ÀÌÅÍ ÃßÃâ curtime = SubStr( wData[1], Find( wData[1], "of" ) + 3, Find( wData[1], "KST" ) - Find( wData[1], "of" ) -4 ) curCondition = SubStr( wData[2], Find( wData[2], """>" ) + 2, Find( wData[2], "" ) - Find( wData[2], """>" ) -2 ) feelsLikeSub = SubStr( wData[4], Find( wData[4], ":" ) + 10, Find( wData[4], "°" ) - Find( wData[4], ":" ) -10 ) feelsLike = Replace(feelsLikeSub, " ", "") barometer = SubStr( wData[5], Find( wData[5], """>" ) + 2, Find( wData[5], " mb" ) - Find( wData[5], """>" ) +1 ) humidity = SubStr( wData[6], Find( wData[6], ":" ) + 10, Find( wData[6], "%" ) - Find( wData[6], ":" ) -10 ) visibility = SubStr( wData[7], Find( wData[7], ":" ) + 10, Find( wData[7], "" ) - Find( wData[7], ":" ) -10 ) dewpoint = SubStr( wData[8], Find( wData[8], ":" ) + 10, Find( wData[8], "°" ) - Find( wData[8], ":" ) -10 ) wind = SubStr( wData[9], Find( wData[9], ":" ) + 10, Find( wData[9], "" ) - Find( wData[9], ":" ) -10 ) wind = Replace( wind, "N", "ºÏ" ) wind = Replace( wind, "S", "³²" ) wind = Replace( wind, "W", "¼" ) wind = Replace( wind, "E", "µ¿" ) wind = Replace( wind, "CALM", "ÀÜÀÜÇÔ" ) wind = Replace( wind, "kph", "km/h" ) sunrise = SubStr( wData[10], Find( wData[10], ":" ) + 10, Find( wData[10], " am" ) - Find( wData[10], ":" ) -10 ) sunset = SubStr( wData[11], Find( wData[11], ":" ) + 10, Find( wData[11], " pm" ) - Find( wData[11], ":" ) -10 ) curHi = SubStr( wData[15], Find( wData[15], ":" ) + 2, Find( wData[15], "° Low:" ) - Find( wData[15], ":" ) -2 ) curLow = SubStr( wData[15], Find( wData[15], "w:" ) + 3, Find( wData[15], "°
" ) - Find( wData[15], "w:" ) -3 ) clear( wData ) # ÇöÀç »óÅ ¾ÆÀÌÄÜ ÅؽºÆ® ÃßÃâ strSt = Find( wSource, "Current conditions as of" ) strEnd = Find( wSource, "sizingMethod" ) wData = SubStr( wSource, strSt, strEnd - strSt ) # ÇöÀç »óÅ ¾ÆÀÌÄÜ µ¥ÀÌÅÍ ÃßÃâ curIcon = SubStr( wData, Find( wData, "/gr/" ) + 4, Find( wData, ".png" ) - Find( wData, "/gr/" ) -4 ) clear( wData ) # ¿¹º¸ ÅؽºÆ® ÃßÃâ strSt = Find( wSource, """yw-fivedayforecast""" ) strEnd = Find( wSource, """yw-alerts""" ) str = SubStr( wSource, strSt, strEnd - strSt ) i = 1 ForEach line in split( str, "^LF^", TRUE ) wData[i] = line i = i + 1 EndForEach # ¿¹º¸ ¿äÀÏ ÃßÃâ i = 1 ForEach element in split( wData[4], "", TRUE ) foreTitle[i] = SubStr( element, 5 ) i = i + 1 EndForEach # ¿¹º¸ ¾ÆÀÌÄÜ°ú »óÅ ÃßÃâ i = 1 For j = 7 to 12 If ( SubStr(wData[j], Length(wData[j]), 1) eq "-" ) wData[j] = SubStr(wData[j], 1, Length(wData[j])-1) EndIf Next i = 1 ForEach element in split( wData[7] & wData[8] & wData[9] & wData[10] & wData[11] & wData[12], "", TRUE ) IconPosition = SubStr( element, Find( element, "position: -" ) + 11, Find( element, "px -0px" ) - Find( element, "position: -" ) - 7 ) foreIcon[i] = IconPosition / 61 & "s" foreCondition[i] = Replace( SubStr( element, Find( element, "