按键精灵DNF秒拍卖源码

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

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,"注意：你选择的是“一秒一摆功能”"