大漠插件怎样让鼠标在固定区域移动

新建立一个程序，保存为让鼠标拖动你的控件.e。

1、插入一个DLL命令，填写声明表格里的代码：Dll命令：

2、释放鼠标返回值类型：整数型

3、Dll库文件名：user32.dll在Dll库中的命令名：ReleaseCapture

4、释放鼠标函数是用来释放鼠标捕获的。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。请注意：这里SC_MOVE的赋值一定要是&HF012，它表示鼠标对象。

5、在_启动窗口的_按钮1_鼠标左键被按下子过程中加入以下代码：子程序：_按钮1_鼠标左键被按下返回值类型：逻辑型参数：横向位置数据类型：整数型参数：纵向位置数据类型：整数型参数：功能键状态数据类型：整数型释放鼠标()按钮1.发送信息(161，2，0)以上代码中，按钮1.发送信息方法向Windows发送移动按钮的消息。

6、保存并运行程序，按下鼠标，你会发现按钮会随着鼠标的移动而移动，就和其它著名的应用程序一样。

set ws=createobject("Wscript.Shell")

ws.run "regsvr32 c:\xl_game\dm.dll /s"

set ws=nothing

Delay 1500

//前面是注册大漠插件，只要打包 dm.dll 到附件就好了

set dm = createobject("dm.dmsoft")

//这里是创建大漠对象

hwnd = dm.GetMousePointWindow()

//这是获取鼠标指定窗口句柄

dm_ret = dm.BindWindow(hwnd,"dx","windows","dx",0)

Delay 1500

//这里是绑定窗口

Do

脚本内容

LOOP

Sub OnScriptExit()

dm_ret = dm.UnBindWindow()

End Sub

//注意一点，绑定窗口后，在程序的末尾必须加上这段，这是解除绑定窗口

易语言用大漠后台绑定窗口以后，一开始工作就会连启动窗口也给绑定。求解。

下面是源码大概的意思：

.版本 2

.支持库 dm

.支持库 shellEx

.程序集 窗口程序集1

.程序集变量 A, 整数型

.程序集变量 B, 整数型

.程序集变量 大漠, 大漠

.程序集变量 hwnd

.子程序 __启动窗口_创建完毕

大漠.创建 ()

.如果 (文件是否存在 (取运行目录 () ＋ “\大漠.bat”))

运行 (取运行目录 () ＋ “\大漠.bat”, 假, 1)

.否则

信息框 (“缺少关键文件”, 48, “错误”)

结束 ()

.如果结束

A ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)

B ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.判断开始 (参数一 ＝ A)

延时 (300)

hwnd ＝ 大漠.窗口_取鼠标所指窗口句柄 ()

大漠.后台_绑定窗口 (hwnd, “normal”, “dx”, “dx”, 0)

延时 (3000)

.默认

.判断结束

.判断开始 (参数一 ＝ B)

时钟1.时钟周期 ＝ 0

大漠.后台_解除绑定窗口 ()

.默认

.判断结束

.子程序 _时钟1_周期事件

.局部变量 组队人数, 整数型

大漠.键鼠_鼠标移动 (113, 92)

延时 (500)

大漠.键鼠_鼠标移动 (715, 97)

延时 (500)

.子程序 _按钮1_被单击

延时 (300)

时钟1.时钟周期 ＝ 1000

.子程序 _按钮2_被单击

延时 (300)

结束 ()

---