按键精灵后台喊话脚本源码
运行环境:分辨率: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
后台喊话脚本源码