If DateDiff("s",StartTime,Now)>=30 And NowTime=""

            Obj.popup "请确定你已经连接上了互联网！",0,"网络时间"

            Goto EndConnect

        EndIf 

    EndWhile 

    Rem EndConnect

    riqi=Month(NowTime)&"-"&Day(NowTime)

Return 日期1

EndScript 

Gosub 日期1

Delay 200

If NowTime>"2011-3-31 22:15:00"

    MessageBox "试用时间以到，无法使用"

    EndScript 

EndIf