If b=0 Then 
Set c= fso.CreateTextFile("c:\testfile.txt") 
set a=fso.opentextfile("c:\testfile.txt",8)
Else 
set a=fso.opentextfile("c:\testfile.txt",8)
End If 
a.writeline(now&"————"&"第"&geshu&"格单价:"&wupin&"价钱"&jq)
a.close 
End Function 

Function jiage(yanshi)
Delay yanshi
Dim ss(100)
ss(0)="3131CE" //强韧
ss(1)="52423A" //威严
ss(2)="84C6C6" //狂乱
ss(3)="6B6B63" //灵魂
ss(4)="528429" //灾难
ss(5)="4A4A5B" //眼睛
ss(6)="D69473" //小篮
ss(7)="848484" //无色
ss(8)="AD73D6" //碳 175,191
ss(9)="BDB5C6" // 蓝冰
ss(10)="73194A" //小黑
ss(11)="7B7BEF" //小红
ss(12)="B5B5B5" //小白
//这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
uservar sss0= 23000 "强韧恶魔的邀请函"
uservar sss1= 23000 "威严"
uservar sss2= 23000 "狂乱"
uservar sss3= 3800 "灵魂"
uservar sss4= 3200 "灾难"
uservar sss5= 25000 "眼睛"
uservar sss6= 100 "小篮"
uservar sss7= 50 "无色"
uservar sss8= 50 "碳"
uservar sss9= 9000 "蓝冰"
uservar sss11= 250 "小红"
uservar sss12= 80 "小白"
uservar sss10= 120 "小黑"
Dim n,m,i,j,qian
qian=0
n=0
geshu=1
Dim kx
kx=85 //第一格物品x取色点
ux=kx
Dim ky
ky=191 //第一个物品y取色点
//扫描第一行物品，共8个物品格
for 8 
// 单格物品扫描
For 13
IfColor ux,ky,ss(n),0
sss=0
If n=0 
sss=sss0
ElseIf n=1
sss=sss1
ElseIf n=2
sss=sss2
ElseIf n=3
sss=sss3
ElseIf n=4
sss=sss4
ElseIf n=5
sss=sss5
ElseIf n=6
sss=sss6
ElseIf n=7
sss=sss7
ElseIf n=8
sss=sss8
ElseIf n=9
sss=sss9
ElseIf n=10
sss=sss10
ElseIf n=11
sss=sss11
ElseIf n=12
sss=sss12
End If 
jiag=wupin(geshu,sss) //获取物品价钱
'Call xiejiage(geshu,jiag,sss)
'BeginThread 输出信息
Exit For 
End If 
n=n+1 
Next 
qian=qian+jiag //计算总价格
jiag=0 //价格清零
ux=ux+30 //x坐标加30，扫描下一个框内物品
geshu=geshu+1 //个数循环
n=0
Next 
jiage=qian //参数传递

End Function 

Function wupin(GS,JQ) //计算物品总价格 LX 查找类型