菜鳥编程园地

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1534|回复: 0

【CBM666 的API下载文件】

[复制链接]

34

主题

36

帖子

74

积分

超级版主

Rank: 8Rank: 8

积分
74
QQ
发表于 2020-7-25 11:00:01 | 显示全部楼层 |阅读模式


【本代码来源出处:CBM666 VB6 编程教材】

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
   DoFileDownload StrConv("http://b4x.tech/Pictures/AboutSam.png", vbUnicode)
End Sub



回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|菜鳥编程园地 ( 蜀ICP备20021315号-1 )

GMT+8, 2022-12-2 20:05 , Processed in 0.206121 second(s), 22 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表