Android 台灣中文網

標題: 【25/05/28】最新版WinRAR下載器 (樓主自製+完全開源) [打印本頁]
作者: love_apktw    時間: 2025-5-28 23:13
標題: 【25/05/28】最新版WinRAR下載器 (樓主自製+完全開源)
本帖最後由 love_apktw 於 2025-5-29 15:59 編輯

【軟體名稱】：最新版WinRAR下載器
【軟體版本】：v1 (最終版)
【版本類型】：樓主自製+完全開源版
【軟體語言】：繁體中文
【檔案大小】：2.56 KB
【作業系統】：Windows 7 以上 (舊版 Windows 無法執行)
——————————————————————————————————————————
【軟體介紹】：
想要下載最新版的 WinRAR，但是懶得去官網?
樓主幫你寫了一個小程式，幫你解放雙手，自動下載檔案。

此程式完全開源，讓您可以一覽無餘、安心的使用此程式
——————————————————————————————————————————
【軟體內部程式碼】：
  1. @echo off
  2. setlocal enabledelayedexpansion

  4. cd /d "%temp%"

  6. cls
  7. title 正在將 "WinRAR下載頁面" 下載至電腦中....
  8. echo 正在將 "WinRAR下載頁面" 下載至電腦中....
  9. where curl >nul 2>&1
  10. if "!errorlevel!"=="0" (
  11.     curl -L -o "%temp%\download.txt" "https://www.rarlab.com/download.htm" >nul 2>&1
  12. ) else (
  13.     where bitsadmin >nul 2>&1
  14.     if "!errorlevel!"=="0" (
  15.         bitsadmin /transfer mydownloadjob /download /priority high "https://www.rarlab.com/download.htm" "%temp%\download.txt"
  16.     ) else (
  17.         cls
  18.         title 此系統不支援 curl 與 bitsadmin，無法下載檔案。
  19.         echo 此系統不支援 curl 與 bitsadmin，無法下載檔案。
  20.         pause >nul
  21.         exit /b
  22.     )
  23. )

  25. cls
  26. title 正在提取 "WinRAR安裝程式" 的下載連結....
  27. echo 正在提取 "WinRAR安裝程式" 的下載連結....
  28. powershell -NoProfile -Command "Select-String -Path 'download.txt' -Pattern '(/rar/[A-Za-z0-9\-._~:/?#\[\]@![        DISCUZ_CODE_0        ]amp;''()*+,;=%]+)' -AllMatches | ForEach-Object { foreach ($m in $_.Matches) { $m.Value } } | Out-File -FilePath 'links.txt' -Encoding UTF8"

  30. cls
  31. title 正在尋找是否有 "WinRAR安裝程式" 的下載連結....
  32. echo 正在尋找是否有 "WinRAR安裝程式" 的下載連結....
  33. for /f "usebackq delims=" %%A in ("links.txt") do (
  34.     echo %%A | findstr /r /c:"/rar/.*tc\.exe" >nul
  35.     if "!errorlevel!"=="0" (
  36.         set "ExeDL=https://www.rarlab.com%%A"
  37.         for %%B in ("%%A") do set "ExeName=%%~nxB"
  38.     )
  39. )
  40. if "!ExeName!"=="" (cls & title 找不到 "WinRAR安裝程式" 的下載連結。 & echo 找不到 "WinRAR安裝程式" 的下載連結。 & pause >nul & exit /b)

  42. cls
  43. title 正在刪除臨時檔案....
  44. echo 正在刪除臨時檔案....
  45. del "download.txt" >nul & del "links.txt" >nul

  47. if exist "%userprofile%\Downloads\!ExeName!" (del "%userprofile%\Downloads\!ExeName!" >nul)
  48. cls
  49. title 正在將 "WinRAR安裝程式" 下載至電腦中....
  50. echo 正在將 "WinRAR安裝程式" 下載至電腦中....
  51. where curl >nul 2>&1
  52. if "!errorlevel!"=="0" (
  53.     curl -L -o "%userprofile%\Downloads\!ExeName!" "!ExeDL!" >nul 2>&1
  54. ) else (
  55.     where bitsadmin >nul 2>&1
  56.     if "!errorlevel!"=="0" (
  57.         bitsadmin /transfer mydownloadjob /download /priority high "!ExeDL!" "%userprofile%\Downloads\!ExeName!"
  58.     ) else (
  59.         cls
  60.         title 此系統不支援 curl 與 bitsadmin，無法下載檔案。
  61.         echo 此系統不支援 curl 與 bitsadmin，無法下載檔案。
  62.         pause >nul
  63.         exit /b
  64.     )
  65. )

  67. if exist "%userprofile%\Downloads\!ExeName!" (
  68.     cls
  69.     title 檔案下載成功！
  70.     echo 檔案下載成功！
  71.     echo:
  72.     echo 檔案位置：%userprofile%\Downloads\!ExeName!
  73. ) else (
  74.     cls
  75.     title 檔案下載失敗。
  76.     echo 檔案下載失敗。
  77. )
  78. pause >nul
  79. exit /b
  80. endlocal
複製代碼

——————————————————————————————————————————
【附件下載】： 最新版WinRAR下載器.bat (2.56 KB, 下載次數: 318)