标题: 怎么让BAT按顺序按下键盘（1秒后）A、（2秒后）B。。。 [打印本页]
作者: 47cc 时间: 2007-4-6 07:41 标题: 怎么让BAT按顺序按下键盘（1秒后）A、（2秒后）B。。。
怎么让BAT按顺序按下键盘的（1秒后）A、（2秒后）B、（5秒后）C
作者: lxmxn 时间: 2007-4-6 08:09
bat不行，建议用vbs。
作者: 47cc 时间: 2007-4-6 08:37
如果用VBS请问要怎么做？？
作者: wudixin96 时间: 2007-4-6 08:48
类似如下：
set wshell=WScript.CreateObject("WScript.Shell")
wshell.SendKeys "A"
wshell.SendKeys "A"
作者: bjsh 时间: 2007-4-6 08:50
延时用
wscript.sleep 1000 ..............延时1秒
作者: 47cc 时间: 2007-4-6 08:55
麻烦写详细点3Q
作者: bjsh 时间: 2007-4-6 08:59
set wshell=WScript.CreateObject("WScript.Shell")
wscript.sleep 1000
wshell.SendKeys "A"
wscript.sleep 1000
wshell.SendKeys "B"
wscript.sleep 3000
wshell.SendKeys "C"
作者: wudixin96 时间: 2007-4-6 09:10
set wshshell=WScript.CreateObject("WScript.Shell")
for i=0 to 25
wshshell.SendKeys chr(65+i)
WScript.sleep 1000
next
for i=0 to 25
wshshell.SendKeys chr(65+i)
WScript.sleep 1000
next
作者: 47cc 时间: 2007-4-7 01:32
那键盘中的“WIN”、“ESC”、"Enter"等键要用什么表示？
作者: everest79 时间: 2007-4-7 01:40
win=ctrl+esc，其它的嘿嘿，你写上就行了
作者: wudixin96 时间: 2007-4-7 01:42
SendKeys 方法
请参阅
WshShell 对象 | Run 方法
将一个或多个键击发送到活动窗口（仿佛是在键盘上击键一样）。
object.SendKeys(string)
参数
object
WshShell 对象。
string
表示要发送的键击（一个或多个）的字符串值。
说明
使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符本身作为 string 参数发送。例如，要发送字母 x，则请发送 string 参数 "x"。
注意 要发送空格，则请发送字符串 " "。
可使用 SendKeys 同时发送多个键击。为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc"。SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。这组特殊的字符可包括圆括号、中括号、大括号，以及：
加号 "+"、
插入记号 "^"、
百分号 "%"、
和“非”符号 "~"。
用大括号 "{}" 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 "{+}"。SendKeys中使用的中括号 "[ ]" 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换 (DDE) 就是这样）。
要发送左中括号字符，请发送字符串参数 "{[]"；要发送右中括号字符，请发送字符串参数 "{]}"。
要发送左大括号字符，请发送字符串参数 "{{}"；要发送右大括号字符，请发送字符串参数 "{}}"。
某些键击不生成字符（如 ENTER 和 TAB）。某些键击表示操作（如 BACKSPACE 和 BREAK）。要发送这些类型的键击，请发送下表中列出的参数：
键 参数
退格键 {BACKSPACE}、{BS} 或 {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL 或 DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS 或 INSERT {INSERT} 或 {INS}
向左键 {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
向右键 {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
向上键 {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：
键 特殊字符
SHIFT +
CTRL ^
ALT %
注意 这样使用时，不用大括号括起这些特殊字符。
要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。例如，要发送的组合键指定：
如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 "+(ec)"。
如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。
可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如，如果要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。
注意 只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。
注意 不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。
作者: 47cc 时间: 2007-4-7 02:44
不好意思一不小心就点错勒，把+1分点成-1勒~~以后补你哈
SORRY啊！！
作者: 9527 时间: 2007-4-7 02:56
我帮楼上的给你补上了
作者: wudixin96 时间: 2007-4-7 03:06
Thank u
9527
作者: axi 时间: 2007-4-7 12:04
这里有更多的实例：
http://www.cn-dos.net/forum/viewthread.php?tid=28377&fpage
有兴趣学习VBS的朋友可以到：
http://doc.51windows.net/vbscrip ... l/vtoriVBScript.htm
[ Last edited by axi on 2007-4-6 at 11:18 PM ]
作者: lxmxn 时间: 2007-4-7 12:32
不错，收下了。
作者: vsda2008 时间: 2007-4-9 05:41 标题: VBS
如何发送击键操作 朋友
我看了还是有点迷茫
作者: vsda2008 时间: 2007-4-9 05:45 标题: 呵呵 我会了 可以自动换行的
set wshell=WScript.CreateObject("WScript.Shell")
wscript.sleep 3000
wshell.SendKeys "2724"
wshell.SendKeys "{ENTER}"
wshell.SendKeys "lc12134"
作者: cy123 时间: 2007-4-9 11:39
这样不行吗？
@echo off
ECHO 选择A一秒
ECHO 选择B两秒
ECHO 选择C五秒
choice /c abc /m "请选择A或B或C"
if errorlevel 3 goto 3
if errorlevel 2 goto 2
if errorlevel 1 goto 1
:3
ping -n 5 127.1 >nul
ECHO 五秒
PAUSE
:2
ping -n 2 127.1 >nul
echo 两秒
PAUSE
:1
ping -n 1 127.1 >nul
echo 一秒
PAUSE
作者: lxmxn 时间: 2007-4-9 11:59
是什么系统？还有choice？
作者: cy123 时间: 2007-4-10 09:35
2003的系统。。
作者: lxmxn 时间: 2007-4-10 13:01
哦，原来如此……还以为是2000，xp呢。
作者: axi 时间: 2007-4-11 13:49
| Quote: | |
|
cy123 兄 你的系统是2003，其中有一个好使好用的延时命令（timeout），你难道不知吗？
示例：
@echo off
timeout.exe /t 1 >nul
echo 我已经帮你按了 A ！
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Prees, A")(Window.close)
timeout.exe /t 1 >nul
cls
echo 我又已经帮你按了 B ！
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Prees, B")(Window.close)
timeout.exe /t 3 >nul
cls
echo 我还帮你按了 C ，再见！
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Prees, C, Goodbye")(Window.close)
全自动，还会发声的。
[ Last edited by axi on 2007-4-11 at 02:46 PM ]