//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓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, iDim X_拍, Y_拍, X_竞, Y_竞, X_输, Y_输, 单价_拍, 总价_拍, 数量_拍, 名, 搜, 键, 拍，实际竞拍金额Dimenv 环境变量名_记录_行情, 环境变量名_记录_拍, 环境变量名_记录_竞, 组合数组_竞拍, 屏幕显示样式_竞拍, ScreenH, 屏幕间距_竞拍, 显示名称_竞拍, 显示总价_竞拍, 显示数量_竞拍, 显示单价_竞拍, 显示标价_竞拍, 竞拍金额_竞, 竞拍, 轮_竞拍, 种_竞拍, 笔_竞拍, 秒拍_截图, 收件_截图, 使用次数01, 使用次数02Dim 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 ThenMessageBox 版本号EndScriptEnd If//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓Sub 记录_拍Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(拍)" & Date & ".txt", 环境变量名_记录_拍)End SubSub 记录_行情Call Plugin.File.WriteFileEx("D:\DNF拍卖行明细(行情)" & Date & ".txt", 环境变量名_记录_行情)End SubSub 移动窗口_拍ScreenW = Plugin.Sys.GetScRX()//Msgbox "获得屏幕分辨率宽度：" & ScreenWScreenH = Plugin.Sys.GetScRY()//Msgbox "获得屏幕分辨率高度：" & ScreenHDev = Plugin.Sys.GetScDep()//Msgbox "获得屏幕色深度(颜色质量)：" & DevPath = Plugin.Sys.GetDir(0)//Msgbox "获得路径：" & Pathxitong = Plugin.Sys.GetOSType()//MessageBox "您的操作系统版本是：" & xitongIf 选择功能_拍= 0 ThenCall 单开Call 单开出错ElseIf 选择功能_拍= 1 ThenMsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。

",vbInformation,"注意：你选择的是“一秒一摆功能”"Call 双开Call 双开出错ElseIf 选择功能_拍= 2 ThenMsgBox "请把鼠标移动到要秒拍卖行的游戏窗口，"&vbLf&"并点击激活后再按确认关闭我。

",vbInformation,"注意：你选择的是“一秒一摆+上架拍卖行收邮件功能”"Call 双开Call 双开出错ElseIf 选择功能_拍= 3 ThenCall 双开Call 双开出错Hwnd = Hwnd_1PCall 得到边框大小Call 防掉线处理_拍Hwnd = Hwnd_2PCall 得到边框大小Call 防掉线处理_拍防掉线时间_拍= Nowi = 0While i=0Call 双开掉线警报If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍ThenHwnd = Hwnd_1PCall 得到边框大小Call 防掉线处理_拍Hwnd = Hwnd_2PCall 得到边框大小Call 防掉线处理_拍防掉线时间_拍= NowEnd IfDelay yanshi_10000WendElseIf 选择功能_拍= 4 ThenCall 单开Call 单开出错Call 得到边框大小Call 防掉线处理_拍防掉线时间_拍= Nowi = 0While i=0Call 单开掉线警报If DateDiff("n", 防掉线时间_拍, Now) > 防掉线_拍Then 防掉线时间_拍= NowCall 防掉线处理_拍End IfDelay yanshi_10000WendEnd IfEnd SubSub 单开Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")Call Plugin.Window.Active(Hwnd)Delay 100sRect = 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 SubSub 双开HwndEx = Plugin.Window.Search("地下城与勇士")MyArray2 = Split(HwndEx, "|")Hwnd_1P = Clng(MyArray2(0)): Hwnd_2P = Clng(MyArray2(1))Delay yanshi_100//MessageBox Hwnd_1P&"="&Hwnd_2PEnd SubSub 单开出错If Hwnd = 0 ThenMsgBox "没检测到DNF游戏窗口，"&vbLf&"请确认开启游戏后再开辅助。