按键精灵新手入门_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
按键精灵新手入门
上传于||文档简介
&&让​你​轻​松​简​单​了​解​精​灵
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩15页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢你的位置：
发个DNF跑动的代码
21:20:26 |
来源: 按键精灵资源站
本帖最后由 yxp10010 于
21:21 编辑
[hide=d1200]Sub 跑动函数(坐标X,坐标Y)
& & Randomize& & '初始化随机数生成器。
& & Call 判断是否卡屏()
& & Delay 100
& & x2 =int(split(rwzb, &,&)(0)):y2 = int(split(rwzb, &,&)(1))//角色坐标 （起始坐标）
& & TracePrint &角色坐标& & x2 & &,& & y2
& & x5=坐标X:y5=坐标Y//终点坐标 [hide=d1200]Sub 跑动函数(坐标X,坐标Y)
& & Randomize& & '初始化随机数生成器。
& & Call 判断是否卡屏()
& & Delay 100
& & x2 =int(split(rwzb, &,&)(0)):y2 = int(split(rwzb, &,&)(1))//角色坐标 （起始坐标）
& & TracePrint &角色坐标& & x2 & &,& & y2
& & x5=坐标X:y5=坐标Y//终点坐标
& & //& & y5=BC
& & //& & x5=AC
& & TracePrint &终点坐标&&x5&&,&&y5
& & 横向=Clng((Abs(x2-x5))/13):纵向=Clng((Abs(y2-y5))/5)
& & ay = y5 : by = y2
& & ax=x5:bx=x2
& & TracePrint ay&&,&&by
& & If bx&ax Then
& && &&&dm.KeyPress 37
& && &&&Delay 50
& && &&&dm.KeyDown 37
& && &&&TracePrint &向左&
& && &&&//↑如果，人物脚底X坐标 & 边框X坐标。那么，向左
& & ElseIf bx&ax Then
& && &&&dm.KeyPress 39
& && &&&Delay 50
& && &&&dm.KeyDown 39
& && &&&TracePrint &向右&
& & End If
& & Delay 50
& & //-------------------------
& & If by&ay Then
& && &&&dm.KeyDown 38
& && &&&//↑如果，人物脚底Y坐标 & 边框Y坐标。那么，向上
& && &&&TracePrint &向上&
& & ElseIf by&ay Then
& && &&&dm.KeyDown 40
& && &&&TracePrint &向下&
& & End If
& & //--------------------------
& & TracePrint &纵向&&纵向&&,横向&&(横向-1)
& & dm_ret = Plugin.Sys.GetTime()
& & A时= Clng(dm_ret)
& && &&&Delay ys(9,15)
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret )
//& && &&&TracePrint Clng(Round((B时 - A时)/00/50)
& && &&&If Clng(Round((B时 - A时)/00/50) &= (横向-2) Then
//& && && && &TracePrint &完1&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39
& && && && &bL = 1
& && &&&End If
& && &&&If Clng(Round((B时 - A时)/00/50) &= 纵向 Then& &
//& && && && &TracePrint &完2&
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &bL1=1
& && &&&End If&&
& && &&&If bL = 1 and bL1 = 1 Then
//& && && && &TracePrint &完&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39& && &
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &Exit Do
& && &&&End If
Function rwzb()
& & intX = &&:inty = &&
& & Randomize& & '初始化随机数生成器。
& & dm_ret = Plugin.Sys.GetTime()
& & A时 = Clng(dm_ret/1000)
& && &&&Delay 50
& && &&&//& && &&&dm_ret = dm.FindPic(0,29,795,520,&Lv1.bmp|Lv.bmp&,&,0,intX,intY)
& && &&&dm_ret = dm.FindStrFast(0,103,802,600,&Lv&,&ffffff-050505|fadc64-050505|&,1,intX,intY)
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &intX = intX + 34: intY = intY + 109
& && && && &rwzb=intx&&,&&inty
& && && && &Exit Do
& && &&&Else
& && && && &dm.KeyPress Int((4 * Rnd) + 37)
& && && && &TracePrint &让人物走动一下&
& && && && &Delay 50
& && &&&End If
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret/1000)&&
& && &&&If B时-A时 &= 400 Then
& && && && &Exit Do
& && &&&End If
End Function
& & //& & y5=BC
& & //& & x5=AC
& & TracePrint &终点坐标&&x5&&,&&y5
& & 横向=Clng((Abs(x2-x5))/13):纵向=Clng((Abs(y2-y5))/5)
& & ay = y5 : by = y2
& & ax=x5:bx=x2
& & TracePrint ay&&,&&by
& & If bx&ax Then
& && &&&dm.KeyPress 37
& && &&&Delay 50
& && &&&dm.KeyDown 37
& && &&&TracePrint &向左&
& && &&&//↑如果，人物脚底X坐标 & 边框X坐标。那么，向左
& & ElseIf bx&ax Then
& && &&&dm.KeyPress 39
& && &&&Delay 50
& && &&&dm.KeyDown 39
& && &&&TracePrint &向右&
& & End If
& & Delay 50
& & //-------------------------
& & If by&ay Then
& && &&&dm.KeyDown 38
& && &&&//↑如果，人物脚底Y坐标 & 边框Y坐标。那么，向上
& && &&&TracePrint &向上&
& & ElseIf by&ay Then
& && &&&dm.KeyDown 40
& && &&&TracePrint &向下&
& & End If
& & //--------------------------
& & TracePrint &纵向&&纵向&&,横向&&(横向-1)
& & dm_ret = Plugin.Sys.GetTime()
& & A时= Clng(dm_ret)
& && &&&Delay ys(9,15)
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret )
//& && &&&TracePrint Clng(Round((B时 - A时)/00/50)
& && &&&If Clng(Round((B时 - A时)/00/50) &= (横向-2) Then
//& && && && &TracePrint &完1&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39
& && && && &bL = 1
& && &&&End If
& && &&&If Clng(Round((B时 - A时)/00/50) &= 纵向 Then& &
//& && && && &TracePrint &完2&
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &bL1=1
& && &&&End If&&
& && &&&If bL = 1 and bL1 = 1 Then
//& && && && &TracePrint &完&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39& && &
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &Exit Do
& && &&&End If
Function rwzb()
& & intX = &&:inty = &&
& & Randomize& & '初始化随机数生成器。
& & dm_ret = Plugin.Sys.GetTime()
& & A时 = Clng(dm_ret/1000)
& && &&&Delay 50
& && &&&//& && &&&dm_ret = dm.FindPic(0,29,795,520,&Lv1.bmp|Lv.bmp&,&,0,intX,intY)
& && &&&dm_ret = dm.FindStrFast(0,103,802,600,&Lv&,&ffffff-050505|fadc64-050505|&,1,intX,intY)
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &intX = intX + 34: intY = intY + 109
& && && && &rwzb=intx&&,&&inty
& && && && &Exit Do
& && &&&Else
& && && && &dm.KeyPress Int((4 * Rnd) + 37)
& && && && &TracePrint &让人物走动一下&
& && && && &Delay 50
& && &&&End If
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret/1000)&&
& && &&&If B时-A时 &= 400 Then
& && && && &Exit Do
& && &&&End If
End Function你的位置：
dnf [自动上架脚本]放出来给大伙们用。需要改进的请呼喊
13:36:33 |
来源: 按键精灵资源站
本帖最后由 Aoy'xx 于
23:04 编辑
我是去年注册的，那时候只是好奇
今年和朋友一起靠网游吃饭赚点外快
无聊摸索了按键精灵。。
这个是我花了半个多月的时间做出来的
之前也有点基础吧。。所以学起来有点块。
但是还有很多东西还不知道。希望各位大侠多多指教
下载地址请访问原帖小精灵。。
下载地址请访问原帖
需要上架物品在物品栏的位置[红圈圈内]
脚本只能设置上架时间为24小时
因考虑到，一般都是上架材料不必浪费时间去设置48小时
设置48小时那还能赚什么？ 还不如摆摊去呢
XP与Win7可用。。。。。。
下载地址请访问原帖
刚刚有朋友说，点击【开始拍卖】按钮后。有点卡机，所以增加了代码
如图..出现窗口未消失情况下，自动延时等待窗口消失
如果在等待时间内还是不消失时，自动计算延时
超过设置的等待延时则关闭拍卖行窗口，重新上架物品
回复即可下载。。。谢谢
本帖隐藏的内容需要回复才可以浏览