//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
UserVar 联系作者方式=DropList{"QQ：410561049":0|"查看版本号":1} = 0 "联系作者方式"
UserVar 注册码="请输入注册码[请勿更改]" "请输入注册码[请勿更改]"
UserVar 网络速度_拍=DropList{"网络速度[快速]":0|"网络速度[中速]":1|"网络速度[慢速]":2}=0 "请选择您的网络速度"
UserVar 自动收取邮件_拍=DropList{"自动收取邮件":0|"无需自动收取":1}=0 "是否自动收取邮件"
UserVar 收件截图_拍=DropList{"收取邮件后截图存盘[D:盘]":0|"不用截图":1}=0 "收取邮件是否截图"
UserVar 上架拍卖行_拍=DropList{"自动上架拍卖品":0|"不用上架拍卖品":1} = 0 "是否要上架拍卖品"
UserVar 上架的种类_拍=DropList{"只上架材料栏物品":0|"上架所有种类的物品":1}=0 "请选择要上架的种类"
UserVar 先后顺序_拍=DropList{"先收邮件和上架后再秒拍卖行":0|"先秒拍卖行后再收邮件和上架":1}=0 "请选择先后顺序"
UserVar 选择功能_拍=DropList{"单开秒拍卖行(可以兼职摆摊)":0|"双开一秒一防掉":1|"双开一秒一防掉+上架拍卖品收邮件":2|"双开只防掉":3|"单开只防掉":4}=0 "请选择您要的功能"
UserVar 输入法设置方式=DropList{"自动设置输入法短语":0|"手动设置输入短语":1} = 0 "请选择输入法设置方式[请勿更改]"
UserVar 识别功能_拍=DropList{"开启识别功能[准确率提高]":0|"关闭识别功能[速度上升]":1}=0 "请选择是否开启识别功能"
UserVar 屏幕显示_拍=DropList{"秒拍屏幕显示[挂机不建议使用]":0|"不用显示[速度上升]":1}=0 "请选择是否显示屏幕提示"
UserVar 记录行情_拍=DropList{"记录拍卖行行情[D:盘]":0|"不用记录拍卖行行情":1}=0 "请选择是否记录拍卖行行情"
UserVar 秒拍截图_拍=DropList{"秒拍成功后截图存盘[D:盘]":0|"不用截图":1}=0 "请选择秒拍成功后是否截图"
UserVar 防掉线_拍=DropList{"10分钟":10|"15分钟":15|"5分钟":5}=0 "请选择多少分钟进行一次防掉线处理"
/
/UserVar 处理方式_拍=DropList{"音乐提醒":0|"全部下线":1|"关闭电脑":2|"停止辅助":3}=0 "出错的处理方式"
Dim o, L, T, R, B, a, w, d, s, c, u, i
Dim X_拍, Y_拍, X_竞, Y_竞, X_输, Y_输, 单价_拍, 总价_拍, 数量_拍, 名, 搜, 键, 拍，实际竞拍金额
Dimenv 环境变量名_记录_行情, 环境变量名_记录_拍, 环境变量名_记录_竞, 组合数组_竞拍, 屏幕显示样式_竞拍, ScreenH, 屏幕间距_竞拍, 显示名称_竞拍, 显示总价_竞拍, 显示数量_竞拍, 显示单价_竞拍, 显示标价_竞拍, 竞拍金额_竞, 竞拍, 轮_竞拍, 种_竞拍, 笔_竞拍, 秒拍_截图, 收件_截图, 使用次数01, 使用次数02
地下城与勇士怎么双开Dim wpsl(10)
Dim wpdj(10)
Dim sjsl(10)
Dim 搜索名(500)
Dim 一口价(500)
Dim 竞拍价(500)
Dim 竞拍数量(500)
Dim 上架一口价(500)
Dim 上架竞拍价(500)
Dim 上架的数量(500)
版本号 = "DNF秒拍卖行永久版F2.4-GRBNNA01 --- 请把版本号记下和作者联系。"
If 联系作者方式 = 1 Then
MessageBox 版本号
EndScript
End If
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Sub 记录_拍
Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(拍)" & Date & ".txt", 环境变量名_记录_拍)
End Sub
Sub 记录_行情
Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(行情)" & Date & ".txt", 环境变量名_记录_行情)
End Sub
Sub 移动窗口_拍
ScreenW = Plugin.Sys.GetScRX()
//Msgbox "获得屏幕分辨率宽度：" & ScreenW
ScreenH = Plugin.Sys.GetScRY()
//Msgbox "获得屏幕分辨率高度：" & ScreenH
Dev = Plugin.Sys.GetScDep()
//Msgbox "获得屏幕深度(颜质量)：" & Dev
Path = Plugin.Sys.GetDir(0)
//Msgbox "获得路径：" & Path
xitong = Plugin.Sys.GetOSType()
//MessageBox "您的操作系统版本是：" & xitong
If 选择功能_拍 = 0 Then
Call 单开
Call 单开出错
ElseIf 选择功能_拍 = 1 Then
MsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。",vbInformation,"注意：你选择的是“一秒一摆功能”"
Call 双开
Call 双开出错
ElseIf 选择功能_拍 = 2 Then
MsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。",vbInformation,"注意：你选择的是“一秒一摆+上架拍卖行收邮件功能”"
Call 双开
Call 双开出错
ElseIf 选择功能_拍 = 3 Then
Call 双开
Call 双开出错
Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍 = Now
i = 0
While i=0
Call 双开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍 Then
Hwnd = Hwnd_1P
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_2P
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍 = Now
End If
Delay yanshi_10000
Wend
ElseIf 选择功能_拍 = 4 Then
Call 单开
Call 单开出错
Call 得到边框大小
Call 防掉线处理_拍
防掉线时间_拍 = Now
i = 0
While i=0
Call 单开掉线警报
If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍 Then
防掉线时间_拍 = Now
Call 防掉线处理_拍
End If
Delay yanshi_10000
Wend
End If
End Sub
Sub 单开
Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
Call Plugin.Window.Active(Hwnd)
Delay 100
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
组合数组_竞拍 = join(MyArray, ",")
End Sub
Sub 双开
HwndEx = Plugin.Window.Search("地下城与勇士")
MyArray2 = Split(HwndEx, "|")
Hwnd_1P = Clng(MyArray2(0)): Hwnd_2P = Clng(MyArray2(1))
发布评论