一、首先建立正則表示式

 ''' <summary>
    ''' 正則表示式(ByVal 被檢字元, 檢索規則 strng)
    ''' </summary>
    ''' <param name="patrn">被檢字元</param>
    ''' <param name="strng">檢索規則</param>
    ''' <returns>檢索到的位置</returns>
    ''' <remarks></remarks>
    Public Function RegExp(ByVal patrn, ByVal strng)

        Dim regEx, Match, Matches, RetStr ' 建立變數。 

        RetStr = Nothing

        regEx = New VBScript_RegExp_55.RegExp    ' 建立正則表示式。      

        regEx.Pattern = patrn   ' 設定模式。        

        regEx.IgnoreCase = True   ' 設定是否區分大小寫。       

        regEx.Global = True   ' 設定全域性替換。        

        Matches = regEx.Execute(strng) ' 執行搜尋。        

        For Each Match In Matches  ' 遍歷 Matches 集合。           

            RetStr = Match.Value

        Next

        Return RetStr

    End Function
 

二、建立一個獲取網頁原始碼的函式

''' <summary>
    ''' 獲得網頁資訊(網址 As String) As String
    ''' </summary>
    ''' <param name="strURL">網址</param>
    ''' <returns>獲得網頁資訊</returns>
    ''' <remarks></remarks>

    Public Function GetWebText(strURL As String) As String

        On Error Resume Next

        Dim url As String = strURL

        Dim httpReq As System.Net.HttpWebRequest

        httpReq.ServicePoint.ConnectionLimit = 255

        Dim httpResp As System.Net.HttpWebResponse

        Dim httpURL As New System.Uri(url)

        httpReq = CType(Net.HttpWebRequest.Create(httpURL), Net.HttpWebRequest)

        httpReq.Method = "GET"

        httpResp = CType(httpReq.GetResponse(), Net.HttpWebResponse)

        httpReq.KeepAlive = False ' 獲取或設定一個值，該值指示是否與Internet資源建立持久連線。

        Dim reader As IO.StreamReader = New IO.StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))    '用GB2312字元

        Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網頁原始碼 

        Dim myip As String = ""

        Dim myPort = ""

        httpResp.Close()

        If respHTML <> "" Then

            url = ""

            myip = ""

            myPort = ""

        End If

        Return respHTML

    End Function
 

三、建立獲取網路時間的函式

   '獲得網路時間
    ''' <summary>
    ''' 網路時間()
    ''' </summary>
    ''' <param name="Style">定義時間格式</param>
    ''' <returns>網路時間</returns>
    ''' <remarks></remarks>

    Function GetWebTime(Optional Style As Microsoft.VisualBasic.DateFormat = Nothing) As String

        Dim WebText = GetWebText("http://open.baidu.com/special/time/")'從百度的北京時間獲取頁面原始碼
       
        Dim regexp As New RegularExpressions

        Dim WebTimes As String = RegExp("[0-9]{13}", WebText)'獲取原始碼中時間資訊

        Dim WebTime As Date = #1/1/1970 8:00:00 AM#'定義初始時間

        WebTime = DateAdd(DateInterval.Second, WebTimes / 1000, WebTime)'換算成現在的時間

        If Style = Nothing Then'根據時間格式引數返回不同格式的時間資訊

            Return WebTime

        Else

            Return Format(WebTime, Style)

        End If

    End Function