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