批处理之家 - Powered by Discuz! Board

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

struct cmdnode *n ;
{
TCHAR *tas ; /* Tokenized argument string */
TCHAR *wptr ; /* Work pointer */
int i ; /* Work variable */
//
// If extensions are enabled, things are different
//
if (fEnableExtensions) {
tas = n->argptr;
//
// Find first non-blank argument.
//
if (tas != NULL)
while (*tas && *tas <= SPACE)
tas += 1;
//
// No arguments, same as old behavior. Display current
// set of environment variables.
//
if (!tas || !*tas)
return(DisplayEnv()) ;
//
// See if /A switch given. If so, let arithmetic
// expression evaluator do the work.
//
if (!_tcsnicmp(tas, SetArithStr, 2))
return SetArithWork(tas+2);
//
// See if first argument is quoted. If so, strip off
// leading quote, spaces and trailing quote.
//

复制代码

switch (i) {
case WCMD_ATTRIB:
WCMD_setshow_attrib ();
break;
case WCMD_CALL:
WCMD_call (p);
break;
case WCMD_CD:
case WCMD_CHDIR:
WCMD_setshow_default (p);
break;
case WCMD_CLS:
WCMD_clear_screen ();
break;
case WCMD_COPY:
WCMD_copy ();
break;
case WCMD_CTTY:
WCMD_change_tty ();
break;
case WCMD_DATE:
WCMD_setshow_date ();
break;
case WCMD_DEL:
case WCMD_ERASE:
WCMD_delete (p, TRUE);
break;
case WCMD_DIR:
WCMD_directory (p);
break;
case WCMD_ECHO:
WCMD_echo(&whichcmd[count]);
break;
....
....
default:
WCMD_run_program (whichcmd, 0);
}

复制代码

@IF [%1]==[] ("ICMD.EXE" /C "%~F0" 1&EXIT)&@REM ICMD SCRIPT 2017~2019
cls&@echo off
echo 限你3秒钟内松开鼠标和键盘
ping 127.1 >nul
set/f=LinkDllW L"USER32"
Set /F 当前窗口句柄=GetForegroundWindow
set /a MONITOR_OFF = 2
set /a SC_MONITORPOWER = 0xF170
set /a WM_SYSCOMMAND = 0x112
set /f =PostMessageA %当前窗口句柄% %WM_SYSCOMMAND% %SC_MONITORPOWER% %MONITOR_OFF%
exit

复制代码

@IF [%1]==[] ("ICMD.EXE" /C "%~F0" 1&EXIT)&@REM ICMD SCRIPT 2017~2019
cls&@echo off
set/f=LinkDllW L"USER32"
Set "Block_ON=set/f=BlockInput 1"
Set "Block_OFF=set/f=BlockInput 0"
%Block_ON%
ping baidu.cn -n 6
%Block_OFF%
echo 任意键退出测试
pause

复制代码