生成内容如下：
    if aaaaaa = 1 cdcdcd rtrtrt
       pppool ('kikikiki XXXXXXXX:vfvfvfvfvfvf');
            nStr := 'he:XXXXXXXX:gegege';
    end;
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
希望执行批处理后键盘输入1，回车会再提示输入XXXXXXXX，
回车即可生成如上代码，同样，输入2后回车再输入sssss,回车得到
    if aaaaaa = 2 cdcdcd rtrtrt
       pppool ('kikikiki sssss:vfvfvfvfvfvf');
            nStr := 'he:sssss:gegege';
    end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
结束后会得到一个文本如下:
    if aaaaaa = 1 cdcdcd rtrtrt
       pppool ('kikikiki XXXXXXXX:vfvfvfvfvfvf');
            nStr := 'he:XXXXXXXX:gegege';
    end;
    if aaaaaa = 2 cdcdcd rtrtrt
       pppool ('kikikiki sssss:vfvfvfvfvfvf');
            nStr := 'he:sssss:gegege';
    end;
.........................
.........................
    if aaaaaa = N cdcdcd rtrtrt
       pppool ('kikikiki ffffff:vfvfvfvfvfvf');
            nStr := 'he:ffffff:gegege';
    end;


不懂LZ什么意思

能说清楚点吗

我应该说得很明白吧～
也就是运行一个批处理会有两次键盘输入，输入1和XXXXXXXX会得到
   if aaaaaa = 1 cdcdcd rtrtrt // 前面的数字1即是刚才键盘输入的1
       pppool ('kikikiki XXXXXXXX:vfvfvfvfvfvf');
        nStr := 'he:XXXXXXXX:gegege'; //同样这里两个XXXXXXXX也是键盘输入的
     end;
输入2和sssss也得到
if aaaaaa = 2 cdcdcd rtrtrt   //输入数字2
        pppool ('kikikiki sssss:vfvfvfvfvfvf');
             nStr := 'he:sssss:gegege';    //输入的sssss
     end;
一直这样循环，最后会得到
if aaaaaa = 1 cdcdcd rtrtrt
        pppool ('kikikiki XXXXXXXX:vfvfvfvfvfvf');
             nStr := 'he:XXXXXXXX:gegege';
     end;
     if aaaaaa = 2 cdcdcd rtrtrt
        pppool ('kikikiki sssss:vfvfvfvfvfvf');
             nStr := 'he:sssss:gegege';
     end;
.........................
.........................
     if aaaaaa = N cdcdcd rtrtrt 输入数字N
        pppool ('kikikiki ffffff:vfvfvfvfvfvf');
             nStr := 'he:ffffff:gegege'; 键盘输入ffffff
     end;
现在应该明白了吧


前面加个set /p aaaaaa=输入数字。
这样就可以了。

输入什么的时候才结束？

没人帮忙自己修改别人代码用VBS自己搞定～～VBS代码如下：
Dim name1,name2,msg1,msg2
zzz=" then begin"
aaa=":1 @奖品兑换员 4’);"
bbb="一个’"
msg1="请输入数字:"
msg2="请输入装备:"
name1=Inputbox(msg1,"名称")
'出现一个对话框输入数据给Name1
name2=Inputbox(msg2,"装备")
'出现一个对话框输入数据给Name2
SET fso = createobject("scripting.filesystemobject")
txtpath = "my1.txt"
set fs = fso.createtextfile(txtpath,true)
fs.write("    if iRandom = "&name1 &zzz&+chr(13)&chr(10)+"       print ('putsendermagicitem   "&name2&aaa&+chr(13)&chr(10)+"            nStr := '获得:"&name2&bbb&+chr(13)&chr(10)+"    end;")
fs.close