1.用VB快速[网页源代码]
2.用vb获取任一网页源代码,下载下载要完整的!!!,可以用webbrowser控件

用VB快速[网页源代码]

       后台下载

       声明：

       Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

       '//调用

       然后在代码里直接调用：

       Call URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)

       如

       Call URLDownloadToFile(0, "/", "c:\1.htm", 0, 0)

       相当于另存为

       声明：

       Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long

       '//调用

       然后在代码里直接调用：

       Dim gourl As String

       AdUrl = StrConv("网页地址", vbUnicode)

       Call DoFileDownload(gourl)

用vb获取任一网页源代码,要完整的!!!,可以用webbrowser控件

       '你把下面的代码保存为Form1.frm，然后双击打开该文件，页面源码源码etl系统源码运行后按提示即可看到结果。下载下载vip 影院 源码

       '呵呵，页面源码源码vbnet游戏源码够详细了，下载下载扫描串口源码再不会我也没办法了。页面源码源码传奇php源码

       '====文件Form1.frm====

       VERSION 5.

       Begin VB.Form Form1

        Caption = "Form1"

        ClientHeight =

        ClientLeft =

        ClientTop =

        ClientWidth =

        LinkTopic = "Form1"

        ScaleHeight =

        ScaleWidth =

        StartUpPosition = 3 '窗口缺省

        Begin VB.TextBox Text2

        Height =

        Left =

        MultiLine = -1 'True

        ScrollBars = 2 'Vertical

        TabIndex = 2

        Top =

        Width =

        End

        Begin VB.TextBox Text1

        Height =

        Left =

        TabIndex = 1

        Text = "我的下载下载家"

        Top =

        Width =

        End

        Begin VB.CommandButton Command1

        Caption = "获取HTML源码"

        Height =

        Left =

        TabIndex = 0

        Top =

        Width =

        End

        Begin VB.Label Label2

        Caption = "注意：获取源码之前必须先用IE打开网址，然后输入窗口标题关键字。页面源码源码如www..com的下载下载标题关键字是：我的家"

        Height =

        Left =

        TabIndex = 4

        Top =

        Width =

        End

        Begin VB.Label Label1

        Caption = "请输入IE窗口标题："

        Height =

        Left =

        TabIndex = 3

        Top =

        Width =

        End

       End

       Attribute VB_Name = "Form1"

       Attribute VB_GlobalNameSpace = False

       Attribute VB_Creatable = False

       Attribute VB_PredeclaredId = True

       Attribute VB_Exposed = False

       Option Explicit

       Function GetIeHtml(IeTitle As String) As String

       Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")

       Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows

       Dim owin

       '获取弹出的IE窗口

       For Each owin In oShellAppWindows '获取弹出的IE窗口

       If LCase(TypeName(owin.Document)) = "htmldocument" And _

       InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口

       GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码

       GoTo Mend '退出

       End If

       Next

       Mend:

       Set oShellAppWindows = Nothing

       Set oShellApp = Nothing

       Set owin = Nothing

       End Function

       Private Sub Command1_Click()

       Dim S As String

       S = GetIeHtml(Text1.Text) '表示获得标题含有"我的家"的html代码

       Text2.Text = S

       End Sub

       Private Sub Form_Load()

       'Shell "explorer.exe ""/""", vbNormalNoFocus

       End Sub