君，已阅读到文档的结尾了呢~~
按键精灵-在文档中搜索字符串,并且输出 修改
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
按键精灵-在文档中搜索字符串,并且输出 修改
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口你的位置：
求高手解决下，无法调试！按F10无反应！！
07:08:39 |
来源: 按键精灵资源站
下面这个源码为什么我粘贴复制了，保存退出，按调试没反应呀，按F10 也没反应！！求高手指点
Sub 开始跑商
Call Plugin.Msg.Tips(&跑商脚本正式启动 O(∩_∩)O~&)
Set dm = CreateObject(&dm.dmsoft&)
ver = dm.Ver()
//dm_ret = dm.BindWindow(hwnd,&dx&,&normal&,&dx&,0)
dm_ret = dm.BindWindow(hwnd,&dx&,&dx&,&dx&,0)
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0, &复件 dm天龙.txt&)
Call 游戏设置
& &&&While i=0
& && && &dm_ret = dm.FindStr(337,288,439,361,&退出&,&52.53.99-.85,intX,intY)
& && && &If intX & 0 Then
& && && && & i = 1
& && && && & dm.KeyPress 27
& && && && & Delay 50
& && && &Else
& && && && & dm.KeyPress 27
& && && && & Delay 50
& && && &End If
& &&&Call 打开自动寻路
& & Delay 200
& &&&ddd = dm.Ocr(647,326,781,483, &0.0.100-252525&, 0.9)
& &&&If ddd = && Then& &
& && && &Call 判断是否有粮食
& && &&&Call 找钱为一
& && &&&//-----------------钱大小于1金的情况（有货回本帮，没货去目标帮）-----------------------------&&
& && && &dm_ret = dm.FindStr(31, 158, 124, 250, &领取银票&, &58.80.70-20.20.30&, 0.9, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm_ret = dm.FindStr(431,39,490,142, &到八次&, &180.100.100-252525&, 0.9, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&Call 跑商结束
& && && && &End If
& && && &End If
& && && &If liangshi1 = 0 Then
& && && && & Call 买东西
& && && && &Call 出帮
& && && && &Call 是否在动
& && && && &Call 防点确认
& && && && &Goto 去目标帮
& && &&&End If
& && && &If liangshi = 1 Then
& && && && & Delay 1100
& && && && & dm_ret = dm.FindStr(64, 104, 155, 157, &重地&, &0.0.100-252525&, 0.9, intX, intY)
& && && && & If intX & 0 and intY & 0 Then
& && && && && &&&Call 出帮
& && && && && & Call 是否在动
& && && && && & Call 防点确认
& && && && && & Call 回本帮
& && && && && & Call 找钱为一
& && && && && & Call 去卖东西
& && && && && & Goto 领任务& &
& && && && & Else
& && && && && &&&Call 去卖东西
& && && && && & Goto 领任务
& && && && &End If
& && && &Else
& && && && & Delay 1100
& && && && & dm_ret = dm.FindStr(64, 104, 155, 157, &重地&, &0.0.100-252525&, 0.9, intX, intY)
& && && && & If intX & 0 and intY & 0 Then& && && && && && &&&
& && && && && &&&Call 去卖东西
& && && && && & Call 买东西
& && && && && & Call 出帮
& && && && && & Call 回本帮
& && && && && & Call 找钱为一
& && && && && & Call 去卖东西
& && && && && & Goto 领任务
& && && && &Else& &&&
& && && && && &&&Call 出帮
& && && && && & Goto 去目标帮
& && && && &End If
& && && &End If
& && && &//=========================人物在帮派外面==================================
& &&&Else&&
& && && &Call 判断是否有粮食
& && &&&If liangshi = 1 Then
& && && && & Goto 回本帮
& && &&&Else
& && && && & Goto 去目标帮
& && &&&End If& &
& &&&End If
& && && &Rem 领任务
& && &&&Call 领任务
& && &&&Call 买东西
& && &&&Call 出帮
& && &&&Rem 去目标帮
& && &&&Call 去目标帮
& && &&&Call 找钱为一
& && &&&Call 去卖东西
& && &&&Call 买东西
& && &&&Call 出帮& &
& && && &Rem 回本帮
& && &&&Call 回本帮
& && &&&Call 找钱为一
& && &&&Call 去卖东西
& & dm_ret = dm.UnBindWindow()& && && &
Sub 游戏设置
& & //&-----------------------2D头像和技能快捷键-------------------------&
& &&&i = 0
& &&&While i = 0
& && && &dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\系统设置.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i = 1
& && && && & dm.MoveTo intX, intY+5
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 20
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 20
& && && &Else
& && && && & dm.KeyPress 27
& && && && & Delay 200
& && && &End If
& &&&i = 0
& &&&While i = 0
& && && &dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\显示设置.bmp&, &050505&, 0.58, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX-296, intY+74
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 100
& && && &End If
& &&&//&---------------------如果是2D头像的情况-----------------&
& &&&dm_ret = dm.FindPic(0, 0, , &c:\test_game\头像.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &dm.MoveTo intX, intY
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.MoveTo intX + 284, intY + 72
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 20
& && && &i = 0
& && && &While i = 0
& && && && & dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\系统设置.bmp&, &050505&, 0.85, 0, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&i = 1
& && && && && &&&dm.MoveTo intX, intY+5
& && && && && &&&Delay 10
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 20
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 50
& && && && & Else
& && && && && &&&dm.KeyPress 27
& && && && && &&&Delay 200
& && && && & End If
& && && &Wend
& && && &i = 0
& && && &While i = 0
& && && && & dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\显示设置.bmp&, &050505&, 0.85, 0, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&i=1
& && && && && &&&dm.MoveTo intX-291, intY+105
& && && && && &&&Delay 10
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 200
& && && && & End If
& && && &Wend
& && && &dm_ret = dm.FindPic(0, 0, , &c:\test_game\向上.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 200
& && && &End If
& && && &dm_ret = dm.FindPic(0, 0, , &c:\test_game\向下.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & dm.MoveTo intX, intY
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 300
& && && && & dm_ret = dm.FindPic(0, 0, , &c:\test_game\自动选择目标.bmp&, &050505&, 0.85, 0, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&dm.MoveTo intX + 180, intY + 5
& && && && && &&&Delay 20
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 100
& && && && && &&&dm.KeyPress 122
& && && && && &&&Delay 100
& && && && && &&&dm.MoveR 56, 219
& && && && && &&&Delay 200
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 20
& && && && & End If
& && && &End If
& && && &dm.MoveR 0, 30
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm_ret = dm.FindPic(0, 0, , &c:\test_game\向上.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 200
& && && &End If
& && && &dm_ret = dm.FindPic(0, 0, , &c:\test_game\向下.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & dm.MoveTo intX, intY
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 60
& && && && & dm.LeftClick
& && && && & Delay 300
& && && && & dm_ret = dm.FindPic(0, 0, , &c:\test_game\自动选择目标.bmp&, &050505&, 0.85, 0, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&dm.MoveTo intX + 180, intY + 5
& && && && && &&&Delay 20
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 100
& && && && && &&&dm.KeyPress 122
& && && && && &&&Delay 100
& && && && && &&&dm.MoveR 56, 219
& && && && && &&&Delay 200
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 20
& && && && & End If
& && && &End If
& &&&End If
& &&&//&---------------------如果不是2D头像的情况-----------------&
& &&&dm.KeyPress 27
& &&&Delay 100
& &&&//&&--------------------系统设置----------------------&&
& &&&i = 0
& &&&While i = 0
& && && &dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\系统设置.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i = 1
& && && && & dm.MoveTo intX, intY+5
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && &Else
& && && && & dm.KeyPress 27
& && && && & Delay 200
& && && &End If
& &&&i = 0
& &&&While i = 0
& && && &dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\显示设置.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY+5
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 100
& && && &End If
& &&&i = 0
& &&&While i = 0
& && && &dm_ret = dm.FindPic(0, 0, 800, 600, &c:\test_game\速度优先.bmp&, &050505&, 0.85, 0, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 20
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.MoveTo intX+119, intY+78
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 20
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.MoveTo intX+119, intY+168
& && && && & Delay 10
& && && && & dm.LeftClick
& && && && & Delay 20
& && && && & dm.LeftClick
& && && && & Delay 200
& && && && & dm.KeyPress 27
& && && && & Delay 20
& && && &End If
Sub 去目标帮
& & aa = 0
& &&&While aa = 0
& && && &xianzai = dm.Ocr(628,0,730,28,&58.80.70-20.20.30&,0.94)
& && && &If xianzai = mubang2 Then&&
& && && && & If Form1.Var13.ListIndex = 0 Then
& && && && && &&&dm.KeyPress 118
& && && && && &&&Delay 10
& && && && & End If
& && && && & Call 打开自动寻路
& && && && &Delay 100
& && && && & dm_ret = dm.FindStr(638,321,785,481,xiaowei2,&0.0.100-.94,intX,intY)
& && && && & If intX & 0 Then& && &&&//去点击目标城市校尉
& && && && && & dm.MoveTo intX, intY + 3
& && && && && &&&Delay 500
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 100
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 100
& && && && & End If
& && && && & dm_ret = dm.FindStr(752,481,789,513, &移动&, &52.53.99-0.0.0&, 0.9, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&dm.MoveTo intX, intY
& && && && && &&&Delay 10
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 10
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 10
& && && && & End If
& && && && && &
& && && && & Call 是否在动
& && && && &i = 0
& && && && & While i = 0
& && && && && &&&If city2 = 0 Then
& && && && && && && &dm_ret = dm.FindStr(10,103,242,290,&城市1&,&58.80.70-20.20.30&,0.94,intX,intY)
& && && && && && && &If intX & 0 Then& && &&&//去点击目标城市进入地图dm_ret = dm.FindPic( 759,284,793,319,&c:\test_game\物品栏粮食.bmp&,&.9,0,intX,intY)& && && &&&
& && && && && && && && & i=1
& && && && && && && && & dm.MoveTo intX, intY + 3
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && &End If
& && && && && &&&End If
& && && && && &&&If city2 = 1 Then
& && && && && && && &
& && && && && && && &dm_ret = dm.FindStr(10,103,242,290,&城市2&,&58.80.70-20.20.30&,0.94,intX,intY)
& && && && && && && &If intX & 0 Then& && &&&//去点击目标城市进入地图
& && && && && && && && &i=1
& && && && && && && && & dm.MoveTo intX, intY + 3
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && &End If
& && && && && &&&End If
& && && && && &&&If city2 = 2 Then
& && && && && && && &dm_ret = dm.FindStr(10,103,242,290,&城市3&,&58.80.70-20.20.30&,0.94,intX,intY)
& && && && && && && &If intX & 0 Then& && &&&//去点击目标城市进入地图
& && && && && && && && &i=1
& && && && && && && && & dm.MoveTo intX, intY + 3
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && &End If
& && && && && &&&End If
& && && && && &&&If city2 = 3 Then
& && && && && && && &dm_ret = dm.FindStr(10,103,242,290,&城市4&,&58.80.70-20.20.30&,0.94,intX,intY)
& && && && && && && &If intX & 0 Then& && &&&//去点击目标城市进入地图
& && && && && && && && &i=1
& && && && && && && && & dm.MoveTo intX, intY + 3
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 50
& && && && && && && &End If
& && && && && &&&End If
& && && && && &
& && && && & Wend
& && && && & aa=1
& && && && & q = 0
& && && && & While q=0& &&&
& && && && && &&&xianzai1 = dm.Ocr(628,0,730,28,&58.80.70-20.20.30&,0.94)&&
& && && && && &&&If xianzai1 =xianzai&&Then
& && && && && && && &Delay 500
& && && && && &&&Else
& && && && && && && &q=1
& && && && && &&&End If
& && && && & Wend
& && && &Else
& && && && & //-------------------------没有到达目标城继续走----------------------------------& && &
& && && && & mudidi=mubang2
& && && && & Call 打开自动寻路
& && && && &Call 下个地图
& && && && &If Form1.消息.Value = 0 Then
& && && && && &&&Call Plugin.Msg.Tips(&地图行走信息：&&xianzai&& → &&xia)
& && && && & End If
& && && && &
& && && && & i = 0
& && && && & While i=0
& && && && && &&&dm_ret = dm.FindStr(638,321,785,481,xia,&0.0.100-.94,intX,intY)
& && && && && &&&If intX & 0 and intY&0 Then& && &&&//去点击目标城市校尉
& && && && && && &&&i = 1
& && && && && && && &dm.MoveTo intX, intY + 3
& && && && && && && &Delay 100
& && && && && && && &dm.LeftClick
& && && && && && && &Delay 100
& && && && && && && &dm.LeftDoubleClick
& && && && && && && &Delay 100
& && && && && && && &dm_ret = dm.FindStr(752,481,789,513, &移动&, &52.53.99-0.0.0&, 0.9, intX, intY)
& && && && && && && &If intX & 0 Then
& && && && && && && && & dm.MoveTo intX, intY
& && && && && && && && & Delay 10
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 10
& && && && && && && && & dm.LeftClick
& && && && && && && && & Delay 10
& && && && && && && &End If
& && && && && && && &Call 是否在动
& && && && && && &&&Call 防点确认
& && && && && && &&&q = 0
& && && && && && && &While q=0& &&&
& && && && && && && && & xianzai1 = dm.Ocr(628,0,730,28,&58.80.70-20.20.30&,0.94)&&
& && && && && && && && & If xianzai1 =xia&&Then
& && && && && && && && && &&&q = 1
& && && && && && && && && &&&Call 查血气
& && && && && && && && &Else
& && && && && && && && && &&&Delay 800
& && && && && && && && & End If
& && && && && && && &Wend
& && && && && &&&End If
& && && && & Wend&&
& && && &End If
& &&&Wend&&
Sub 领任务
& & Delay 500
& &&&i = 0
& &&&While i=0
& && && &dm_ret = dm.FindStr(31, 158, 124, 250, &交还银票&, &58.80.70-20.20.30&, 0.9, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && && & dm.LeftClick
& && && && & Delay 50
& && && &End If
& &&&i = 0
& &&&While i=0
& && && &dm_ret = dm.FindStr(31, 158, 124, 250, &领取银票&, &58.80.70-20.20.30&, 0.9, intX, intY)
& && && &If intX & 0 Then
& && && && & i=1
& && && && & dm.MoveTo intX, intY
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & dm.LeftClick
& && && && & Delay 100
& && && && & //dm.LeftClick
& && && && & //Delay 100
& && && && & //dm.LeftClick
& && && && & //Delay 100
& && && && & //dm.LeftClick
& && && && & //Delay 100
& && && && & dm_ret = dm.FindStr(431,39,490,142, &到八次&, &180.100.100-252525&, 0.9, intX, intY)
& && && && & If intX & 0 Then
& && && && && &&&Call 跑商结束
& && && && &End If
& && && &End If
& &&&//Call 买东西
Sub 打开物品栏
& & dm.MoveTo 50, 55
& &&&i = 0
& &&&While i=0
& && && &dm_ret = dm.FindPic(0,0,800,600,&c:\test_game\物品栏_任务.bmp&,&.9,0,intX,intY)
& && && &If intX & 0 Then//判断是否打开了物品栏
& && && && &i = 1
& && && &Else
& && && && & dm.KeyDown 18
& && && && & Delay 50
& && && && & dm.KeyPress 65
& && && && & Delay 50
& && && && & dm.KeyUp 18
& && && && & Delay 50
& && && &End If
& &&&Wend& && &&&
Sub 峨眉加血
& & //&&----------------第一个人---------------------&&
& &&&dm_ret = dm.FindPic(35,156,77,203, &c:\test_game\组队.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &dm.MoveTo intX, intY
& && && &Delay 10
& && && &dm.LeftClick
& && && &Delay 10
& && && &dm.LeftClick
& && && &Delay 10
& && && &Goto 跳过加血
& & End If
& &&&xue1 = Form1.组队血.Text + 51
& &&&renxue1 = dm.GetColor(xue1, 173)
& &&&weixue1 = dm.GetColor(xue1, 174)
& &&&//Call Plugin.Msg.Tips(weixue1&&&&&&renxue1)
& &&&If weixue1 = renxue1 Then
& && && &验证=1
& && && &dm.MoveTo 30, 180& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && && && &&&
& && && &End If
& &&&End If
& &&&//&&----------------第二个人---------------------&&
& &&&dm_ret = dm.FindPic(38,220,75,254, &c:\test_game\组队.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &Goto 跳过加血
& & End If
& &&&xue2 = Form1.组队血.Text + 51
& &&&renxue2 = dm.GetColor(xue2, 227)
& &&&weixue2 = dm.GetColor(xue2, 228)
& &&&//Call Plugin.Msg.Tips(weixue2&&&&&&renxue2)
& &&&If weixue2 = renxue2 Then
& && && &验证=1
& && && &dm.MoveTo 30, 234& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && && && &
& && && &End If
& &&&End If
& &&&//&&----------------第三个人---------------------&&
& &&&dm_ret = dm.FindPic(32,270,83,316, &c:\test_game\组队.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &//MessageBox &没有第二个人&
& && && &Goto 跳过加血
& & End If
& &&&xue3 = Form1.组队血.Text + 51
& &&&renxue3 = dm.GetColor(xue3, 281)
& &&&weixue3 = dm.GetColor(xue3, 282)
& &&&//Call Plugin.Msg.Tips(&第三个人&&weixue3&&&&&&renxue3)
& &&&If weixue3 = renxue3 Then
& && && &验证=1
& && && &dm.MoveTo 30, 288& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && && && && &
& && && &End If
& &&&End If
& &&&//&&----------------第四个人---------------------&&
& &&&dm_ret = dm.FindPic(37,325,78,364, &c:\test_game\组队.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &Goto 跳过加血
& & End If
& &&&xue4 = Form1.组队血.Text + 51
& &&&renxue4 = dm.GetColor(xue4, 335)
& &&&weixue4 = dm.GetColor(xue4, 336)
& &&&If weixue4 = renxue4 Then
& && && &验证=1
& && && &dm.MoveTo 30, 342& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && && && &
& && && &End If
& &&&End If
& &&&//&&----------------第五个人---------------------&&
& &&&dm_ret = dm.FindPic(30,375,82,421, &c:\test_game\组队.bmp&, &050505&, 0.85, 0, intX, intY)
& &&&If intX & 0 Then
& && && &Goto 跳过加血
& & End If
& &&&xue5 = Form1.组队血.Text + 51
& &&&renxue5 = dm.GetColor(xue5, 389)
& &&&weixue5 = dm.GetColor(xue5, 390)
& &&&If weixue5 = renxue5 Then
& && && &验证=1
& && && &dm.MoveTo 30, 392& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && &
& && && &End If
& &&&End If
& &&&Rem 跳过加血
& & //&&----------------自己---------------------&&
& &&&//weixue6 = dm.GetColor(219, 55)
& &&&xue6 = int(Form1.组队血.Text * 1.4 + 81)
& &&&renxue6=dm.GetColor(xue6, 55)
& &&&weixue6 = dm.GetColor(xue6, 54)
& &&&//Call Plugin.Msg.Tips(weixue6&&现在血&&renxue6)
& &&&If weixue6 = renxue6 Then
& && && &验证=1
& && && &dm.MoveTo 41, 52& &//需要修改
& && &&&Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &dm.LeftClick
& && && &Delay 50
& && && &If Form1.选择技能6.ListIndex &= 4 Then
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=113+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 100
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& &
& && && &Else
& && && && & //&&--------------使用副技能的情况------------------&&
& && && && & For 3
& && && && && &&&//&&--------------通过计算方式看按哪个键盘------------------&&
& && && && && &&&anjian=44+Form1.选择技能6.ListIndex
& && && && && &&&dm.KeyDown 18
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress anjian
& && && && && &&&Delay 20
& && && && && &&&dm.KeyUp 18
& && && && && &&&Delay 50
& && && && & Next
& && && && & Delay 5000
& && && && & dm.KeyPress 122
& && && && & Delay 20& && && && && &
& && && &End If
& &&&End If
Sub 查血气
& & touxue = dm.GetColor(81, 51)
& &&&xue = int(Form1.人血.Text * 1.4 + 81)
& &&&weixue=dm.GetColor(219, 51)
& &&&renxue = dm.GetColor(xue, 51)
& &&&//Call Plugin.Msg.Tips(weixue&&现在血&&renxue)
& &&&If touxue = renxue and touxue = weixue Then
& &&&Else& &
& && && &If weixue = renxue Then& && &&&
& && && && & dm_ret = dm.FindPic(0,0,800,600,&c:\test_game\共生.bmp&,&.9,0,intX,intY)
& && && && & If intX & 0 Then
& && && && && &&&验证 = 2
& && && && && &&&dm.MoveTo intX, intY
& && && && && &&&Delay 20
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 20
& && && && && &&&dm.LeftClick
& && && && && &&&Delay 20
& && && && && &&&dm.MoveTo 100, 102
& && && && && &&&Delay 20
& && && && && &&&dm.KeyPress 121
& && && && && &&&Delay 100
& && && && && &&&dm.KeyPress 121
& && && && && &&&Delay 10
& && && && & Else
& && && && && &&&dm.KeyPress 119
& && && && && &&&Delay 20
& && && && & End If& && &
& && && && && && &
& && && &End If
& &&&End If
& &&&touxue = dm.GetColor(81, 59)
& &&&xue = int(Form1.人气.Text * 1.4 + 81)
& &&&weixue=dm.GetColor(219, 59)
& &&&renxue = dm.GetColor(xue, 59)
& &&&//Call Plugin.Msg.Tips(weixue&&现在血&&renxue)
& &&&If touxue = renxue and touxue = weixue Then
& &&&Else& &
& && && &If weixue = renxue Then& && &&&
& && && && & dm.KeyPress 120
& && && && & Delay 20
& && && && & dm.KeyPress 120
& && && && & Delay 20& && &
& && && &End If
& &&&End If
& &&&xue = Form1.宠血.Text&&+ 125
& &&&If xue & 218 Then
& && && &xue=218
& &&&End If
& &&&weixue=dm.GetColor(218, 107)
& &&&renxue = dm.GetColor(xue, 107)
& &&&//Call Plugin.Msg.Tips(weixue&&现在血&&renxue)
& &&&If weixue = renxue Then& && &&&
& && && &dm.KeyPress 121
& && && &Delay 10
& && && && &
& &&&End If
Sub 是否在动
& &&&While i = 0
& && && &color1 = dm.GetColor(650, 110)
& && && &color2 = dm.GetColor(753, 89)
& && && &Delay 800
& && && &color3 = dm.GetColor(650, 110)
& && && &color4 = dm.GetColor(753, 89)& &
& && && &If color1 = color3 and color2 = color4 Then
& && && && & i = 1& && && && &
& && && &End If}