六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB下载网页html源代码分享适合开发站群的初学者

    日期:2019/10/8 20:07:50来源分类:编程开发

    VB下载网页html源代码分享适合开发站群的初学者

    代码如下================================================================

    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

    '// 下载一个文件到本地
    Public Function DownloadFile(ByVal strURL As String, ByVal strFile As String) As Boolean
       Dim lngReturn                   As Long
      
       lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)
       If lngReturn = 0 Then DownloadFile = True
    End Function

    Private Sub Command1_Click()
       Debug.Print DownloadFile("https://www.so.com/s?q=" & Text1.Text, "C:\link1.txt")
    End Sub
     

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3881.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员