精简模式 大师 易水之畔 自动刷冒险任务 刷金币

‘
‘精简模式 大师 易水之畔 自动刷冒险任务 刷金币
‘
‘模拟器 请按如下设置
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘设置成 平板版
‘分辨率 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 "您的操作系统日期和时间：" & s
sTime= "[" + Mid(s,12,10) +"]" + " "
‘TracePrint sTime

‘----------------------------------------------------------------------------
‘计数
Form1.InputBox3.Text = "脚本执行中 ... " & sTime
count = count + 1
Form1.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 If
End 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) = x2
End 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 If
End Function

Function 自动
    ‘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 If
End Function


Function 跳过
    ‘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 If
End Function

Function 点击屏幕结束
    ‘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 If
End Function


Function 再次挑战
    ‘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 If
End Function

Function 关闭提示
    ‘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 If
End Function