给软件的一个输入框，批量的输入字符串的代码出错 - 中国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 ]

第1楼　junchen2	发表于 2007-09-07 07:30
高级用户　发帖 219　积分 537　来自杭州--半山
给软件的一个输入框，批量的输入字符串的代码出错 @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 ]

第2楼　jmz573515	发表于 2007-09-07 07:51
银牌会员　发帖 464　积分 1,212
没有什么问题啊

第3楼　wudixin96	发表于 2007-09-07 08:26
银牌会员　发帖 931　积分 1,928
%号vbs按键中属于特殊字符啦

第4楼　junchen2	发表于 2007-09-07 19:17
高级用户　发帖 219　积分 537　来自杭州--半山
是这样的list.txt中的第一个号码是能写到发卡软件输入框中的，到第二个号码就传不过去了，跟发卡软件没有关系。不知道原因，各位大哥为小弟诊断一下吧！谢谢！