来源：互联网
(资料图)
1、没有物品宝宝存仓库,有的可以自己增加一下.VBS dim tp(16),a,x,y,linex,liney,bx,by,s,i,jsqVBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiageVBS jszjg,jszjiage,jyzjg,jyzjiage,zdlzjg,zdlzjiage,mhzxjg,mhzxjiage,hmzxjg,hmzxjiageVBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiageVBS zzjg,zzjiage,cjqsjg,cjqsjiage,zongjiage//声明变量UserVar jsjg=1 减伤害低级的价格UserVar jyjg=1 经验低级的价格UserVar zdljg=5 战斗力低级的价格UserVar mhjg=3 魔魂的价格UserVar hmjg=7 幻魔的价格UserVar jszjg=15 减伤害中级的价格UserVar jyzjg=15 经验中级的价格UserVar zdlzjg=60 战斗力中级的价格UserVar mhzxjg=90 魔魂之心的价格UserVar hmzxjg=120 幻魔之心的价格UserVar lhjg=60 灵魂的价格UserVar ojg=20 O型宝宝的价格UserVar gxjg=6 孤星的价格UserVar sxjg=6 双星的价格UserVar fzjg=15 法猪的价格UserVar zzjg=15 战猪的价格UserVar cjqsjg=7 莎菲的价格VBS tp(0)="1js1":tp(1)="2jyx1":tp(2)="3zdx5":tp(3)="4mh4":tp(4)="5hm8":tp(5)="6jsz15"VBS tp(6)="7jyz15":tp(7)="8zdz60":tp(8)="9mhzx100":tp(9)="10hmzx120":tp(10)="11lh70":tp(11)="12o20"VBS tp(12)="13gx5":tp(13)="14sx5":tp(14)="15fz14":tp(15)="16zz14":tp(16)="17cjqs7"//初始化变量，x是区域左边、y是区域左边、bx是区域下边、by是区域下边，s是图片数量UserVar str1="收裁决骑士莎菲7 双防22 猪18 双孤星8 战斗力+1/5" 请输入自动叫喊的第1句话UserVar str2="人在【一】号摊位旁边卖的速度,不收的东西放上去价格全部不计" 请输入自动叫喊的第2句话UserVar str3="收裁决骑士莎菲7 双防22 猪18 双孤星8 战斗力+1/5" 请输入自动叫喊的第3句话UserVar str4="请速度放上东西,时间不等人,不收的东西放上去价格全部不计" 请输入自动叫喊的第4句话UserVar str5="这是自动喊的第5句话" 请输入自动叫喊的第5句话UserVar Yanshi=5000 两句喊话之间的等待时间，1秒钟是1000//****************设置结束*****************Delay 4000Rem 开始喊话KeyPress 13 1Delay 300SayExpression str1KeyPress 13 1Delay YanshiGosub 检查有没有交易KeyPress 13 1Delay 300SayExpression str2KeyPress 13 1Gosub 检查有没有交易Delay YanshiKeyPress 13 1Delay 300SayExpression str3KeyPress 13 1Gosub 检查有没有交易Delay DaYanshiRem 等待半分钟后，进行下一轮叫卖Goto 开始喊话EndScriptSub 程序开始 Gosub 计算物品数量 Delay 100 Gosub 输入价钱 Delay 100 Gosub 交易等待Return 程序开始Sub 检查有没有交易 VBSCall findpic(0,0,1024,768,"..myphoto商贸.bmp",0.9,x,y) If x>=0 and y>=0 Delay 300 MoveTo 443,446 Delay 500 LeftClick 1 Delay 2000 Gosub 检测放物品 Delay 500 Gosub 程序开始 EndIfEndIfReturn 检查有没有交易Sub 检测放物品 VBS i=0 VBS a = 0 : x = 51 : y = 264 VBS s=0 For 12 Rem 开始检测放物品 If i>=6 Goto 检测放物品结束 EndIf IfColor x,y,80808,2 Delay 2000 VBS i=i+1 Goto 开始检测放物品 Else VBS x=x+34 VBS i=0 VBS a=a+1 If a=5 VBS x = 51 : y = 264+34 EndIf EndIf EndFor Rem 检测放物品结束Return 检测放物品Sub 检测交易有没有被提前结束 IfColor 125,144,896c6,2 IfColor 149,141,896c6,2 Goto 交易没被结束 Else Goto 开始喊话 EndIf Else Goto 开始喊话 EndIf Rem 交易没被结束Return 检测交易有没有被提前结束Sub 计算物品数量 VBS i=0 Gosub 检测交易有没有被提前结束 For 17 VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347 VBS s=0 Delay 100 While a = 0 //如果变量a等于0，则循环执行下面命令 Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,x,y) //区域找图 If x>=0 and y>=0 //Delay 1000 //MoveTo x,y //Delay 1000 //MoveTo 247,294 //Delay 3000 x = x + 34 : by = y + 34 //区域左边加1。
2、这里的34指的是图片的宽度，自改 s = s + 1 //如果找到图片在数量上加1 Rem line Delay 10 VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,linex,liney) //这是是在同一行再查找 If linex>=0 and liney>=0 //Delay 1000 //MoveTo linex,liney //Delay 1000 //MoveTo 247,294 //Delay 3000 x = linex + 34 //区域左边加1 s = s + 1 //数量加1 Goto line //返回同一行再查找 Else //否则 x = 34 : y = y + 34 : by = 347 //左边初始为0，上边加1，初始化区域下边 EndIf Else //如果没有找到图片 a = 1 //变量a为1（退出循环） EndIf EndWhile Gosub 计算价格 // VBSCall messagebox("共找到 " & s & " 个"&"tp("&i&") "&"相同图片" & tp(i) & " ") VBS i=i+1 //弹出结果 EndForReturn 计算物品数量Sub 计算价格 //《计算价格》 If i=0 Rizhi="减伤害低级石头" VBS jsjiage=(jsjg*s) //VBSCall messagebox("合计 " & jsjiage & " MS") ElseIf i=1 Rizhi="经验低级石头" VBS jyjiage=jyjg*s //VBSCall messagebox("合计 " & jyjiage & " MS") ElseIf i=2 Rizhi="战斗力低级石头" VBS zdljiage=zdljg*s //VBSCall messagebox("合计 " & zdljiage & " MS") ElseIf i=3 Rizhi="魔魂" VBS mhjiage=mhjg*s //VBSCall messagebox("合计 " & mhjiage & " MS") ElseIf i=4 Rizhi="幻魔" VBS hmjiage=(hmjg*s) //VBSCall messagebox("合计 " & hmjiage & " MS") ElseIf i=5 Rizhi="减伤害中级石头" VBS jszjiage=jszjg*s ElseIf i=6 Rizhi="经验中级石头" VBS jyzjiage=jyzjg*s ElseIf i=7 Rizhi="战斗力中级石头" VBS zdlzjiage=zdlzjg*s ElseIf i=8 Rizhi="魔魂之心" VBS mhzxjiage=mhzxjg*s ElseIf i=9 Rizhi="幻魔之心" VBS hmzxjiage=hmzxjg*s ElseIf i=10 Rizhi="灵魂" VBS lhjiage=lhjg*s //VBSCall messagebox("合计 " & lhjiage & " MS") ElseIf i=11 Rizhi="O型宝宝" VBS ojiage=ojg*s ElseIf i=12 Rizhi="孤星" VBS gxjiage=gxjg*s ElseIf i=13 Rizhi="双星" VBS sxjiage=sxjg*s ElseIf i=14 Rizhi="法猪" VBS fzjiage=fzjg*s ElseIf i=15 Rizhi="战猪" VBS zzjiage=zzjg*s ElseIf i=16 Rizhi="莎菲" VBS cjqsjiage=cjqsjg*s VBS zongjiage=0 VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage) //VBSCall messagebox("合计 " & zongjiage & " MS") Else VBS zongjiage=0 EndIfReturn 计算价格Sub 输入价钱 MoveTo 200,410 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 100 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 1000 SayString zongjiage Delay 1000 Rem 输入ms MoveTo 263,415 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 100 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 500 IfColor 263,415,8ccfde,2 Goto 输入ms Else MoveTo 136,513 Delay 500 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 300 EndIfReturn 输入价钱Sub 交易等待 jsq=0 Rem 等待交易 If jsq>=20 MoveTo 205,515 Delay 1000 Gosub 检测交易有没有被提前结束 LeftClick 1 Delay 300 Goto 对方不交易 EndIf IfColor 233,494,a5f62,2 Delay 1000 jsq=jsq+1 Goto 等待交易 Else EndIf Rem 对方不交易Return 交易等待好象没有哦。
本文到此分享完毕，希望对大家有所帮助。
标签：
