当前位置:编程学习 > VB >>

请高手帮解释一段代码

请高手帮我看看这段代码,再帮我完善一下,private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCall?


谢谢! --------------------编程问答-------------------- 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

就是一个声明而已 --------------------编程问答-------------------- 哦,谢了,但是我想用它来取得外部连接来下载文件,这样可以吗,还是要给出其他代码来实现啊 --------------------编程问答-------------------- 下载是吗?声明还是楼上的声明!
URLDownloadToFile 0, "a", "b", 0, 0
a写你的下载地址
b写你下载后存放的路径
如果你要运行下载的东东就再加句
ShellExecute 0, vbNullString, "c", vbNullString, vbNullString, vbNormalFocus
c写你文件的路径!给你个示例

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
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
URLDownloadToFile 0, "http://127.0.0.1/1.exe", "d:\2.exe", 0, 0
ShellExecute 0, vbNullString, "d:\2.exe", vbNullString, vbNullString, vbNormalFocus
End Sub
--------------------编程问答-------------------- Private Declare Sub URLDownloadToFile Lib "URLMON.DLL" (ByVal lpunknown As Long, ByVal lpcstr As String, ByVal lpcstr As String, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)

这是一个API函数的声明,给你一个查阅API函数声明的工具,你可以查阅很多API函数的VB声明:
http://download.csdn.net/source/1441577 --------------------编程问答-------------------- 谢谢 --------------------编程问答-------------------- 路过
补充:VB ,  网络编程
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,