×

关注微信公众号

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

[vb,vc,delphi] 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 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

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

本版积分规则