精簡模式大師易水之畔自動刷冒險任務刷金幣

時間 2019-12-09

標籤精簡模式大師自動冒險任務金幣简体版

原文原文鏈接

精簡模式大師易水之畔自動刷冒險任務刷金幣html

這個腳本的做用就是幫你點幾個按鈕。oop

'啓動 F2
'中止 Pause/Breakui

EXE文件下載 :http://files.cnblogs.com/files/xe2011/yishuizhipan.rarspa

按鍵精靈腳本下載：http://files.cnblogs.com/files/xe2011/wzry.rar 操作系統

如何使用3d

不論用什麼模擬器設置必定按照下面這個設置（我用的是藍疊模擬器 http://www.bluestacks.cn/bdsem_anmnqpm.html）code

'模擬器請按以下設置
'''''''''''''''''''''''
'設置成平板版
'分辨率 1280*720
'DPI 240
'DirectXorm

'易水之畔大師難度每次+33個金幣 +88經驗大概2分鐘刷完一次,金幣刷完了仍然會有經驗
'點冒險模式，點挑戰，滅國的戰場，易水之畔大師難度，下一步htm

1 模擬器設置好後，blog

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