NTqq启动器

窄口牛

搞了个vhd放ntQQ，只读挂载vhd，运行QQ，退出QQ以后，自动卸载vhd。

1. Set objShell = CreateObject("WScript.Shell")
   
2. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   
3. vhdPath = "D:\Program Files\NTQQ\ntqq.vhd"
   
4. mountPoint = "W:"
   
5. objShell.Run "diskpart /s ""%temp%\mountvhd.txt""", 0, True
   
6. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
7. Set objFile = objFSO.CreateTextFile(objShell.ExpandEnvironmentStrings("%temp%\mountvhd.txt"), True)
   
8. objFile.WriteLine "select vdisk file=""" & vhdPath & """"
   
9. objFile.WriteLine "attach vdisk readonly"
   
10. objFile.WriteLine "sel par 1"
    
11. objFile.WriteLine "assign letter="& Left(mountPoint, 1)
    
12. objFile.Close
    
13. objShell.Run "diskpart /s ""%temp%\mountvhd.txt""", 0, True
    
14. qqPath = mountPoint & "QQ.exe"
    
15. Set objProcess = objShell.Exec("""" & qqPath & """ --user-data-dir=w:\Data --disable-update")
    
16. Do While objProcess.Status = 0
    
17.     WScript.Sleep 1000
    
18. Loop
    
19. Set objFile = objFSO.CreateTextFile(objShell.ExpandEnvironmentStrings("%temp%\dismountvhd.txt"), True)
    
20. objFile.WriteLine "select vdisk file=""" & vhdPath & """"
    
21. objFile.WriteLine "detach vdisk"
    
22. objFile.Close
    
23. objShell.Run "diskpart /s ""%temp%\dismountvhd.txt""", 0, True
    
24. objFSO.DeleteFile objShell.ExpandEnvironmentStrings("%temp%\mountvhd.txt"), True
    
25. objFSO.DeleteFile objShell.ExpandEnvironmentStrings("%temp%\dismountvhd.txt"), True

复制代码

目的是阻止其自动下载新的版本。

szwp

试试wim

窄口牛

wim挂载慢哇。

蘭蘭

谢谢分享！

邪恶海盗

NTQQ这么垃圾有啥好用的，不如用传统版...


二○二五年十月一日

窄口牛

邪恶海盗 发表于 2025-10-1 19:28
NTQQ这么垃圾有啥好用的，不如用传统版...

像个东西了，目前比传统版轻快。

邪恶海盗

窄口牛 发表于 2025-10-1 19:47
像个东西了，目前比传统版轻快。

我不信，这不是疼讯的尿性...


二○二五年十月一日

进士小站

个人觉得 楼主的思路 没问题
现在 就是 使用效果如何

2012andyle113

用个QQ都这么麻烦了

201027149

如果只单纯阻止更新，Win自带禁止写入 或 阻断版本侦测联网；亦或俩一起来。

makoto23

谢谢分享

taxuexunmei

太麻烦了