按键精灵 大漠多线程 重复调用子程序 问题

问题就出在这句

启动线程2 = BeginThread(XC2)

多线程不应该改变量名

应该改为

ID2 = BeginThread (XC2)

新建立一个程序，保存为让鼠标拖动你的控件.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

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

---