按键精灵后台喊话脚本源码

运行环境：分辨率：1024×768 色深：16位 操作系统：Windows XP 按键精灵版本：7.01.4239

@qwb492859377    2009/5/22

UserVar Var1=床前明月光  第一句喊话   UserVar Var2=疑是地上霜 第二句喊话   UserVar Var3=举头望明月 第三句喊话   UserVar Var4=低头思故乡 第四句喊话   UserVar Var5=静夜诗  李白 第五句喊话   UserVar YanShi=700 延时时间（以毫秒计算   1秒=1000毫秒）   UserVar X=100 循环次数   //下面这句是在屏幕上范围位置(421, 280, 629, 327)进行输出内容("此脚本由綦文博制作~")   Plugin Msg.ShowScrTXT(421, 280, 629, 327, "此脚本由綦文博制作~", "0000FF")   Delay 1000   //下面这句是得到当前最前面的窗口句柄   Plugin Hwnd = Window.Foreground()   Delay 200   //下面这句是最大化窗口   Plugin Window.Max(Hwnd)   Delay 1000   MoveTo 101,663   //下面这句是得到鼠标指向的窗口句柄   Plugin HwndEx= Window.MousePoint()   Delay 200   //下面这句是最小化窗口   Plugin Window.Min(Hwnd)   Delay 1000   For X       //下面这句用于向后台窗口句柄(变量：HwndEx)发送一个文本消息(内容："Var1")到客户区       Plugin Bkgnd.SendString(HwndEx, Var1)       Delay YanShi       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)按下       Plugin Bkgnd.KeyDown(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：13)按键       Plugin Bkgnd.KeyPress(Hwnd, 13)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：HwndEx)发送一个文本消息(内容：Var2)到客户区       Delay 200       Plugin Bkgnd.SendString(HwndEx, Var2)       Delay YanShi       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)按下       Plugin Bkgnd.KeyDown(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：13)按键       Plugin Bkgnd.KeyPress(Hwnd, 13)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：HwndEx)发送一个文本消息(内容：Var3)到客户区       Delay 200       Plugin Bkgnd.SendString(HwndEx, Var3)       Delay YanShi       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)按下       Plugin Bkgnd.KeyDown(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：13)按键       Plugin Bkgnd.KeyPress(Hwnd, 13)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：HwndEx)发送一个文本消息(内容：Var4)到客户区       Delay 200       Plugin Bkgnd.SendString(HwndEx, Var4)       Delay YanShi       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)按下       Plugin Bkgnd.KeyDown(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：13)按键       Plugin Bkgnd.KeyPress(Hwnd, 13)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：HwndEx)发送一个文本消息(内容：Var5)到客户区       Delay 200       Plugin Bkgnd.SendString(HwndEx, Var5)       Delay YanShi       Plugin Bkgnd.KeyDown(Hwnd, 17)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：13)按键       Plugin Bkgnd.KeyPress(Hwnd, 13)       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)       Delay 200   EndFor    Sub OnScriptExit       MessageBox "脚本已经停止！"       //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：17)弹起       Plugin Bkgnd.KeyUp(Hwnd, 17)   Return