b.网络.获取网络时间()
'Delay 2000
'If wlsj>cdate("2011-1-11")
' Delay 100
'MsgBox "使用期限已到,请从任务管理器关闭程序"
'EndScript 
'end if
//使用期限检测脚本

DimEnv shuliang,time1,time2,time3,time4,ktjc,feyjy
Dim hwnd,hwnd1,hwnd2
DimEnv kaiguan
kaiguan=0
hwnd=Plugin.Window.MousePoint 
x=Plugin.Window.Move(hwnd,0,0)
'Delay 1000
time1=plugin.sys.GetTime //获取脚本运行时系统初始时间
'ktjc=1
'set ws=createobject("wscript.shell")
'ws.run "c:\testfile.txt",5,ture
'Delay 500
'hwnd2=Plugin.Window.Foreground 
'y=Plugin.Window.Move(hwnd2,0,480)
gosub 站街自动喊话

Rem kaitou
Sub 站街自动喊话 //站街喊话脚本
//下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量
UserVar fdys=15 "防掉线设置"
MoveTo 603,439
gosub 检查是否有交易
time3=plugin.sys.GetTime 
If int(time3-time1)>fdys*60*1000 then //15分钟后开启防掉线，只支持站街的时候
gosub 防掉线
End If 
KeyPressS "Enter", 1
Delay 200
NUM =plugin.Color.CountColor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在
If NUM>0 then
KeyPressS "Z", 2
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
delay 1000
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 

Sub 等待放入物品
Dim i
i=0
UserVar ddfw=10000 "等待放入物品延迟时间（单位：毫秒）注：1000毫秒=1秒"
Delay ddfw
Do Until i<8
FindPic 71,173,306,198,"Attachment:\交易栏无物品图.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=i+1
Else 
gosub 检查并交易 
End If
Loop 
If i>0
KeyPress "esc",1
Delay 100
gosub 站街自动喊话
End If 
End Sub 

Sub 输入金钱
Dim qian,x,cishu
Rem jiaqian
qian=jiage(100)
If qian<>0 then
'MsgBox "总价钱为："&qian
MoveTo 197,301
Delay 250