键盘脚本

‘壹’ 按键精灵键盘脚本怎么弄！

按键精灵就是模拟你的输入而已,,按照你的说法的话,写法可以2种,一种是模拟按键的动作
给这段脚本设置一个快捷键,然后只要循环一遍就是输入:money了.

或者这么写:
KeyPress 77,1
Delay 100
KeyPress 79,1
Delay 100
KeyPress 78,1
Delay 100
KeyPress 69,1
Delay 100
KeyPress 89,1
Delay 100

另外就是直接输出字符串,具体如下:

SayString "meoney"

就一句就可以了..
也是设置成循环一次,设个快捷键就好了..

‘贰’ 按键精灵脚本

//把 star8020的稍微修改一下：
Rem A
WaitKey K
If k=49 or k=97
MoveTo 100,100
LeftClick 1
ElseIf k=50 or k=98
MoveTo 200,200
LeftClick 1
EndIf
Delay 1
Goto A

‘叁’ 怎样使用BAT脚本实现自动按键盘的某个键

批处理是不行的 用VBS 很简单 例子如下
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 3000
objShell.SendKeys "{F5}"
WScript.Sleep 3000
objShell.SendKeys "{F5}"
loop

使用 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}
DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
向上键 {UP}
向左键 {LEFT}
向右键 {RIGHT}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
INSERT {INSERT} 或 {INS}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
SCROLL LOCK {SCROLLLOCK}

F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}

要发送由常规键击和 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}。

例子1：关机脚本 （模拟按键为：Ctrl + Esc、u、u ）

把以下代码复制至记事本，另存为 off.vbs

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}uu"

例子2：重启脚本 （模拟按键为：Ctrl + Esc、u、r ）

把以下代码复制至记事本，另存为 reboot.vbs

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}ur"

例子3：切换输入法 （模拟同时按下：Shift Ctrl ）

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "+(^)"

例子4：输入 cn-dos.net! 至记事本并保存为 CnDos.txt

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500
WshShell.AppActivate "无标题 - 记事本"
WshShell.SendKeys "c"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "-"
WScript.Sleep 200
WshShell.SendKeys "d"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "."
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "e"
WScript.Sleep 200
WshShell.SendKeys "t"
WScript.Sleep 200
WshShell.SendKeys "!"
WScript.Sleep 200
WshShell.SendKeys "%FS"
WScript.Sleep 500
WshShell.SendKeys "C"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "D"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "%S"
WScript.Sleep 500
WshShell.SendKeys "%FX"

例子5：自动定时存盘的记事本（此脚本来自网上）

'第一部分：定义变量和对象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=(1000*60*1) '自动存盘时间为1分钟
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("给文本起名(不能用中文和纯数字)：")

'第二部分：打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "无标题 - 记事本"

'第三部分：用输入的文件名存盘
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime

'第四部分：自动定时存盘
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit

例子：

set objShell = CreateObject("Wscript.Shell")
strCommandLine = "psetup755281.exe" '启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 5200 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 200
WshShell.SendKeys " " '模拟按下空格键去除安装网络超级搜霸一行前的√号
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '模拟按下 Tab 键选择安装项目
WScript.Sleep 200
WshShell.SendKeys " " '模拟按下空格键去除安装网络超级搜霸一行前的√号
WScript.Sleep 200 '延时0.3秒
WshShell.SendKeys "f" '模拟按下 F键同意协议

‘肆’ 征求一个按键精灵后台键盘脚本，很简单，只是实现为后台即可。

根据偶对您的描述试作出以下脚本,大概可以满足您的要求,需要最新版7.1按键精灵支持,记事本上通过.4键无法保证任何时间都相差1.5秒,因为如果正好该按其它键时会间隔3秒-4.5秒,其中2键和1键大概相隔3分4.5秒,如果要求绝对严谨,请问题补充.
另外因为是后台需要得到正确的窗口句柄,运行的时候需要把鼠标放在所要运行的程序上按热键启动.之后就可以干别的了.
如果是游戏,不保证后台按键有效,因为很多游戏都屏蔽后台命令,如果无效,请补充,偶试着给您换几个插件命令试下,但需要下载第三方插件.
最后问一句,是游戏么?2键1键是状态技能?180秒冷却?如果是如此,建议作个找图比较好,这样可以保证即时性.
Plugin ck=Window.MousePoint()
Rem 开始
For 3
For 40
Plugin Window.SendKeyPress(ck,52)
Delay 1500
EndFor
Plugin Window.SendKeyPress(ck,51)
Delay 1500
EndFor
Plugin Window.SendKeyPress(ck,50)
Delay 1500
Plugin Window.SendKeyPress(ck,49)
Delay 1500
Goto 开始

‘伍’ 按键精灵脚本键盘脚本思路

Do
key = WaitKey()
If key = 37 Then
MoveR - 1 , 0
ElseIf key = 38 Then
MoveR 0, - 1
ElseIf key = 39 Then
MoveR 1, 0
ElseIf key = 40 Then
MoveR 0, 1
End If
Loop
很简单的一段代码，可以就采纳吧

‘陆’ 求够一个脚本！关于怎么让键盘自动点击的！

用 按键精灵 可以帮你实现，下载http://download.pchome.net/system/inputdev/10467.html

特别适合网络游戏中制作自动练功的机器人，主要功能包括：

1.定义一个热键，实现一系列的键盘按键动作、鼠标点击动作、鼠标移动动作、输入字符串动作、延迟动作。更多的插入动作以后也会扩充。
2.实现动作的循环，每个动作都可以进行循环，你可以定义热键中止动作的循环，也可以自己定义循环的次数或者循环的时间。
3.所有的热键都可以对指定的窗口有效，这样就不会出现切换了窗口还自动执行动作的情况。
4.每个热键的动作都生成一个Script文件，高手可以自己编辑这个文件，实现功能强大的宏键。

‘柒’ 求一个按键精灵鼠标键盘脚本，谢谢

do
For 1400
LeftClick 1
KeyPress "3", 1
Delay 5
Next
For 4000
LeftClick 1
KeyPress "4", 1
Delay 5
Next
loop
鼠标和键盘同时按的效果和组合键一样的效果的话，我忘了有没有这样的命令了。

‘捌’ 罗技键盘如何编写脚本

默认情况下应该是左箭头，按住Fn键（键盘左下角第二个键）+左箭头就是HOME键的效果了，其余键也是相同的做法。带底色的功能都要通过Fn键来实现

‘玖’ 按键精灵,脚本,键盘代替鼠标,代码.

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim key, n
key = 65'A的按键码=65
Do
n = GetAsyncKeyState(key)
If n = 1 Then
TracePrint "按了" & Chr(key) & "键"
ElseIf n < 0 Then
TracePrint "按住了" & Chr(key) & "键"
Else
TracePrint "无按键，等待！"
End If
Delay 500
Loop