基本的都写好了就向下拉页面没有写好 有能力的改改,做一个字库,和一个界面就可以了, (老漩涡参考一下我这种判断找房,也许能提高效率)
手机党,只能这样子
*Event Form1.Load
颜色质量 = Plugin.Sys.GetScDep()
kd = Plugin.Sys.GetScRX()
gd = Plugin.Sys.GetScRY()
Call Plugin.File.WriteINI("颜色质量", "颜色质量0", 颜色质量, ".\Config.ini")
Call Plugin.File.WriteINI("屏幕分辨率", "宽度", kd, ".\Config.ini")
Call Plugin.File.WriteINI("屏幕分辨率", "高度",gd, ".\Config.ini")
Call Plugin.Sys.SetSc(800,600,32)
If 颜色质量 32 or kd 800 OR gd600 Then
MsgBox "你的电脑不符合软件要求,已自动设置,软件关闭后会自动还原"
End If
End Event
Event Form1.UnLoad
还原kd = Plugin.File.ReadINI("屏幕分辨率", "宽度", ".\Config.ini")
还原gd = Plugin.File.ReadINI("屏幕分辨率", "高度", ".\Config.ini")
还原颜色质量 = Plugin.File.ReadINI("颜色质量", "颜色质量0", ".\Config.ini")
Call Plugin.Sys.SetSc(还原kd,还原gd,还原颜色质量)
End Event*/
//========================================↑↑↑启动窗口↑↑↑=================================================
//===========================================↓↓↓流程↓↓↓===================================================
dm.SetPath "C:\Users\admins\Desktop\新建文件夹 (11)"
dm_ret = dm.SetDict(0,"挑战找房字库.txt")
频道I = 1
CALL 选择频道
Call 判断进入频道
Call 寻找需要坐标
Call 计算
Call 核心
Sub 核心
For 13
For 3
For 13
Call 判断_地图
//寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y
寻找区域Y = 寻找区域Y + 22
寻找区域二Y = 寻找区域二Y + 22
Next
Call 计算
Next
KeyPress "Esc", 1
Delay 100
Call 计算频道
Call 选择频道
Call 判断进入频道
Next
End Sub
Sub 移动滑动条
dm.MoveTo 箭头X+10, 箭头Y+22
Delay 20
dm.LeftDown 1
Delay 20
MoveR 0, 89
Delay 20
LeftUp 1
End Sub
Sub 选择频道
Do
dm_ret = dm.FindStr(0,0,2000,2000,"频道"&频道ID,"ffffff-000000",1.0,频道X,频道Y)
If 频道X > 0 and 频道Y> 0 Then
dm.MoveTo 频道X, 频道Y
Delay 100
// dm.LeftDoubleClick 1
TracePrint 频道X&","&频道Y
Exit Do
End If
Loop
频道I = 频道I + 1
TracePrint 频道I
// MessageBox "成功"
End Sub
Sub 判断进入频道
Do
dm_ret = dm.FindStr(0,0,2000,2000,"回合","ffffff-000000",1.0,回合X,回合Y)
If 回合X > 0 and 回合Y > 0 Then
dm.MoveTo 回合X, 回合Y
Delay 100
// dm.LeftDoubleClick 1
Exit Do
End If
Loop
TracePrint 回合X & ","&回合Y
End Sub
Sub 寻找需要坐标
Do
地图坐标判断 = dm.FindStr(0, 0, 2000, 2000, "房间名", "edda97-000000", 1.0, 房间名X, 房间名Y)
dm_ret = dm.FindPic(0,0,2000,2000,"箭头上.bmp","000000",0.9,0,箭头X,箭头Y)
If 房间名X > 0 and 房间名Y > 0 and 箭头X>0 AND 箭头Y>0 Then
Exit Do
End If
Loop
End Sub
Sub 判断_地图
dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 最后寻找地图, "ffffff-000000", 1.0, 最后寻找地图X, 最后寻找地图Y)
dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 最后寻找回合, "ffffff-000000", 1.0, 最后寻找回合X, 最后寻找回合Y)
dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, 模式, "ffffff-000000", 1.0, 模式X, 模式Y)
dm_ret = dm.FindStr(寻找区域X, 寻找区域Y,寻找区域二X, 寻找区域二Y, "叉|锁", "9e9e9e-000000|ffbf17-000000", 1.0, 叉锁X, 叉锁Y)
If 最后寻找地图X > 0 and 最后寻找地图Y > 0 and 最后寻找回合X > 0 and 最后寻找回合Y > 0 and 模式X > 0 and 模式Y > 0 and 叉锁X