apang

不用 mshta 还有没有白框？

:DesktopLnk
>$.vbs echo,Set a=CreateObject("WScript.Shell"):Set b=a.CreateShortcut(a.SpecialFolders("Desktop") ^& "\QQ7.1.lnk"):b.TargetPath="%~dp0Bin\QQ.exe":b.WorkingDirectory="%~dp0Bin":b.Save
cscript -nologo $.vbs & SET E=完成&GOTO MSGBOX
:MsgBox
>$.vbs echo,MsgBox "%e%",vbSystemModal,""
if "%~1" == "" cscript -nologo $.vbs
复制代码