Dim links(2)
links(0) = "http://cs14101.vk.me/c7007/v7007430/1eead/adfC1UWQgfI.jpg"
links(1) = "http://cs14101.vk.me/c7007/v7007266/20a96/YHHQY-YPFt0.jpg"
links(2) = "http://cs14101.vk.me/c7007/v7007266/20a7e/bf3gqbEQ8zo.jpg"
 
Dim folder
 
folder = SelectFolder(".")
 
Dim aux, aux1
 
For Each link In links
    aux = Split(link, "?")
    aux1 = Split(aux(0), "/")
    Download link, folder & "/" & aux1( Ubound(aux1) )
Next
 
WScript.Echo "Download has finished."
 
Sub Download(url, dst)
    Dim http, stream
 
    Set http = CreateObject("microsoft.xmlhttp")
    Set stream = CreateObject("adodb.stream")
    http.Open "GET", url, False
    http.Send
 
    With stream
        .type = 1
        .open
        .write http.responseBody
        .saveToFile dst, 2
    End With
End Sub
 
Function SelectFolder( myStartFolder )
' This function opens a "Select Folder" dialog and will
' return the fully qualified path of the selected folder
'
' Argument:
'     myStartFolder    [string]    the root folder where you can start browsing;
'                                  if an empty string is used, browsing starts
'                                  on the local computer
'
' Returns:
' A string containing the fully qualified path of the selected folder
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
 
    ' Standard housekeeping
   Dim objFolder, objItem, objShell
   
    ' Custom error handling
   On Error Resume Next
    SelectFolder = vbNull
 
    ' Create a dialog object
   Set objShell  = CreateObject( "Shell.Application" )
    Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 0, myStartFolder )
 
    ' Return the path of the selected folder
   If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path
 
    ' Standard housekeeping
   Set objFolder = Nothing
    Set objshell  = Nothing
    On Error Goto 0
End Function

Dim links(2)
links(0) = "http://cs14101.vk.me/c7007/v7007430/1eead/adfC1UWQgfI.jpg"
links(1) = "http://cs14101.vk.me/c7007/v7007266/20a96/YHHQY-YPFt0.jpg"
links(2) = "http://cs14101.vk.me/c7007/v7007266/20a7e/bf3gqbEQ8zo.jpg"
Main
Sub Main()
    Dim title, oShell, oFolder, tmp, tmp1
    title = Chr(194) & Chr(251) & Chr(225) & Chr(229) & Chr(240) & Chr(232) & Chr(242) & Chr(229) & Chr(32) & Chr(239) & Chr(224) & Chr(239) & Chr(234) & Chr(243) & Chr(32) & Chr(228) & Chr(235) & Chr(255) & Chr(32) & Chr(241) & Chr(238) & Chr(245) & Chr(240) & Chr(224) & Chr(237) & Chr(229) & Chr(237) & Chr(232) & Chr(255) & Chr(58)
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, title, 0)
    If oFolder is Nothing then
        Exit Sub
    End If
    For Each link in links
        tmp = Split(link, "?")
        tmp1 = Split(tmp(0), "/")
        Download link, oFolder.self.path & "/" & tmp1( Ubound(tmp1) )
    Next
    WScript.Echo Chr(209) & Chr(234) & Chr(224) & Chr(247) & Chr(232) & Chr(226) & Chr(224) & Chr(237) & Chr(232) & Chr(229) & Chr(32) & Chr(231) & Chr(224) & Chr(226) & Chr(229) & Chr(240) & Chr(248) & Chr(229) & Chr(237) & Chr(238) & Chr(46)
End Sub
Sub Download(url, dst)
    Dim oHttp, oStream
    Set oHttp = CreateObject("Microsoft.XMLHttp")
    Set oStream = CreateObject("Adodb.Stream")
    oHttp.Open "GET", url, False
    oHttp.Send
    With oStream
        .type = 1
        .Open
        .Write oHttp.responseBody
        .SaveToFile dst, 2
    End With
End Sub