Forum

Script hazirlamak
 
Bildirimler
Hepsini Temizle

Script hazirlamak

3 Yazılar
3 Üyeler
0 Reactions
1,139 Görüntüleme
(@akinbeslan)
Gönderiler: 605
Prominent Member
Konu başlatıcı
 
[#39847]

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
(@rahmidilli)
Gönderiler: 2452
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
(@serhatakinci)
Gönderiler: 4113
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


 
Gönderildi : 28/08/2008 21:42
Paylaş: