VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之使用VB获得一页的HTML代码

  • 2017-06-17 22:39 来源:未知
加入WebBrowser、Timer、CommandButton控件各一个,然后使用以下代码:  

Private Sub Command1_Click()  
WebBrowser1.Navigate "http://www.163.com/"  
Timer1.Enabled = True  
End 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 = False  
End If  
End Sub

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

相关教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们       黑ICP备07002182号