【資料圖】
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"http://初始化變量，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 交易等待好象沒有哦。
本文到此分享完畢，希望對大家有所幫助。
