http://www.vbaspnew.com/
测试过,可以下载
后台下载判拿声明:
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, "http://www.baidu.com/", "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在线:http://www.vbzx.net/SoftList/vbzx_SoftList_8_1.asp维维软件园:http://www.vvsoft.net/sort/350_1.htm
这几个地方比较不错,你要是芦伍想编写Direct接蔽物口的游戏那就多看看CSDN和MSDN还有微软的官方资料宏哗液吧。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)