Call Plugin.Msg.Tips("脚本开始!")
Dim Hwnd, x
x="你要发送的内容!"
Hwnd = Plugin.Window.Find("CrossFire", 0)
If Hwnd = "" Then
MsgBox "没有找到窗口句柄!"
End If
i=0
do
Delay 200
Call Plugin.Window.SendKeyPress(Hwnd, 13)
Delay 200
Call Plugin.Window.SendString(Hwnd, i&x)
Delay 200
Call Plugin.Window.SendKeyPress(Hwnd, 13)
i=i+1
loop
按键精灵源码,编译可用!