VbScript ile netten dosya indirmek

VbScript ile netten dosya indirme kodu
29 Eylül 2011 - Programlama
Aşağıdaki kodlarını not defterini açıp yapıştırın ve farklı kaydet deyip dosya uzantısını vbs olarak kaydedin.

Dosyayı çalıştırdığınız da size "İndirilecek nesnenin tam adresini giriniz!!!" diye soracaktır. İnternet üzerindeki bir dosyanın tam adresini girdiğiniz de göreceksiniz ki bulunduğu yere dosyayı indirecektir.

Kodun geliştirilmesi size kalmış

Kod: Tüm Kodu Seç
cURL = InputBox("İndirilecek nesnenin tam adresini giriniz!!!")
Dim strDIR
strDIR = WScript.ScriptFullName
strDIR = Left(strDIR,InStrRev(strDIR,"\"))

Dim strFIL
strFIL = Mid(cURL,InStrRev(cURL,"/")+1)

Dim objADO
Set objADO = CreateObject("ADODB.Stream")

Dim objXML
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", cURL, False
objXML.Send

If Err.Number = 0 And objXML.Status = 200 Then
       objADO.Type = 1
       objADO.Open
       objADO.Write objXML.ResponseBody
       objADO.SaveToFile strDIR & strFIL,2
       booMSG = True
End If

Set objADO = Nothing
Set objXML = Nothing

Toplam 236 kez okundu.
Oyla:
En Düşük
Oy ver: 1Oy ver: 2Oy ver: 3Oy ver: 4Oy ver: 5
En Yüksek
İlk yorumu yapan siz olun
CHIP Online Ziyaretçisi
Yorumunu Gönder
Lütfen bu bölüme sadece yorumlarınızı yazın. Teknik yardıma ihtiyaç duyduğunuz konuları lütfen forumda ilgili bölüme veya Uzmanına Sorun bölümümüze yazın, yanıtınızı çok daha sağlıklı ve hızlı olarak alabilirsiniz
Siz de kendi teknoloji blogunuzu ücretsiz oluşturun!

KuaforPlus

Kişisel Profili ve Sayfası
RSS (Kuaför Plus)

Kuaför Plus-Kategoriler

 

Kuaför Plus önceki yazılar:


KuaforPlus - TOP 5

 

Kuaför Plus-Arşiv

 

Eylül 2011
PtsSalÇarPerCumCtsPzr
   1234
567891011
12131415161718
19202122232425
2627282930  

CHIP Online Yazar Blogları

Yazarlarımızdan, editörlerimizden sizlere...

Cem SinanoğluCem Sinanoğlu
Nokia değil Nokir, iPhone değil Ay-Phone!
Selim ÖztürkSelim Öztürk
Motorola – Google Apple’a karşı
Rik FergusonRik Ferguson
Şapşal olma, sessiz ol! Şapşal olma, sessiz ol!
Selçuk İslamoğluSelçuk İslamoğlu
2012 Felaketine ne kadar hazırız?
Zeynel ÖztürkZeynel Öztürk
Facebook'un bilinmeyenleri!
 

CHIP Dergisi: Mayıs 2012

İşbirliği ortaklarımız

  • Hepsiburada.com
  • Level
  • Turhost
  • CHIP Download
  • yenibiris.com
  • CHIP Download
 
Cep telefonları | Ekran kartları | Masaüstü | Notebook | Ses kartları | Webcam | Klavye & Fare | Yazıcılar | Tablet Ev Sineması
Mp3 Player | Usb Bellekler | Video kameralar | Fotoğraf Makinesi | Taşınabilir diskler | LED & LCD Tv | Monitörler | OEM | PDA
Navigasyon | Oyun Konsolu