‘‘精简模式 大师 易水之畔 自动刷冒险任务 刷金币‘‘模拟器 请按如下设置‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘设置成 平板版‘分辨率 1280*720 ‘DPI 240‘DirectX‘电脑屏幕分辨率： 1920*1080‘启动 F2 ‘停止 Pause/Break ‘易水之畔 大师难度 每次+33个金币 +88经验 大概2分钟刷完一次,金币刷完了仍然会有经验‘点冒险模式，点挑战，灭国的战场，易水之畔 大师难度，下一步‘-------------------------------------------------------------------------------‘重要提示‘请退出360，如果开着的话脚本就会失效了 ‘把光标放在游戏窗口内 ，一但光标自动隐藏了 脚本也就失效了‘脚本连续工作将近3个小时 系统会提示 要休息15分钟‘进入 易水之畔 界面 选好上阵英雄 按F2 开始脚本‘后面的交给脚本来吧，一直刷到安卓模拟器死机为止（每隔几小时模拟器自动无响应）‘2017年7月3日 20:56:23 完成‘-------------------------------------------------------------------------------s=Plugin.GetSysInfo.GetDateTime ‘TracePrint "您的操作系统日期和时间：" & ssTime= "[" + Mid(s,12,10) +"]" + " "‘TracePrint sTime‘----------------------------------------------------------------------------‘计数Form1.InputBox3.Text = "脚本执行中 ... " & sTimecount = count + 1Form1.TextCount.Text = CStr(count)If count < 2 Then     Form1.InputBox1.Text = Form1.InputBox1.Text +sTime+  "请确保鼠标光标放在游戏窗口正中间（大概位置，确保能看到效果） " & vbcrlf End If‘---------------------------------------------------------------------------闯关 自动 跳过 点击屏幕结束 再次挑战 关闭提示 ‘----------------------------------------------------------------------------DimEnv i  ‘移动光标并且 能看到 光标的轨迹（不是瞬移过去的）防真度100%Sub MoveCursorWithReal(x, y)    SaveMousePos    GetCursorPos xc, yc    x1 = xc    y1 = yc    x2 = x    y2=y    If i = 1 Then         b = abs( (y1 - y2)/(x1 - x2))         b1 = (x2 - x1) / abs(x2 - x1)        b2 = (y2 - y1) / abs(y2 - y1)        Call MoveFunc        i = 0        ‘能看到效果        Delay 100        LeftClick 1        ‘        Delay 200        RestoreMousePos    End IfEnd Sub Sub MoveFunc    x = x1 : y = y1    Do       ‘ Delay 1 //移动速度设置 越小越快        x = x + 0.5 * b1        y = y + 0.5 *b* b2        ‘  ‘TracePrint x&"x" &y        MoveTo x, y        ‘‘TracePrint CStr(Round(x, 0)) &"   " &CStr(x2)    Loop Until Round(x, 0) = x2End Sub ‘-------------------------------------------------------------------------------Function 闯关    ‘6【闯关】    FindPic 0,0,1920,1080,"Attachment:\闯关.bmp",1,intX,intY    If intX > 0 And intY > 0 Then         ‘TracePrint "[" & h & ":" & m & ":" & s &  "]   " & "等待加载中 ....  加载不消耗流量"        i = 1        Call MoveCursorWithReal(intX + 88, intY + 35)        Form1.InputBox3.Text =sTime & "闯关"        Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "闯关"& vbcrlf         ‘7等待加载中 .... 30秒    End IfEnd FunctionFunction 自动    ‘8 【自动】    FindPic 0,0,1920,1080,"Attachment:\自动.bmp",1,intX,intY    If intX > 0 And intY > 0 Then             ‘TracePrintsTime & "单击 自动 按钮"        Form1.InputBox3.Text = sTime & "单击 自动 按钮"        Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "单击 自动 按钮"& vbcrlf                 i = 1        Call MoveCursorWithReal(intX +18, intY + 10)        End IfEnd FunctionFunction 跳过    ‘9 【跳过】 个别非常不准    FindPic 0,0,1920,1080,"Attachment:\跳过.bmp",0.6,intX,intY    If intX > 0 And intY > 0 Then         ‘TracePrintsTime & "跳过"        Form1.InputBox3.Text =sTime & "跳过"        Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "跳过"& vbcrlf                 i = 1        Call MoveCursorWithReal(intX + 63, intY + 24)        Delay 100    End IfEnd FunctionFunction 点击屏幕结束    ‘12 【点击屏幕结束】    FindPic 0,0,1920,1080,"Attachment:\结束.bmp",0.8,intX,intY    If intX > 0 And intY > 0 Then         ‘TracePrintsTime & "点击屏幕结束"        Form1.InputBox3.Text =sTime & "点击屏幕结束"        Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "胜利  点击屏幕结束"& vbcrlf                 i=1        Call MoveCursorWithReal(intX + 109, intY + 44)        Delay 200    End IfEnd FunctionFunction 再次挑战    ‘13 【再次挑战】 关卡奖励     FindPic 0,0,1920,1080,"Attachment:\再次挑战.bmp",1,intX,intY    If intX > 0 And intY > 0 Then             ‘TracePrintsTime & "再次挑战"        Form1.InputBox3.Text =sTime & "再次挑战"        Form1.InputBox1.Text = Form1.InputBox1.Text +sTime & "再次挑战" & vbcrlf                         i = 1        Call MoveCursorWithReal(intX + 96, intY + 35)                Beep         Beep                 CoinTime = CoinTime + 1        Form1.InputBox2.Text = CStr(CoinTime)    End IfEnd FunctionFunction 关闭提示    ‘13 关闭提示    ‘亲爱的招换师，你好。您 连续玩游戏的时长达2小时，请合理控制游戏时间，享受健康生活。    FindPic 0,0,1920,1080,"Attachment:\休息对话框.bmp",1,intX,intY    If intX > 0 And intY > 0 Then         ‘TracePrintsTime & "关闭 游戏时长2小时 对话框..."        Form1.InputBox3.Text =sTime & "关闭 游戏时长2小时 对话框..."        Form1.InputBox1.Text = Form1.InputBox1.Text + sTime & "关闭 游戏时长2小时 对话框..."& vbcrlf                         i = 1        Call MoveCursorWithReal(intX + 90, intY + 339)    End IfEnd Function