批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[其他] 批处理解释器ICMD.EXE

本帖最后由 happy886rr 于 2017-2-22 11:13 编辑

无意中百度到了微软WINDOWS nt4的源码,见CSDN下载链接http://download.csdn.net/detail/qbgao/3900606,发现该源码是几乎非常完整的,包括基础dll的实现,内核的实现,cmd的实现都是完全可以编译。所以就在此基础上,结合wine的源码等多个开源项目,东拼西凑,耗时数小时,DIY了一个ICMD.EXE,其中编译需要用到20年前的库文件真是难搞。

此次DIY重点集成了原生API调用的功能,通过set /f开关实现。同时附送一个set /i开关方便批处理科学计算使用。小打小闹,源码几乎都是别人泄露的,我只把自己的revpolish计算器和一些小的修改加入,修复了一些大小写的问题,进行了多处代码改良,杂交,所以兼容性也可以,还有wine的影子。总之各种成分拼起来能用。

COPYRIGHT@2017~2019 REWRITE BY HAPPY, VERSION 1.0
ICMD.EXE

摘要:
=============================================================================
ICMD脚本解释器,时间仓促只增加了一小部分功能,就是set/i和set/f开关。
=============================================================================

下载地址

用法:
-----------------------------------------------------------------------------
ICMD [使用手册]
-----------------------------------------------------------------------------

首先在批处理最顶端加上ICMD调用头
@IF [%1]==[] ("%~DP0ICMD.EXE" /C "%~F0" 1&EXIT)&::ICMD SCRIPT 2017~2019


然后基本语法同CMD.EXE,主要区别在于SET增加了 /I、/F开关


一、原生浮点计算开关SET /I

SET /I [结果值]=[浮点数学表达式]
-----------------------------------------------------------------------------
REM 增加原生浮点科学计算开关SET /I (使用自主研发的revpolish静逆波兰解析器)
set /i a=sin(torad(30)+cos(tan(3)))/7*6+exp(5)
echo %a%
-----------------------------------------------------------------------------


二、原生API调用开关 SET /F

SET /F [返回值]=[函数名] [参数] [参数] ...
-----------------------------------------------------------------------------
REM 普通字符串前加A作为标识,宽字符串前加L。如 L"1.ico"标识宽字符的 "1.ico",
    其他类型无需任何标识。

REM 一次把所有DLL都动态链入,省得每次呼叫。
set/f      =LinkDllW L"USER32" L"KERNEL32" L"GDI32" L"GDIPLUS" L"MSVCRT"

set/f hIcon=LoadImageW 0 L"1.ico" 1 0 0 16
set/f hCMD =GetConsoleWindow
set/f hDC  =GetDC %hCMD%
set/f      =DrawIconEx %hDC% %x% 0 %hIcon% 128 128 0 0 3
-----------------------------------------------------------------------------

备注:
-----------------------------------------------------------------------------
REM 由于源码比较古老,利用了VC98编译器的库文件才得以编译。完全抛弃 DLLCALL、
的古老模式。用最简洁的语法,调用C的函数。

抛弃了C语言的数据类型,只有字符串需要加标识符,ANSI字符串前加A,宽字符串前加L。
其他类型无需任何数据类型标识。
-----------------------------------------------------------------------------


支持的计算函数
-----------------------------------------------------------------------------
常数类
        pi    3.1415926535897932
        e     2.7182818284590452       

通用类
        rand  随机数
        round 四舍五入
        int   取整
        ceil  向上舍入
        floor 向下舍入
        abs   绝对值
        sqrt  开方
        lg    常用对数,以10为底
        ln    自然对数
        exp   e的次幂
        gamma 伽玛函数
        deg   度转弧度
        +     加
        -     减
        *     乘
        /     除
        %     取余数
        ^     次方
        !     阶乘

三角函数类
        sin、cos、tan   
        arcsin、arccos、arctan

双曲函数类
        sinh、cosh、tanh
        arcsinh、arccosh、arctanh
-----------------------------------------------------------------------------


基本上取代了dll cll和capi。兼容95年后的各种windows带窗口的系统。我还在diy中,后续会改造出更强大的cmd新语法。
API调用格式更是简单到极点。
SET /F [返回值]=[函数名] [参数] [参数] ...
  1. @echo off
  2. set/f=LinkDllW L"USER32" L"KERNEL32"
  3. set/f=MessageBoxW 0 L"你好" L"message" 1
  4. pause
复制代码
弹窗如此简单。

源码解读,在winNT的cenv.c中是set 命令的实现方式,我定位到如下地方
  1. struct cmdnode *n ;
  2. {
  3.         TCHAR *tas ;    /* Tokenized argument string    */
  4.         TCHAR *wptr ;   /* Work pointer                 */
  5.         int i ;                 /* Work variable                */
  6.         //
  7.         // If extensions are enabled, things are different
  8.         //
  9.         if (fEnableExtensions) {
  10.             tas = n->argptr;
  11.             //
  12.             // Find first non-blank argument.
  13.             //
  14.             if (tas != NULL)
  15.             while (*tas && *tas <= SPACE)
  16.                 tas += 1;
  17.             //
  18.             // No arguments, same as old behavior.  Display current
  19.             // set of environment variables.
  20.             //
  21.             if (!tas || !*tas)
  22.                 return(DisplayEnv()) ;
  23.             //
  24.             // See if /A switch given.  If so, let arithmetic
  25.             // expression evaluator do the work.
  26.             //
  27.             if (!_tcsnicmp(tas, SetArithStr, 2))
  28.                 return SetArithWork(tas+2);
  29.             //
  30.             // See if first argument is quoted.  If so, strip off
  31.             // leading quote, spaces and trailing quote.
  32.             //
复制代码
注意到
  1.             if (!_tcsnicmp(tas, SetArithStr, 2))
  2.                 return SetArithWork(tas+2);
复制代码
其中SetArithStr就是_TEXT("/A")照猫画虎,自己增加了一个开关_TEXT("/I"),其中的SetIRevpolish来自自己开发的静逆波兰计算器,以便实现浮点科学计算,链接http://www.bathome.net/thread-42830-1-1.html
  1.             if (!_tcsnicmp(tas, _TEXT("/I"), 2))
  2.                 return SetIRevpolish(tas+2);
复制代码
在增加开关_TEXT("/F")
  1.             if (!_tcsnicmp(tas, _TEXT("/F"), 2))
  2.                 return SetICallAPI(tas+2);
复制代码
然后自己写个实现就搞定了。NT4时代确实没有SET /P开关,但是自己增加就行,然后自己写个读取stdin流的函数,set/p就此搞定。if中的EQU,GET...不支持小写,加个||就完美了。
  1.             if (!_tcsnicmp(tas, _TEXT("/P"), 2))
复制代码
下面是开源项目wine的源码中关于cmd的核心部件,这个架构很 不错,就应该用switch来实现。
  1.     switch (i) {
  2.       case WCMD_ATTRIB:
  3.         WCMD_setshow_attrib ();
  4.         break;
  5.       case WCMD_CALL:
  6.         WCMD_call (p);
  7.         break;
  8.       case WCMD_CD:
  9.       case WCMD_CHDIR:
  10.         WCMD_setshow_default (p);
  11.         break;
  12.       case WCMD_CLS:
  13.         WCMD_clear_screen ();
  14.         break;
  15.       case WCMD_COPY:
  16.         WCMD_copy ();
  17.         break;
  18.       case WCMD_CTTY:
  19.         WCMD_change_tty ();
  20.         break;
  21.       case WCMD_DATE:
  22.         WCMD_setshow_date ();
  23. break;
  24.       case WCMD_DEL:
  25.       case WCMD_ERASE:
  26.         WCMD_delete (p, TRUE);
  27.         break;
  28.       case WCMD_DIR:
  29.         WCMD_directory (p);
  30.         break;
  31.       case WCMD_ECHO:
  32.         WCMD_echo(&whichcmd[count]);
  33.         break;
  34.   ....
  35.   ....
  36.       default:
  37.         WCMD_run_program (whichcmd, 0);
  38.     }
复制代码
4

评分人数

    • 523066680: 大工程技术 + 1
    • ivor: 觉厉技术 + 1
    • 老刘1号: 支持API!!!!!66666666666666666666666 ...技术 + 1
    • yu2n: 不明觉厉技术 + 1

话说,楼主可不可以出一个批的编译器a
批的效率太低……
写的话,其实支持内部命令和调用外部程序就行
如果不但能支持内部命令,还能支持外部程序打包那就更好了
期待ing...

TOP

回复 2# 老刘1号
直接学C语言吧,批处理就算能编译速度一样慢。

TOP

有金钥匙,就不用拿铁钥匙了。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

回复 3# happy886rr


    C我感觉我需要入个门,
要不WIN32汇编和VBS的许多相关例子都看不懂……

TOP

回复 5# 老刘1号
C是开发第三方的基础,你如果打算写自己的第三方,就得学C,因为C写的第三方体积都在8kb到16kb之间,非常小巧,可以直接base加权码写在批处理中。

TOP

回复 6# happy886rr


    我倒也不是为了开发第三方……

TOP

回复 7# 老刘1号
C可玩性很高,玩10年都不会腻,因为整个系统底层,包括cmd本身都是C写的。

TOP

本帖最后由 老刘1号 于 2017-6-26 21:43 编辑

实测多次调用函数会闪退
不过调一俩次没问题

测试代码:
关闭显示器.CMD
  1. @IF [%1]==[] ("ICMD.EXE" /C "%~F0" 1&EXIT)&@REM ICMD SCRIPT 2017~2019
  2. cls&@echo off
  3. echo 限你3秒钟内松开鼠标和键盘
  4. ping 127.1 >nul
  5. set/f=LinkDllW L"USER32"
  6. Set /F 当前窗口句柄=GetForegroundWindow
  7. set  /a MONITOR_OFF = 2
  8. set  /a SC_MONITORPOWER = 0xF170
  9. set  /a WM_SYSCOMMAND =  0x112
  10. set /f =PostMessageA %当前窗口句柄% %WM_SYSCOMMAND% %SC_MONITORPOWER% %MONITOR_OFF%
  11. exit
复制代码

TOP

BlockUserInput测试
  1. @IF [%1]==[] ("ICMD.EXE" /C "%~F0" 1&EXIT)&@REM ICMD SCRIPT 2017~2019
  2. cls&@echo off
  3. set/f=LinkDllW L"USER32"
  4. Set "Block_ON=set/f=BlockInput 1"
  5. Set "Block_OFF=set/f=BlockInput 0"
  6. %Block_ON%
  7. ping baidu.cn -n 6
  8. %Block_OFF%
  9. echo 任意键退出测试
  10. pause
复制代码

TOP

回复 8# happy886rr


    求修BUG,函数调用超6次就会莫名退出

TOP

本帖最后由 happy886rr 于 2017-6-27 22:14 编辑

回复 11# 老刘1号

我也无能为力,那是win95的源码,当时微软水平就那么菜、兼容性还差,源代码数万行,也不是一天能修好的。

TOP

回复 12# happy886rr


    如果不修复那就太可惜了……
这个DLL函数调用速度和免杀效果都完虐capi系列……
而且api进程直接由CMD保留,避免了注入的慢速和误报
强烈建议试着修复一下

TOP

回复 12# happy886rr


    兼容性非常好啊,我的xp64不管是capi还是capix都无法运行,这个秒调用
就是稳定性……调用超6次就莫名闪退了

TOP

回复 14# 老刘1号
等我有时间了,就去修修。目前业务繁忙,未有余暇。
1

评分人数

TOP

返回列表