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

 

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

这个脚本的作用就是帮你点几个按钮。

 

'启动 F2 
'停止 Pause/Break

EXE文件下载 :http://files.cnblogs.com/files/xe2011/yishuizhipan.rar

按键精灵脚本下载:http://files.cnblogs.com/files/xe2011/wzry.rar   

 

如何使用

不论用什么 模拟器设置一定按照下面这个设置(我用的是蓝叠模拟器 http://www.bluestacks.cn/bdsem_anmnqpm.html

'模拟器 请按如下设置
'''''''''''''''''''''''
'设置成 平板版
'分辨率 1280*720 
'DPI 240
'DirectX

'易水之畔 大师难度 每次+33个金币 +88经验 大概2分钟刷完一次,金币刷完了仍然会有经验
'点冒险模式,点挑战,灭国的战场,易水之畔 大师难度,下一步

1 模拟器设置好后,

2 选好角色,

3 把游戏手动到下面这个界面

4 此时点脚本 上的启动按钮

5 把 光标放在游戏内,脚本就全自动执行了


'-------------------------------------------------------------------------------

'重要提示
'请退出360,如果开着的话脚本就会失效了  360会报毒的 害怕的不要用,代码已经在下面了
'把光标放在游戏窗口内 ,一但光标自动隐藏了 脚本也就失效了
'由于健康系统的原因每3小时强制下线,脚本连续工作将近3个小时 系统会提示 要休息15分钟


'进入 易水之畔 界面 选好上阵英雄 按F2 开始脚本
'后面的交给脚本来吧,一直刷到模拟器死机为止(每隔几小时模拟器自动死机)
'2017年7月3日 20:56:23 完成

 

 

 

安卓模拟器设置

不设置成这个配置 脚本失效

'模拟器 请按如下设置
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置成 平板版
'分辨率 1280*720
'DPI 240
'DirectX
'电脑屏幕分辨率: 1920*1080

 

 

 

 

 

 

 

 

 

 

 如何使用

 

 

 

 

 

按键精灵代码

  

'
'精简模式 大师 易水之畔 自动刷冒险任务 刷金币
'
'模拟器 请按如下设置
'''''''''''''''''''''''
'设置成 平板版
'分辨率 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

 

posted @ 2017-07-18 23:32 XE2011 阅读(...) 评论(...) 编辑 收藏