清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", "C:\test.pac"
Set Shell=Nothing