Load Gambar dari Internet

Kode berikut ini digunakan untuk me-load gambar dari internet ke dalam sebuah kontrol semisal kontrol PictureBox.

[ VB 6.0 ]
Buat sebuah Form dengan sebuah kontrol PictureBox dan sebuah kontrol CommandButton didalamnya. Lalu ketikkan kode berikut di bagian 'Command1_Click' :

Dim b() As Byte
Dim whr As Object
Set whr = CreateObject("WinHttp.WinHttpRequest.5.1")

whr.Open "GET", "http://www.google.com/intl/id/images/logo.gif", False
whr.Send

Open "temp.tmp" For Binary As #1
b() = whr.ResponseBody
Put #1, 1, b()
Close #1

Picture1.Picture = LoadPicture("temp.tmp")

[ VB NET ]
Buat sebuah Form dengan sebuah kontrol PictureBox dan sebuah kontrol Button didalamnya. Lalu ketikkan kode berikut di bagian 'Button1_Click' :

PictureBox1.ImageLocation = "http://www.google.com/intl/id/images/logo.gif"

CATATAN : Gambar dapat diubah dengan mengganti kode yang berwarna merah dengan alamat lokasi gambar yang baru.