Vb.Net: Menganalisa Eksistensi Gambar (Image) Dari Url Web

Akhir-simpulan ini Rani terlalu sering "bermain" dengan image dan ftp. Sedikit meninggalkan jejak tentang hal tersebut, postingan kali ini kita bakal bahas gimana cara mengevaluasi apakah image dalam url tersedia atau tidak. Yaitu menggunakan deklarasi fungsi selaku berikut: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _  ( ByVal pCaller As Long , ByVal szURL As String , ByVal szFileName As String , _   ByVal dwReserved As Long , ByVal lpfnCB As Long ) As Long Code ini rani dapet dari link berikut: http://www.vbforums.com/showthread.php?544655-RESOLVED-Check-to-see-if-a-image-exists-on-the-web Aslinya code ini buat VB6 tetapi ternyata masih reliable dipakai di VB.NET. Gimana penggunaannya? Mari kita coba buat project sebagai berikut: Code: Public Class Form1    Private Declare Function   URLDownloadToFile   Lib  "urlmon"   Alias  "URLDownloadToFileA"   _           ( ByVal  pCaller  As Long ,  ByVal  szURL  As String ,  ByVal  szFileName  As String , _             ByVal  dwReserved  As Long ,  ByVal  lpfnCB  As Long )  As Long   Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click       Dim sURL As String = TextBox1.Text       Dim i As Long       i = URLDownloadToFile(0, sURL, "" , 0, 0)       If i <> 0 Then           MsgBox( "File does not exist" )       Else           MsgBox( "File exists" )       End If   End Sub End Class Saat kita kerjakan acara, masukan url image yang ada (valid) ke textbox lalu tekan button 1 maka kesannya: Sementara jika url image tidak tersedia maka:
Sumber http://rani-irsan.blogspot.com