あるサイトから画像を定期的にダウンロード (ID：104260)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

------------------------------------------------------
' http://homepage2.nifty.com/inform/vbmania/  からの引用です。

Option Explicit

Private Sub cmdGO_Click()

Dim b() As Byte
    Dim strURL As String
    Dim strFilename As String
    
    strURL = "http://channel.goo.ne.jp/weather/images/ramg3-0.gif"
    strFilename = "C:\My Documents\myfile.gif"
    
    ' 処理中マウスカーソル
    Screen.MousePointer = vbHourglass
    
    ' 操作が途中の場合キャンセルする
    Inet1.Cancel
    
    ' プロトコルを HTTP に設定
    Inet1.Protocol = icHTTP
    
    ' 対象のURLを指定する
    Inet1.URL = strURL
    
    ' バイナリ配列としてURLを取得する
    b() = Inet1.OpenURL(, icByteArray)
    
    ' 取得したデータをファイルに書き出す
    Open strFilename For Binary Access Write As #1
    Put #1, , b()
    Close #1

' マウスカーソルを通常に戻す
    Screen.MousePointer = vbDefault
    
    ' 処理完了メッセージを表示する
    MsgBox strURL & " を " & strFilename & " に保存しました。"
    
End Sub
------------------------------------------------------

ネットでみつけたものを少し変えて実行してみたら、ひとまず天気図は
保存できました。    でも、中身を理解してません。  とくに

' バイナリ配列としてURLを取得する
    b() = Inet1.OpenURL(, icByteArray)
    
がさっぱり。

まず  "Inet1"  1があるということは  Inet2というのもあるのでしょうか？  後ろの数字の意味は？

Inet1.OpenURL  の意味ですが、Inet1.URLで指定したものを開くという意味だと思うのですが、さらにその後ろの  (, icByteArray)  の意味は？？？

どなたかお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る