注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

VB中获取网页源码的几种方法  

2012-03-13 08:03:39|  分类: VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Option Explicit
'--------------------------
'说明:Text1显示网页源码;Text2指定网页Url
'--------------------------
'利用WebBrowser控件
Private Sub Command1_Click()
Dim strContent As String, i As Integer
Text1 = ""
For i = 0 To WebBrowser1.Document.All.length - 1
    If WebBrowser1.Document.All(i).tagName = "HTML" Then
        strContent = strContent & WebBrowser1.Document.All(i).innerHTML
    Exit For
End If
Next i
Text1 = strContent
End Sub
'利用Inet控件的OpenURL方法
Private Sub Command2_Click()
Text1 = ""
Text1 = Inet1.OpenURL(Text2.Text)
End Sub
'利用Microsoft的XMLHTTP对象 这种方法很好
Private Sub Command3_Click()
Dim xmlobj As Object
Set xmlobj = CreateObject("Microsoft.XMLHTTP")
xmlobj.Open "GET", Text2.Text, False
xmlobj.send
If xmlobj.ReadyState = 4 Then
    Text1.Text = xmlobj.responseText
End If
End Sub
'利用Inet控件的Execute方法
Private Sub Command5_Click()
Text1 = ""
Inet1.Execute Text2.Text, "GET"
While Inet1.StillExecuting
    DoEvents
Wend
Text1.Text = Inet1.GetChunk(Len(Text1.Text))
End Sub
'打开指定网页
Private Sub Command4_Click()
WebBrowser1.Navigate Text2.Text
End Sub
  评论这张
 
阅读(4021)| 评论(1)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016