Dim ss(10)
   dim sss(10)
   ss(0)="73A5EF"  //强韧
   ss(1)="8C9C11"  //威严
   ss(2)="11DE42"  //狂乱
   ss(3)="4A4A42"  //灵魂
   ss(4)="529429"  //灾难
   ss(5)="4A295B"  //眼睛
   ss(6)="D69473"  //小篮
   ss(7)="848484"  //无色
   ss(8)="AD73D6"  //碳 175,191
   ss(9)="BDB5C6"  // 蓝冰
   //这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
   sss(0)= 20000
   sss(1)= 20000
   sss(2)= 20000
   sss(3)= 4000
   sss(4)= 3200
   sss(5)= 25000
   sss(6)= 100
   sss(7)= 50
   sss(8)= 50
   sss(9)= 9000
   Dim n,m,i,j
   Dim jiage
   n=0
   geshu=1
   Dim  kx
   kx=85  //第一格物品x取色点
   ux=kx
   Dim  ky
   ky=191 //第一个物品y取色点
//扫描第一行物品，共8个物品格
for 8  
// 单格物品扫描
  For 10
   IfColor ux,ky,ss(n),0
      jiage=wupin(geshu,sss(n))    //获取物品价钱
      Exit For 
   End If  
       n=n+1 
  Next 
  qian=qian+jiage         //计算总价格
  jiage=0                 //价格清零
  ux=ux+30                //x坐标加30，扫描下一个框内物品
  geshu=geshu+1           //个数循环
  n=0
Next   If qian<>0 then
    'MsgBox "总价钱为："&qian
   MoveTo 197,301
   Delay 250
   LeftClick 1
   Delay 250
   KeyPress "BackSpace", 10         //金钱输入清零
   Delay 50
   Dim shuzi(9)
   shuzi(0)="0"
   shuzi(1)="1"
   shuzi(2)="2"
   shuzi(3)="3"
   shuzi(4)="4"
   shuzi(5)="5"
   shuzi(6)="6"
   shuzi(7)="7"
   shuzi(8)="8"
   shuzi(9)="9"
   i=1
   Dim shu
   cishu=len(qian)
   For cishu
   shu=left(qian,1)               //取qian的左起第一个数字
   qian=right(qian,cishu-i)       //取qian的右起第I个数字
   KeyPress shu,1
   Delay 250
   i=i+1
   Next 
  End if
  Delay 100
  LeftClick 1
  gosub 检查并交易
End Sub 

Function  wupin(GS,JQ)    //计算物品总价格
//代码太他妈有才了
//此代码论坛中有，个人觉得很好。
dim a(100) 
dim b(100) 
dim q(100)  
        number0="Attachment:\0.bmp" 
        number1="Attachment:\1.bmp" 
        number2="Attachment:\2.bmp" 
        number3="Attachment:\3.bmp" 
        number4="Attachment:\4.bmp" 
        number5="Attachment:\5.bmp" 
        number6="Attachment:\6.bmp" 
        number7="Attachment:\7.bmp" 
        number8="Attachment:\8.bmp" 
        number9="Attachment:\9.bmp" 
    cishu=1
    leftx=72+(GS-1)*30   //132