data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAPoAAABkCAYAAACvgC0O

Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
 
URL = "Url/imagen.jpg"  ' Aqui pondria mi url
objWinHttp.open "GET", URL, False
objWinHttp.send ""
 
SaveBinaryData "D:\somefolder\my.png",objWinHttp.responseBody
 
Function SaveBinaryData(FileName, Data)
 
' adTypeText for binary = 1
Const adTypeText = 1
Const adSaveCreateOverWrite = 2
 
' Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
 
' Specify stream type - we want To save Data/string data.
BinaryStream.Type = adTypeText
 
' Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write Data
 
' Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
 
End Function
 

Imports System.Drawing
Imports System.IO
 
Dim content As String = "data:image/png;base64,"
Dim base64 As String = content & "R0lGODlhAQABAIAAAAAAAAAAACH5BAAAAAAALAAAAAABAAEAAAICTAEAOw=="
Dim raw As Byte() = Convert.FromBase64String(base64.Replace(content, ""))
 
Using ms As New MemoryStream(raw, writable:=False),
      img As Image = Image.FromStream(ms, useEmbeddedColorManagement:=True, validateImageData:=True)
 
    img.Save("C:\file.png", img.RawFormat)
End Using

using System.Drawing;
using System.IO;
 
string content = "data:image/png;base64,";
string base64 = content + "R0lGODlhAQABAIAAAAAAAAAAACH5BAAAAAAALAAAAAABAAEAAAICTAEAOw==";
byte[] raw = Convert.FromBase64String(base64.Replace(content, ""));
 
using (MemoryStream ms = new MemoryStream(raw, writable: false)) {
	using (Image img = Image.FromStream(ms, useEmbeddedColorManagement: true, validateImageData: true)) {
		img.Save(@"C:\file.png", img.RawFormat);
	}
}

[void][Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
 
[String]$content = "data:image/png;base64,"
[String]$base64  = $content + "R0lGODlhAQABAIAAAAAAAAAAACH5BAAAAAAALAAAAAABAAEAAAICTAEAOw=="
[Byte[]]$raw     = [Convert]::FromBase64String($base64.Replace($content, ""))
 
[IO.MemoryStream]$ms = New-Object IO.MemoryStream @($raw, $false)
[Drawing.Image]$img = [Drawing.Image]::FromStream($ms, $true, $true)
 
$img.Save("C:\file.png", $img.RawFormat)
 
Exit(0)