DNF自动收货脚本源代码(选自网络)

系统教程820 更新时间：2026-04-04 09:51:39

2024年1月6日发(作者：)

//================================================================================

//MessageBox "正在初始话请稍等"

Call ("正在加载方案…")

DqTime = lib.网络.获取网络时间()

//获取网络时间，得到的时间格式为：2000-1-1 12:00:00

zzsj="2011-11-1 23:59:59"

//zzsj=终止时间终止时间为脚本使用限定的最后时间！

If CDate(DqTime)

Call ("加载成功!(*^__^*)")

//MessageBox "加载成功!(*^__^*)"

//Msgbox "验证成功！继续使用！"

Else

Call ("加载失败，可能是没有权限！⊙﹏⊙‖∣")

RunApp("/")

EndScript

End If

//================================================================================

'wlsj=Lib.网络.获取网络时间()

'Delay 2000

'If wlsj>cdate("2012-10-24")

' Delay 100

'MsgBox "使用期限已到,请从任务管理器关闭程序"

'EndScript

'end if

//使用期限检测脚本

DimEnv shuliang,time1,time2,time3,time4,ktjc,feyjy

Dim hwnd,hwnd1,hwnd2

DimEnv kaiguan

kaiguan=0

hwnd=oint

x=(hwnd,0,0)

'Delay 1000

time1=e //获取脚本运行时系统初始时间

'ktjc=1

'set ws=createobject("")

' "c:",5,ture

'Delay 500

'hwnd2=ound

'y=(hwnd2,0,480)

gosub 站街自动喊话

Rem kaitou

Sub 站街自动喊话 //站街喊话脚本

//下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量

UserVar fdys=15 "防掉线设置"

MoveTo 603,439

gosub 检查是否有交易

time3=e

If int(time3-time1)>fdys*60*1000 then //15分钟后开启防掉线，只支持站街的时候

gosub 防掉线

End If

KeyPressS "Enter", 1

Delay 200

NUM =olor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在

If NUM > 0 Then

Goto 喊话

Rem 喊话

End If

UserVar szhhjs=5 "设置喊话句数(最多五句）"

If szhhjs= 1 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 2 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 2

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 3 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 2

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "C", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 4 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 2

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "C", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "D", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 5 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 2

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "C", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "D", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 1

Delay 20

KeyPressS "E", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

End if

feyjy=0

gosub 等待交易 //跳到等待交易

End Sub

Sub 等待交易

//找图

x=(hwnd)

FindPic 455,305,636,419,"Attachment:公告按钮.bmp",0.9,intX,intY //扫描交易框

If intX > 0 And intY > 0 Then

MoveTo 523,403

LeftClick 2

Delay 300

FindPic 0,0,1024,768,"Attachment:",0.9,intX,intY

If intX > 0 And intY > 0 Then

gosub 等待放入物品

Else

gosub 站街自动喊话

End If

Else

gosub 站街自动喊话

End If

End Sub

//================================================================================

//MessageBox "正在初始话请稍等"

Call ("正在加载方案…")

DqTime = lib.网络.获取网络时间()

//获取网络时间，得到的时间格式为：2000-1-1 12:00:00

zzsj="2011-11-1 23:59:59"

//zzsj=终止时间终止时间为脚本使用限定的最后时间！

If CDate(DqTime)

Call ("加载成功!(*^__^*)")

//MessageBox "加载成功!(*^__^*)"

//Msgbox "验证成功！继续使用！"

Else

Call ("加载失败，可能是没有权限！⊙﹏⊙‖∣")

RunApp("/")

EndScript

End If

//================================================================================

Sub 等待放入物品

Dim i

i=0

UserVar ddfw=10000 "等待放入物品延迟时间（单位：毫秒）注：1000毫秒=1秒"

Delay ddfw

Do Until i<8

FindPic 71,173,306,198,"Attachment:交易栏无物品图.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

i=i+1

Else

gosub 检查并交易

End If

Loop

If i>0

KeyPress "esc",1

Delay 100

gosub 站街自动喊话

End If

End Sub

Sub 输入金钱

Dim qian,x,cishu

Rem jiaqian

qian=jiage(100)

If qian<>0 then

'MsgBox "总价钱为："&qian

MoveTo 197,301

Delay 250

LeftClick 1

Delay 250

KeyPress "BackSpace", 15 //金钱输入清零

Delay 50

x=1

Dim shu

cishu=len(qian)

For cishu

shu=left(qian,1) //取qian的左起第一个数字

qian=right(qian,cishu-x) //取qian的右起第I个数字

KeyPress shu,1

i=0

Delay 250

x=x+1

i=i+1

If i<30 //30秒内金钱为0则跳转喊话

Goto jiaqian

Delay 1000

Else

KeyPress "esc",1

Delay 100

gosub 站街自动喊话

End If

End if

Delay 100

LeftClick 1

Delay 200

gosub 检查并交易

End Sub

Sub 检查并交易

Rem jiancha

gosub 检查交易是否提前结束

//检查己方输入的金钱

Dim no(9) //数字特征码

no(0)="1110"

no(1)="0111" //自取特征码，DNF己方金钱框专用

no(2)="1111"

no(3)="1110"

no(4)="11111"

no(5)="01110"

no(6)="1110"

no(7)="111111"

no(8)="1110"

no(9)="1110"

Dim colo(3) //颜色十六进制值 10月7日版

colo(1)="008CFF"

colo(0)="0050FF"

colo(2)="00F0FF"

MoveTo 603,439

rightx=296 //初始x坐标

righty=299 //初始Y坐标

rx=rightx

ry=righty

jici=0

jine=""

y=0

For 3 //千万位数字扫描

rightx=296-21*y

for 3 //百位数字扫描

i=0

For 8 //单个数字扫描

rx=rightx-jici*6 //后退6个像素点

For 5

ifcolor rx,ry,colo(y),0

nob="1"

Else

nob="0"

End If

rx=rx-1

number=number&nob

If number=no(i)

jine=i&jine

Exit For

End If

i=i+1

number=""

ry=righty //循环一次结束后初始化ry坐标

Next //修改初始化值

jici=0

y=y+1

Delay 100

feyjy=feyjy+1

If feyjy>120 Then //若一段时间内没有成功交易则取消交易，慎重！！！

KeyPress "Esc",1

Delay 100

gosub 站街自动喊话

End If

If int(jine)=jiage(1000) Then

'MsgBox "价格正确可以进行下一步交易"

ifcolor 167,269,"44EEFF",0 //检查对方是否先点击了交易

MoveTo 161,426 //交易逐步点击

Delay 400

LeftClick 2

Delay 400

LeftClick 2

Delay 150

Else

Goto jiancha

End If

Else

'MsgBox "价格不符合"

gosub 输入金钱

Delay 500

Gosub 检查并交易

End If

End Sub

Sub 检查交易是否提前结束

i=0

Rem star

FindPic 0,0,1024,768,"Attachment:",0.9,intX,intY

If intX > 0 And intY > 0 Then

Delay 500 //2分钟内未交易完成则关闭交易框

Else

gosub 站街自动喊话

Goto jiewei

End If

rem jiewei

End Sub

Sub 检查是否有交易

Rem star

FindPic 0,0,1024,768,"Attachment:",0.9,intX,intY

If intX > 0 And intY > 0 Then

gosub 检查并交易

Delay 100

Else

' Goto jiewei

End If

' rem jiewei

End Sub

Sub 防掉线

kaiguan=0

For 2

MoveTo 33,439

Delay 600

KeyPress "w", 1

Delay 100

KeyPress "q", 1

Delay 100

MoveTo 89,202

Delay 100

LeftClick 1

Delay 1000

IfColor 143,437,"6DA2B9",1 then

//接受任务

Delay 1000

MoveTo 143,437

Delay 100

LeftClick 1

Delay 100

KeyPress "Esc", 1

Delay 100

MoveTo 419,405

Delay 600

LeftClick 2

Else

Delay 1000

//放弃任务

MoveTo 419,402

Delay 100

LeftClick 1

Delay 100

MoveTo 336,407

Delay 100

LeftClick 1

Delay 100

End If

KeyPress "Esc", 1

End Sub

Sub 输出信息

Call ring(Hwnd2, "内容")

hwnd2

KeyPress "enter",1

End Sub

Function xiejiage(geshu,jq,wupin)

Set fso = CreateObject("stemObject")

b=ile("c:")

If b=0 Then

Set c= TextFile("c:")

set a=xtfile("c:",8)

Else

set a=xtfile("c:",8)

End If

ine(now&"————"&"第"&geshu&"格单价:"&wupin&"价钱"&jq)

End Function

Function jiage(yanshi)

Delay yanshi

Dim ss(100)

ss(0)="3131CE" //强韧

ss(1)="52423A" //威严

ss(2)="84C6C6" //狂乱

ss(3)="6B6B63" //灵魂

ss(4)="528429" //灾难

ss(5)="4A4A5B" //眼睛

ss(6)="D69473" //小篮

ss(7)="848484" //无色

ss(8)="AD73D6" //碳 175,191

ss(9)="BDB5C6" // 蓝冰

ss(10)="73194A" //小黑

ss(11)="7B7BEF" //小红

ss(12)="B5B5B5" //小白

//这里使用查找颜色来获取物品不知道在别的电脑上是否能使用反正在我自己的电脑上是可以用的请教一下

uservar sss0= 23000 "强韧恶魔的邀请函"

uservar sss1= 23000 "威严"

uservar sss2= 23000 "狂乱"

uservar sss3= 3800 "灵魂"

uservar sss4= 3200 "灾难"

uservar sss5= 25000 "眼睛"

uservar sss6= 100 "小篮"

uservar sss7= 50 "无色"

uservar sss8= 50 "碳"

uservar sss9= 9000 "蓝冰"

uservar sss11= 250 "小红"

uservar sss12= 80 "小白"

uservar sss10= 120 "小黑"

Dim n,m,i,j,qian

qian=0

n=0

geshu=1

Dim kx

kx=85 //第一格物品x取色点

ux=kx

Dim ky

ky=191 //第一个物品y取色点

//扫描第一行物品，共8个物品格

for 8

// 单格物品扫描

For 13

IfColor ux,ky,ss(n),0

sss=0

If n=0

sss=sss0

ElseIf n=1

sss=sss1

ElseIf n=2

sss=sss2

ElseIf n=3

sss=sss3

ElseIf n=4

sss=sss4

ElseIf n=5

sss=sss5

ElseIf n=6

sss=sss6

ElseIf n=7

sss=sss7

ElseIf n=8

sss=sss8

ElseIf n=9

sss=sss9

ElseIf n=10

sss=sss10

ElseIf n=11

sss=sss11

ElseIf n=12

sss=sss12

End If

jiag=wupin(geshu,sss) //获取物品价钱

'Call xiejiage(geshu,jiag,sss)

'BeginThread 输出信息

Exit For

End If

n=n+1

jiag=0 //价格清零

ux=ux+30 //x坐标加30，扫描下一个框内物品

geshu=geshu+1 //个数循环

n=0

End Function

Function wupin(GS,JQ) //计算物品总价格 LX 查找类型

//代码太他妈有才了

//此代码论坛中有，个人觉得很好。

dim a(100)

dim b(100)

dim q(100)

number0="Attachment:"

number1="Attachment:"

number2="Attachment:"

number3="Attachment:"

number4="Attachment:"

number5="Attachment:"

number6="Attachment:"

number7="Attachment:"

number8="Attachment:"

number9="Attachment:"

cishu=1

leftx=72+(GS-1)*30 //132

upy=174 //155

rightx=99+(GS-1)*30 //162

downy=185 //235

Similar=1

lx=leftx

Dim n,m,p,i,j

n=0

m=1

p=1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number0,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=0

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number1,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=1

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number2,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=2

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number3,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=3

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number4,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=4

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number5,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=5

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number6,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=6

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number7,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=7

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number8,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=8

EndIf

wend

leftx=lx

m=m-1

While n<>m

m=n

FindPic leftx,upy,rightx,downy,number9,Similar,fx,fy

If fx>=0 and fy>=0

n=n+1

leftx=fx+1

a(n)=fx

b(n)=9

EndIf

wend

leftx=lx

m=m-1

While p

j=a(1)

i=1

h=1

While i

If j>a(i)

Else

j=a(i)

h=i

EndIf

i=i+1

wend

a(h)=0

q(p)=h

p=p+1

wend

g=1

u=1

num=0

//读取到有数字返回值为 num，没读取到有数字返回值为0

If n=0 then

num=1

Else

For n

num=num+b(q(g))*10^(g-1)

g=g+1

'jiaqian(cishu)=num //这些都是测试时用的，可以不必理

'lx=leftx+30

'leftx=leftx+30

'rightx=rightx+30

'cishu=cishu+1

wupin=JQ*num //改初始坐标

End Function

本文发布于:2024-01-06，感谢您对本站的认可！

本文链接:https://www.fzithome.com/xitong/1704475905a149337.html

DNF自动收货脚本源代码(选自网络)

发布评论取消回复

最近发表

相关推荐

标签列表

DNF自动收货脚本源代码(选自网络)

发布评论 取消回复

最近发表

相关推荐

标签列表

发布评论取消回复