程序代码：

Private Function getHTMLDocument(ByVal strUrl As String) As String
Dim HTML As New HTMLDocument
Dim DOC As HTMLDocument
Set DOC = HTML.createDocumentFromUrl(strUrl, vbNullString)
Do While DOC.ReadyState <> "complete"
DoEvents
Loop
getHTMLDocument = DOC.documentElement.innerHTML
Set DOC = Nothing
Set HTML = Nothing
End Function

Private Sub Timer1_Timer()
s = getHTMLDocument("http://zhoushi.") '获得源码
End Sub
'网站是数据是更新的。可是我这里的s有是候就是不变。只能关了软件从新打开就变了
只要软件关闭重开数据就更新。但是用时间空间就是不能更新。