按键精灵DNF秒拍卖源码.docVIP

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 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 获得屏幕分辨