中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 给软件的一个输入框，批量的输入字符串的代码出错

junchen2
高级用户

积分 537
发帖 219
注册 2007-8-4
来自杭州--半山
状态离线

『楼主』: 给软件的一个输入框，批量的输入字符串的代码出错

@echo off
@ping -n 8 127.1>nul
setlocal enabledelayedexpansion
@for /f %%a in (list.txt) do (
call :2 %%a
ping -n 5 127.1>nul
AutoClick.exe ;180;;91;;1;;300;
1.vbs
AutoClick.exe ;307;;679;;1;;300;
ping -n 8 127.1>nul

)
:2
echo Dim WshShell > 1.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> 1.vbs
echo WScript.Sleep 4000 >> 1.vbs
echo WshShell.AppActivate "发行用户卡" >> 1.vbs
echo WshShell.SendKeys "%1" >> 1.vbs
echo WScript.Sleep 3000 >> 1.vbs
goto :eof

我就是要把附件list.txt中的号码，输入的到一个发卡软件，但是代码中的%%a只
能传一次到echo WshShell.SendKeys "%1" >> 1.vbs中的%1。软件太大发不上
来。各位大哥可以建立一个记事本来代替软件的输入框，
::AutoClick.exe ;180;;91;;1;;300;中的AutoClick.exe是用来点击鼠标的，可以不
用管它。
我不能解决的是将list.txt中的号码传递到1.vbs中，各位大哥请多帮忙，谢谢！！！

[ Last edited by junchen2 on 2007-9-7 at 07:52 AM ]

2007-9-7 07:30