KeyPressS "B", 1
Delay 20
KeyPressS "C", 1
Delay 20
KeyPressS "Enter", 1
Delay 1200
        ElseIf szhhjs= 4 Then
KeyPressS "B", 1
Delay 20
KeyPressS "A", 1
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 2
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 1
Delay 20
KeyPressS "C", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 1
Delay 20
KeyPressS "D", 1
Delay 20
KeyPressS "Enter", 1
Delay 1200
        ElseIf szhhjs= 5 Then
KeyPressS "B", 1
Delay 20
KeyPressS "A", 1
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 2
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 1
Delay 20
KeyPressS "C", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 1
Delay 20
KeyPressS "D", 1
Delay 20
KeyPressS "Enter", 1
Delay 3200
KeyPressS "B", 1
Delay 20
KeyPressS "E", 1
Delay 20
KeyPressS "Enter", 1
Delay 1200
End if
feyjy=0
gosub 等待交易 //跳到等待交易
End Sub

Sub 等待交易
//找图
x=Plugin.Window.Active(hwnd)
FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY //扫描交易框
If intX > 0 And intY > 0 Then
MoveTo 523,403
LeftClick 2
Delay 300

FindPic 0,0,1024,768,"Attachment:\11.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
gosub 等待放入物品
Else 
gosub 站街自动喊话
End If

Else 
gosub 站街自动喊话
End If

End Sub 
//================================================================================
//MessageBox "正在初始话请稍等"
Call Plugin.Msg.Tips("正在加载方案…")
DqTime = lib.网络.获取网络时间()
//获取网络时间，得到的时间格式为：2000-1-1 12:00:00
zzsj="2011-11-1 23:59:59"
//zzsj=终止时间 终止时间为脚本使用限定的最后时间！
If CDate(DqTime)<CDATE(ZZSJ)