rd/s/q "%AppData%\Tencent\Logs" 2>NUL
rd/s/q "%AppData%\Tencent\QQGame"2>NUL
rd/s/q "%AppData%\Tencent\QQGameAndroidMgr"2>NUL
reg delete HKLM\Software\Tencent\QQGame /F>NUL 2>NUL
regsvr32 /s CUQG.ocx QQGameDetect.ocx
md "%AppData%\Tencent\QQGame\MiniGameFile\Hlddz"2>NUL
echo.NoAndroid>"%AppData%\Tencent\QQGameAndroidMgr" 2>NUL
echo.NoAndroid>"%AppData%\Tencent\QQGame\AndroidMgr" 2>NUL
echo.>"%AppData%\Tencent\QQGame\MiniGameFile\Hlddz\AD" 2>NUL
rd/s/q "%AllUsersProfile%\Application Data\Tencent\QQGame"2>NUL
if exist "%Public%" rd/s/q "%ProgramData%\Tencent\QQGame"2>NUL
reg delete HKLM\Software\Wow6432Node\Tencent\QQGame /F>NUL 2>NUL
reg add HKLM\SOFTWARE\Classes\QQGameProtocol /v "URL Protocol" /d "%~dp0QQGwp.exe" /F>NUL
reg add HKLM\SOFTWARE\Classes\QQGameProtocol\shell\open\command /ve /d "\"%~dp0QQGwp.exe\" \"%%1\"" /F>NUL
reg add HKLM\SOFTWARE\Classes\Qgi.Package\shell\open\command /ve /d "\"%~dp0Update\update.exe.exe\" -InstallQGI \"%%1\"" /F>NUL
goto Install2
:Establish
ping -n 2 127.1>nul
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\QQ游戏大厅.lnk""):b.TargetPath=""%~dp0QQGame.exe"":b.WorkingDirectory=""%~dp0office6"":b.Save:close"
菜鸟非常喜欢安装版软件,就只会基本打包,遇到大神制作的绿色版带批处理就无奈了。想请教各位希望能一段一段的讲下,感激不尽!