String形式的私有函數strGetDate()
Dim XmlHttp作為對象
set XmlHttp = CreateObject(" Microsoft。XMLHTTP”)
XmlHttp。打開“Get”，“/time/datetime.asp”，False
XmlHttp.send
strGetDate = StrConv(XmlHttp。ResponseBody，vbUnicode)
設置XmlHttp =無
結束功能
私有子窗體_Load()
定時器1。“Interval = 3600000”設置為每小時檢測壹次。
末端接頭
私有子定時器1_Timer()
Dim NowTime為字符串，SetTime為字符串
Nowtime = format (strgetdate，" yyyy-mm-ddhh: mm: ss ")'獲取在線當前時間。
settime = " 2018-01-1 00:00 " '設置到期時間。
如果現在& gtSetTime然後MsgBox("使用軟件的時間！")
末端接頭