VB

1.用Microsoft Internet Transfer Control 控件（在部件中添加），代码非常简单，如下（在form上添加一个Inet1和Text1和Command1）：

Private Sub Command1_Click() Text1.Text = Inet1.OpenURL("http://www.vbgood.com/") End Sub

2.如果是使用 WebBrowser控件，代码也非常简单，如下（在form上添加一个WebBrowser1和Text1）：

Private Sub Form_Load() WebBrowser1.Navigate2 "http://xsuplist.hintsoft.net/game/xsGame" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant) '显示源码 Text1.Text = WebBrowser1.Document.documentElement.outerHTML ''显示内容 'Text1.Text = WebBrowser1.Document.documentElement.outerTEXT End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!