vNes 手机任天堂模拟器注册机 - 中国DOS联盟论坛

ok.cmd 内容


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

附件下载：
http://upload.cn-dos.net/img/214.rar

晚些搞个自动直接打包成成品的批处理.

第1楼　chishingchan	发表于 2008-04-02 15:19
银牌会员　发帖 538　积分 1,284
[分享] vNes 手机任天堂模拟器注册机 ok.cmd 内容 @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= 附件下载： http://upload.cn-dos.net/img/214.rar 晚些搞个自动直接打包成成品的批处理.

第2楼　chishingchan	发表于 2008-04-02 18:32
银牌会员　发帖 538　积分 1,284
这个没人喜欢吗？批处理是图形界面的呀！

第3楼　lee928	发表于 2008-04-03 17:54
初级用户　发帖 14　积分 36
批处理连这个都能做？