打字腳本
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