[MORTSCRIPT]WAD2의 날씨 정보를 이용해서 S2U2에 날씨정보 띄우기

예전에는 기상청의 데이타를 받아서 S2U2에서 날씨 정보를 띄웠었는데 기상청이 이상하게 변해버린 이후로는 날씨정보를 띄우는것이 어려워졌습니다. 물론 SPB WEATHER 같은 프로그램을 설치를 하면 손쉽게 날씨 정보를 띄울수 있긴 하지만 피뎅이가 무거워지는 경우가 많아서 가능하면 사용을 안하는 편이기도 하구요..

결론은 구글신에게 검색을 의뢰했더니 역시나 구글신은 WAD2의 제작사 포럼에 가면 MORTSCRIPT 파일이 있다는  신탁을 주더군요..
해당 주소 가기

원래 스크립트 파일은 30분에 한번씩 업데이트를 하도록 되어있지만 저처럼 무료인터넷이 없는 지방에 사는 사람에게는 무용지물.... 파일을 호출할떄만 업데이트하도록 불필요한 부분을 빼버리니 소스가 많이 간단해지네요,,,

더보기

filepath = ("\프로그램 파일\Lakeridge\WisBar Advance Desktop\ForecastData\")
#밀양
location_code = "KSXX0016"

curforecast = RegRead("HKCU", "\Software\A_C\S2U2\", "UserWeather")
weather = ""

WeatherFile = filepath & location_code & ".txt"

filedata = ReadFile( WeatherFile )

  for line = 1 to 22
    segment[line] = Part( filedata, "^NL^", line )
  Next
  current_code = segment[ 4 ]
  period = segment[ 18 ]
  maxtempf = segment[ 19 ]
  mintempf = segment[ 20 ]
  forecast_summary = segment[ 21 ]
  forecast_code = segment[ 16 ]

  maxtempc = ((maxtempf-32)*5)/9
  mintempc = ((mintempf-32)*5)/9

display = " " & period & ": " & maxtempc  & "°   " & mintempc  & "°" & "  " & forecast_summary
#display = " " & period
weather="C|" & forecast_code & "|" &display

If (curforecast Ne weather)
   update = 1
EndIf


if (update >0)
   RegWriteString("HKCU", "\Software\A_C\S2U2\", "UserWeather", weather)
   Run("\Program Files\S2U2\iLock2.exe","-refresh")
endif

위 소스중에서 첫번쨰줄은 WAD2의 날씨 정보가 있는 파일의 폴더 위치이고, 두번째줄은 지역코드입니다.
각자의 피뎅이에 맞게 고치시면 됩니다.
그리고 S2U2셋팅에서 날씨 정보를 UserWeather로 바꾸어주시면 이제부터 S2U2에서 날씨 정보를 볼 수 있답니다.