kendi yazdıgın programın içine 2 tane klasor oluştur biri gecici digeri gercek diye daha sonrada form1 e bir inet at.. ve şu kodları yaz;
Private Sub Form_Load()
Dim sDwnloadyolu As String
Dim sgeciciyol As String
Dim sURL As String
Dim bilgi() As Byte
sURL = "buraya banner yada jpg dosyanın bulunduğu adresi yaz"
sDwnloadyolu = App.Path & "\gercek"
sgeciciyol = App.Path & "\gecici"
bilgi() = Inet.OpenURL(sURL, icByteArray)
Open sgeciciyol & "\1.jpg yada 1.swf(flash ise 1.swf jpg ise 1.jpg die isim ver" For Binary Access Write As #1
Put #1, , bilgi()
Close #1
If Dir(sgeciciyol & "\1.jpg") <> "" Then
If Dir(sDwnloadyolu & "\1.jpg") <> "" Then Kill sDwnloadyolu & "\1.jpg"
Name sgeciciyol & "\1.jpg" As sDwnloadyolu & "\1.jpg"
Else
MsgBox "download yapılırken hata oluştu!", vbExclamation
End If
End Sub
Cracki arkadas bu sekilde cozum bulmustu paylasayım dedim


LinkBack URL
About LinkBacks
Alıntı Yaparak Yanıtla

Bookmarks