[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)@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)@ SaveMousePos///储存此时坐标 VBS l=10 /圆半径 VBS m=5 /圆半径 VBS k=-90 /圆的渐变率 endifgoto begin ////////以下为非注册用户 rem 非注册用户gosub 启动时间goSub 加血提示goSub 损耗度提示 gosub 半径a,b /鼠标初始坐标，开始时取得坐标值输入// VBSCall Call GetCursorPos(a,b)@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)@ 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)@ //获得当前坐标，方便回到以前轨迹 VBSCall Call FindColor(x-100,y+100,x+100,y-100,"8CE3FF",gx,gy)@ //捡金子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@ LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@ LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"EFE3EF",gx,gy)@/////捡银子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@ LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@ LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF55F7",gx,gy)@/////捡流星 If gx>0 VBSCall Call SetCursorPos(gx,gy)@ LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@ LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF75CE",gx,gy)@/////捡龙猪 If gx>0 VBSCall Call SetCursorPos(gx,gy)@ LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@ 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&" 太高！")@ ElseIf cint(xue2)<=50 VBSCall Call MessageBox("注意您补血设定值"&xue2&" 太低！")@ 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&" ;设置太高呀！！！")@ ElseIf cint(sunhao2)<=10 VBSCall Call MessageBox("注意您损耗度设定值："&sunhao2&" ;设置太低呀！！！")@ 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("使用时间已到，请注册，谢谢使用！联系：zfbug@eyou.com") 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分钟,联系：zfbug@eyou.com") Goto 非注册用户 elseif StrComp(sn2,sn3)=1 VBSCall Call MessageBox("谢谢您的注册和支持，请关注我们为您提供的升级服务！联系：zfbug@eyou.com") 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("谢谢使用！请提出建议并注册，联系：zfbug@eyou.com 再见！")EndScriptReturn sub 启动时间vbs dim starttimeVBS starttime=timerReturn Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@ //马上移动鼠标到目标点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)@IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@ 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)@//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@ //马上移动鼠标到目标点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)@//回到原始设定的轨迹上LeftClick 1Delay 1000 return //////////////////////////////////// Sub 注册用户打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@ //马上移动鼠标到目标点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)@IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@ 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)@//回到原始设定的轨迹上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在鼠标移动之前，获取目标点色值并赋值给color0VBSCall Call SetCursorPos(x,y)@ //马上移动鼠标到目标点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)@//回到原始设定的轨迹上LeftClick 1Delay 1000 return[/replyview]
