后台喊话脚本源码

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

运行环境：分辨率：1024x768 色深：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