Private Sub Command1_Click() WebBrowser1.Navigate "http://localhost/" Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer() Dim doc, objhtml As Object Dim i As Integer Dim strhtml As String If Not WebBrowser1.Busy Then Set doc = WebBrowser1.Document i = 0 Set objhtml = doc.body.createtextrange() If Not IsNull(objhtml) Then Text1.Text = objhtml.htmltext End If Timer1.Enabled =...
[ 查看全文 ]