// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// 变量
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
// ---------------------------------------------------------------------------------------------------------
//
// 系统变量
//
// ---------------------------------------------------------------------------------------------------------
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Dim 挂机黑名单(55)
Dim 已拍照名单(55)
For i = 0 To 54
挂机黑名单(i) = 0
已拍照名单(i) = 1
Next
需要重置已拍照名单 = 0
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// 逻辑方法
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
// ---------------------------------------------------------------------------------------------------------
//
// 挂机
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 黑名单处理
// ------------------------------------------------------------------------
Sub 黑名单处理(客户端下标,直接拉黑,原因)
endTime = GetTickCount()
拉黑 = 直接拉黑
If endTime - startTime > 7*60*1000 Then
拉黑 = 1
End If
If 拉黑 = 1 Then
挂机黑名单(客户端下标) = 1
If Form.request.Value = 1 Then
address = baseUrl + "/guaji/blacklist?jiQiType=" + CStr(Form.jiQiType.Text) + "&&clientIndex=" + CStr(客户端下标)
Call post请求(address,原因)
End If
Call 本次挂机逻辑结束(客户端下标)
End If
End Sub
// ------------------------------------------------------------------------
// 去购买小助手
// ------------------------------------------------------------------------
Sub 去购买小助手(客户端下标)
startTime=GetTickCount()
Call 切换窗口(客户端下标)
If 该角色需要插旗(客户端下标) = 1 and 装备栏是否有旗子(客户端下标) = 0 Then
Call 执行回补(客户端下标,"小助手旗子",-1,-1,-1)
Else
Call 执行回补(客户端下标,"小助手",2,1,-1)
End If
End Sub
// ------------------------------------------------------------------------
// 执行挂机逻辑
// ------------------------------------------------------------------------
Sub 执行挂机逻辑(客户端下标)
If 挂机黑名单(客户端下标) = 0 Then
startTime = GetTickCount()
If Form.guaJiPaiZhao.Value = 1 Then
nowTime=Plugin.Sys.GetDateTime()
nowTimeH = split(split(nowTime, " ")(1), ":")(0)
If nowTimeH = "03" or nowTimeH = "15" Then
需要重置已拍照名单 = 1
End If
If nowTimeH = "04" or nowTimeH = "16" Then
If 需要重置已拍照名单 = 1 Then
For i = 0 To 54
已拍照名单(i) = 0
Next
需要重置已拍照名单 = 0
End If
End If
End If
Call 切换窗口(客户端下标)
Call 打开装备栏(客户端下标)
Call 激活珠子(客户端下标)
Call 回补(客户端下标)
Call 整理背包物品(客户端下标)
End If
End Sub
// ------------------------------------------------------------------------
// 拍照
// ------------------------------------------------------------------------
Sub 拍照(客户端下标)
Delay 300
MoveTo 9,1071
For 100
Delay 50
LeftClick 1
Next
Delay 300
If Form.request.Value = 1 Then
address = baseUrl + "/pic/deleteCapture?jiQiType=" + CStr(Form.jiQiType.Text)
原因=""
Call post请求(address,原因)
End If
End Sub
// ------------------------------------------------------------------------
// 整理背包物品
// ------------------------------------------------------------------------
Sub 整理背包物品(客户端下标)
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
Call 扔物品("热血石.bmp", 客户端下标)
// 商店号
If Form.jiQiType.Text = 2 and 客户端下标 = 40 Then
Call 扔物品("一般金刚石.bmp", 客户端下标)
Call 扔物品("一般寒玉石.bmp", 客户端下标)
Call 扔物品("高级金刚石.bmp", 客户端下标)
Call 扔物品("高级寒玉石.bmp", 客户端下标)
Call 扔物品("强化石.bmp", 客户端下标)
Else
If 装备栏是否有空位置(客户端下标) = 0 Then
玉宝盒XY = 区域找图(装备栏范围, "玉宝盒.bmp", 0.8, 客户端下标)
黑宝盒XY = 区域找图(装备栏范围, "黑宝盒.bmp", 0.8, 客户端下标)
冰宝盒XY = 区域找图(装备栏范围, "冰宝盒.bmp", 0.8, 客户端下标)
If 玉宝盒XY(2)+黑宝盒XY(2)+冰宝盒XY(2) > 10 Then
Call 扔物品("下级奇玉石.bmp", 客户端下标)
Call 扔物品("一般金刚石.bmp", 客户端下标)
Call 扔物品("一般寒玉石.bmp", 客户端下标)
Call 扔物品("高级金刚石.bmp", 客户端下标)
Call 扔物品("高级寒玉石.bmp", 客户端下标)
Else
Call 删物品("下级奇玉石.bmp", 客户端下标)
Call 删物品("一般金刚石.bmp", 客户端下标)
Call 删物品("一般寒玉石.bmp", 客户端下标)
Call 删物品("高级金刚石.bmp", 客户端下标)
Call 删物品("高级寒玉石.bmp", 客户端下标)
End If
End If
End If
End Sub
// ------------------------------------------------------------------------
// 本次挂机逻辑结束
// ------------------------------------------------------------------------
Sub 本次挂机逻辑结束(客户端下标)
If 客户端是队长(客户端下标) = 1 Then
Goto 本次挂机逻辑结束队长
E lse
Goto 本次挂机逻辑结束普通
End If
End Sub
// ------------------------------------------------------------------------
// 重新开始挂机
// ------------------------------------------------------------------------
Sub 重新开始挂机(客户端下标)
Call 开启小助手(客户端下标)
If 该角色需要插旗(客户端下标) = 1 Then
Call 插旗(客户端下标)
End If
End Sub
// ---------------------------------------------------------------------------------------------------------
//
// 回补
//
// ---------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------
// 回补
// ------------------------------------------------------------------------
Sub 回补(客户端下标)
情侣index = 获取当前客户端情侣(客户端下标)
If 挂机黑名单(情侣index) = 0 Then
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
情侣戒指XY = 区域找图(装备栏范围, "情侣戒指.bmp", 1.0, 客户端下标)
结婚戒指XY = 区域找图(装备栏范围, "结婚戒指.bmp", 1.0, 客户端下标)
可以回补 = 0
If 结婚戒指XY(2) + 情侣戒指XY(2) > 0 Then
可以回补 = 1
End If
If 可以回补 = 1 Then
// 集魂珠
可以珠子回补 = 1
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
空珠子XY = 区域找图(装备栏范围, "空珠子.bmp", 0.8, 客户端下标)
For 10
If 空珠子XY(2) = 0 Then
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
空珠子XY = 区域找图(装备栏范围, "空珠子.bmp", 0.8, 客户端下标)
Else
可以珠子回补 = 0
Exit For
End If
Next
If 可以珠子回补 = 1 Then
If 该角色需要插旗(客户端下标) = 1 and 装备栏是否有旗子(客户端下标) = 0 Then
Call 执行回补(客户端下标,"珠子旗子",-1,-1,-1)
Else
Call 执行回补(客户端下标,"珠子",2,1,-1)
End If
Call 本次挂机逻辑结束(客户端下标)
End If
// 玫瑰
可以玫瑰回补 = 1
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
玫瑰XY = 区域找图(装备栏范围, "红玫瑰.bmp", 0.8, 客户端下标)
For 10
If 玫瑰XY(2) = 0 Then
Call 打开装备栏(客户端下标)
Call 快速顶置装备栏(客户端下标)
玫瑰XY = 区域找图(装备栏范围, "红玫瑰.bmp", 0.8, 客户端下标)
Else
可以玫瑰回补 = 0
Exit For
End If
Next
If 可以玫瑰回补 = 1 Then
IfColor 831 + client偏移量(0) * 客户端下标, 755 + client偏移量(1) * 客户端下标, "3232CD", 2 Then
Else
If 该角色需要插旗(客户端下标) = 1 and 装备栏是否有旗子(客户端下标) = 0 Then
Call 执行回补(客户端下标,"玫瑰旗子",-1,-1,-1)
Else
Call 执行回补(客户端下标,"玫瑰",0,1,1)
End If
Call 本次挂机逻辑结束(客户端下标)
End If
End If
// 拍照
If Form.guaJiPaiZhao.Value = 1 Then
If 已拍照名单(客户端下标) = 0 Then
If 该角色需要插旗(客户端下标) = 1 and 装备栏是否有旗子(客户端下标) = 0 Then
Call 执行回补(客户端下标,"拍照旗子",-1,-1,-1)
Else
Call 执行回补(客户端下标,"拍照",2,1,1)
End If
已拍照名单(客户端下标) = 1
Call 本次挂机逻辑结束(客户端下标)
End If
End If
// 蓝药
小助手XY = 区域找图(小助手范围, "小助手.bmp", 0.8, 客户端下标)
While 小助手XY(2) = 0
Call 黑名单处理(客户端下标, 0, "寻找左侧小助手失败")
小助手XY = 区域找图(小助手范围, "小助手.bmp", 0.8, 客户端下标)
Wend
IfColor 小助手XY(0) + 143,小助手XY(1) + 8,"0101FF",2 Then
Else
If 该角色需要插旗(客户端下标) = 1 and 装备栏是否有旗子(客户端下标) = 0 Then
Call 执行回补(客户端下标,"蓝药旗子",-1,-1,-1)
Else
Call 执行回补(客户端下标,"蓝药",-1,1,1)
End If
Call 本次挂机逻辑结束(客户端下标)
End If
End If
End If
End Sub
// ------------------------------------------------------------------------
// 从三转村回城点跑去仓库
// ------------------------------------------------------------------------
Sub 从三转村回城点跑去仓库(客户端下标)
If 客户端是正派(客户端下标) = 1 Then
标记物XY = 区域找图(地图范围, "神武门标记物.bmp", 0.8, 客户端下标)
While 标记物XY(2) = 0
Call 黑名单处理(客户端下标,0,"地图寻找神武门标记物失败")
标记物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 黑名单处理(客户端下标,0,"地图寻找柳善府标记物失败")
标记物XY = 区域找图(地图范围, "柳善府标记物.bmp", 0.8, 客户端下标)
Wend
MoveTo 标记物XY(0) + 54, 标记物XY(1) + 10
Delay 200
Call 鼠标左击(1)
Delay 8000
End If
End Sub
// ------------------------------------------------------------------------
// 从三转村仓库跑去药店
// ------------------------------------------------------------------------
Sub 从三转村仓库跑去药店(客户端下标)
If 客户端是正派(客户端下标) = 1 Then
Call 鼠标移动到坐标(Z药店坐标, 客户端下标)
Call 鼠标左击(1)
Delay 8000
Else
Call 鼠标移动到坐标(X药店坐标, 客户端下标)
Call 鼠标左击(1)
Delay 12000
End If
End Sub
// ------------------------------------------------------------------------
// 买空珠子
// ------------------------------------------------------------------------
Sub 买空珠子(客户端下标)
zhuziGeshu = 10
If 客户端是队长(客户端下标) = 1 Then
zhuziGeshu = 18
End If
For zhuziGeshu
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(买的珠子坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Next
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 鼠标移动到坐标(买东西输入个数确认坐标, 客户端下标)
If 客户端是大号(客户端下标) = 1 Then
Call 按键输入("5", 1)
Else
Call 按键输入("8", 1)
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", 3)
Call 按键输入("0", 3)
End If
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", 3)
Call 按键输入("0", 3)
End If
End If
Call 鼠标左击(2)
End Sub
// ------------------------------------------------------------------------
// 在三转村买新手回城符
// ------------------------------------------------------------------------
Sub 在三转村买新手回城符(客户端下标,数量)
If 数量 > 0 Then
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(在三转村买的新手回城符坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入(CStr(数量), 1)
Call 鼠标左击(2)
End If
End Sub
// ------------------------------------------------------------------------
// 在新手村买新手回城符
// ------------------------------------------------------------------------
Sub 在新手村买新手回城符(客户端下标,数量)
If 数量 > 0 Then
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(在新手村买的新手回城符坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入(CStr(数量), 1)
Call 鼠标左击(2)
End If
End Sub
// ------------------------------------------------------------------------
// 在三转村买三转回城符
// ------------------------------------------------------------------------
Sub 在三转村买三转回城符(客户端下标,数量)
If 数量 > 0 Then
Call 快速顶置商店窗口(客户端下标)
Call 鼠标移动到坐标(在三转村买的三转回城符坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(装备栏最后一格坐标, 客户端下标)
Call 鼠标左击(1)
Call 鼠标移动到坐标(买东西输入个数确认坐标,客户端下标)
Call 按键输入(CStr(数量), 1)
Call 鼠标左击(2)
End If
End Sub
// ------------------------------------------------------------------------
// 从新手村回城点跑去八卦买旗子
// ------------------------------------------------------------------------
Sub 从新手村回城点跑去八卦买旗子(客户端下标)
Call 从新手村回城点跑去八卦(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
Call 卖物品(客户端下标)
Call 买旗子(客户端下标)
Call 关闭NPC窗口(客户端下标,"商店")
End Sub
// ------------------------------------------------------------------------
// 执行回补
// ------------------------------------------------------------------------
// 类型：蓝药，蓝药旗子，玫瑰，玫瑰旗子，珠子，珠子旗子，小助手，小助手旗子，拍照，拍照旗子 5x2
Sub 执行回补(客户端下标, 类型, 新手回城符数量, 是否卖东西, 是否回补后挂机)
Call 关闭地图(客户端下标)
If 类型 <> "小助手" or 类型 <> "小助手旗子" Then
Call 停止小助手(客户端下标)
End If
For 2
If 类型 = "蓝药" or 类型 = "玫瑰" Then
Call 回三转地图(客户端下标)
Else
Call 回新手地图(客户端下标)
End If
Call 打开地图(客户端下标)
Next
Call 关闭地图(客户端下标)
Call 打开地图(客户端下标)
Call 使用小轻功(客户端下标)
Call 使用中轻功(客户端下标)
If 类型 = "珠子" Then
Call 从新手村回城点跑去金香玉(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
If 是否卖东西 = 1 Then
Call 卖物品(客户端下标)
End If
红玫瑰XY = 区域找图(新手珠子商店范围, "红玫瑰.bmp", 0.8, 客户端下标)
空珠子XY = 区域找图(新手珠子商店范围, "空珠子.bmp", 0.8, 客户端下标)
If 红玫瑰XY(2) + 空珠子XY(2) > 0 Then
Call 买空珠子(客户端下标)
Call 在新手村买玫瑰(客户端下标)
End If
Call 关闭NPC窗口(客户端下标,"商店")
Call 执行回补(客户端下标, "蓝药", 新手回城符数量, 0,1)
ElseIf 类型 = "珠子旗子" Then
Call 从新手村回城点跑去八卦买旗子(客户端下标)
Call 执行回补(客户端下标, "珠子", 4, 0,1)
ElseIf 类型 = "拍照" Then
Call 从新手村回城点跑去拍照地点(客户端下标)
GetCursorPos mx,my
Call 拍照(客户端下标)
MoveTo mx + 4, my
Delay 200
Call 鼠标左击(1)
Delay 3500
Call 打开NPC窗口(客户端下标, "商店")
If 是否卖东西 = 1 Then
Call 卖物品(客户端下标)
End If
Call 在新手村买新手回城符(客户端下标,新手回城符数量)
Call 在新手村买蓝药(客户端下标)
Call 使用戒指返回(客户端下标)
While 装备栏是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,0,"使用戒指返回后等待装备栏关闭超时")
Delay 500
Wend
Call 重新开始挂机(客户端下标)
ElseIf 类型 = "拍照旗子" Then
Call 从新手村回城点跑去八卦买旗子(客户端下标)
Call 执行回补(客户端下标, "拍照", 4, 0,1)
ElseIf 类型 = "小助手" Then
Call 从新手村回城点跑去八卦(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
If 是否卖东西 = 1 Then
Call 卖物品(客户端下标)
End If
删物品结果1 = 0
删物品结果2 = 0
For 20
If 删物品("已过期小助手.bmp", 客户端下标) = 1 Then
删物品结果1 = 1
End If
If 删物品("已激活小助手.bmp", 客户端下标) = 1 Then
删物品结果2 = 1
End If
If 删物品结果1 + 删物品结果2 > 0 Then
Exit For
End If
Next
Call 买小助手(客户端下标)
Call 激活小助手(客户端下标)
Call 买小助手爱情(客户端下标)
Call 使用小助手爱情(客户端下标)
If 客户端是医生(客户端下标) = 0 Then
Call 买小助手过滤(客户端下标)
Call 使用小助手过滤(客户端下标)
End If
Call 打开小助手(客户端下标)
Call 关闭NPC窗口(客户端下标,"商店")
Call 执行回补(客户端下标, "蓝药", 新手回城符数量, 0,0)
ElseIf 类型 = "小助手旗子" Then
Call 从新手村回城点跑去八卦买旗子(客户端下标)
Call 执行回补(客户端下标, "小助手", 4, 0,-1)
ElseIf 类型 = "蓝药旗子" Then
Call 从新手村回城点跑去八卦买旗子(客户端下标)
Call 执行回补(客户端下标, "蓝药", 2, 0,1)
ElseIf 类型 = "玫瑰旗子" Then
Call 从新手村回城点跑去八卦买旗子(客户端下标)
Call 执行回补(客户端下标, "玫瑰", 2, 0,1)
// 蓝药、玫瑰
Else
Call 从三转村回城点跑去仓库(客户端下标)
Call 打开NPC窗口(客户端下标, "仓库")
存物品结果 = 存物品(客户端下标, 存个人仓库物品list)
nowTime=Plugin.Sys.GetDateTime()
nowTimeH = split(split(nowTime, " ")(1), ":")(0) + 0
If nowTimeH < 12 Then
If 存物品结果 > 0 Then
Call 个人仓库截图(客户端下标)
Call 下级魂截图(客户端下标)
End If
End If
Call 切换综合仓库(客户端下标)
存物品结果 = 存物品(客户端下标, 存综合仓库物品list)
If nowTimeH < 12 Then
If 存物品结果 > 0 Then
Call 综合仓库截图(客户端下标)
End If
Call 装备栏截图(客户端下标)
End If
Call 关闭NPC窗口(客户端下标, "综合仓库")
Call 从三转村仓库跑去药店(客户端下标)
Call 打开NPC窗口(客户端下标, "商店")
If 新手回城符数量 > 0 Then
Call 在三转村买新手回城符(客户端下标,新手回城符数量)
End If
If 是否卖东西 = 1 Then
Call 卖物品(客户端下标)
End If
Call 在三转村买三转回城符(客户端下标,2)
If 类型 = "玫瑰" Then
Call 在三转村买玫瑰(客户端下标)
End If
Call 在三转村买蓝药(客户端下标)
Call 使用戒指返回(客户端下标)
While 装备栏是否打开(客户端下标) = 1
Call 黑名单处理(客户端下标,0,"使用戒指返回后等待装备栏关闭超时")
Delay 500
Wend
If 是否回补后挂机 = 1 Then
Call 重新开始挂机(客户端下标)
End If
End If
End Sub
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 挂机
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
If Form.MainTabControl.Tab = 0 Then
Delay 3000
窗口最后index = Form.guaJiClientEnd.Text - 1
窗口排除 = Form.guaJiClientExclude.Text
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
If Form.guaJiPaiZhao.Value = 1 Then
If Form.guaJiQiDongPaiZhao.Value = 1 Then
For i = 0 To 54
已拍照名单(i) = 0
Next
End If
End If
While true
For clientI = 窗口最后index To 0 step -1
If 客户端是队长(clientI) = 1 Then
tempI = 医生indexList(1)
While tempI <= 窗口最后index
Call 执行挂机逻辑(tempI)
Rem 本次挂机逻辑结束队长
tempI=tempI+8
Wend
Else
Call 执行挂机逻辑(clientI)
Rem 本次挂机逻辑结束普通
End If
Next
Wend
End If
// --------------------------------------------------------------------------------------------------------------------------------------------
//
//
// Tab 小助手
//
//
// --------------------------------------------------------------------------------------------------------------------------------------------
If Form.MainTabControl.Tab = 3 Then
Delay 1500
xiaoZhuShouClientText = Form.xiaoZhuShouClient.Text
If Instr(xiaoZhuShouClientText, "-") > 0 Then
// 范围模式
xiaoZhuShouClientArr = split(xiaoZhuShouClientText, "-")
For clientI = xiaoZhuShouClientArr(0) To xiaoZhuShouClientArr(1)
Call 去购买小助手(clientI - 1)
Next
Else
// 单个模式
Call 去购买小助手(xiaoZhuShouClientText - 1)
End If
End If
浙公网安备 33010602011771号