@echo off&setlocal enabledelayedexpansion
set file=002.doc
rem //////////初始化变量环境，用于BAT与machwo 通话的变量内存空间。////

set #=00
rem machwo 返回消息

set #0=0
rem 控制 machwo 1,初始化要控制的窗口句柄，2，发送控制键，3，发送字符串，4，结束machwo

set #1=!file! - Microsoft Word
rem 要发给word的信息或者字符串，或者在初始化时，提供窗口标题，最大长度为1024个字符

rem //////////////////////////////////////////////////////////////////

start !file!
::ping -n 3 127.1.1 >nul

title abc
start /b machwo abc
set left=?^<
set right=?^>

::定义成批处理变量函数,完成设置控制信息，函数在使用时将"wo"替换为相应的要发送的字符串，
::并暂停等待,因为machwo完成它的任务后会给BAT窗口发送一个按键信息，
::使得程序在等待后可以继续。

::用于初始化函数 %initword%
set "initword=set #1=wo&set #0=1&pause>nul"

::用于发送控制功能和部分字符函数 %contword%
set "contword=set #1=wo&set #0=2&pause>nul"

::用于专门发送字符串函数 %strowrd%
set "strword=set #1=wo&set #0=3&pause>nul"

::让三方退出函数 %exit3%，通常批处理窗口结束时可以跟随退出，不用特意这样做的。
set "exit3=set #0=4"

:loop
%initword:wo=!file! - Microsoft Word%

if !#! neq 10 goto :loop 没有正确消息返回时，循环等待

set ran=!random!
for /f "tokens=1* delims= " %%a in (b2.txt) do (
set str1=%%a
set str2=%%b
%contword:wo=!str1!%
if defined str2 %strword:wo=!str2!%
)

ping -n 2 127.1.1 >nul
set file=!file:.=%ran%.!

%initword:wo=!file! - Microsoft Word%
%contword:wo=C(?E)%
%strword:wo= 文件已经另存为：!file!%

%contword:wo=?R%

%strword:wo= 演示制作：秋风夜雨，五秒后自动关闭 。。。%

for /l %%a in (5,-1,1) do (
%contword:wo=!left!+3%
set "str=(%%a)"
%strword:wo=!str!%
ping -n 2 127.1.1 >nul
)
%contword:wo=!left!+3%

%strword:wo= 演示结束！^^_^^%

ping -n 2 127.1.1 >nul

%contword:wo=A(?4) N%

echo;演示结束！
pause

exit /b



===== 关于控制键用法 =====
一、shift,Ctrl,Alt键

S() Shift
C() Ctrl
A() Alt


二、“?”号跟一个字母，作为其它控制键:

?I Insert
?D Delete
?H Home
?E End
?U PageUp
?W PageDown
?B Backspace
?T Tab
?R Enter
?C Esc
?< 左移
?> 右移
?A 上移
?V 下移
?P Pause
?@ Print
?1 F1
?2 F2
......（类推）
?9 F9
?0 F10
?- F11
?= F12


三、“+”号跟一数字，上一键重复次数
如：
A+4 连按4次A键

?R+5 连按5次回车键


四、组合形式用法：

C(A) 表示 Ctrl + A
C(ABC) 表示 Ctrl + 依次按A B C
C(A(P)) 表示 Ctrl + Alt + P
S(C()) 同时按下了一次 Shift + Ctrl ， 可切换输入法
A(?4) 表示 Alt + F4，可用于关闭窗口
?V+5 下移5行，如缺省+参数则只移一行，
C(?>+6) 表示Ctr + 右方向键按了6次
S(?T+3) 表示Shift + Tab 按了3次
复制代码