征服自动打怪脚本
‘壹’ 征服自动打怪脚本
要什么脚本.别的没有.捐官精灵我到是有.不用手动.开起来只要按F10就会自动开始捐.捐到你没TS为止.
‘贰’ 怎么用TC制作工具制作一个可以自动打怪的辅助器啊！
自动打怪是比较简单的,TC的自动打怪脚本主要是一下几天,然后自己去整合就可以了。
1.会TC的找图找色
2.会TC的模拟鼠标键盘
3.会TC的基本语法
思路
1.根据快捷键取怪物(模拟TC按键)
2.判断是否取到怪物,通过怪物固定坐标出现的颜色值(TC找色)
3.如果取到怪物,模拟鼠标键盘,进行自动打怪操作。(模拟TC按键)
4. 打怪过程中,判断自己的人物血量,如果低于某个血量,自动按键回血。(TC按键,TC找色)
5.判断怪物是否死亡,如果怪物死亡继续第一步操作,从下取怪,如果没有死亡,继续第三步,继续自动打怪。(TC找色,TC语法)
‘叁’ 传奇自动打怪脚本
横刀辅助挂机脚本有快捷自动挂机勾选即可自动打怪，也可以录制进地图，然后运行脚本即可完成自动打怪
‘肆’ 求按键精灵自动打怪及半手动打怪脚本
1、运行按键精灵。在主界面上点选“新建”进入脚本编辑
2、在界面左边的命令类型里选择鼠标命令。常用的就是前2个。假设游戏中人物为中心坐标500，500。我每次选取怪物前需点选角色自己。那么如图，鼠标移动到 那里可以下拉选择一个坐标插入命令。（这个坐标可以直接在游戏里截取也可以自己设置。如何在游戏里抓点，后边会介绍到。）然后鼠标动作下拉菜单里选择左键单击==插入命令。
3、如果手动输入坐标点的话，可以先插入鼠标移动到x=0 y=0。然后在脚本区直接修改。2种修改方式。一是在源文件中修改，一种是在普通里双击命令修改，如图
4、假设游戏的寻怪快捷键为F1。那么找到键盘命令。这里常用的2种命令，一是按键，二是按键组合。只要把鼠标点在下图中空白处，然后在键盘上按下需要编辑的键，就可以自动记录了。
5、上一步已经按了自动寻怪了。下一步该进行攻击了。假设攻击的快捷键是ctrl+1。这就用到按键组合的命令了。插入ctrl+1的命令脚本。这里需要注意的是，默认是执行命令脚本时，按下ctrl+1后只弹开ctrl键。如图：
6、我们需要手动输入弹开1键的命令。点选源文件，我们可以看到按下1键和弹起ctrl键的命令分别是keypress 49，1 和 keyup 17，1 组合一下就得到弹起1键的命令为keyup 49，1。这里要注意的是逗号要用半角输入。
7、一套连贯的攻击完毕。下边需要对自动吃药的脚本进行编辑。在这个命令里我们主要是依靠对颜色的辨别来完成的。在控制命令里选择需要的点和颜色进行编辑。（点和颜色用抓点功能直接在游戏里抓取）下边插入的这个命令解读为若点796，638的颜色为黑色时则如何，否则如何。什么意思呢？假设游戏人物HP条50%处的点为796，638。那么如果血掉到50%以下，这个点的颜色就应该是黑的了。这时我就要吃HP药水了。
8、可以看出，这条命令无法单独使用。我们需要插入吃药的脚本命令。先在其他命令中选择延时100毫秒插入，然后插入游戏中HP药水的快捷键F2。这里说一下延时的用处。延时的设置是因为如果连续运行多条脚本命令时，机器可以能反映不过来而当掉，所以基本每条单独的命令都会插入适当的延时。
9、若需要设置吃MP药水，则同上步骤。若需在游戏中喊话，则可在其他命令中选择文本输入命令。记着输入完文本还需设置回车命令将文本发送出去。
10、关于抓点。脚本编辑界面上方直接点选抓点功能，然后切入游戏，将鼠标放到需要抓的点上，按抓点快捷键就可以将鼠标点的坐标和颜色抓取下来了。
11、脚本编辑完毕，我们还需对脚本的启动、停止热键，以及对脚本的描述做出修改。热键直接点在右边编辑窗口需要修改的地方，然后点下鼠标就可以修改了。热键点完空白地方直接在键盘上按一下就可以了。注意脚本循环里一定要选择循环到按中止键为止。
12、OK，全部编辑完毕，保存脚本退出。返回按键精灵主界面。现在已经可以看到我们自己制作的脚本了。
以上就是按键精灵简单的游戏脚本制作，要注意的是几乎所有的网络游戏都可以使用按键精灵，但部分带有比较强的反外挂系统的网游只能使用按键精灵的部分功能，比如带有nProtect或者xTrap反外挂系统的网游，就必须使用按键精灵最新版，并且打开神盾自我保护功能，才能使用。
‘伍’ 征服脚本在那里找啊
征服挂机脚本
-本脚本可能不适合新游戏版本,我已经没玩征服快一年了,这里仅仅是提供给初学者的脚本学习,不便之处,请大家原谅!! -每一步基本都有相关注释 -联系:[email protected] [replyview] vbs dim r0,l,m,k,dx,dy,x,y,a,b,starttime,sunhao2,xue2,color0,color//固定半径r0=100VBS l=10 /圆半径VBS m=5 /圆半径VBS k=-90 /圆的渐变率vbs dx=1 /区的判断值 goSub 注册rem 注册用户goSub 加血提示goSub 损耗度提示gosub 半径a,b /鼠标初始坐标，开始时取得坐标值输入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///储存此时坐标///////////////////////////////////开始主脚本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //获得动态坐标EndIf IfExpression k>269 and k<630Gosub sub2 //获得动态坐标EndIf gosub 注册用户打怪VBS k=k+1 /圆的渐变率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////对应开始的循环vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///储存此时坐标 VBS l=10 /圆半径 VBS m=5 /圆半径 VBS k=-90 /圆的渐变率 endifgoto begin ////////以下为非注册用户 rem 非注册用户gosub 启动时间goSub 加血提示goSub 损耗度提示 gosub 半径a,b /鼠标初始坐标，开始时取得坐标值输入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///储存此时坐标///////////////////////////////////开始主脚本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //获得动态坐标EndIf IfExpression k>269 and k<630Gosub sub2 //获得动态坐标EndIf gosub 非注册用户打怪VBS k=k+1 /圆的渐变率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////对应开始的循环vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///储存此时坐标 VBS l=10 /圆半径 VBS m=5 /圆半径 VBS k=-90 /圆的渐变率 endifgoto begin /////////////////////////////////////////////////以上为非注册用户代码 Sub sub1VBS x=a+cos((k*3.1415926)/180)*lVBS y=b+sin((k*3.1415926)/180)*lReturn Sub sub2VBS x=a+cos((k*3.1415926)/180)*mVBS y=b+sin((k*3.1415926)/180)*mReturn /////////////////////////////////////////////////////////一下是件东西命令 Sub 捡东西vbs dim gx,gy,cx,xy VBSCall Call GetCursorPos(cx,cy)@<stdlib.vbs> //获得当前坐标，方便回到以前轨迹 VBSCall Call FindColor(x-100,y+100,x+100,y-100,"8CE3FF",gx,gy)@<stdlib.vbs> //捡金子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"EFE3EF",gx,gy)@<stdlib.vbs>/////捡银子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF55F7",gx,gy)@<stdlib.vbs>/////捡流星 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF75CE",gx,gy)@<stdlib.vbs>/////捡龙猪 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf Return ///////////////////////////////////////////一下是退出游戏命令 sub 死后回城退出IfColor 63 729 5a7584 0 KeyPress 115 1 Delay 3000 MoveTo 464 709 LeftClick 1 Delay 10000 SayString 大家玩好，我下了，先！！ KeyPress 13 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf return ////////////////////////////////////////////下面是关机命令 sub 关机Delay 4000KeyDown 91 1KeyPress 82 1KeyUp 91 1Delay 50KeyPress 8 1Delay 100SayString Shutdown.exe -s -t 0Delay 1000KeyPress 13 1return /////////////////////////////////////////////////下面是加血以及损耗度命令 Sub 加血提示vbs dim xue2 VBSCall xue2=InputBox("请输入补血最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(xue2)>=5000 VBSCall Call MessageBox("注意您补血设定值"&xue2&" 太高！")@<stdlib.vbs> ElseIf cint(xue2)<=50 VBSCall Call MessageBox("注意您补血设定值"&xue2&" 太低！")@<stdlib.vbs> EndIf EndIf ReturnSub 加血vbs dim xue1,xue2 VBSCall Call ReadMemory(&h00E50CC0,2,xue1) If cint(xue1)<=cint(xue2) KeyPress 112 1 EndIf Return Sub 损耗度提示vbs dim sunhao2 VBSCall sunhao2=InputBox("请输入损耗度允许的最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(sunhao2)>=100 VBSCall Call MessageBox("注意您损耗度设定值："&sunhao2&" ;设置太高呀！！！")@<stdlib.vbs> ElseIf cint(sunhao2)<=10 VBSCall Call MessageBox("注意您损耗度设定值："&sunhao2&" ;设置太低呀！！！")@<stdlib.vbs> EndIf EndIf Return Sub 损耗度低退出vbs dim sunhao1,sunhao2 VBSCall Call ReadMemory(&h0504D52A,2,sunhao1) If cint(sunhao1)<=cint(sunhao2) KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 2000 MoveTo 621 481 LeftClick 1 Delay 2000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return Sub 技能 vbs dim xf VBSCall Call ReadMemory(&h0053ACA8,2,xf) If cint(xf)=100 KeyPress 121 1 EndIf Return Sub 限时 vbs dim stoptime,starttime VBS stoptime=timer VBS t=stoptime-starttime If t>=600000 VBSCall Call MessageBox("使用时间已到，请注册，谢谢使用！联系：[email protected]") MoveTo 671 757 LeftClick 1 Delay 400 MoveTo 621 481 LeftClick 1 Delay 400 MoveTo 469 413 LeftClick 1 Delay 80 KeyDown 91 1 KeyPress 82 1 KeyUp 91 1 Delay 20 KeyPress 8 1 Delay 50 SayString Shutdown.exe -s -t 0 Delay 10 KeyPress 13 1 Gosub 终止脚本 EndIf Return Sub 注册 VBS dim sn1,sn2,sn3 VBSCall sn1=InputBox("请输入帐号:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 VBS sn3="ascii"+sn1 VBSCall sn2=InputBox("请输入注册码:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 If StrComp(sn2,sn3)=0 VBSCall Call MessageBox("谢谢使用！请注册！未注册用户试用10分钟,联系：[email protected]") Goto 非注册用户 elseif StrComp(sn2,sn3)=1 VBSCall Call MessageBox("谢谢您的注册和支持，请关注我们为您提供的升级服务！联系：[email protected]") Goto 注册用户 EndIf Return sub 药少退出vbs dim yaoVBSCall Call ReadMemory(&h00F92ABC,2,yao) If cint(yao)<=3 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return sub 半径vbs dim roVBSCall ro=InputBox("请输入挂机范围（建议：100~150）:")Return Sub 血少退出vbs dim blood VBSCall Call ReadMemory(&h00E50CC0,2,blood) If cint(blood)<=800 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 关机 EndIf Return sub 终止脚本 VBSCall Call MessageBox("谢谢使用！请提出建议并注册，联系：[email protected] 再见！")EndScriptReturn sub 启动时间vbs dim starttimeVBS starttime=timerReturn Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较，不同，则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 EndIf //该点判断结束 Delay 10 //循环延时///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,“0000BD”,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判断VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较，不同，则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 限时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 限时 goSub 捡东西 //打怪延时 EndIf //该点判断结束 Delay 10 //循环延时VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000 return //////////////////////////////////// Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较，不同，则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 EndIf //该点判断结束 Delay 10 //循环延时///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,“0000BD”,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判断VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //马上移动鼠标到目标点VBSCall color=GetPixelColor(x,y) //获取鼠标移动后该点色值并赋值给color IfExpression color<>color0 //同一点取得的两次色值比较，不同，则执行以下的打怪脚本 LeftClick 1 //左键单击 goSub 损耗度低退出 gosub 技能 Delay 900 //打怪延时 RightClick 1 gosub 加血 Delay 900 //打怪延时 goSub 捡东西 gosub 技能 goSub 损耗度低退出 Delay 900 //打怪延时 gosub 加血 gosub 药少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死后回城退出 Delay 500 goSub 捡东西 //打怪延时 EndIf //该点判断结束 Delay 10 //循环延时VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始设定的轨迹上LeftClick 1Delay 1000 return[/replyview]
‘陆’ 关于魔兽世界自动打怪脚本
打怪.采集.钓鱼都可以支持，版本支持1.12~5.48 这个应该就是你需要的
‘柒’ 求一个征服勇士自动打怪脚本
玩游戏一般是作为适当的娱乐.长时间玩本来就不好,伤害自己的身体,建议健康游戏.最好不要花太多精力在这上面...网游太花时间.
‘捌’ 谁有征服游戏按键精灵的打怪脚本
我有这个G。
不过是收费的。
你要不要撒。？
我加你了。
要就M我。
‘玖’ 风云自动打怪的脚本怎么做
风云自动打怪脚本终于搞定
VBS dim r
VBS dim t1
t1=now
Rem start
If DateDiff("s",t1,now)>600
KeyPress 66 1
Delay 500
Rem qd
Delay 500
VBSCall FindPic(721,259,992,468,"qd.bmp",0.9,q1,d1)
If (q1>0)
MoveTo q1+10 d1+10
Delay 500
RightClick 1
Delay 100
MoveTo 515 399
Delay 500
LeftClick 1
Delay 500
Goto qd
Else
Delay 400
KeyPress 66 1
EndIf
t1=now
EndIf
IfColor 181 16 51c26b 2
Else
KeyPress 118 1
EndIf
Delay 50
VBSCall FindPic(50,100,800,700,"222.bmp",0.9,m,n)
If (m>0)
If m<500
MoveTo m+50 n+100
Else
MoveTo m+30 n+100
EndIf
Delay 300
VBSCall FindPic(0,10,900,700,"33.bmp",0.8,o,p)
If (o>0)
KeyPress 112 1
Delay 100
MoveTo 0 0
Delay 1000
Rem 111
VBSCall FindPic(0,10,900,700,"3333.bmp",0.8,o,p)
If (o>0)
Delay 500
r=0
Goto 111
Else
Delay 100
r=r+1
If r>2
r=0
Goto 222
EndIf
Goto 111
EndIf
EndIf
Rem 222
KeyPress 32 1
Delay 100
Else
MoveTo 514 318
Delay 100
RightDown 1
Delay 100
Rem ting
VBSCall FindPic(894,98,961,161,"xiaotu.bmp",0.8,x,y)
If x>0 y>0
MoveTo (x-918)*5+518 (y-118)*5+333
Delay 100
VBSCall FindPic(50,100,800,700,"222.bmp",0.8,x1,y1)
If (x1>0)
Delay 100
MoveTo x1 y1
Delay 200
RightUp 1
Delay 1000
Else
Delay 300
Goto ting
EndIf
EndIf
EndIf
Goto start
如何判断怪物死亡的方法让我想了2天;终于有一点诀窍
困扰我的地方是:
无法判断怪物死亡:
在怪物被选中,但没有死亡的时候,头顶上有一个菱形标记,这个标记的颜色和背景色也有重合;
无法用找色;
用找图的话,打怪伤害的数字偶尔会掩盖这个图形;所以会出现当这个菱形被遮挡的时候,怪物没有死亡,但没有找到图形,以为怪物死亡了;
我利用找图,加了个判断;如果每隔100毫秒,连续3次都找不到这个图形,那么确实是怪物死亡了