Question

我想问除了浏览器和其他软件之外，从互联网上下载文件的其他方法，我认为可以使用CMD（命令行），批处理脚本吗？更确切地说，使用一个Windows（比方说7）组件来下载文件而不需要像vbs，hta，.. etc这样的对话框？我不想下载wget，curl，telnet或其他组件这将适用于Windows 7？ http://semitwist.com/articles/article/view/downloading-files-from-plain-batch-with-zero-dependencies

Answer 1

在vbscript中尝试此示例：

Option Explicit
Dim URL,ws,fso,Srcimage,Temp,PathOutPutHTML,fhta,stRep,stFichier,oShell,oFolder,oFichier,Dimensions
Dim arrSize,intLength,intHorizontalSize,intVerticalSize,Tab
URL = "http://www.animatedimages.org/data/media/902/animated-tunisia-flag-image-0023.gif"
Set ws = CreateObject("wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Temp = WS.ExpandEnvironmentStrings("%Temp%")
PathOutPutHTML = Temp & "\image.hta"
Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
stRep = Temp
Tab = split(url,"/")
stFichier = Tab(UBound(Tab))
Srcimage = stRep & "\" & stFichier
If Not fso.FileExists(Srcimage) Then
    Call DownloadingFile(URL,Srcimage)
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(stRep)
Set oFichier = oFolder.Items.Item(stFichier)
Dimensions = oFolder.GetDetailsOf(oFichier,31)
arrSize = Split(Dimensions,"x") 
'***************************************Important à savoir **********************************************
'Instead, we ended up retrieving item 31, which gave us the total dimensions of the picture,
'using an output format similar to this: ?150 x 354?
'http://blogs.technet.com/b/heyscriptingguy/archive/2008/05/16/how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width.aspx
'Un grand merci à omen999 ==> 
'http://www.developpez.net/forums/d1504644/autres-langages/general-visual-basic-6-vbscript/vbscript/passage-variables-procedure/#post8163406
intLength = Len(arrSize(0))
intHorizontalSize = Right(arrSize(0),intLength -1)
intLength = Len(arrSize(1))
intVerticalSize = Left(arrSize(1),intLength - 1) 
'***************************************Important à savoir **********************************************
    Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51))
    ws.run "mshta.exe " & PathOutPutHTML
Else
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(stRep)
Set oFichier = oFolder.Items.Item(stFichier)
Dimensions = oFolder.GetDetailsOf(oFichier,31)
arrSize = Split(Dimensions,"x")
intLength = Len(arrSize(0))
intHorizontalSize = Right(arrSize(0),intLength -1)
intLength = Len(arrSize(1))
intVerticalSize = Left(arrSize(1),intLength - 1) 
    Call LoadImage(Srcimage,intHorizontalSize,intVerticalSize,Timeout(51))
    ws.run "mshta.exe " & PathOutPutHTML
End If
'********************************************************************************************************
Function TimeOut(T)
    TimeOut = T * 1000
End Function    
'********************************************************************************************************
Sub LoadImage(Srcimage,intHorizontalSize,intVerticalSize,TimeOut)
    fhta.WriteLine "<html>"
    fhta.WriteLine "    <hta:application id=""oHTA"" "
    fhta.WriteLine "        border=""none"" "
    fhta.WriteLine "        caption=""no"" "
    fhta.WriteLine "        contextmenu=""no"" "
    fhta.WriteLine "        innerborder=""no"" "
    fhta.WriteLine "        scroll=""no"" "
    fhta.WriteLine "        showintaskbar=""no"" "
    fhta.WriteLine "    />"
    fhta.WriteLine "<style>"
    fhta.WriteLine "{ margin: 0; padding: 0; }"
    fhta.WriteLine "body {background: url(" & DblQuote(Srcimage) & ") no-repeat center center fixed;}"
    fhta.WriteLine "</style>"
    fhta.WriteLine "    <script language=""VBScript"">"
    fhta.WriteLine "        Sub Window_OnLoad()"
    fhta.WriteLine "            width = " & intHorizontalSize
    fhta.WriteLine "            height = " & intVerticalSize
    fhta.WriteLine "            window.resizeTo width, height"
    fhta.WriteLine "            window.moveTo screen.availWidth\2 - width\2, screen.availHeight\2 - height\2"
    fhta.WriteLine "            idTimer = window.setTimeout(""vbscript:window.close"","& TimeOut &")"
    fhta.WriteLine "            window.setInterval ""setfocus()"",100"
    fhta.WriteLine "        End Sub"
    fhta.WriteLine "        Function setfocus"
    fhta.WriteLine "            Window.Focus()"
    fhta.WriteLine "        End Function"
    fhta.WriteLine "    </script>"
    fhta.WriteLine "<body>"
    fhta.WriteLine "<bgsound src=""http://hackoo.alwaysdata.net/Tunisie.mp3"">"
    fhta.WriteLine "</body>"
    fhta.WriteLine "</html>"
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
Sub DownloadingFile(URL,strHDLocation)
Dim Titre,objFSO,Ws,objXMLHTTP,PathScript,Tab,objADOStream,Command,Start,File
Dim MsgTitre,MsgAttente,StartTime,DurationTime,ProtocoleHTTP
Set objFSO = Createobject("Scripting.FileSystemObject")
Set Ws = CreateObject("wscript.Shell")
ProtocoleHTTP = "http://"
If Left(URL,7) <> ProtocoleHTTP Then
URL = ProtocoleHTTP & URL
End if
Tab = split(url,"/")
File =  Tab(UBound(Tab))
File = Replace(File,"%20"," ")
File = Replace(File,"%28","(")
File = Replace(File,"%29",")")
    Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
    strHDLocation = PathScript & "\" & File
    On Error Resume Next
    objXMLHTTP.open "GET",URL,false
    objXMLHTTP.send()
If Err.number <> 0 Then
   MsgBox err.description,16,err.description
   Exit Sub
   Else
    If objXMLHTTP.Status = 200 Then
         strHDLocation = Temp & "\" & File
         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
         objADOStream.SaveToFile strHDLocation,2 '2=adSaveCreateOverWrite
         objADOStream.Close
    Set objADOStream = Nothing
    End If
End if
Set objXMLHTTP = Nothing
End Sub

此处可能是另一个示例：VBS/Batch Check if Download Complete

Answer 2

Batch无法原生下载文件。

要从命令行下载文件，您必须使用第三方工具，如cURL或wget。

Answer 3

Linux：

wget http://somedomain.com/somefile.xxx

如果您使用的是Windows，请下载名为wget.exe（here）的exe文件，您就可以使用上述代码了。

Answer 4

PowerShell很容易做到这一点;但是 - 即使Windows 7中包含某个版本 - 您可能还想下载最新版本。

Answer 5

在Windows 7或Windows 8（及相关服务器版本）中，您可以将驱动器映射到WebDAV文件夹，并将COPY，XCOPY或ROBOCOPY用于您心中的内容。如果您愿意，可以使用命令行NET USE映射驱动器。

例如，NET USE S：https：\ live.sysinternals.com（或使用PUSHD），并跟进你复制命令。

喝彩！

Answer 6

您可以尝试使用 PowerShell 下载并执行该文件的此Vbscript。所以在这个例子中我们下载了一个mp3文件然后播放它。

Option Explicit
Dim MyCmd,Ws,Ret
Set Ws = CreateObject("wscript.Shell")
MyCmd = "cmd /c Powershell.exe -ExecutionPolicy bypass -noprofile  -WindowStyle Hidden (New-Object System.Net.WebClient).DownloadFile('http://hackoo.alwaysdata.net/Matrix.mp3','%TEMP%\Matrix.mp3'); Start-Process %TEMP%\Matrix.mp3;"
Ret = Ws.run(MyCmd,0,True)

如何在没有浏览器的情况下下载文件并打开/保存对话框批处理？

6 个答案: