IfColor 143,437,"6DA2B9",1 then
//接受任务
Delay 1000
MoveTo 143,437
Delay 100
LeftClick 1
Delay 100
KeyPress "Esc", 1
Delay 100
MoveTo 419,405
Delay 600
LeftClick 2
Else
Delay 1000
//放弃任务
MoveTo 419,402
Delay 100
LeftClick 1
Delay 100
MoveTo 336,407 
Delay 100
LeftClick 1
Delay 100 
End If
KeyPress "Esc", 1
Next 
EndScript 
End Sub 

Sub 输出信息
Call Plugin.Bkgnd.SendString(Hwnd2, "内容")
Plugin.Window.Active hwnd2
KeyPress "enter",1
End Sub 

Function xiejiage(geshu,jq,wupin)
Set fso = CreateObject("Scripting.FileSystemObject") 
b=Plugin.File.ExistFile("c:\testfile.txt")
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