[分享] vNes 手机任天堂模拟器注册机 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@echo off
if %1*==hide* goto input
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit

:input
for /f %%i in ('"winput "$input" "请输入^(手机拔号 *#06# 查出^)手机IMEI号:" "15位数字" /num"') do set number=%%i
if %number%*==* goto exit
for /f "skip=1 delims=:" %%i in ('^(echo "%number%"^&echo.^)^|findstr /o ".*"') do set /a length=%%i-5
if %length% equ 15 goto select
if %length% neq 15 goto error

:error
if %number%*==15位数字* set number=还没有输入吧?!&&set length=0
mshta vbscript:msgbox("手机IMEI号: %number%"+chr(13)+"IMEI号长度%length%≠15, 返回修改!",64,"错误")(window.close)
set number=
goto input

:select
if %number%*==* goto input
Wprompt "确认" "手机IMEI号是 %number% 吗?" YesNoCancel 1 ?
if %errorlevel% equ 1 goto calculator
if %errorlevel% equ 2 set number= &&goto input
if %errorlevel% equ 3 goto exit

:calculator
for /f "tokens=3" %%i in ('echo %number%^|serial.exe') do set activation=%%i
mshta vbscript:msgbox("请记录:"+chr(13)+chr(13)+"IMEI码: %number%"+chr(13)+"激活码: %activation%",64,"完成")(window.close)
goto end

:exit
Wprompt "退出" "真的要退出吗？" YesNo 1 ?
if %errorlevel% equ 1 goto end
if %errorlevel% equ 2 goto select

:end
mshta vbscript:CreateObject("Wscript.Shell").popup("制作: 成成"+chr(13)+"QQ: 309978984",2,"再见",64)(window.close)
set number=
set length=
set errorlevel=
set activation=