Dim url As String = "http://foxtable.sinaapp.com/time/"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
stm.Dispose()
Dim dt As Date = str
Dim ddd As Date = "2015-04-19"
If dt > ddd Then
MessageBox.show("试用期已到")
e.Cancel = True
End If
加好友 
发短信
Post By：2015/3/30 11:26:00 [显示全部帖子]
