輔助篇-結算記錄|另一個伊甸 : 超越時空的貓


3樓貓 發佈時間:2022-05-14 00:13:12 作者:鏡花水月 Language

比較簡單的一個功能,每天刷副本掉落了些啥自動截屏記錄。
目前只截屏BOSS結算和昇天冥,不截屏寶箱開的夢書和幻境。

以下是截昇天冥的,存儲在c:\photo\天冥\文件夾裡。

Dim MyString
Dim MyArray(3)
IfColor 973, 397, "FFFFFF", 0 Then
IfColor 1032,398, "FCFCFC", 0 Then
Delay 1500
MyArray(0) = "c:\photo\天冥\"
MyArray(1) = Year(Date())&Month(Date())&Day(Date())&"-"&Hour(time())&"-"&minute(time())&"-"&second(time())
MyArray(2)=".jpg"
MyString = MyArray(0) & MyArray(1) & MyArray(2)
Call Plugin.Pic.PrintScreen(318, 142, 1641, 894, MyString)
Delay 10000
End If
Else
Delay 1000
End If

以下是截boss結算的,存儲在c:\photo\結算\文件夾裡
Dim MyString
Dim MyArray(3)
IfColor 800,406,"23FFFF", 0 Then
Delay 1500
MyArray(0) = "c:\photo\結算\"
MyArray(1) = Year(Date())&Month(Date())&Day(Date())&"-"&Hour(time())&"-"&minute(time())&"-"&second(time())
MyArray(2)=".jpg"
MyString = MyArray(0) & MyArray(1) & MyArray(2)
Call Plugin.Pic.PrintScreen(318, 142, 1641, 894, MyString)
Delay 10000
Else
Delay 1000
End If

按照年月日時分秒的方式來命名截圖,之後自己打開文件夾整理就行。
PS:如果是錄屏的話,記得在結算和天冥的界面需要停留2秒,否則點太快可能會截歪。
兩個腳本共用激活和停止快捷鍵,這樣可以同時打開(其實就是相當於雙線程,我懶得重新命名變量所以偷懶做成2個腳本)

成品效果如下:
輔助篇-結算記錄|另一個伊甸 : 超越時空的貓 - 第1張輔助篇-結算記錄|另一個伊甸 : 超越時空的貓 - 第2張
如果需要截取寶箱掉落和幻境的,自己在代碼基礎上修改就行了。

© 2022 3樓貓 下載APP 站點地圖 廣告合作:asmrly666@gmail.com