重ね合わせ用の天気図・衛星画像取得スクリプト

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