中国DOS联盟

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

没有什么问题啊

%号vbs按键中属于特殊字符啦

是这样的list.txt中的第一个号码是能写到发卡软件输入框中的，到第二个号码就传不过去了，跟发卡软件没有关系。不知道原因，各位大哥为小弟诊断一下吧！谢谢！