你的位置：
做了个天下3采集脚本自己用，有几个问题一直无法解决，求高手帮帮忙
00:25:22 |
来源: 按键精灵资源站
1.求高手帮忙优化下我的脚本，感觉运行起来卡卡的
2。如何判断自动寻路到达目的地，还是卡图了
3.寻到矿后，我是采用鼠标特征码圆形渐开搜矿，搜到矿鼠标停止。天下3矿要成熟后才能才鼠标特征码分为未成熟和成熟两种，但是如果鼠标不动即使矿已成熟，鼠标特征码不会变成成熟的特征码，就不会执行下面程序了，希望各位前辈帮我想想。
3.如果进入战斗状态，要先打掉怪才能采集，这段代码怎么写。
下面是我写的代码
//---------------------------查找窗口-----------------------------------
Hwnd = Plugin.Window.GetKeyFocusWnd()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,&|&)
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
//查找当前窗口
Call Plugin.Window.Move(Hwnd, 0, 0)
//将当前窗口移动到0,0点
//---------------------------寻矿篇-----------------------------------
//按下采矿键1，并打开背包
KeyPress &1&, 3
FindPic 0,0,,&Attachment:\beibao.bmp&,0.6,beibaoX,beibaoY
If beibaoX & 0 And beibaoY & 0 Then
Goto fanhui
KeyPress &B&, 1
Rem fanhui
//-----------------------------------------------------------------
Dim a(4), b(9), c(2),d(9)
a(0) = &Attachment:\jin.bmp&
a(1) = &Attachment:\yin.bmp&
a(2) = &Attachment:\gong.bmp&
a(3) = &Attachment:\tie.bmp&
a(4) = &Attachment:\tong.bmp&
b(0) = &Attachment:\1.bmp&
b(1) = &Attachment:\2.bmp&
b(2) = &Attachment:\3.bmp&
b(3) = &Attachment:\4.bmp&
b(4) = &Attachment:\5.bmp&
b(5) = &Attachment:\6.bmp&
b(6) = &Attachment:\7.bmp&
b(7) = &Attachment:\8.bmp&
b(8) = &Attachment:\9.bmp&
c(0) = &Attachment:\jinzutongjia.bmp&
c(1) = &Attachment:\jinzutongyi.bmp&
d(0) = &Attachment:\ditu1.bmp&
d(1) = &Attachment:\ditu2.bmp&
d(2) = &Attachment:\ditu3.bmp&
d(3) = &Attachment:\ditu4.bmp&
d(4) = &Attachment:\ditu5.bmp&
d(5) = &Attachment:\ditu6.bmp&
d(6) = &Attachment:\ditu7.bmp&
d(7) = &Attachment:\ditu8.bmp&
d(8) = &Attachment:\ditu9.bmp&
Call 查找图片数组（）
Sub 查找图片数组（）
For i = 0 To 4
FindPic 0,0,,a(i),0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX, intY
RightClick 1
End If& & & &
Next& & & & & & & &
//------------------------------------------
KeyPress &B&, 1
Delay 3000& & & &
//----------------------------------------------& & & &
//查找感应所指矿的坐标& & & &
For j = 0 To 9
Call 寻找图片阵列(b(j))
//感应所指坐标组
Sub 寻找图片阵列(p)
& & FindPic 0,0,,p,0.9,X,Y
& & If X & 0 And Y & 0 Then
& & MoveTo x+12,y+12
& & Delay 400
& & LeftClick 1
& & Delay 400
& & Call 寻找矿坐标1()
& & End If
Sub 寻找矿坐标1()
FindPic 0,0,,&Attachment:\zuobiao1.bmp&,0.7,intX,intY
If intX & 0 And intY & 0 Then
Goto guanbi
Rem guanbi
FindPic 0, 0, , &Attachment:\guanbi.bmp&, 0.9, intX, intY
If intX & 0 And intY & 0 Then
MoveTo intX, intY
LeftClick 1
//--------------------------------------
//搜索是否有足通
FindPic 0,0,350,350,&Attachment:\zutongbiaozhi.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
Goto xunlu
KeyPress &B&, 1
Call 查找足通（）
KeyPress &B&, 1
//-------------------------------------------------------
Sub 查找足通（）
For i = 0 To 2
FindPic 0,0,,c(i),0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX, intY
RightClick 1
End If& & & &
Next& & & & & & & &
//---------------------------------------------------------
KeyPress &M&, 1
FindPic 0,0,,&Attachment:\kuangzuobiao.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX+5, intY+5
LeftClick 1
KeyPress &Enter&, 1
RightClick 2
//--------------------------------
For l = 0 To 9
Call 寻找地图(d(l))
//-----------------------------------
Sub 寻找地图(p)
& & FindPic 0,0,,p,0.9,X,Y
& & If X & 0 And Y & 0 Then
& & MoveTo x + 12, y + 12
& & Delay 100
& & LeftClick 1
& & Delay 500
& & Call 寻矿()
& & Delay 500
& & RightClick 1
& & End If
//------------------------------------
Sub 寻矿()
FindPic 254,79,,&Attachment:\kuangzuobiao.bmp&,0.3,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX+5, intY+5
LeftClick 1
KeyPress &Enter&, 1
//--------------------------------------------
KeyPress &M&, 1
Delay 2000
//------------判断自动寻路是否停止-----------
&&Rem 走路
& & c1=GetPixelColor(1198,63)
& & Delay 5000
& & c2=GetPixelColor(1198,63)
& & If c1 = c2 Then
& &&&Goto sssss
& && &&&Delay 200
& && &&&Goto 走路
& & End If
//------水平面扫描鼠标形状---
Rem huaquan
Call 画圈(&650,450&, 1, 10)
Sub 画圈(中心坐标, 半径, 圈数)
& & 横坐标 = Split(Trim(中心坐标), &,&)(0)
& & 纵坐标 = Split(Trim(中心坐标), &,&)(1)
& & 派 = 3.7
& & 角度 = 0 : 种子 = 派 / 180 : 圈数s = 0
& & While 1
& && &&&偏移x = 半径 * Cos(角度 * 种子)
& && &&&偏移y = 半径 * Sin(角度 * 种子)
& && &&&MoveTo 横坐标 + 偏移x, 纵坐标 + 偏移y
& && &&&'此处进行鼠标特征判断
& && &&&var = GetCursorShape(0)
Goto huaquan
& && &&&角度 = 角度 + 5 '单位可以自己改，越小越圆滑
& && &&&If 角度 mod 20 = 0 Then
& && && && &半径 = 半径 + 1
& && && && &If 角度 &= 360 Then
& && && && && & 角度 = 0
& && && && && & 圈数s = 圈数s + 1
& && && && && & If 圈数s = 圈数 Then
& && && && && && &&&Exit Sub
& && && && && & End If
& && && && &End If
& && &&&End If& && && && && && &&&
& && &&&Delay 10 '加大转的慢
shubiao = GetCursorShape(0)
If shubiao =
& & & & RightClick 2
Delay 5000
KeyPress &Enter&, 1
//---------战斗---------
GetColor=GetPixelColor(30,60)
If GetColor = &0000FF& Then
& & & & MessageBox &进入战斗&天龙八部3按键精灵会封号吗_百度知道
天龙八部3按键精灵会封号吗
自动打怪，自动跑商，安按健精灵会封号吗
我有更好的答案
不会的，放心用，现在都用那个，望楼主多挣钱
不会的。要是会就不会有工作室什么的了
不会，我就是在用
为您推荐：
其他类似问题
您可能关注的内容
天龙八部3的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。大家都在搜：
扫描二维码安装房天下APP
手机浏览器访问房天下
> > 问题详情
我想不停的按E键,每隔1.5秒按一次,用按键精灵的话应该怎么做?麻烦稍微具体些,谢谢!
其实就是WOW里要研磨草药，做了宏，然后快捷键是E。求大家指点~
浏览次数：0
你把下边的代码复制到按键精灵的源文件里面就行了,69是E键的按键码,秒Hwnd = Plugin.Window.Foreground()Rect = Plugin.Window.GetClientRect(Hwnd)Rem SCall Plugin.Bkgnd.KeyPress(Hwnd, 69)Delay 1500Goto S
不知道下面这条知识能否帮助到您
现实生活中,许多父母愿意在房产证上加上子女的名字,以期望给孩子更多的保障,殊不知,父母在房产证上加子女的名字,从法律上看可能会给两方都带来不少的麻烦。一起来看看父母及子女各有什么样的麻烦。
房产证上加子女的名字麻烦事儿多
While true //无限循环头KeyPress "E", 1 //按下E键Delay 1500 //延时1500毫秒,即1.5秒wend //无限循环尾
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有房天下通行证，
ask:2,asku:0,askr:20,askz:15,askd:85,RedisW:0askR:49,askD：0 mz:hit,askU:0,askT:0askA:50
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
违法信息举报邮箱：网站已改版，请使用新地址访问：
05-17(win7) 网易公司出的游戏天下3为了提高采集可以实现自动 挂机的脚本软件不会被封号 Game Program
238万源代码下载-
&文件名称: 05-17(win7)
& & & & &&]
&&所属分类:
&&开发工具: EasyLanguage易语言
&&文件大小: 4774 KB
&&上传时间:
&&下载次数: 17
&&提 供 者:
&详细说明：网易公司出的游戏天下3为了提高采集可以实现自动采集挂机的脚本软件不会被封号-NetEase game world in order to improve the collection can be collected automatically hang up the script software will not be titles
&[]:不能解压或下载失败
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - 天下2自动采集脚本,用按键精灵导入即可使用.
&[] - 天龙自动启动并登录的脚本，启动登录没问题，但是多开有些不太给力，正在研究中
&[] - 天下3自动采集程序，此为源代码，用按键精灵导入就能用