赤壁之战-弥天大谎_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
赤壁之战-弥天大谎
上传于|0|0|暂无简介
你可能喜欢你的位置：
禁止重复运行选否，一分钟所有窗口都无效了~~~
07:22:26 |
来源: 按键精灵资源站
最近想实现多开功能逛BBS发现一个功能键不错就学着使用下。结果运行不到1分钟所有窗口都停止了~~~
是不是选择这个后上面的脚本循环1次也要更改~~~~~求解答。。。还是代码问题。下面是代码~~~
本人新手比较菜。各位大侠别笑话我~~~
Delay 1000
Call 注册()
///////////////注册大漠////////////////////
Hwnd = dm.GetMousePointWindow()
//指向句柄的窗口
dm_ret = dm.BindWindow(hwnd,&gdi2&,&windows&,&windows&,0)
//绑定大漠插件
//dm_ret = dm.SetShowErrorMsg(0)
//防止弹出错误框
//全局函数
////////////////////////////////////////活跃设置模块///////////////////////////////////
If Form1.争霸战.Value = 1 Then
& & Call dmClick(787,86,500)&&//选择争霸战
& & For 10
& & Delay 500
& && &&&Call dmClick(596, 514, 5000)
& && &&&Call dmClick(909, 89, 500)
& & Delay 500& &
& & Call dmClick(910,85,500)
& & Delay 500
////////////////////////////////////////刷塔设置模块///////////////////////////////////
& &Delay 500
& & 回城 = dm.FindPic(920,531,987,591,&出城.bmp&,&.9,0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&Delay 1000
& && &&&Call dmClick(33,119, 500)& && && && &
& && &&&Delay 1000
& && &&&Call dmClick(957,559,500)
& && &&&Call dmClick(37,113,500)
& && &&&Exit Do
& & End If
& & Delay 500
//判断是否在城内并进入塔内
TracePrint &测试&
Call dmClick(34, 120, 500)
塔关 = dm.FindPic(745,41,928,151,&塔关.bmp&,&.9,0,塔关X,塔关Y)
塔挑战 = dm.FindPic(611,491,685,515,&塔挑战.bmp&,&.9,0,塔挑战X,塔挑战Y)
If 塔关X &= 0 and 塔挑战Y &= 0 Then
& & Call 爬塔()
& & Call dmClick(887,56,500)& &//指向关闭
For 5&&//塔1
& & Delay 500
& & Call dmClick(34,120,1000)
& & Call dmClick(352,478,1000)& & //选择汉室余晖
& & Delay 1000
& & dm_ret = dm.FindStrFast(702,240,741,259,&/&,&30ff00-.9,intX,intY)
& & If Form1.塔1.Value = 1 and intX&=0 Then
& && &&&Call dmClick(689,284,500)& & //选择开始战斗
& && &&&Call 爬塔()
& && &&&Exit For
& & End If
& && &Delay 500
For 4& &//塔2
& & Delay 500
& & Call dmClick(34, 120, 1000)
& & Call dmClick(351,415,1000)& &&&//选择讨伐董卓
& & dm_ret = dm.FindStrFast(702,240,741,259,&/&,&30ff00-.9,intX,intY)
& & If Form1.塔2.Value = 1 and intX&=0 Then
& && &&&Delay 500
& && &&&Call dmClick(689,284,500)& && &&&//选择开始战斗
& && &&&Call 爬塔()
& && &&&Exit For
& & End If
& & Delay 500
For 4& &//塔3
& & Delay 500
& & Call dmClick(34, 120, 1000)
& & Call dmClick(342,354,1000)& &//选择群龙并起
& & dm_ret = dm.FindStrFast(702,240,741,259,&/&,&30ff00-.9,intX,intY)
& & If Form1.塔3.Value=1 and intX&=0 Then&&
& && &&&Call dmClick(689,284,500)& && &&&//选择开始战斗
& && &&&Call 爬塔()
& && &&&Exit For
& & End If
& & Delay 500
For 4&&//塔4
& & Delay 500
& & Call dmClick(34, 120,1000)
& & Call dmClick(349,301,1000)& &//选择赤壁之战
& & dm_ret = dm.FindStrFast(702,240,741,259,&/&,&30ff00-.9,intX,intY)
& & If Form1.塔4.Value = 1 and intX&=0 Then
& && &&&Call dmClick(689,284,500)& && &&&//选择开始战斗& &
& && &&&Call 爬塔()
& && &&&Exit For
& & End If
For 4&&//塔5
& &&&Delay 500
& & Call dmClick(34, 120, 1000)
& & Call dmClick(350,251,1000)& &//选择关中征战
& & dm_ret = dm.FindStrFast(702,240,741,259,&/&,&30ff00-.9,intX,intY)
& & If Form1.塔5.Value=1 and intX&=0 Then
& && &&&Call dmClick(689,284,500)& && &&&//选择开始战斗
& && &&&Call 爬塔()
& && &&&Exit For
& & End If
Delay 500& &
//////////////////////////////////////副本设置模块///////////////////////////////////
//天道叛军普通
Call dmClick(770,596,500)& &//打开副本画面
dm_ret = dm.FindStrFast(0, 0, , &力:506&, &ffffda-000000&, 1.0, intX, intY)
If Form1.天道叛军.Value = 1 and intX &= 0 Then
& & dm.MoveTo intX+10,intY-60
& & Delay 500
& & dm.LeftClick
& & Delay 500& &&&//进入天道副本& && && && &
MessageBox &全部执行完毕.谢谢&
//判断进入的塔层,如果打完就跳下一层
Sub ***白装()
& & If Form1.白装.Value=1 Then
& && &&&Call dmClick(317,477,500)& &//指向铁匠铺
& && &&&Call dmClick(231,107,500)& &//指向装备***
& && &&&Call dmClick(819,461,500)& &//指向白装***
& && &&&Call dmClick(443,366,500)& &//指向确定
& && &&&Call dmClick(887,56,500)& &//指向关闭
& & End If
Sub ***绿装()
& & If Form1.绿装.Value=1 Then
& && &&&Call dmClick(317,477,500)& &//指向铁匠铺
& && &&&Call dmClick(231,107,500)& &//指向装备***
& && &&&Call dmClick(810,501,500)& &//指向绿装***
& && &&&Call dmClick(443,366,500)& &//指向确定
& && &&&Call dmClick(887,56,500)& &//指向关闭
& & End If
Sub ***蓝装()& && &
& & If Form1.蓝装.Value=1 Then
& && &&&Call dmClick(317,477,500)& &//指向铁匠铺
& && &&&Call dmClick(231,107,500)& &//指向装备***
& && &&&Call dmClick(165,169,500)& &&&//选择蓝装***下拉框
& && &&&Call dmClick(139,260, 500)& &//选择蓝装***
& && &&&Exit Sub
& & End If
& && & Delay 500
& && &&&dm_ret = dm.FindPic(128,192,185,252,&非蓝装.bmp&,&.9,0,intX,intY)& &&&
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &TracePrint &无蓝装不***&
& && && && &Call dmClick(887,56,500)
& && && && &Exit Sub
& && &&&Else
& && && & For 12
& && && && &Call dmClick(155,215, 500)
& && && & Next
& && && && &Call dmClick(593,484, 500)& && &
& && &&&End If
& && &&&Delay 500
& & Loop& && && && && &&&
//***装备
Sub 爬塔()
& && & Delay 500
& && &&&塔关 = dm.FindPic(774,31,887,120,&塔关.bmp&,&.9,0,塔关X,塔关Y)
& && &&&塔挑战 = dm.FindPic(605,483,689,522,&塔挑战.bmp&,&.9,0,塔挑战X,塔挑战Y)
& && &&&确定 = dm.FindPic(0,0,,&确定.bmp&,&.9,0,确定X,确定Y)
& && &&&塔翻牌 = dm.FindPic(452,425,539,462, &塔洗牌.bmp&, &050505&, 0.9, 0, 塔翻牌X, 塔翻牌Y)
& && &&&If 塔挑战X &= 0 and 塔关X &= 0 Then
& && && && &dm.MoveTo 塔挑战X+8,塔挑战Y+8
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 500
& && &&&End If
& && && && &Delay 500
& && &&&dm_ret = dm.FindStrFast(651,197,687,220, &时间&, &f5e579-.0, intX, intY)
& && &&&If intX &= 0 and 塔关X &= 0 Then
& && && && &dm.MoveTo 塔关X,塔关Y
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 500
& && &&&End If
& && && && &Delay 500
& && & 塔洗牌 = dm.FindPic(452,425,539,462, &塔洗牌.bmp&, &050505&, 0.9, 0, 塔洗牌X, 塔洗牌Y)
& && &&&dm_ret = dm.FindStrFast(412,165,478,190, &第8阶|第16阶|第24阶|第32阶|第40阶&, &f5e579-.0, workX, workY)
& && &&&If workX &= 0 Then
& && && && &TracePrint &塔未结束&
& && && && &Delay 1000
& && && && &dm.MoveTo 塔洗牌X-5,塔洗牌Y-5
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 8000
& && && && &dm.MoveTo 塔洗牌X-7,塔洗牌Y-160
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 500
& && &&&End If
& && &&&Delay 500
& && &&&塔洗牌 = dm.FindPic(452,425,539,462, &塔洗牌.bmp&, &050505&, 0.9, 0, 塔洗牌X, 塔洗牌Y)
& && &&&dm_ret = dm.FindStrFast(412,165,478,190, &第13阶|第23阶|第29阶|第47阶&, &f5e579-.0, worksX, intsY)
& && &&&If&&worksX &= 0 and 塔洗牌X &=0 Then
& && && && &TracePrint &塔结束&
& && && && &Delay 500
& && && && &dm.MoveTo 塔洗牌X-5,塔洗牌Y-5
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 10000
& && && && &dm.MoveTo 塔洗牌X-7,塔洗牌Y-160
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 1000
& && && && &Call dmClick(824,107,1000)
& && && && &Delay 2000
& && && && &Call ***白装()
& && && && &Delay 1000
& && && && &Call ***绿装()
& && && && &Delay 1000
& && && && &Call ***蓝装()
& && && && &Delay 1000
& && && && &Exit Sub
& && &&&End If
& && &&&Delay 500
& && &&&也许你会有 = dm.FindStrFast(0,0,,&也许你会有&,&30ff00-.0,也许你会有X,也许你会有Y)& && &
& && &&&If 也许你会有X &= 0 Then
& && && && &Call dmClick(571, 350, 500)
& && &&&End If
& && &&&Delay 500
& && &&&输了不给力 = dm.FindStrFast(593,171,681,198,&输了不给力&,&ffff00-.0,输了不给力X,输了不给力Y)
& && &&&zhanbai = Form1.战败.ListIndex
& && &&&If 输了不给力X &= 0 and 塔关X &= 0 and zhanbai = 0 Then
& && && && &Call dmClick(828,78, 1000)
& && && && &Call dmClick(737,499, 1000)
& && && && &Call dmClick(447,337, 1000)&&//退出
& && && && &Call dmClick(823,105, 1000)&&//关闭窗口
& && && && &Call ***白装()
& && && && &Delay 500
& && && && &Call ***绿装()
& && && && &Delay 500
& && && && &Call ***蓝装()
& && && && &Delay 500
& && && && &Exit Sub
& && &&&End If
& && &&&Delay 500
& && &&&If 输了不给力X &= 0 and 塔关X &= 0 and zhanbai=1 Then& && &
& && && && &TracePrint &战败&
& && && && &dm.MoveTo 塔挑战X+5,塔挑战Y+5
& && && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 500& && && &
& && &&&End If
& && &&&Delay 500
& && &&&游戏玩累了 = dm.FindStrFast(457,248,524,265,&游戏玩累了&,&ffffda-.0,游戏玩累了X,游戏玩累了Y)& && &
& && &&&If 游戏玩累了X &= 0 Then
& && && && &Call dmClick(435,333, 500)
& && &&&End If
& && &&&Delay 500
& &&&Delay 1000
& && &背包 = dm.FindPic(460,523,643,588, &背包.bmp&, &050505&, 1.0, 0, 背包X, 背包Y)
& &&&Delay 1000
& & If Form1.清理白卡.Value = 1 Then
& && &&&If 背包X &= 0 Then
& && && && &Delay 500
& && && &dm.MoveTo 背包X, 背包Y
& && && &Delay 500
& && && && &dm.LeftClick
& && && && &Delay 500
& && && && &Call dmClick(270,121,500)
& && &&&End If
& && &&&Delay 500
& && &&&Do
& && && &Delay 500
& && && &白卡= dm.FindPic(167,145,826,485, &白卡.bmp&, &050505&, 1.0, 0, 白卡X, 白卡Y)
& && && && &If 白卡X &= 0 and 白卡Y&= 0 Then
& && && && && & Delay 1000
& && && && && & dm.MoveTo 白卡X, 白卡Y
& && && && && & Delay 1000
& && && && && & dm.LeftDown
& && && && && & Delay 1000
& && && && && & dm.LeftUP
& && && && && & Delay 1000
& && && && && & dm.MoveR X+40, Y+85
& && && && && & Delay 1000
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & Call dmClick(450,339,500)
& && && && &Else
& && && && && & Call dmClick( 839,61,500)& &//关闭& && && && && &&&
& && && && && & Exit Do
& && && && &End If
& && && && &Delay 500
& && &&&Loop
& & End If
Sub dmClick(x, y,t)&&//定义好坐标延时.避免脚本代码过多
& & dm.MoveTo x, y
& & Delay 500
& & dm.LeftClick
& & Delay t
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\大漠梦想&
& & //↑指定“全局路径”
& & dm.SetDict 0,&wz.txt&
& & //↑相对路径……第一个·字库
& & Delay 40