天堂M+按鍵精靈 妖精腳本

模擬器  夜神6.0
180124
1. 新增09:30收信時間
2. 修正關閉teamviewer視窗錯誤
180123
1.模擬器左上角可以不用在對的很準了(應為有人反映手抖做不到)
2.更新鼠標起始位置, 避免啟動拖拉視窗
180122
1.優化偷襲瞬移功能
2.修正沒箭不會按回卷異常
180121-2
1.新增高治/橙水 (放置"F2"位址)
2.新增定時收信(12:30 / 18:30 / 21:30 3個時段)
3.所有功能啟用/關閉可自設
180121 新增被偷襲"截圖" (在桌面需自行新增"截圖"資料夾") 
180120
1.新增斷線重連
2.新增使用TeamViewer 遠端連線, 斷線可自動關閉視窗(電腦螢幕需設1600*900才有作用)
180119 加快迴圈速度
//-------------------------------------------------------------------------------------------------------------------

設定1280*720解析度 (注意模擬器大小不可任意拖動, 否則就破功無效)






畫面必須需移到左上角, 上方左方須留一格 (注意藍色細線一定要留)










快捷鍵擺放位址



快捷鍵設定   依序F1~~F8




按鍵精靈 9.51

 新建檔案後 並選擇"原始檔案"

將下列程式複製貼上 存檔即可

 //--------功能設定----------------------------------------------
//回卷--------------------------------------------------------------
GoHome = 1   //低血量自動回卷, 並停止程式_ 啟用=1 / 關閉=0
hph = 40     //hp < 40% 回卷
//高治/橙水--------------------------------------------------------------
OWater = 1   //低血量自動 高治 / 橙水_ 啟用=1 / 關閉=0
hph2 = 60    //hp < 60% 高治 / 橙水 (放 "F2")
//魂體轉換--------------------------------------------------------------
HpSwapMp = 1 //魂體轉換開關_ 啟用=1 / 關閉=0
hp = 85      //hp > 85%以上魂體
mph = 58     //mp < 58%以下魂體
//沒怪瞬移--------------------------------------------------------------
FlyMove = 1  //沒怪瞬移開關_ 啟用=1 / 關閉=0
FlyS = 6     //沒怪瞬移時間"6"約7~12秒 (可設1~無限, 自行斟酌)
//攻擊魔法--------------------------------------------------------------
Magic3 = 1   //自動放魔法(三重矢)_ 啟用=1 / 關閉=0
mp = 60      //mp > 60% 放技能
//被偷襲---------------------------------------------------------------------------
KillFiy = 1  //被偷襲自動瞬移_ 啟用=1 / 關閉=0
PicCapture = 1 //被偷襲自動截圖開關(桌面須建立資料夾, 檔名"截圖")_ 啟用=1 / 關閉=0
//其他功能-----------------------------------------------------------------------------------
Arrow = 1    //沒箭自動回卷_ 啟用=1 / 關閉=0
Poison = 1   //自動喝解讀藥水_ 啟用=1 / 關閉=0
RWater = 0   //沒紅水自動回卷, 並停止程式_ 啟用=1 / 關閉=0
teamv = 1    //自動關閉teamviewer視窗(螢幕解析度1600*900才有作用)_ 啟用=1 / 關閉=0
Aoffline = 1 //斷線自連開關_ 啟用=1 / 關閉=0
SMail = 1    //自動定時收信開關_ 啟用=1 / 關閉=0 (收信時間 09:30 /12:30 / 18:30 21:30 )
//------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------
FindColor 0,0,638,330,"201B1C",WinX,WinY
WinX = WinX - 1
WinY = WinY - 1

hp_C1 = 1
hp_C2 = 1
k = 0

hp = hp * 1.9 + 84 + WinX
hph = hph * 1.9 + 84 + WinX
hph2 = hph2 * 1.9 + 84 + WinX
mp = mp * 2 + 77 + WinX
mph = mph * 2 + 77 + WinX

MoveTo 645 + WinX, 411 + WinX
LeftClick 1
Delay 100

//HP 判斷
FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "000AFF", 2, 0.3, hpX, hpY
If hpX > hph then hp_C1 = 0
FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "004B00", 2, 0.3, hpX, hpY
If hpX > hph Then hp_C2 = 0

Do While hp_C1 = 0 OR hp_C2 = 0
// 被攻擊瞬移
If KillFiy = 1 then
FindColorEx 1198 + WinX,571 + WinY,1209 + WinX,581 + WinY,"94A0FF",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
If PicCapture = 1 Then Call PicSave
   Do While intX > 0 And intY > 0
      keyPress "F8", 1
      Delay 200
      FindColorEx 1198 + WinX,571 + WinY,1209 + WinX,581 + WinY,"94A0FF",0,0.7,intX,intY
   Loop
End If
End if
// 沒怪 瞬移
If FlyMove = 1 then
FindColorEx 1081 + WinX,532 + WinY,1086 + WinX,537 + WinY,"B4B4B5",0,0.7,intAX,intAY
FindColorEx 1174 + WinX,377 + WinY,1222 + WinX,410 + WinY,"72A3FF",0,0.5,intX,intY
If intX < 0 And intAX > 0 Then
       If k=0 then
             KeyPress "F8", 1
       end if   
   Delay 1000
   k=k+1
else k=0 
End If
If k = FlyS Then k = 0
End If

//解毒術
If Poison = 1 then
FindColorEx 92 + WinX, 53 + WinY, 276 + WinX, 62 + WinY, "004B00", 0, 0.5, mpX, mpY
If mpX > 0 Then
         KeyPress "F1", 1
         Delay 2000
End If
End if
hp_C1 = 0
hp_C2 = 0

//HP < 40% 回卷
If GoHome = 1 then
FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "000AFF", 2, 0.3, hpX, hpY
If hpX>0 and hpX < hph then hp_C1 = 1
FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "004B00", 2, 0.3, hpX, hpY
If hpX>0 and hpX < hph Then hp_C2 = 1
If hp_C1 = 1 or hp_C2 = 1 Then Exit Do
End If


hp_C1 = 0
hp_C2 = 0
//HP < 60% 高治 / 橙水
If OWater = 1 then
   FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "000AFF", 2, 0.3, hpX, hpY
   If hpX>0 and hpX < hph2 then hp_C1 = 1
   FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "004B00", 2, 0.3, hpX, hpY
   If hpX>0 and hpX < hph2 Then hp_C2 = 1
   If hp_C1 = 1 or hp_C2 = 1 Then
        KeyPress "F2", 1
        Delay 1000
   End if
End If

// 沒箭_回卷
If Arrow = 1 then
FindColorEx 1103 + WinX,639 + WinY,1111 + WinX,649 + WinY,"393939", 0,0.9, intX,intY
If intX> 0 And intY> 0 Then
    exit do
End If
End if
// 沒水_回卷
if RWater = 1 then
FindColorEx 959 + WinX, 672 + WinY, 961 + WinX, 674 + WinY, "303073", 0,0.5, inthpX, inthpY
If inthpX> 0 And inthpY> 0 Then
    exit do
End If
End if
i = 0

//hp>85%  mp<58% 魂體轉換
If HpSwapMp = 1 then
FindColorEx 92 + WinX, 53 + WinY, 277 + WinX, 62 + WinY, "000AFF", 2, 0.3, hpX, hpY
If hpX > hp  Then
     FindColorEx 77 + WinX, 71 + WinY, 277 + WinX, 76 + WinY, "FFFF00", 0, 0.1, mpX, mpY
     If mpX < mph   
                 KeyPress "F3", 1
                 Delay 3000
                 i = i + 1
     End If
End If
End If

// MP>60% 放魔法(三重矢)
If Magic3 = 1 then
FindColorEx 1081 + WinX,532 + WinY,1086 + WinX,537 + WinY,"B4B4B5",0,0.7,intAX,intAY
FindColorEx 77 + WinX, 71 + WinY, 277 + WinX, 76 + WinY, "FFFF00", 0, 0.1, mpX, mpY
If mpX > mp  and intAX < 0 Then
     KeyPress "F4", 1
     Delay 2000
     i = i + 1
End If
End if

If i = 0 Then
Delay 200
End If

//關閉teamviewer視窗
If teamv = 1 then
IfColor 582, 405, "EE8E20", 0 Then
    MoveTo 985, 484
    LeftClick 1
End If
End If

If Aoffline = 1 then Call offline
if SMail = 1 then call Mail 
loop
    KeyPress "F6", 1
    EndScript
   
   
Sub offline

FindColor 701 + WinX, 617 + WinY, 720 + WinX, 634 + WinY, "4C301E", intX, intY //連線失敗確認
If intX > 0 And intY > 0 Then
FindColorEx 22 + WinX, 41 + WinY, 42 + WinX, 67 + WinY, "76350B", 0, 0.8, LvX, LvY //等級輔助色塊

do
If intX > 0 And LvX > 0 Then
        MoveTo 705 + WinX, 623 + WinY
        LeftClick 1
        Delay 30000
End If
FindColor 701 + WinX, 617 + WinY, 720 + WinX, 634 + WinY, "4C301E", intX, intY
FindColorEx 22 + WinX, 41 + WinY, 42 + WinX, 67 + WinY, "76350B", 0, 0.8, LvX, LvY
Loop Until intX < 0 And LvX < 0

do while LvX < 0 And LvY < 0

FindColor 1239 + WinX, 702 + WinY, 1268 + WinX, 732 + WinY, "4EB9FC", intX, intY //廣告XX
       if intX > 0 And intY > 0 then
                MoveTo 1250 + WinX, 715 + WinY
                LeftClick 1
                Delay 300
       end if
       
FindColorEx 655 + WinX,552 + WinY,705 + WinX,581 + WinY,"A5BFD3",0,0.8,intX,intY //輕觸畫面
           if intX > 0 And intY > 0 then
                MoveTo 670 + WinX, 570 + WinY
                LeftClick 1
                Delay 300
           end if           


FindColorEx 1156 + WinX,684 + WinY,1177 + WinX,704 + WinY,"4D311E",0,0.8,intX,intY //人物進入
         if intX > 0 And intY > 0 then
                MoveTo 1165 + WinX, 695 + WinY
                LeftClick 1
         End If

FindColorEx 22 + WinX, 41 + WinY, 42 + WinX, 67 + WinY, "76350B", 0, 0.8, LvX, LvY

loop

Delay 2000
MoveTo 970 + WinX, 540 + WinY
LeftClick 1

End If

End Sub

Sub PicSave
Set Obj = createobject("WScript.Shell")
FileName = Obj.SpecialFolders("desktop")
t = Plugin.Sys.GetDateTime()
t=Left(t, 4) & mid(t,6,2) & mid(t,9,2) & "_" & mid(t,12,2) & mid(t,15,2) & mid(t,18,2)
Call Plugin.Pic.PrintScreen(0, 0,1280 , 720, FileName & "\截圖\" & t & ".jpg")
Delay 1000
End Sub

Sub Mail
t = Plugin.Sys.GetDateTime()
t = mid(t, 12, 5)
Atime = "09:30"
Btime = "12:30"
Ctime = "18:30"
Dtime = "21:30"
If Atime = t or Btime = t or Ctime = t or Dtime = t Then
FindColor 1254 + WinX,56 + WinY,1260 + WinX,62 + WinY,"2A2AFF",intX,intY //系統
If intX > 0 And intY > 0 Then
     MoveTo 1238 + WinX, 74 + WinY
     LeftClick 1
     Delay 800

FindColor 1026 + WinX,338 + WinY,1032 + WinX,344 + WinY,"2A2AFF",intX,intY //信箱
If intX > 0 And intY > 0 Then
     MoveTo 1010 + WinX, 357 + WinY
     LeftClick 1
     Delay 800
End If

FindColor 1123 + WinX,673 + WinY,1156 + WinX,699 + WinY,"4D311E",intX,intY //領取
If intX > 0 And intY > 0 Then
     MoveTo 1070 + WinX, 683 + WinY
     LeftClick 1
     Delay 800
End If

FindColor 1123 + WinX,673 + WinY,1156 + WinX,699 + WinY,"4D311E",intX,intY //關閉
If intX < 0 And intY < 0 Then
     MoveTo 1238 + WinX, 75 + WinY
     LeftClick 1
     Delay 800
     LeftClick 1
     Delay 800
End If
End If
End If
End Sub



不是夜神模擬器好像不能用, 圖塊顏色會錯誤, 不信可以試試, 也許能用

留言

  1. Unknown2018年5月20日 下午6:26

    謝謝，有用有推~

    回覆刪除
  2. Unknown2018年8月22日 下午3:29

    求救!!
    沒水回捲後不會自動停止程式

    回覆刪除
  3. Unknown2018年10月15日 清晨6:47

    請問，按鍵精靈是哪一種，去哪下載呢？謝謝

    回覆刪除
  4. Unknown2019年4月4日 晚上9:41

    雖然很久遠了 我記得模擬器 剛開啟時他是置放於螢幕的中央 其實不用去拉他 這樣也可以寫按鍵適用於前台

    回覆刪除
  5. show2019年5月20日 凌晨1:21

    這有辦法做後台嗎?

    回覆刪除
  6. 凪・天照大神2019年6月2日 上午10:29

    大大您好，沒怪瞬移不能用...。
    自己嘗試去修改數值...但還是沒有任何反應...
    秒數也設定 1~6秒 都沒有任何反應...。
    請問要怎麼改..謝謝。
    然後跑馬燈的位置都會出現使用不正確。
    瞬間移動 魔法 還是卷軸 都用過 放F8
    不過都沒有反應。

    謝謝您的分享，也想寫不過怎麼寫都寫不出來。

    回覆刪除

張貼留言

這個網誌中的熱門文章

智慧QC檢驗表單

圖片
         品保進料檢驗表單, 大致上就長這副德性, 古哥搜一下百百種表單, 大同小異, 內容包含料件基本資料, 抽樣水準, 檢驗數據, 允收判定等等....... 對一個品檢員而言, 就是每天不斷地填寫相同的表單, 一直驗一直寫, 一直驗一直寫, 驗貨驗到天昏地暗, 寫單寫到頭昏腦脹~~等到最後送簽核才發現 , 這個沒填, 那個漏寫, 數據抄錯, 異常卻勾選合格........> <.  這個品檢員就是我@@         工作做了半年, 每天卻面對一樣的事情, 對工作的熱枕迅速降低, 思考著明明就一樣的資料一樣的格式, 為啥麼要跟傻子依樣做重複的事情, 腦子裡唯一的念頭就是我好懶, 我不想一直做重複的事情, 但是我需要這份比22K再多一點點的微薄薪水, 好淒涼 ~~~~~ "懶" 就是人類進步的動力  hahahahahaha.......... 話說回來, 標題寫著"智慧QC檢驗表單" , 拿掉虛華的外殼其實就是"懶人QC檢驗表單".      右邊的按鈕就是懶人專用, 只要自認夠懶, 人人都可按~~@@  對~~那按鈕就是Excel的巨集, 讓我變懶的動力, 為了讓自己變有夠懶 , 我花了更多更多更多..............的時間在深夜裡學巨集, 寫巨集,測試巨集, 不斷地增加表單功能, 就是要讓自己成為超級懶人, 上班就是屁股黏在椅子上死都不起身的那種懶. 這檢驗表單到底有何種神力??  繼續往下看... 第一步 打上 料號 , 按下右邊按鈕 會依序執行下列藍字:    歷史資料載入完成 => 自動填入品名、廠商、圖面板次、檢驗規格、檢驗工具、檢驗員...等等    歷史品質異常比對 => 提醒歷史曾經發生的檢驗異常資料    歷史客訴資料比對 => 提醒歷史曾經發生的客訴品質異常資料    工程ECN 資料比對 => 提醒最新發行圖面板次    零件圖面搜尋完成 => 顯示該料號最新圖面 第二步 打上 進貨數量 , 並選擇" 抽樣計畫 "及" 抽樣水準 "按下右邊按鈕              => 自動帶入"抽樣數&q
閱讀完整內容

DHT22 濕度校正

圖片
DHT22感測器都在極為精確的濕度校驗室中進行校準。校準係數以程序的形式儲存在OTP內存中，感測器內部在檢測信號的處理過程中要調用這些校準係數。 當你只有一個溫溼度傳感器時, 你會相信上面這串宣傳文字, 當你把數個傳感器擺在一起運作時, 就會發現不是這麼一回事, DHT22溫度方面大致蠻一致的,  但濕度就...........哈哈哈哈 基本上DHT22的靈敏度沒啥問題, 如上圖 6個感測器濕度曲線上上下下蠻一致的, 但數據的差異卻可以達到10%的波動, 為了求數據的一致性, 我們可以做簡單的校正 "鹽類飽和水溶液"這是較容易取得的校正方法, 在密閉容器裡放置各類鹽飽和水溶液, 等待數小時後容器裡的空氣濕度就會達到平衡, 重點是要花錢買各類化學鹽@@ 不想花錢就要找找朋友幫忙, 找有配置實驗室的公司行號應該會有恆溫恆濕機,  利用溫恆濕機來校正, 雖然不確定這機器準不準, 但起碼有個數據參考點, 上圖就是用恆溫恆濕機跑出來的數據曲線, 濕度30%跟20% 看不到平衡區, 有可能是時間不夠長濕度還來不及穩定就繼續跑下個階段造成. 獲得數據後,  利用Excel做散布圖, 繪製趨勢線就可得到線性方程式, 把方程式套進去完成校正^^ 有沒看到~~6條線乖乖地的黏再一起, 濕度90%~10% 每個梯度平衡區都很明顯且一致(30%, 20%比較模糊, 找個時間再來麻煩朋友重測一次@@)
閱讀完整內容