主题:怎样在我的程序中实现文件下载


\| 网站首页 \| 文章中心 \| 下载中心 \| 图片中心 \| 访客留言 \| 数码商城 \| 毕设、论文 \| 彩票 \|

您现在的位置：有昌网络 >> 文章中心 >> 程序开发 >> VB技术专区 >> 文章正文

用户登录

新用户注册

主题:怎样在我的程序中实现文件下载

热

主题:怎样在我的程序中实现文件下载

作者：xiaochan… 文章来源：本站原创点击数：更新时间：2004-8-10 20:45:50

主题:怎样在我的程序中实现文件下载

内容:
一个例子：一个Command，两个Text 代码如下：

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

　　　Private Sub Command1_Click()
　　　Dim sDownload As String
　　　sDownload = StrConv(Text1.Text, vbUnicode)
　　　Call DoFileDownload(sDownload)
　　　End Sub

　　　Private Sub form_Load()
　　　Text1.Text = "

http://www.chat.ru/~softdaily/fo-ag162.zip";
　　　form1.Caption = "Audiograbber 1.62 Full"
　　　Text2.Text = "

http://www6.50megs.com/audiograbber/demos/cr-ag161.zip";
　　　End Sub

文章录入：xiaochang 责任编辑：xiaochang

上一篇文章： RC4经典加密算法VB版本代码

下一篇文章：用VB编写异步多线程下载程序

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

专题栏目