中国DOS联盟

@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=