-
扯线公仔
发布于 2023-03-02 09:39
-
收藏
复制代码 代码如下:On Error Resume Next Dim WshShell, QQPath, QQselectset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject") key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\"QQPath=wshshell.reg..