后台喊话脚本源码

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

运行环境:分辨率: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

后台喊话脚本源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注