Jumat, 09 September 2011

Web URL

Komponen : Microsoft Internet Transfer Control 6.0
-Inet
Komponen: Microsoft Internet Controls
-Webbrowser

Mendownload data biner(ex:gambar)
Dim b( ) As Byte

b( ) = Inet1.OpenURL("http://abc.com/abc.png", 1)

Open App.Path & "\Image.png" For Binary As #1
 Put #1, 1, b
Close #1

Membuka URL via WebBrowser
Webbrowser.navigate (URL)

Tidak ada komentar:

Posting Komentar