酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88289

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

用VB下載網路圖片

要現設定使用件
Microsoft Intemet Transfer Control 6.0要打勾

 Private Sub Command1_Click()

Dim b() As Byte
     b = Inet1.OpenURL("http://l.yimg.com/us.js.yimg.com/lib/ks/tw/i8/l5_3232.gif", icByteArray)    '網路位置yahoo知識網小圖
    Open "C:1.gif" For Binary As #1  '存圖檔名1.gif
        Put #1, , b
    Close #1
    MsgBox "下載完成"

End Sub

相簿設定
標籤設定
相簿狀態