你的位置：
熬了一夜，大漠多线程第二窗口绑定失败问题求指教
06:33:30 |
来源: 按键精灵资源站
本帖最后由 冷月光 于
01:33 编辑
漫漫长夜未眠睡，鸡晓天白仍雾水。
盼望众贤伸援手，济得在下一时困。
~~~~~~~~~~~~~~~~~~~~~~~~~
熬了一夜，看了裴老师的N次，到现在仍然是以下现象
1，单线程时一切正常。
2，第一个窗口一切正常。
3，在第二个邮箱窗口按下启动热键时，提示绑定失败
新手一枚，完全是看裴老师的视频摸索的，源码也是裴老师的，只是在具体游戏操作时改为自己的，怎么会出现上述情况呢？
盼众高手不吝指点，以解迷津~~在下多谢了
Call 注册()
//&&------------------------------
& & Key = WaitKey()
& & Delay 20
& & If Key = 118 Then
& && &&&aa = dm.GetMousePointWindow()
& && &&&BeginThread 开始工作
& & End If
//======================================================================
Sub 开始工作()
& & set dm = createobject(&dm.dmsoft&)
& & //↑创建“一个对象”
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & Call 绑定()
& & //&&------------------------------
& &Delay 1000
& && &&&//
& && &&&Call 开始打怪()
//&&------------------------------
//↑裴初菡·免费&&-------&&下载地址http://
//↑联系QQ·&&-------&&收徒、脚本定做
//&&--------------------------------------------------------------------&&
//&&------------------------------子程序------------------------------&&
//&&--------------------------------------------------------------------&&
Sub 注册()
& & PutAttachment &.\plugin&,&*.dll&
& & PutAttachment &.\plugin\大漠梦想&,&*.bmp&
& & PutAttachment &.\plugin\大漠梦想&,&*.txt&
& & PutAttachment &.\plugin\大漠梦想&,&dm.dll&
& & //↑PutAttachment释放附件
& & Call Plugin.RegDll.Reg(&.\plugin\大漠梦想\dm.dll&)
& & set dm = createobject(&dm.dmsoft&)
& & //↑大漠·注册
& & dm.SetPath &.\plugin\大漠梦想&
& & //↑指定“全局路径”
& & Delay 20
Sub 绑定()
& & hwnd = aa
& & TracePrint hwnd
& & Delay 1000
& & dm_ret = dm.SetWindowState(hwnd,12)
& & Delay 500
& & dm_ret = dm.BindWindow(hwnd,&dx&,&dx&,&dx&,0)
If dm_ret=0 Then
& & MessageBox &绑定“失败”&
& & ExitScript
Sub 开始打怪()
dm.KeyPress 50
& & Loop While 7=7
Sub OnScriptExit()
& & dm_ret = dm.UnBindWindow()
刚刚调试，提示我
您的脚本在调试过程中，产生了下列调试信息：
脚本 大漠_.Q ，第58行：525742
是不是第58行代码出错了
55 Sub 绑定()
56& &&&hwnd = aa
58& & TracePrint hwnd
59& &&&Delay 1000
& &&&dm_ret = dm.SetWindowState(hwnd,12)
& &&&Delay 500
& &&&dm_ret = dm.BindWindow(hwnd,&dx&,&dx&,&dx&,0)
& &&&Delay 200
& &&&If dm_ret=0 Then
& && &&&MessageBox &绑定“失败”&
& && &&&ExitScript
& &&&End If
& &&&Delay 500}