// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// 变量
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
// ---------------------------------------------------------------------------------------------------------
//
// 系统变量
//
// ---------------------------------------------------------------------------------------------------------
client偏移量 = Array(Form.xPianyi.Text + 0, Form.yPianyi.Text + 0)
医生indexList = Array(split(Form.yiShengIndexStr.Text, ",")(0) - 1, split(Form.yiShengIndexStr.Text, ",")(1) - 1)
baseUrl = "http://localhost:8080"
// ---------------------------------------------------------------------------------------------------------
//
// 坐标数组
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 地图
// ------------------------------------------------------------------------
判断地图状态坐标 = Array(681, 37)
改变地图状态按钮坐标 = Array(789, 37)
放大地图按钮坐标 = Array(650, 190)
// ------------------------------------------------------------------------
// 买卖扔物品
// ------------------------------------------------------------------------
扔物品坐标 = Array(637, 526)
买东西输入个数确认坐标 = Array(368, 513)
物品存卖点坐标 = Array(263, 531)
买的小助手坐标 = Array(92, 220)
买的小助手爱情坐标 = Array(164, 218)
买的小助手过滤坐标 = Array(199, 218)
买的蓝药坐标 = Array(273,216)
买的玫瑰坐标 = Array(131,320)
买的珠子坐标 = Array(163,252)
买的新手回城符坐标 = Array(167,248)
买的三转回城符坐标 = Array(235, 249)
// ------------------------------------------------------------------------
// NPC窗口
// ------------------------------------------------------------------------
NPC窗口打开按钮坐标 = Array(620, 334)
NPC对话结束按钮坐标 = Array(620, 573)
NPC窗口关闭按钮坐标 = Array(306, 148)
顶置商店窗口坐标 = Array(167,152)
切换综合仓库坐标 = Array(178, 188)
// ------------------------------------------------------------------------
// 装备栏
// ------------------------------------------------------------------------
装备栏顶置坐标 = Array(599, 37)
装备栏最后一格坐标 = Array(590, 481)
集魂珠激活坐标 = Array(422, 309)
背包按钮坐标 = Array(701, 577)
// ------------------------------------------------------------------------
// 其他
// ------------------------------------------------------------------------
client关闭按钮坐标 = Array(800, 3)
client窗口移动坐标 = Array(560, 5)
戒指返回宝石坐标 = Array(389, 143)
F1坐标 = Array(23, 594)
Z药店坐标 = Array(712, 172)
X药店坐标 = Array(713, 55)
二级密码确认坐标 = Array(367,398)
// ---------------------------------------------------------------------------------------------------------
//
// 范围数组
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 装备栏
// ------------------------------------------------------------------------
装备栏范围 = Array(398, 289, 614, 505)
确认集魂珠已激活范围 = Array(396, 288, 443, 332)
// ------------------------------------------------------------------------
// NPC窗口
// ------------------------------------------------------------------------
判断NPC窗口是否打开范围 = Array(149, 131, 194, 177)
新手珠子商店范围 = Array(68, 190, 297, 341)
// ------------------------------------------------------------------------
// 扔删物品
// ------------------------------------------------------------------------
扔物品输入个数范围 = Array(404, 342, 452, 386)
删除东西确认范围 = Array(380, 177, 425, 359)
// ------------------------------------------------------------------------
// 其他
// ------------------------------------------------------------------------
小助手范围 = Array(5, 88, 345, 576)
寻找提示范围 = Array(382, 136, 430, 181)
地图范围 = Array(635, 49, 796, 212)
二级密码范围 = Array(210,478,591,501)
// ---------------------------------------------------------------------------------------------------------
//
// 物品列表
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 衣服
// ------------------------------------------------------------------------
衣服80普通list = Array(_
"衣服-80-1.bmp","衣服-80-2.bmp","衣服-80-3.bmp","衣服-80-4.bmp","衣服-80-5.bmp",_
"衣服-80-6.bmp","衣服-80-7.bmp","衣服-80-8.bmp","衣服-80-9.bmp","衣服-80-10.bmp",_
"衣服-80-11.bmp","衣服-80-12.bmp","衣服-80-13.bmp","衣服-80-14.bmp","衣服-80-25.bmp",_
"衣服-80-26.bmp","衣服-80-27.bmp","衣服-80-28.bmp","衣服-80-29.bmp","衣服-80-30.bmp",_
"衣服-80-31.bmp","衣服-80-32.bmp","衣服-80-33.bmp","衣服-80-34.bmp","衣服-80-35.bmp",_
"衣服-80-36.bmp","衣服-80-37.bmp","衣服-80-38.bmp"_
)
衣服80英雄list = Array(_
"衣服-80-15.bmp","衣服-80-16.bmp","衣服-80-17.bmp","衣服-80-18.bmp","衣服-80-19.bmp",_
"衣服-80-20.bmp","衣服-80-21.bmp","衣服-80-22.bmp","衣服-80-23.bmp","衣服-80-24.bmp",_
"衣服-80-39.bmp","衣服-80-40.bmp"_
)
衣服90普通list = Array(_
"衣服-90-1.bmp","衣服-90-2.bmp","衣服-90-3.bmp","衣服-90-4.bmp","衣服-90-5.bmp",_
"衣服-90-6.bmp","衣服-90-7.bmp","衣服-90-8.bmp","衣服-90-9.bmp","衣服-90-10.bmp",_
"衣服-90-11.bmp","衣服-90-12.bmp","衣服-90-13.bmp","衣服-90-14.bmp","衣服-90-15.bmp",_
"衣服-90-16.bmp","衣服-90-17.bmp","衣服-90-18.bmp","衣服-90-19.bmp","衣服-90-20.bmp",_
"衣服-90-21.bmp","衣服-90-22.bmp","衣服-90-23.bmp","衣服-90-24.bmp","衣服-90-25.bmp",_
"衣服-90-26.bmp","衣服-90-27.bmp","衣服-90-28.bmp"_
)
衣服100list = Array(_
"衣服-100-1.bmp","衣服-100-2.bmp","衣服-100-3.bmp","衣服-100-4.bmp","衣服-100-5.bmp",_
"衣服-100-6.bmp","衣服-100-7.bmp","衣服-100-8.bmp","衣服-100-9.bmp","衣服-100-10.bmp",_
"衣服-100-11.bmp","衣服-100-12.bmp","衣服-100-13.bmp","衣服-100-14.bmp","衣服-100-15.bmp",_
"衣服-100-16.bmp","衣服-100-17.bmp","衣服-100-18.bmp","衣服-100-19.bmp","衣服-100-20.bmp",_
"衣服-100-21.bmp","衣服-100-22.bmp","衣服-100-23.bmp","衣服-100-24.bmp","衣服-100-25.bmp",_
"衣服-100-26.bmp","衣服-100-27.bmp","衣服-100-28.bmp","衣服-100-29.bmp","衣服-100-30.bmp",_
"衣服-100-31.bmp","衣服-100-32.bmp","衣服-100-33.bmp","衣服-100-34.bmp","衣服-100-35.bmp",_
"衣服-100-36.bmp","衣服-100-37.bmp","衣服-100-38.bmp","衣服-100-39.bmp","衣服-100-40.bmp"_
)
衣服110list = Array(_
"衣服-110-1.bmp","衣服-110-2.bmp","衣服-110-3.bmp","衣服-110-4.bmp","衣服-110-5.bmp",_
"衣服-110-6.bmp","衣服-110-7.bmp","衣服-110-8.bmp","衣服-110-9.bmp","衣服-110-10.bmp",_
"衣服-110-11.bmp","衣服-110-12.bmp","衣服-110-13.bmp","衣服-110-14.bmp","衣服-110-15.bmp",_
"衣服-110-16.bmp","衣服-110-17.bmp","衣服-110-18.bmp","衣服-110-19.bmp","衣服-110-20.bmp",_
"衣服-110-21.bmp","衣服-110-22.bmp","衣服-110-23.bmp","衣服-110-24.bmp","衣服-110-25.bmp",_
"衣服-110-26.bmp","衣服-110-27.bmp","衣服-110-28.bmp","衣服-110-29.bmp","衣服-110-30.bmp",_
"衣服-110-31.bmp","衣服-110-32.bmp","衣服-110-33.bmp","衣服-110-34.bmp","衣服-110-35.bmp",_
"衣服-110-36.bmp","衣服-110-37.bmp","衣服-110-38.bmp","衣服-110-39.bmp","衣服-110-40.bmp"_
)
// ------------------------------------------------------------------------
// 手
// ------------------------------------------------------------------------
手80list = Array("手-80-1.bmp", "手-80-2.bmp", "手-80-3.bmp", "手-80-4.bmp")
手90list = Array("手-90-1.bmp", "手-90-2.bmp", "手-90-3.bmp", "手-90-4.bmp")
手100list = Array("手-100-1.bmp", "手-100-2.bmp", "手-100-3.bmp", "手-100-4.bmp")
手110list = Array("手-110-1.bmp", "手-110-2.bmp", "手-110-3.bmp", "手-110-4.bmp")
// ------------------------------------------------------------------------
// 脚
// ------------------------------------------------------------------------
脚80list = Array("脚-80-1.bmp", "脚-80-2.bmp", "脚-80-3.bmp", "脚-80-4.bmp")
脚90list = Array("脚-90-1.bmp", "脚-90-2.bmp", "脚-90-3.bmp", "脚-90-4.bmp")
脚100list = Array("脚-100-1.bmp", "脚-100-2.bmp", "脚-100-3.bmp", "脚-100-4.bmp")
脚110list = Array("脚-110-1.bmp", "脚-110-2.bmp", "脚-110-3.bmp", "脚-110-4.bmp")
// ------------------------------------------------------------------------
// 内甲
// ------------------------------------------------------------------------
内甲85list = Array("内甲-85.bmp", "内甲-85-梅.bmp")
内甲95list = Array("内甲-95.bmp", "内甲-95-梅.bmp")
内甲105list = Array("内甲-105.bmp", "内甲-105-梅.bmp")
// ------------------------------------------------------------------------
// 假武器
// ------------------------------------------------------------------------
假武器120list = Array(_
"假武器-120-1.bmp","假武器-120-2.bmp","假武器-120-3.bmp","假武器-120-4.bmp","假武器-120-5.bmp",_
"假武器-120-6.bmp","假武器-120-7.bmp","假武器-120-8.bmp","假武器-120-9.bmp","假武器-120-10.bmp",_
"假武器-120-11.bmp","假武器-120-12.bmp","假武器-120-13.bmp","假武器-120-14.bmp","假武器-120-15.bmp",_
"假武器-120-16.bmp","假武器-120-17.bmp","假武器-120-18.bmp","假武器-120-19.bmp","假武器-120-20.bmp",_
"假武器-120-21.bmp"_
)
// ------------------------------------------------------------------------
// 假衣服
// ------------------------------------------------------------------------
假衣服120list = Array(_
"假衣服-120-1.bmp","假衣服-120-2.bmp","假衣服-120-3.bmp","假衣服-120-4.bmp","假衣服-120-5.bmp",_
"假衣服-120-6.bmp","假衣服-120-7.bmp","假衣服-120-8.bmp","假衣服-120-9.bmp","假衣服-120-10.bmp",_
"假衣服-120-11.bmp","假衣服-120-12.bmp","假衣服-120-13.bmp","假衣服-120-14.bmp","假衣服-120-15.bmp",_
"假衣服-120-16.bmp","假衣服-120-17.bmp","假衣服-120-18.bmp","假衣服-120-19.bmp","假衣服-120-20.bmp",_
"假衣服-120-21.bmp","假衣服-120-22.bmp","假衣服-120-23.bmp","假衣服-120-24.bmp","假衣服-120-25.bmp",_
"假衣服-120-26.bmp","假衣服-120-27.bmp","假衣服-120-28.bmp"_
)
// ------------------------------------------------------------------------
// 杂货
// ------------------------------------------------------------------------
杂货list = Array(_
"一般金刚石.bmp","一般寒玉石.bmp","高级金刚石.bmp","高级寒玉石.bmp","下级奇玉石.bmp",_
"热血石.bmp","宠物戒指-75-黄.bmp","宠物戒指-75-红.bmp","宠物戒指-75-蓝.bmp","宠物戒指-75-绿.bmp",_
"红药-大.bmp","红药-津.bmp","红药-特.bmp","强化石.bmp"_
)
// ------------------------------------------------------------------------
// 存仓库物品list
// ------------------------------------------------------------------------
存个人仓库物品list = Array(_
"赤球.bmp","翡翠方.bmp","翡翠球.bmp","分解石.bmp","封印的石板.bmp",_
"高级寒玉石-红.bmp","高级寒玉石-青.bmp","高级金刚石-红.bmp","高级金刚石-青.bmp","高级皮革.bmp",_
"皮革.bmp","青球.bmp","下级魂结晶.bmp","一般寒玉石-红.bmp","一般寒玉石-青.bmp",_
"一般金刚石-红.bmp","一般金刚石-青.bmp","地核金刚水玉.bmp","蜘蛛金丝.bmp","黄铜币.bmp",_
"新幸运符5.bmp","新幸运符10.bmp"_
)
存综合仓库物品list = Array(_
"弹指环.bmp","霸王之环.bmp","黑影珠.bmp","天影珠.bmp","血耳环.bmp"_
)
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// 逻辑方法
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
// ---------------------------------------------------------------------------------------------------------
//
// 图色
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 区域找图
// ------------------------------------------------------------------------
Function 区域找图(范围数组,图片名字,精准度,客户端下标)
Dim returnArr(2)
FindPic 范围数组(0) + client偏移量(0) * 客户端下标, 范围数组(1) + client偏移量(1) * 客户端下标,范围数组(2) + client偏移量(0) * 客户端下标, 范围数组(3) + client偏移量(1) * 客户端下标,"Attachment:\"+图片名字,精准度,坐标X,坐标Y
returnArr(0) = 坐标X
returnArr(1) = 坐标Y
If 坐标X + 坐标Y > 0 Then
returnArr(2) = 1
Else
returnArr(2) = 0
End If
If Form.request.Value = 1 Then
address = baseUrl + "/findPic/history?jiQiType=" + CStr(Form.jiQiType.Text) + "&&res=" + CStr(returnArr(2))
Call post请求(address,图片名字)
End If
区域找图 = returnArr
End Function
// ---------------------------------------------------------------------------------------------------------
//
// 键鼠
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 鼠标移动到坐标
// ------------------------------------------------------------------------
Sub 鼠标移动到坐标(坐标数组,客户端下标)
MoveTo 坐标数组(0) + client偏移量(0) * 客户端下标, 坐标数组(1) + client偏移量(1) * 客户端下标
Delay 200
End Sub
// ------------------------------------------------------------------------
// 鼠标左击
// ------------------------------------------------------------------------
Sub 鼠标左击(次数)
For 次数
LeftClick 1
Delay 100
Next
Delay 100
End Sub
// ------------------------------------------------------------------------
// 鼠标右击
// ------------------------------------------------------------------------
Sub 鼠标右击(次数)
For 次数
RightClick 1
Delay 100
Next
Delay 100
End Sub
// ------------------------------------------------------------------------
// 鼠标中击
// ------------------------------------------------------------------------
Sub 鼠标中击(次数)
For 次数
MiddleClick 1
Delay 100
Next
Delay 100
End Sub
// ------------------------------------------------------------------------
// 按键输入
// ------------------------------------------------------------------------
Sub 按键输入(按键,次数)
For 次数
KeyPress 按键, 1
Delay 50
Next
Delay 150
End Sub
// ------------------------------------------------------------------------
// CtrlAlt鼠标删物品动作
// ------------------------------------------------------------------------
Sub CtrlAlt鼠标删物品动作(物品坐标)
Call 鼠标移动到坐标(物品坐标, 0)
KeyDown "Ctrl", 1
Delay 200
KeyDown "Alt", 1
Delay 200
Call 鼠标左击(2)
KeyUp "Ctrl", 1
Delay 200
KeyUp "Alt", 1
Delay 200
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// NPC
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 判断NPC窗口是否打开
// ------------------------------------------------------------------------
Function 判断NPC窗口是否打开(客户端下标)
判断XY = 区域找图(判断NPC窗口是否打开范围, "高级金刚石.bmp", 0.8, 客户端下标)
If 判断XY(2) > 0 Then
判断NPC窗口是否打开 = 1
Else
判断NPC窗口是否打开 = 0
End If
End Function
// ------------------------------------------------------------------------
// 切换综合仓库
// ------------------------------------------------------------------------
Sub 切换综合仓库(客户端下标)
While 判断综合仓库窗口是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"切换综合仓库失败")
Call 鼠标移动到坐标(切换综合仓库坐标, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
End Sub
// ------------------------------------------------------------------------
// 判断个人仓库窗口是否打开
// ------------------------------------------------------------------------
Function 判断个人仓库窗口是否打开(客户端下标)
判断XY = 区域找图(判断NPC窗口是否打开范围, "热血石.bmp", 0.8, 客户端下标)
If 判断XY(2) > 0 Then
判断个人仓库窗口是否打开 = 1
Else
判断个人仓库窗口是否打开 = 0
End If
End Function
// ------------------------------------------------------------------------
// 判断综合仓库窗口是否打开
// ------------------------------------------------------------------------
Function 判断综合仓库窗口是否打开(客户端下标)
判断XY = 区域找图(判断NPC窗口是否打开范围, "高级寒玉石.bmp", 0.8, 客户端下标)
If 判断XY(2) > 0 Then
判断综合仓库窗口是否打开 = 1
Else
判断综合仓库窗口是否打开 = 0
End If
End Function
// ------------------------------------------------------------------------
// 快速顶置商店窗口
// ------------------------------------------------------------------------
Sub 快速顶置商店窗口(客户端下标)
MoveTo 顶置商店窗口坐标(0) + client偏移量(0) * 客户端下标, 顶置商店窗口坐标(1) + client偏移量(1) * 客户端下标
Delay 100
LeftClick 2
Delay 100
End Sub
// ------------------------------------------------------------------------
// 打开NPC窗口
// ------------------------------------------------------------------------
//类型：仓库,商店
Sub 打开NPC窗口(客户端下标,类型)
Call 鼠标中击(20)
If 类型 = "仓库" Then
While 判断个人仓库窗口是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开个人仓库窗口失败")
Call 鼠标移动到坐标(NPC窗口打开按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
While 判断个人仓库窗口是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,"关闭个人仓库窗口失败")
Call 鼠标移动到坐标(NPC商店关闭按钮, 客户端下标)
Call 鼠标左击(1)
Delay 500
Wend
End If
If 类型 = "商店" Then
While 判断NPC窗口是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开商店窗口失败")
Call 鼠标移动到坐标(NPC窗口打开按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
While 判断NPC窗口是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,"商店窗口关闭失败")
Call 鼠标移动到坐标(NPC商店关闭按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
Call 鼠标移动到坐标(NPC对话结束按钮, 客户端下标)
Call 鼠标左击(1)
End If
Call 鼠标中击(20)
If 类型 = "仓库" Then
While 判断个人仓库窗口是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开个人仓库窗口失败")
Call 鼠标移动到坐标(NPC窗口打开按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
End If
If 类型 = "商店" Then
While 判断NPC窗口是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开商店窗口失败")
Call 鼠标移动到坐标(NPC窗口打开按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
End If
Call 快速顶置装备栏(客户端下标)
End Sub
// ------------------------------------------------------------------------
// 关闭NPC窗口
// ------------------------------------------------------------------------
//类型：综合仓库,商店
Sub 关闭NPC窗口(客户端下标,类型)
If 类型 = "综合仓库" Then
While 判断综合仓库窗口是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,"关闭综合仓库窗口失败")
Call 鼠标移动到坐标(NPC商店关闭按钮, 客户端下标)
Call 鼠标左击(1)
Delay 500
Wend
End If
If 类型 = "商店" Then
While 判断NPC窗口是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,"关闭商店窗口失败")
Call 鼠标移动到坐标(NPC商店关闭按钮, 客户端下标)
Call 鼠标左击(2)
Delay 500
Wend
Call 鼠标移动到坐标(NPC对话结束按钮, 客户端下标)
Call 鼠标左击(5)
End If
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 装备栏
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 装备栏是否打开
// ------------------------------------------------------------------------
Function 装备栏是否打开(客户端下标)
IfColor 装备栏顶置坐标(0)+client偏移量(0)*客户端下标,装备栏顶置坐标(1)+client偏移量(1)*客户端下标,"A449A3",0 Then
装备栏是否打开 = 1
Else
装备栏是否打开 = 0
End If
End Function
// ------------------------------------------------------------------------
// 装备栏是否有空位置
// ------------------------------------------------------------------------
Function 装备栏是否有空位置(客户端下标)
空位置XY = 区域找图(装备栏范围, "空位置.bmp", 0.8, 客户端下标)
装备栏是否有空位置 = 空位置XY(2)
End Function
// ------------------------------------------------------------------------
// 快速顶置装备栏
// ------------------------------------------------------------------------
Sub 快速顶置装备栏(客户端下标)
MoveTo 装备栏顶置坐标(0) + client偏移量(0) * 客户端下标, 装备栏顶置坐标(1) + client偏移量(1) * 客户端下标
Delay 100
LeftClick 1
Delay 100
End Sub
// ------------------------------------------------------------------------
// 打开装备栏
// ------------------------------------------------------------------------
Sub 打开装备栏(客户端下标)
While 装备栏是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开装备栏失败")
Call 鼠标移动到坐标(背包按钮坐标, 客户端下标)
Call 鼠标左击(1)
Delay 500
Wend
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 地图
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 放大地图
// ------------------------------------------------------------------------
Sub 放大地图(客户端下标)
Call 鼠标移动到坐标(放大地图按钮坐标, 客户端下标)
Call 鼠标左击(5)
End Sub
// ------------------------------------------------------------------------
// 打开地图
// ------------------------------------------------------------------------
Sub 打开地图(客户端下标)
While 地图是否打开(客户端下标) = 0
Call 黑名单处理(客户端下标,"打开地图失败")
Call 改变地图状态(客户端下标)
Wend
End Sub
// ------------------------------------------------------------------------
// 关闭地图
// ------------------------------------------------------------------------
Sub 关闭地图(客户端下标)
While 地图是否关闭(客户端下标) = 0
Call 黑名单处理(客户端下标,"关闭地图失败")
Call 改变地图状态(客户端下标)
Wend
End Sub
// ------------------------------------------------------------------------
// 地图是否打开
// ------------------------------------------------------------------------
Function 地图是否打开(客户端下标)
IfColor 判断地图状态坐标(0)+client偏移量(0)*客户端下标,判断地图状态坐标(1)+client偏移量(1)*客户端下标,"EAD999",0 Then
地图是否打开 = 1
Else
地图是否打开 = 0
End If
End Function
// ------------------------------------------------------------------------
// 地图是否关闭
// ------------------------------------------------------------------------
Function 地图是否关闭(客户端下标)
IfColor 判断地图状态坐标(0)+client偏移量(0)*客户端下标,判断地图状态坐标(1)+client偏移量(1)*客户端下标,"BE9270",0 Then
地图是否关闭 = 1
Else
地图是否关闭 = 0
End If
End Function
// ------------------------------------------------------------------------
// 改变地图状态
// ------------------------------------------------------------------------
Sub 改变地图状态(客户端下标)
Call 鼠标移动到坐标(改变地图状态按钮坐标, 客户端下标)
Call 鼠标左击(1)
Delay 500
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 物品处理
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 定义卖物品list带属性
// ------------------------------------------------------------------------
Function 定义卖物品list带属性(客户端下标)
物品list = Array(杂货list)
定义卖物品list带属性 = 物品list
End Function
// ------------------------------------------------------------------------
// 定义卖物品list不带属性
// ------------------------------------------------------------------------
Function 定义卖物品list不带属性(客户端下标)
If 客户端是大号(客户端下标) = 1 Then
物品list = Array(衣服100list,手100list,脚100list,内甲95list,内甲105list)
定义卖物品list不带属性 = 物品list
End If
If 客户端是小号(客户端下标) = 1 Then
End If
End Function
// ------------------------------------------------------------------------
// 存物品
// ------------------------------------------------------------------------
Sub 存物品(客户端下标,物品list)
For i = 0 To UBound(物品list)
Call 快速顶置装备栏(客户端下标)
物品XY = 区域找图(装备栏范围, 物品list(i), 1.0, 客户端下标)
While 物品XY(2) > 0
Call 黑名单处理(客户端下标,"存物品超时")
Call 鼠标移动到坐标(物品XY, 0)
Call 鼠标左击(1)
Call 鼠标移动到坐标(物品存卖点坐标, 客户端下标)
Call 鼠标左击(1)
Call 扔卖存物品输入个数(客户端下标,-36,165)
Call 快速顶置装备栏(客户端下标)
物品XY = 区域找图(装备栏范围, 物品list(i), 1.0, 客户端下标)
Wend
Next
End Sub
// ------------------------------------------------------------------------
// 扔卖东西确认
// ------------------------------------------------------------------------
Sub 扔卖东西确认(客户端下标)
扔物品确认XY = 区域找图(寻找提示范围, "中级奇玉石.bmp", 0.8, 客户端下标)
If 扔物品确认XY(2) > 0 Then
Call 鼠标移动到坐标(扔物品确认XY, 0)
Call 鼠标左击(1)
MoveTo 扔物品确认XY(0) - 24, 扔物品确认XY(1) + 164
Delay 200
Call 鼠标左击(1)
End If
End Sub
// ------------------------------------------------------------------------
// 扔卖存物品输入个数
// ------------------------------------------------------------------------
Sub 扔卖存物品输入个数(客户端下标,x,y)
扔物品输入个数XY = 区域找图(扔物品输入个数范围, "中级奇玉石.bmp", 0.8, 客户端下标)
If 扔物品输入个数XY(2) > 0 Then
Call 鼠标移动到坐标(扔物品输入个数XY, 0)
Call 鼠标左击(1)
MoveTo 扔物品输入个数XY(0) + x, 扔物品输入个数XY(1) + y
Delay 200
Call 按键输入("9", 4)
Call 鼠标左击(1)
End If
End Sub
// ------------------------------------------------------------------------
// 扔物品
// ------------------------------------------------------------------------
Sub 扔物品(物品图片, 客户端下标)
Call 快速顶置装备栏(客户端下标)
扔物品XY = 区域找图(装备栏范围, 物品图片, 1.0, 客户端下标)
If 扔物品XY(2) > 0 Then
Call 鼠标移动到坐标(扔物品XY, 0)
Call 鼠标左击(1)
Call 鼠标移动到坐标(扔物品坐标, 客户端下标)
Call 鼠标右击(1)
Call 扔卖东西确认(客户端下标)
Call 扔卖存物品输入个数(客户端下标,-36,165)
End If
End Sub
// ------------------------------------------------------------------------
// 删物品
// ------------------------------------------------------------------------
Function 删物品(物品图片, 客户端下标)
删物品=0
Call 快速顶置装备栏(客户端下标)
删物品XY = 区域找图(装备栏范围, 物品图片, 1.0, 客户端下标)
If 删物品XY(2) > 0 Then
Call CtrlAlt鼠标删物品动作(删物品XY)
删物品确认XY = 区域找图(删除东西确认范围, 物品图片, 0.6, 客户端下标)
If 删物品确认XY(2) > 0 Then
MoveTo 删物品确认XY(0)-20,删物品确认XY(1)+120
Delay 200
Call 鼠标左击(1)
删物品=1
End If
End If
End Function
// ------------------------------------------------------------------------
// 卖物品
// ------------------------------------------------------------------------
Sub 卖物品(客户端下标)
卖物品list带属性 = 定义卖物品list带属性(客户端下标)
For i = 0 To UBound(卖物品list带属性)
For j = 0 To UBound(卖物品list带属性)
Call 执行卖物品逻辑(客户端下标,卖物品list带属性(i)(j),1)
Next
Next
卖物品list不带属性 = 定义卖物品list不带属性(客户端下标)
For i = 0 To UBound(卖物品list不带属性)
For j = 0 To UBound(卖物品list不带属性)
Call 执行卖物品逻辑(客户端下标,卖物品list不带属性(i)(j),0)
Next
Next
End Sub
// ------------------------------------------------------------------------
// 执行卖物品逻辑
// ------------------------------------------------------------------------
Sub 执行卖物品逻辑(客户端下标, 物品图片, 带属性)
Call 快速顶置装备栏(客户端下标)
物品XY = 区域找图(装备栏范围, 物品图片, 1.0, 客户端下标)
While 物品XY(2) > 0
Call 黑名单处理(客户端下标,"卖物品超时")
Call 鼠标移动到坐标(物品XY, 0)
Call 鼠标左击(1)
Call 鼠标移动到坐标(物品存卖点, 客户端下标)
Call 鼠标左击(1)
If 带属性 = 1 Then
Call 扔卖东西确认(客户端下标)
End If
Call 扔卖存物品输入个数(客户端下标,-44,165)
Call 快速顶置装备栏(客户端下标)
物品XY = 区域找图(装备栏范围, 物品图片, 1.0, 客户端下标)
Wend
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 客户端
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// post请求
// ------------------------------------------------------------------------
Sub post请求(address,data)
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttp.Open "POST", address, False
WinHttp.Send data
WinHttp.Abort
Set WinHttp = Nothing
End Sub
// ------------------------------------------------------------------------
// 客户端位置还原
// ------------------------------------------------------------------------
Sub 客户端位置还原(客户端下标)
Call 切换窗口(客户端下标)
Call 鼠标移动到坐标(client窗口移动坐标, 客户端下标)
LeftDown 1
Delay 200
Call 鼠标移动到坐标(client窗口移动坐标, 0)
LeftUp 1
Delay 200
End Sub
// ------------------------------------------------------------------------
// 客户端移动到
// ------------------------------------------------------------------------
Sub 客户端移动到(客户端下标)
If 客户端下标 > 0 Then
Call 切换窗口(0)
Call 鼠标移动到坐标(client窗口移动坐标, 0)
LeftDown 1
Delay 200
Call 鼠标移动到坐标(client窗口移动坐标, 客户端下标)
LeftUp 1
Delay 200
End If
End Sub
// ------------------------------------------------------------------------
// 切换窗口
// ------------------------------------------------------------------------
Sub 切换窗口(客户端下标)
IfColor client关闭按钮坐标(0)+client偏移量(0)*客户端下标,client关闭按钮坐标(1)+client偏移量(1)*客户端下标,"FFFFFF",2 Then
Call 鼠标移动到坐标(client关闭按钮坐标,客户端下标)
Call 鼠标左击(1)
Else
Call 黑名单处理(客户端下标,"切换窗口失败")
End If
End Sub
// ------------------------------------------------------------------------
// 客户端是医生
// ------------------------------------------------------------------------
Function 客户端是医生(客户端下标)
If 客户端下标 mod 8 = 医生indexList(0) or 客户端下标 mod 8 = 医生indexList(1) Then
客户端是医生 = 1
Else
客户端是医生 = 0
End If
End Function
// ------------------------------------------------------------------------
// 客户端是队长
// ------------------------------------------------------------------------
Function 客户端是队长(客户端下标)
If 客户端下标 mod 8 = 医生indexList(1) Then
客户端是队长 = 1
Else
客户端是队长 = 0
End If
End Function
// ------------------------------------------------------------------------
// 客户端是正派
// ------------------------------------------------------------------------
Function 客户端是正派(客户端下标)
If Fix(客户端下标/8) = 1 Then
客户端是正派 = 1
Else
客户端是正派 = 0
End If
End Function
// ------------------------------------------------------------------------
// 客户端是大号
// ------------------------------------------------------------------------
Function 客户端是大号(客户端下标)
If Form.jiQiType.Text = 2 Then
客户端是大号 = 1
Else
客户端是大号 = 0
End If
End Function
// ------------------------------------------------------------------------
// 客户端是小号
// ------------------------------------------------------------------------
Function 客户端是小号(客户端下标)
If Form.jiQiType.Text = 3 Then
客户端是小号 = 1
Else
客户端是小号 = 0
End If
End Function
// ---------------------------------------------------------------------------------------------------------
//
// 挂机
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 黑名单处理
// ------------------------------------------------------------------------
Sub 黑名单处理(客户端下标,原因)
endTime = GetTickCount()
If endTime - startTime > 7*60*1000 Then
挂机黑名单(客户端下标) = 1
If Form.request.Value = 1 Then
address = baseUrl + "/blacklist/add?jiQiType=" + CStr(Form.jiQiType.Text) + "&&clientIndex=" + CStr(客户端下标)
Call post请求(address,原因)
End If
Call 本次挂机逻辑结束(客户端下标)
End If
End Sub
// ------------------------------------------------------------------------
// 执行挂机逻辑
// ------------------------------------------------------------------------
Sub 执行挂机逻辑(客户端下标)
If 挂机黑名单(客户端下标) = 0 Then
startTime=GetTickCount()
Call 切换窗口(客户端下标)
Call 打开装备栏(客户端下标)
Call 激活珠子(客户端下标)
Call 回补(客户端下标)
Call 整理背包物品(客户端下标)
End If
End Sub
// ------------------------------------------------------------------------
// 整理背包物品
// ------------------------------------------------------------------------
Sub 整理背包物品(客户端下标)
// Call 扔物品("热血石.bmp", 客户端下标)
If 客户端是大号(客户端下标) = 0 Then
If 装备栏是否有空位置(客户端下标) = 0 Then
玉宝盒XY = 区域找图(确认集魂珠已激活范围, "玉宝盒.bmp", 0.8, 客户端下标)
黑宝盒XY = 区域找图(确认集魂珠已激活范围, "黑宝盒.bmp", 0.8, 客户端下标)
冰宝盒XY = 区域找图(确认集魂珠已激活范围, "冰宝盒.bmp", 0.8, 客户端下标)
If 玉宝盒XY(2)+黑宝盒XY(2)+冰宝盒XY(2) > 0 Then
Call 扔物品("下级奇玉石.bmp", 客户端下标)
Call 扔物品("一般金刚石.bmp", 客户端下标)
Call 扔物品("一般寒玉石.bmp", 客户端下标)
Call 扔物品("高级金刚石.bmp", 客户端下标)
Call 扔物品("高级寒玉石.bmp", 客户端下标)
Else
//
Call 删物品("热血石.bmp", 客户端下标)
Call 删物品("下级奇玉石.bmp", 客户端下标)
Call 删物品("一般金刚石.bmp", 客户端下标)
Call 删物品("一般寒玉石.bmp", 客户端下标)
Call 删物品("高级金刚石.bmp", 客户端下标)
Call 删物品("高级寒玉石.bmp", 客户端下标)
End If
End If
End If
End Sub
// ------------------------------------------------------------------------
// 本次挂机逻辑结束
// ------------------------------------------------------------------------
Sub 本次挂机逻辑结束(客户端下标)
If 客户端是队长(客户端下标) = 1 Then
Goto 本次挂机逻辑结束队长
Else
Goto 本次挂机逻辑结束普通
End If
End Sub
// ------------------------------------------------------------------------
// 激活珠子
// ------------------------------------------------------------------------
Sub 激活珠子(客户端下标)
For 20
Call 快速顶置装备栏(客户端下标)
初级集魂珠XY = 区域找图(确认集魂珠已激活范围, "初级珠子激活.bmp", 0.8, 客户端下标)
中级集魂珠XY = 区域找图(确认集魂珠已激活范围, "中级珠子激活.bmp", 0.8, 客户端下标)
高级集魂珠XY = 区域找图(确认集魂珠已激活范围, "高级珠子激活.bmp", 0.8, 客户端下标)
If 初级集魂珠XY(2) + 中级集魂珠XY(2) + 高级集魂珠XY(2) = 0 Then
空珠子XY = 区域找图(装备栏范围, "空珠子.bmp", 0.8, 客户端下标)
If 空珠子XY(2) > 0 Then
Call 鼠标移动到坐标(空珠子XY, 0)
Call 鼠标左击(1)
Call 鼠标移动到坐标(集魂珠激活坐标, 客户端下标)
Call 鼠标左击(1)
End If
Else
Exit For
End If
Next
End Sub
// ------------------------------------------------------------------------
// 开启小助手
// ------------------------------------------------------------------------
Sub 开启小助手(客户端下标)
小助手XY = 区域找图(小助手范围, "小助手.bmp", 0.8, 客户端下标)
If 小助手XY(2) > 0 Then
MoveTo 小助手XY(0) + 144, 小助手XY(1) + 12
Delay 200
Call 鼠标左击(2)
End If
End Sub
// ------------------------------------------------------------------------
// 停止小助手
// ------------------------------------------------------------------------
Sub 停止小助手(客户端下标)
小助手XY = 区域找图(小助手范围, "小助手.bmp", 0.8, 客户端下标)
If 小助手XY(2) > 0 Then
MoveTo 小助手XY(0) + 170, 小助手XY(1) + 12
Delay 200
Call 鼠标左击(2)
End If
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 回补
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 使用小轻功
// ------------------------------------------------------------------------
Sub 使用小轻功(客户端下标)
F4坐标=Array(F1坐标(0)+39*3,F1坐标(1))
Call 鼠标移动到坐标(F4坐标, 客户端下标)
Call 鼠标右击(2)
Delay 1000
Call 鼠标右击(2)
End Sub
// ------------------------------------------------------------------------
// 使用中轻功
// ------------------------------------------------------------------------
Sub 使用中轻功(客户端下标)
F10坐标=Array(F1坐标(0)+39*9,F1坐标(1))
Call 鼠标移动到坐标(F10坐标, 客户端下标)
Call 鼠标右击(2)
Delay 1000
Call 鼠标右击(2)
End Sub
// ------------------------------------------------------------------------
// 回新手地图
// ------------------------------------------------------------------------
Sub 回新手地图(客户端下标)
F6坐标=Array(F1坐标(0)+39*5,F1坐标(1))
Call 鼠标移动到坐标(F6坐标, 客户端下标)
Call 鼠标右击(1)
End Sub
// ------------------------------------------------------------------------
// 回三转地图
// ------------------------------------------------------------------------
Sub 回三转地图(客户端下标)
F3坐标=Array(F1坐标(0)+39*2,F1坐标(1))
Call 鼠标移动到坐标(F3坐标, 客户端下标)
Call 鼠标右击(1)
End Sub
// ------------------------------------------------------------------------
// 使用戒指返回
// ------------------------------------------------------------------------
Sub 使用戒指返回(客户端下标)
F9坐标=Array(F1坐标(0)+39*8,F1坐标(1))
Call 鼠标移动到坐标(F9坐标, 客户端下标)
Call 鼠标右击(2)
Delay 500
Call 鼠标移动到坐标(戒指返回宝石坐标, 客户端下标)
Call 鼠标左击(1)
MoveTo 戒指返回宝石坐标(0)+client偏移量(0)*客户端下标 - 24, 戒指返回宝石坐标(1)+client偏移量(1)*客户端下标 + 164
Delay 200
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 回补
// ------------------------------------------------------------------------
Sub 回补(客户端下标)
情侣戒指XY = 区域找图(装备栏范围, "情侣戒指.bmp", 1.0, 客户端下标)
结婚戒指XY = 区域找图(装备栏范围, "结婚戒指.bmp", 1.0, 客户端下标)
可以回补 = 0
If 客户端是大号(客户端下标) = 1 Then
If 结婚戒指XY(2) = 1 Then
可以回补 = 1
End If
End If
If 可以回补 = 1 Then
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
// 集魂珠
空珠子XY = 区域找图(装备栏范围, "空珠子.bmp", 0.8, 客户端下标)
If 空珠子XY(2) = 0 Then
Call 执行回补(客户端下标,"珠子",0,1)
Call 本次挂机逻辑结束(客户端下标)
End If
// 玫瑰
玫瑰XY = 区域找图(装备栏范围, "红玫瑰.bmp", 0.8, 客户端下标)
If 玫瑰XY(2) = 0 Then
IfColor 831 + client偏移量(0) * 客户端下标, 755 + client偏移量(1) * 客户端下标, "3232CD", 2 Then
Else
Call 执行回补(客户端下标,"玫瑰",0,1)
Call 本次挂机逻辑结束(客户端下标)
End If
End If
// 蓝药
小助手XY = 区域找图(小助手范围, "小助手.bmp", 0.8, 客户端下标)
If 小助手XY(2) > 0 Then
IfColor 小助手XY(0) + 144,小助手XY(1) + 12,"0101FF",2 Then
Else
Call 执行回补(客户端下标,"蓝药",0,1)
Call 本次挂机逻辑结束(客户端下标)
End If
End If
End If
End Sub
// ------------------------------------------------------------------------
// 跑去仓库
// ------------------------------------------------------------------------
Sub 跑去仓库(客户端下标)
If 客户端是正派(客户端下标) = 1 Then
标记物XY = 区域找图(地图范围, "神武门标记物.bmp", 0.8, 客户端下标)
While 标记物XY(2) = 0
Call 黑名单处理(客户端下标,"地图寻找神武门标记物失败")
标记物XY = 区域找图(地图范围, "神武门标记物.bmp", 0.8, 客户端下标)
Wend
MoveTo 标记物XY(0) + 11, 标记物XY(1) - 31
Delay 200
Call 鼠标左击(1)
Delay 9000
Else
标记物XY = 区域找图(地图范围, "柳善府标记物.bmp", 0.8, 客户端下标)
While 标记物XY(2) = 0
Call 黑名单处理(客户端下标,"地图寻找柳善府标记物失败")
标记物XY = 区域找图(地图范围, "柳善府标记物.bmp", 0.8, 客户端下标)
Wend
MoveTo 标记物XY(0) + 54, 标记物XY(1) + 10
Delay 200
Call 鼠标左击(1)
Delay 8000
End If
End Sub
// ------------------------------------------------------------------------
// 跑去八卦
// ------------------------------------------------------------------------
Sub 跑去八卦(客户端下标)
标记物XY = 区域找图(地图范围, "韦大宝和金香玉.bmp", 0.8, 客户端下标)
While 标记物XY(2) = 0
标记物XY = 区域找图(地图范围, "韦大宝和金香玉.bmp", 0.8, 客户端下标)
Wend
MoveTo 标记物XY(0) + 19, 标记物XY(1) + 25
Delay 200
Call 鼠标左击(1)
Delay 5000
End Sub
// ------------------------------------------------------------------------
// 跑去药店
// ------------------------------------------------------------------------
Sub 跑去药店(客户端下标)
If 客户端是正派(客户端下标) = 1 Then
Call 鼠标移动到坐标(Z药店坐标, 客户端下标)
Call 鼠标左击(1)
Delay 8000
Else
Call 鼠标移动到坐标(X药店坐标, 客户端下标)
Call 鼠标左击(1)
Delay 12000
End If
End Sub
// ------------------------------------------------------------------------
// 跑去金香玉
// ------------------------------------------------------------------------
Sub 跑去金香玉(客户端下标)
韦大宝和金香玉XY = 区域找图(地图范围, "韦大宝和金香玉.bmp", 0.8, 客户端下标)
While 韦大宝和金香玉XY(2) = 0
Call 黑名单处理(客户端下标,"地图寻找韦大宝和金香玉失败")
韦大宝和金香玉XY = 区域找图(地图范围, "韦大宝和金香玉.bmp", 0.8, 客户端下标)
Wend
MoveTo 韦大宝和金香玉XY(0)+6, 韦大宝和金香玉XY(1)+22
Delay 200
Call 鼠标左击(1)
Delay 5000
End Sub
// ------------------------------------------------------------------------
// 买空珠子
// ------------------------------------------------------------------------
Sub 买空珠子(客户端下标)
红玫瑰XY = 区域找图(新手珠子商店范围, "红玫瑰.bmp", 0.8, 客户端下标)
空珠子XY = 区域找图(新手珠子商店范围, "空珠子.bmp", 0.8, 客户端下标)
If 红玫瑰XY(2) + 空珠子XY(2) > 0 Then
zhuziGeshu = 10
If 客户端是队长(客户端下标) = 1 Then
zhuziGeshu = 18
End If
For zhuziGeshu
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的珠子坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Next
End If
End Sub
// ------------------------------------------------------------------------
// 买玫瑰
// ------------------------------------------------------------------------
Sub 买玫瑰(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的玫瑰坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标, 客户端下标)
If 客户端是大号(客户端下标) = 1 Then
Call 按键输入("1", 3)
Else
Call 按键输入("5", 2)
End If
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 买蓝药
// ------------------------------------------------------------------------
Sub 买蓝药(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的蓝药坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入("9", 4)
If 客户端是大号(客户端下标) = 1 Then
If 客户端是医生(客户端下标) = 1 Then
Call 按键输入("BackSpace", 2)
Call 按键输入("0", 2)
End If
End If
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 买新手回城符
// ------------------------------------------------------------------------
Sub 买新手回城符(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的新手回城符坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入("2", 1)
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 买三转回城符
// ------------------------------------------------------------------------
Sub 买三转回城符(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的三转回城符坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入("2", 1)
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 买小助手
// ------------------------------------------------------------------------
Sub 买小助手(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的小助手坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
End Sub
// ------------------------------------------------------------------------
// 买小助手爱情
// ------------------------------------------------------------------------
Sub 买小助手爱情(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的小助手爱情坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
End Sub
// ------------------------------------------------------------------------
// 买小助手过滤
// ------------------------------------------------------------------------
Sub 买小助手过滤(客户端下标)
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的小助手过滤坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
End Sub
// ------------------------------------------------------------------------
// 执行回补
// ------------------------------------------------------------------------
// 类型：蓝药，玫瑰，珠子，小助手
Sub 执行回补(客户端下标, 类型, 新手回城符,回补后挂机)
If 类型 <> "小助手" Then
Call 停止小助手(客户端下标)
End If
Call 关闭地图(客户端下标)
For 2
If 类型 = "珠子" or 类型 = "小助手" Then
Call 回新手地图(客户端下标)
Else
Call 回三转地图(客户端下标)
End If
Call 打开地图(客户端下标)
Next
Call 放大地图(客户端下标)
Call 使用小轻功(客户端下标)
Call 使用中轻功(客户端下标)
If 类型 = "珠子" Then
Call 跑去金香玉(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
Call 卖物品(客户端下标)
Call 买空珠子(客户端下标)
Call 关闭NPC窗口(客户端下标,"商店")
Call 执行回补(客户端下标, "蓝药", 1,1)
ElseIf 类型 = "小助手" Then
Call 跑去八卦(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
Call 卖物品(客户端下标)
For 10
删物品结果1 = 删物品("已过期小助手.bmp", 客户端下标)
删物品结果2 = 删物品("已激活小助手.bmp", 客户端下标)
If 删物品结果1 + 删物品结果2 > 0 Then
Exit For
End If
Next
Call 买小助手(客户端下标)
Call 买小助手爱情(客户端下标)
If 客户端是医生(客户端下标) = 0 Then
Call 买小助手过滤(客户端下标)
End If
Call 关闭NPC窗口(客户端下标,"商店")
Call 执行回补(客户端下标, "蓝药", 1,0)
Else
Call 跑去仓库(客户端下标)
Call 打开NPC窗口(客户端下标, "仓库")
Call 存物品(客户端下标, 存个人仓库物品list)
Call 切换综合仓库(客户端下标)
Call 存物品(客户端下标, 存综合仓库物品list)
Call 关闭NPC窗口(客户端下标, "综合仓库")
Call 跑去药店(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
If 新手回城符 = 1 Then
Call 买新手回城符(客户端下标)
Else
Call 卖物品(客户端下标)
End If
If 类型 = "玫瑰" Then
Call 买玫瑰(客户端下标)
End If
Call 买三转回城符(客户端下标)
Call 买蓝药(客户端下标)
Call 使用戒指返回(客户端下标)
If 回补后挂机 = 1 Then
While 装备栏是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,"使用戒指返回后等待装备栏关闭超时")
Delay 500
Wend
Call 开启小助手(客户端下标)
End If
End If
End Sub
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 挂机
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
If Form.MainTabControl.Tab = 0 Then
Delay 3000
窗口最后index = Form.guaJiClientEnd.Text - 1
窗口排除 = Form.guaJiClientExclude.Text
Dim 挂机黑名单(55)
For i = 0 To 54
挂机黑名单(i) = 0
Next
If Len(窗口排除) > 0 Then
splitArr1 = split(窗口排除, ",")
For i = 0 To UBound(splitArr1)
splitStr1 = splitArr1(i)
If Instr(splitStr1, "-") > 0 Then
splitArr2 = split(splitStr1, "-")
For j = splitArr2(0) To splitArr2(1)
挂机黑名单(j-1)=1
Next
Else
挂机黑名单(splitStr1-1)=1
End If
Next
End If
While true
For i = 窗口最后index To 0 step -1
If 客户端是队长(i) = 1 Then
tempI = 医生indexList(1)
While tempI <= 窗口最后index
Call 执行挂机逻辑(tempI)
Rem 本次挂机逻辑结束队长
tempI=tempI+8
Wend
Else
Call 执行挂机逻辑(i)
Rem 本次挂机逻辑结束普通
End If
Next
Wend
End If
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 移动窗口
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
If Form.MainTabControl.Tab = 1 Then
Delay 1500
moveClientText = Form.moveClient.Text
If Instr(moveClientText, "-") > 0 Then
// 范围模式
moveClientArr = split(moveClientText, "-")
If Form.clientHuanYuan.Value = 1 Then
For i = moveClientArr(0) To moveClientArr(1)
Call 客户端位置还原(i-1)
Next
End If
If Form.clientMove.Value = 1 Then
For i = moveClientArr(1) To moveClientArr(0) step -1
Call 客户端移动到(i-1)
Next
End If
Else
// 单个模式
If Form.clientHuanYuan.Value = 1 Then
Call 客户端位置还原(moveClientText - 1)
End If
If Form.clientMove.Value = 1 Then
Call 客户端移动到(moveClientText - 1)
End If
End If
End If
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 登录
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
If Form.MainTabControl.Tab = 2 Then
客户端下标 = Form.dengLuClient.Text - 1
二XY = 区域找图(二级密码范围, "二.bmp", 0.8, 客户端下标)
While 二XY(2) = 0
二XY = 区域找图(二级密码范围, "二.bmp", 0.8, 客户端下标)
Wend
三XY = 区域找图(二级密码范围, "三.bmp", 0.8, 客户端下标)
While 三XY(2) = 0
三XY = 区域找图(二级密码范围, "三.bmp", 0.8, 客户端下标)
Wend
五XY = 区域找图(二级密码范围, "五.bmp", 0.8, 客户端下标)
While 五XY(2) = 0
五XY = 区域找图(二级密码范围, "五.bmp", 0.8, 客户端下标)
Wend
七XY = 区域找图(二级密码范围, "七.bmp", 0.8, 客户端下标)
While 七XY(2) = 0
七XY = 区域找图(二级密码范围, "七.bmp", 0.8, 客户端下标)
Wend
八XY = 区域找图(二级密码范围, "八.bmp", 0.8, 客户端下标)
While 八XY(2) = 0
八XY = 区域找图(二级密码范围, "八.bmp", 0.8, 客户端下标)
Wend
九XY = 区域找图(二级密码范围, "九.bmp", 0.8, 客户端下标)
While 二XY(2) = 0
九XY = 区域找图(二级密码范围, "九.bmp", 0.8, 客户端下标)
Wend
Call 鼠标移动到坐标(二XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(三XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(五XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(七XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(八XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(九XY, 客户端下标)
鼠标左击 (1)
Call 鼠标移动到坐标(二级密码确认坐标, 客户端下标)
鼠标左击(1)
End If
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 小助手
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
If Form.MainTabControl.Tab = 3 Then
xiaoZhuShouClientText = Form.xiaoZhuShouClient.Text
If Instr(xiaoZhuShouClientText, "-") > 0 Then
xiaoZhuShouClientArr = split(xiaoZhuShouClientText, "-")
For i = xiaoZhuShouClientArr(0) To xiaoZhuShouClientArr(1)
客户端下标 = i - 1
Call 执行回补(客户端下标,"小助手",1,0)
Next
End If
End If
浙公网安备 33010602011771号