×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 624311|回复: 11

VB获得一页的html代码

[复制链接]

该用户从未签到

发表于 2006-3-22 13:08:49 | 显示全部楼层 |阅读模式
  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 = False

  End If

  End Sub

本栏文章均来自于

该用户从未签到

发表于 2007-4-9 05:18:21 | 显示全部楼层
樓主又是你啊???你是不是這麼行啊```可以教我一個快速學VB的方法嗎?

该用户从未签到

发表于 2018-1-13 21:28:37 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-1-13 21:11:24 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-1-13 22:00:04 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-1-13 21:26:21 | 显示全部楼层
教程网我挺你
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-1-13 21:12:11 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:04:27 | 显示全部楼层
顶顶多好
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:42:11 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:16:42 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:08:52 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-24 21:35:02 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则