| @echo off | | set info=互助互利,支付宝扫码头像,感谢赞助 | | | | title %info% | | cd /d "%~dp0" | | set "file=C:\Windows\System32\calc.exe" | | for /f %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(msgbox(""打开 %file% ?"",68,""%info%""))"^)(close^)') do ( | | if %%a equ 6 ( | | echo;Y | | start "" "%file%" | | ) else ( | | echo;N | | ) | | ) | | echo;%info% | | pauseCOPY |
|