vb 获取网页源码！

引用microsoft activex object data 25

Private Sub Form_Load()

Dim xml As Object, ReturnType As String

Set xml = CreateObject("MicrosoftXML>

用API 实现是最好的，，新建 模块 写下

Option Explicit

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Public Const INTERNET_OPEN_TYPE_DIRECT = 1

Public Const INTERNET_OPEN_TYPE_PROXY = 3

Public Const scUserAgent = "Microsoft Internet Explorer 60"

Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Declare Function InternetOpen Lib "wininetdll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininetdll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininetdll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininetdll" (ByVal hInet As Long) As Integer

Public Function GetUrlStr(URL As String) As String '调用时 URL 参数一定要带 >

以上就是关于vb 获取网页源码！全部的内容，包括:vb 获取网页源码！、在VB里,如何取得一个网址的源代码、vb高手进来下 获取网页源码好点的方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！