Script hazirlamak

Windows Client

Son Cevaplar gön: Serhat AKINCI 16 yıl önce

3 Yazılar

3 Üyeler

0 Reactions

626 Görüntüleme

RSS

Akın Beslan

(@akinbeslan)

Gönderiler: 605

Prominent Member

Konu başlatıcı

Merhaba arkadaslar;

Birsey ogrenmek istiyorum, Örneğin bir url var ve ben burdan devam li olarak bir kaynak download ediyorum.Bunu bir batch dosyasi seklinde yapip tikladigimda gidip o url deki şeyi indirmesini saglayabilirmiyim,yapmam gereken nedir ?

tesekurler.

Gönderildi : 28/08/2008 18:36

Rahmi DILLI

(@rahmidilli)

Gönderiler: 2458

Famed Member

Merhabalar,

Scriptle ilgili çalışmanız lazım. Aşağıdaki linkte bazı uygulamalar var MS scripting sitesinden benzer şeyler bulabilirsiniz.

http://www.cozumpark.com/forums/41/ShowForum.aspx

Gönderildi : 28/08/2008 21:10

Serhat AKINCI

(@serhatakinci)

Gönderiler: 4117

Famed Member

Merhaba.

Şu scripti kullanabilirsiniz. Download bittikten sonra ilgili dosya verdiğinz path'e geliyor..

    strFileURL = " http://serhatakinci.com/test.zip "
    strHDLocation = "c:\test.zip"

    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()

    If objXMLHTTP.Status = 200 Then
      Set objADOStream = CreateObject("ADODB.Stream")
      objADOStream.Open
      objADOStream.Type = 1 'adTypeBinary

      objADOStream.Write objXMLHTTP.ResponseBody
      objADOStream.Position = 0    'Set the stream position to the start

      Set objFSO = Createobject("Scripting.FileSystemObject")
        If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
      Set objFSO = Nothing

      objADOStream.SaveToFile strHDLocation
      objADOStream.Close
      Set objADOStream = Nothing
    End if

    Set objXMLHTTP = Nothing