重ね合わせ用の天気図・衛星画像取得スクリプト
WinXPであれば、このソースを拡張子vbsで保存して、ダブルクリックすれば取得できます。
'------------------------------------------------ ' 重ね合わせように、相当温位図と赤外画像を取得 '------------------------------------------------ Dim YYYY Dim MM Dim DD Dim HH Dim T T=Now If (Hour(T)<9 or ( Hour(T)=9 and Minute(T)<30 )) then T=T-1 HHMM="21" ElseIf (Hour(T)>22 or ( Hour(T)=21 and Minute(T)>30 )) then HHMM="21" Else HH="09" End If YYYY=Year(T) If Month(T)<10 then MM="0"&Month(T) Else MM=Month(T) End If If Day(T)<10 then DD="0"&Day(T) Else DD=Day(T) End If '----------------ダウンロードするファイル myURLs = Array("http://www.hbc.jp/tecweather/AXFE578.pdf" _ , "http://www.hbc.jp/tecweather/FXJP854.pdf" _ , "http://www.jma.go.jp/jp/gms/imgs_c/0/infrared/0/" & YYYY & MM & DD & HH & "00-00.png" _ ) '---------------- Set myXH = CreateObject("Msxml2.XMLHTTP") For Each myURL In myURLs myIMG = Split(myURL, "/") myNAME = myIMG(UBound(myIMG)) myXH.Open "GET", myURL, False myXH.Send With CreateObject("Adodb.Stream") .Type = 1 .Open .Write myXH.responseBody .Savetofile myNAME, 1 .Close End With Next Set myXH = Nothing