• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
还在为大漠后台测试烦恼吗?还在为找后台测试工具烦恼吗?用自己的代码来检测吧!....
发布: 2013-11-18 11:02:36 | 作者: | 来源: 按键精灵资源站
看到论坛里很多人用大漠绑定后台很纠结,论坛下的通用工具有时候也不一定好用,现在自己来写一个吧!{:5_147:},楼主一直用自己写的代码来测试后台,可以把楼主的代码制作成命令库,每次用的时候调用下就行,非常的方便~(命令库制作方法有教程哦)

觉得有帮助的话施舍点花花和铜币吧~~~
[hide=d50]
//-------以下代码用来测试屏幕颜色获取方式---------------------------
Function 取色测试(屏幕获取方式, 模式)//参数均为字符串类型
hwnd = dm.GetMousePointWindow() //获取鼠标所在窗口的句柄
dm_ret = dm.BindWindow(hwnd, 屏幕获取方式, "normal", "normal",模式) //绑定模式由函数参数传入
If dm_ret = 0 Then
dm_ret = dm.UnBindWindow()
取色测试 = 0
Exit Function //绑定不成功,函数返回0
End If
dm_ret = dm.Capture(0, 0, 2000, 2000, "1.bmp") //绑定成功自动截图,返回1,如果截图不为黑色说明此模式可用
取色测试 = 1
dm_ret = dm.UnBindWindow()
End Function

//-------以下代码用来测试鼠标仿真模式(代码格式和屏幕颜色基本相同,不作详细注释了)---------------------------
//模式可用返回1,鼠标会移动到参数里指定的intX,intY坐标,鼠标仿真模式和模式参数为字符串类型,intX和intY为整数型
Function 鼠标测试(鼠标仿真模式, 模式,intX,intY)
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "normal", 鼠标仿真模式, "normal",模式)
Delay 1000
If dm_ret = 0 Then
dm_ret = dm.UnBindWindow()
鼠标测试 = 0
Exit Function
End If
dm.MoveTo intX,intY
Delay 200
dm.LeftClick
鼠标测试 = 1
dm_ret = dm.UnBindWindow()
End Function

//-------以下代码用来测试键盘仿真模式(代码格式和屏幕颜色基本相同,不作详细注释了)---------------------------
Function 键盘测试(键盘仿真模式,模式,按键码)//前两个参数为字符串类型,按键码参数为整数型
//窗口绑定失败返回0,绑定成功返回1,按下指定的按键码的键位说明模式可用
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "normal", "normal",键盘仿真模式, 模式)
Delay 1000
If dm_ret = 0 Then
dm_ret = dm.UnBindWindow()
  键盘测试 = 0
    Exit Function
End If
dm.KeyPress 按键码
键盘测试 = 1
End Function
[/hide]