admin管理员组文章数量:1568308
2024年1月10日发(作者:)
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
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 ileEx("D:DNF拍卖行明细(拍)" & Date & ".txt", 环境变量名_记录_拍)
End Sub
Sub 记录_行情
Call ileEx("D:DNF拍卖行明细(行情)" & Date & ".txt", 环境变量名_记录_行情)
End Sub
Sub 移动窗口_拍
ScreenW = X()
//Msgbox "获得屏幕分辨率宽度:" & ScreenW
ScreenH = Y()
//Msgbox "获得屏幕分辨率高度:" & ScreenH
Dev = ep()
//Msgbox "获得屏幕色深度(颜色质量):" & Dev
Path = (0)
//Msgbox "获得路径:" & Path
xitong = ype()
//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 = ("地下城与勇士", "地下城与勇士")
Call (Hwnd)
Delay 100
sRect = dowRect(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 = ("地下城与勇士")
MyArray2 = Split(HwndEx, "|")
Hwnd_1P = Clng(MyArray2(0)): Hwnd_2P = Clng(MyArray2(1))
Delay yanshi_100
//MessageBox Hwnd_1P&"="&Hwnd_2P
End Sub
Sub 单开出错
If Hwnd = 0 Then
MsgBox "没检测到DNF游戏窗口,"&vbLf&"请确认开启游戏后再开辅助。",vbCritical,"你选择的功能是单开"
EndScript
End If
End Sub
Sub 双开出错
If Hwnd_1P = 0 or Hwnd_2P = 0 Then
MsgBox "游戏窗口不对所选功能的数量,"&vbLf&"请更正后再次尝试。",vbCritical,"你选择的功能是双开"
EndScript
End If
End Sub
Sub 单开掉线警报
sWindow = ow(Hwnd)
If sWindow = 0 Then
Call 掉线处理方式
End If
End Sub
Sub 双开掉线警报
sWindow1 = ow(Hwnd_1P)
If sWindow1 = 0 Then
Call 掉线处理方式
End If
sWindow2 = ow(Hwnd_2P)
If sWindow2 = 0 Then
Call 掉线处理方式
End If
End Sub
Sub 掉线处理方式
Call (99)
For 5
Call ("C:WINDOWSMediaWindows XP 启动.wav")
Delay yanshi_3000
Next
Call ()
EndScript
End Sub
Sub 得到边框大小
Call (Hwnd)
Delay 100
sRect = dowRect(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 执行选择功能_拍
If 选择功能_拍 = 0 Then
Call 单开掉线警报
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
ElseIf 选择功能_拍 = 1 Then
Call 双开掉线警报
Hwnd = Hwnd_2P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Hwnd = Hwnd_1P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
ElseIf 选择功能_拍 = 2 Then
Call 双开掉线警报
Hwnd = Hwnd_2P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
Hwnd = Hwnd_1P
Call 双开掉线警报
Delay yanshi_100
Call 得到边框大小
Call 防掉线处理_拍
Call 打开社区菜单_拍
Call 上架拍卖品_拍
ElseIf 选择功能_拍 = 3 Then
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 防掉线处理_拍
防掉线时间_拍 = 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 最小化小精灵窗口
HwndEx01 = (0, "无极制作")
Windows = ow(HwndEx01)
If Windows = 1 Then
Call (HwndEx01)
End If
End Sub
Sub 屏幕显示刷新_竞拍
Call rTXT()
End Sub
Sub 屏幕显示主题_竞拍
Dim 屏幕数组_竞拍
屏幕数组_竞拍 = split(组合数组_竞拍, ",")
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3), 屏幕数组_竞拍(2), ScreenH, " 欢迎使用 无极 扫描拍卖行 "&"当前已经搜索第 " &
轮_竞拍 & " 轮, 第 " & 种_竞拍 & " 种物品, 已成功 " & 笔_竞拍 & " 笔。
", "0000FF")
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 15, 屏幕数组_竞拍(2), ScreenH, " 搜索名称 公式:总价÷数量=单价 和 标价比较 最终结果
", "000000")
End Sub
Function 屏幕显示内容_竞拍
//名称10字内:总价=150" │拍":数量275:单价340:标价435:处理方式521
Dim 屏幕数组_竞拍, 屏幕显示间距_竞拍
屏幕数组_竞拍 = split(组合数组_竞拍, ",")
屏幕显示间距_竞拍 = 屏幕显示间距_竞拍 + 屏幕间距_竞拍
If 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍 > ScreenH - 80 Then
屏幕间距_竞拍 = 30
屏幕显示间距_竞拍 = 30
Call rTXT()
End If
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3), 屏幕数组_竞拍(2),
ScreenH, " 欢迎使用 无极 扫描拍卖行 "&"当前已经搜索第 " & 轮_竞拍 & " 轮, 第 " & 种_竞拍 & " 种物品, 已成功 " & 笔_竞拍 & " 笔。
", "0000FF")
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 15, 屏幕数组_竞拍(2), ScreenH, " 搜索名称 公式:总价÷数量=单价 和 标价比较 最终结果
", "000000")
If 屏幕显示样式_竞拍 = "是_拍" Then
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示名称_竞拍 &
"________________________________________________________________________________________ ", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 390, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, " " & 显示总价_竞拍 & "÷"&显示数量_竞拍&"="&显示单价_竞拍&"_______________________________________ ", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 160, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示标价_竞拍&"
", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 100, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, "价格合理已拍
", "0000FF")
ElseIf 屏幕显示样式_竞拍 = "超_拍" Then
Call rTXT(屏幕数组_竞拍(0), 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示名称_竞拍 &
"________________________________________________________________________________________ ", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 390, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, " " & 显示总价_竞拍 & "÷"&显示数量_竞拍&"="&显示单价_竞拍&"_______________________________________ ", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 160, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, 显示标价_竞拍&"
", "FF0000")
Call rTXT(屏幕数组_竞拍(2) - 100, 屏幕数组_竞拍(3) + 屏幕显示间距_竞拍, 屏幕数组_竞拍(2), ScreenH, "价格昂贵漂过
", "FF0000")
End If
屏幕间距_竞拍 = 屏幕间距_竞拍 + 15
竞拍 = 竞拍 + 1
End Function
版权声明:本文标题:按键精灵DNF秒拍卖源码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dianzi/1704825390a109957.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论