打字脚本
A. 按键精灵这个脚本怎么写
按键精灵写脚本如下：
//下面一句是获取当前窗口的句柄，所以，启动脚本时，游戏窗口要在最前面，给窗口句柄起的名字叫chuanqihoutai
chuanqihoutai=Plugin.Window.Foreground()
Plugin s = Window.GetClientRect(hwnd)
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYarray(1)
//
Delay 1000
//这句是后台鼠标点击的代码
//例如抓点得到的横坐标是x，纵坐标是y，那么模拟鼠标左键点击的语句应该是这样的：
Plugin Bkgnd.LeftClick(chuanqihoutai,x-dx,y-dy)
Plugin Bkgnd.RightClick(chuanqihoutai,x-dx,y-dy)
//发送一个按住某按键的消息
Plugin Window.SendKeyDown(chuanqihoutai,按键码)
//发送一个某按键弹起的消息
Plugin Window.SendKeyUp(chuanqihoutai,按键码)
//发送一个按一次某按键的消息
Plugin Window.SendKeyPress(chuanqihoutai,按键码)
后台操作必须要对句柄操作。
B. 请教各位 VBS如何实现自动指定输入文字
Option Explicit
Dim WshShell
Dim oExcel, oBook, oMole
Dim strRegKey, strCode, x, y
Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
set WshShell = CreateObject("wscript.Shell")
Set oBook = oExcel.Workbooks.Add '添加工作簿
Set oMole = obook.VBProject.VBComponents.Add(1) '添加模块
strCode = "Private Declare Sub keybd_event Lib ""user32"" (ByVal a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long)"
oMole.CodeMole.AddFromString strCode '在模块中添加 VBA 代码
Do
WshShell.SendKeys "nihao"
oExcel.Run "keybd_event",49,0,0,0
WshShell.SendKeys "ma"
oExcel.Run "keybd_event",49,0,0,0
WshShell.SendKeys "{enter}"
WScript.Sleep "3000"
Loop
'关闭 Excel
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit
把这段代码保存成vbs格式，打开中文输入法，打开vbs脚本，激活输入框光标，可以看到每隔三秒钟输入“你好吗”三个字，我用的是搜狗输入法，别的输入法可能会输到别的中文字
C. 求按键精灵后台找图后自动点击脚本，本人菜鸟，请尽量写详细些。谢谢！！
制作脚本的方法步骤：
1、在按键精灵官网下载一个按键精灵，并安装
2、安装好后运行按键精灵，然后新建脚本，点击录制，会出现几个按钮，最后一项中把鼠标运动轨迹去掉，然后开始点击录制
3、把屏幕上面所有的程序最小化，点击录制，把鼠标移到你屏幕的最上端三分之一处点击一下，然后一直按住W，按W的同时一直不停的按空格（传棒默认是空格键）和ctrl（道具释放键），大约7秒后按R，然后再一次一直按住W，按W的同时一直不停的按空格（传棒默认是空格键）和ctrl（道具释放键），大约7秒后按R，并把鼠标移到最上方三分之二处，松W再按一下W（接力赛中另一个号码必须动一下，不然会自动离开房间），OK，完成了，然后在脚本的右边可以让脚本的运行次数为无限次，直到按中止键F12
（根据你的电脑的大小看怎么摆放两个QQ飞车程序的位置，一般都要把两个飞车的分辨率弄到第一个，并把飞车往屏幕的最上方拖动，刚刚鼠标点击的第一个的位置就是第一个飞车，第二个位置就是第二个飞车）
4、选中这个脚本，可以把这个脚本制作成小精灵，那么一个傻瓜式自动接力就好了，我以前任务都是用脚本帮我跑的，嘿嘿
很简单吧，一般都可以看懂
在按键精灵下载的可以试用一天，就在这个试用期间可以制作N个小精灵了
希望可以帮到你，打字幸苦啊 ，等待采纳，不懂继续问我
D. vbs如何自动自动输入文字
运行下面的代码，直接输入123 （10次）
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
for i = 1 to 10 ' 此处10想输入的次数
WshShell.SendKeys "123"
NEXT