批处理 - QQ在线静默安装

BEIKING

基于 curl.exe，Win10以前系统不能用该脚本。
适配桌面正常系统与PE系统。

1. @echo off
   
2. if /i "%UserName%" == "SYSTEM" (Goto GotAdmin) else (reg query "HKLM\SYSTEM\ControlSet001\Control\MiniNT" 1>nul 2>nul&&Goto GotAdmin)
   
3. :BatchGotAdmin
   
4. Set _Args=%*
   
5. if `%1` neq `` Set "_Args=%_Args:"=""%"
   
6. if exist %WinDir%\System32\fltMC.exe fltMC 1>nul 2>nul||mshta VBScript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c """"%~f0"" %_Args%""",,"runas",1)(Window.Close) 2>nul&&Exit /b
   
7. 
   
8. :GotAdmin
   
9. Pushd "%CD%"&cd /d "%~dp0"
   
10. Title QQ在线静默安装&(if exist %WinDir%\System32\ureg.dll Mode 82,21 2>nul)&Color 2f
    
11. if defined CommonProgramW6432 (Set "QQScLauncher=%ProgramFiles(x86)%\Tencent\QQ\Bin\QQScLauncher.exe") else Set "QQScLauncher=%ProgramFiles%\Tencent\QQ\Bin\QQScLauncher.exe"
    
12. if exist "%QQScLauncher%" (Goto RunQQ) else Set n=0&Goto GetUrl
    
13. 
    
14. :GetUrl
    
15. Set /a n+=1
    
16. chcp 65001 1>nul 2>nul
    
17. Set url=&for /f "delims=" %%i in ('curl -s https://cdn-go.cn/qq-web/im.qq.com_new/latest/rainbow/windowsDownloadUrl.js') do for %%j in (%%i) do for /f "tokens=1,* delims=:" %%k in ('echo,"%%~j"') do if /i "%%~k" == "downloadUrl" Set "url=%%~l"
    
18. if not defined url if %n% leq 20 (Set /p="_ ."<nul&Goto GetUrl) else chcp 936 1>nul 2>nul&Call :EchoX "cf.:_Download JS file error_"&Pause >nul&Exit /b
    
19. chcp 936 1>nul 2>nul
    
20. 
    
21. :DownQQ
    
22. Cls&Call :EchoX "9f.: 正在下载QQ，请稍等 。。。"&echo.
    
23. if not exist "%~dp0QQ.exe" (aria2c -h 1>nul 2>nul&&aria2c "%url%" -o QQ.exe||curl "%url%" -l -o QQ.exe) else Cls
    
24. echo.&if not exist "%~dp0QQ.exe" (Call :EchoX "9f:: 下载链接: "&echo %url%&Call :EchoX "cf.: 下载出错！请检查下载链接。"&Pause >nul) else (Call :EchoX "9f.: 正在安装QQ，请稍等 。。。"&QQ.exe /s 1>nul 2>nul&del /q "%~dp0QQ.exe" 2>nul)
    
25. Exit /b
    
26. 
    
27. :RunQQ
    
28. @start "" "%QQScLauncher%" 1>nul 2>nul
    
29. Exit /b
    
30. 
    
31. :EchoX
    
32. Setlocal EnableDelayedExpansion
    
33. Set echox=EchoX.exe&&!echox! 1>nul 2>nul||(Set echox=&mkdir "%TEMP%\EchoX" 2>nul&&attrib +s +h "%TEMP%\EchoX" 2>nul)
    
34. for %%a in (%*) do (
    
35.     Set "param=%%~a"&Set "color=!param:~0,2!"&(if not exist %WinDir%\System32\findstr.exe if not defined echox Set "color=xx")
    
36.     Set n=0&(if "!param:~2,2!" == "::" Set n=1)&(if "!param:~2,2!" == ".:" Set n=2)
    
37.     if !n! gtr 0 (
    
38.         if /i "!color!" == "xx" (Set /p="_!param:~4!"<nul) else (Set param=%%~nxa&if defined echox (!echox! -c !color! -n "!param:~4!") else (Pushd "%TEMP%\EchoX" 2>nul&>"!param:~4!",Set /p= <nul&findstr /a:!color! .* "!param:~4!*"&del "!param:~4!"&Popd))
    
39.         if !n! == 2 echo.
    
40.     ) else if defined param Set /p="_!param!"<nul
    
41. )
    
42. Endlocal&Goto :eof

复制代码

复制代码到记事本保存，请务必保存为 ANSI 格式，UTF-8会报错

277748999

谢谢分享

进士小站

会不会安装最新版呢
还是喜欢相对老点的版本

BEIKING

进士小站 发表于 2024-6-12 13:50
会不会安装最新版呢
还是喜欢相对老点的版本

通过js文件获取最新版地址

chibuzhu

感谢分享

lgkun8

以此类推，是不是可以制作：微信、酷狗等的在线静默安装？

moon0310

安装QQ用的？

bigdiger_KING

只用TIM

wang1126

谢谢分享

狼人72105

BEIKING 发表于 2024-6-12 14:01
通过js文件获取最新版地址

静默安装应该不显示批处理，而是显示“下载与安装”的进度条（进度条并附有进度百分比）。最后提示“安装完成”。

cnerp

win7下报错，说无法下载JS，是没有CURL吧，复制CURL果然不一样，可以用了

学网络

感谢楼主分享。

martin313

与官方的比，啥区别

BEIKING

martin313 发表于 2024-6-12 16:21
与官方的比，啥区别

下载的就是官方版本，通过官方版本的静默参数，默认路径安装

sansar

谢谢

yyz2191958

谢谢分享

sulong

学到了，谢谢分享

as8686886

lgkun8 发表于 2024-6-12 14:20
以此类推，是不是可以制作：微信、酷狗等的在线静默安装？

curl https://dldir1v6.qq.com/weixin/Windows/WeChatSetup.exe -l -o WeChatSetup.exe
WeChatSetup.exe /S 1>nul 2>nul
del /q "%~dp0WeChatSetup.exe"
微信

henrygoode

666

呵呵#1861

谢谢分享

in9

谢谢技术分享！

fegr

感谢分享

liugul

感谢分享，不错

dawink

楼主，你是不是弄搜狗输入法的那位大佬？www删除.删除423down.com/13827.html[/url]，这个版本13.0.0.6801好用，感谢，感谢，