安游DNF交流群，一群（已满）：或者点击二群：或者点击申请加群吧！
[][3540次]
Copyright ©
All Rights Reserved 安游在线 版权所有
经营许可证：皖ICP备号-1DNF刷怪的按键精灵脚本，很久前写的，效果不好。。
DNF刷怪的按键精灵脚本，很久前写的，效果不好。。
发布时间： 22:48:42
编辑：www.fx114.net
本篇文章主要介绍了"DNF刷怪的按键精灵脚本，很久前写的，效果不好。。"，主要涉及到DNF刷怪的按键精灵脚本，很久前写的，效果不好。。方面的内容，对于DNF刷怪的按键精灵脚本，很久前写的，效果不好。。感兴趣的同学可以参考一下。
MoveTo 60, 60
LeftClick 1
dim begincolorPos,endcolorPos&
begincolorPos = &DD9900&
endcolorPos = &0022FF&
speed = 15
Dim colorMen
colorMen = &9CADFF&
Dim colorNameBound(5)
colorNameBound(0) = &EDD568&//蓝色
colorNameBound(1) = &FF6BB3&//紫色
colorNameBound(2) = &EDD568&//蓝色
colorNameBound(3) = &FF6BB3&//紫色
colorNameBound(4) = &FFFFFF&//白色
Dim beginPosX, beginPosY,endposx,endposy
beginPosX = 616
beginPosY = 57
FindColor 0, 0, 640, 480, begincolorPos,beginPosX,beginPosY
FindColor 0, 0, 640, 480, endcolorPos, endposx, endposy
i = cint((616 - beginPosX + 10)/19)
If i = 4 Then&
If beginPosY & 57 + 10 Then&
ElseIf i & 4 Then
If i = 4 Then&
beginPosY = beginPosY + 19
ElseIf i = 7 Then
beginPosY = beginPosY + 19
ElseIf i&8
beginPosX = beginPosX - 19
Call 刷怪(beginPosX, beginPosY)
Rem 刷怪结束
Call 捡取物品()
KeyPressH &Ctrl&, 1
Call 捡取物品()
Rem 进入下关
If i = 4 Then&
Call 移动到(220, 340)
Call 移动到(220, 460)
ElseIf i = 3 Then
Call 移动到(100, 300)
Call 移动到(0, 300)
ElseIf i = 5 Then
Call 移动到(100, 320)
Call 移动到(0, 320)
ElseIf i = 6 Then
Call 移动到(100, 300)
Call 移动到(0, 300)
ElseIf i & 8
Call 移动到(0, 300)
Delay 2000
FindColor 0, 0, 640, 480, begincolorPos,beginPosX,beginPosY
index = cint((616 - beginPosX + 10)/19)
If index = 4 Then&
If beginPosY & 57 + 10 Then&
ElseIf index & 4 Then
index=index+1
If index = i Then&
Goto 进入下关
i = i + 1
MoveTo 460, 90
LeftClick 15
Delay 2000
KeyPressH 39, 3//右
KeyPressH 38, 3//上
Delay 1000
MoveTo 318, 380
LeftClick 1
Delay 2000
Goto begin
Dim oldcolor, newcolor
Sub 刷怪( flagposX,flagposY )
oldcolor = GetPixelColor(flagposX, flagposY)
KeyPressH 37,1
While (flag)
Call 刷怪结束判断(flagposX, flagposY)
KeyPress &A&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &S&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &D&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &F&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &G&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &H&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &T&, 1
Call 捡取物品()
KeyPressH &Ctrl&, 1
Call 捡取物品()
& & & & KeyPress &Q&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &W&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &E&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &R&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &T&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
& & & & KeyPress &Y&, 1
& & & & Call 刷怪结束判断(flagposX, flagposY)
Call 捡取物品()
KeyPressH &Ctrl&, 1
Call 捡取物品()
Sub 刷怪结束判断(flagposX, flagposY)
newcolor = GetPixelColor(flagposX, flagposY)
If newcolor && oldcolor Then&
Goto 刷怪结束
c1 = &10FFFF&
If newcolor & c1 Then&
Goto 刷怪结束
/*FindColor 0, 0, 640, 480, c1, endposx, endposy
If endposx & 0 Then&
Goto 刷怪结束
c1 = &FFF6A3&
FindColor 0, 0, 640, 480, c1, endposx, endposy
If endposx & 0 Then&
Goto 刷怪结束
Sub 捡取物品()
While (flag)
FindColor 0, 200, 640, 480,colorNameBound(wp), intX,intY
intY = intY +30 // 计算物品位子
If intX & 0 Then&
Call 移动到(intX,intY)
KeyPress 88, 1
ElseIf wp&1
wp = wp + 1
Sub 移动到(posX, posY)
Dim intX,intY
FindColor 0, 100, 640, 480, colorMen, intX, intY
intY = intY + 80 //计算脚的位置
If intX & 0 Then&
Dim offsetX
offsetX = intX-posX
Dim offsetY
offsetY = intY - posY
If offsetY & 0 Then&
KeyDownH 38,1
Delay offsetY * 100 / speed
KeyUpH 38,1
KeyDownH 40, 1
Delay -offsetY * 100 / speed
KeyUpH 40, 1
If offsetX & 0 Then&
KeyDownH 37, 1
Delay offsetX * 100 / speed
KeyUpH 37, 1
KeyDownH 39, 1
Delay -offsetX * 100 / speed
KeyUpH 39, 1
Sub 攻击技能()
// & & & &KeyPress &X&, 5
KeyPress 88, 1
KeyPress 88, 1
KeyPress 88, 1
KeyPress 88, 1
KeyPress 88, 1
Sub 召唤技能()
& & & & KeyPress &Q&, 1
& & & & Delay 1000
& & & & KeyPress &W&, 1
& & & & Delay 1000
& & & & KeyPress &E&, 1
& & & & Delay 1000
& & & & KeyPress &R&, 1
& & & & Delay 1000
& & & & KeyPress &T&, 1
& & & & Delay 1000
& & & & KeyPress &Y&, 1
& & & & Delay 1000
& & & & KeyPress &A&, 1
& & & & Delay 1000
& & & & KeyPress &S&, 1
& & & & Delay 1000
& & & & KeyPress &D&, 1
& & & & Delay 1000
& & & & KeyPress &F&, 1
& & & & Delay 1000
& & & & KeyPress &G&, 1
& & & & Delay 1000
& & & & KeyPress &H&, 1
& & & & Delay 1000
& & & & KeyPress &T&, 1
& & & & Delay 1000
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：大家都在搜：
扫描二维码安装搜房网房天下APP
手机浏览器访问搜房网房天下
> > 问题详情
大改后dnf用按键精灵会被封号吗,当前在用的说一下?
浏览次数：0
回答被采纳后将共获得20
如果你想问连发什么的,那没什么问题,本人母鸡娘漫大将军,连发每天都在用,没出过任何问题~如果你想问外G脚本之类的东西,我奉劝你还是别想了,安安心心本本分分的玩游戏吧,投机取巧必遭天谴......
按键精灵没有事 知道不是挂就好 国服再改也不会改的像韩服那样连发能封号 老马不会的
一般情况是过完户就可以办产证了的
在网站上找到相应的网址填写申请,提前预约就可以
位提问人正在寻找答案
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有搜房通行证，
ask:3,asku:0,askr:20,askz:3,askd:20,RedisW:0askR:0,askD：50 mz:nohit,askU:0,askT:0askA:52
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
客服电话： 400-850-8888 违法信息举报邮箱：