在你程序默认的目录下

这不是黑,只是希望大家多发贴多回贴,不能光下载吧

黑还收费,不知道这个文件搞什么用的.

收费只不过是促使大家发贴的一个方法
用于C.S的升级或者做程序中从网上下载东西使用

这VFP的DLL还不跟PRG一个样(有点脱裤子放P),搞什么2句BUILD就是DLL了.

Parameters Inter_Url,LocalFile

Declare Integer InternetOpen In wininet;
STRING sAgent, Integer lAccessType, String sProxyName,;
STRING sProxyBypass, String lFlags

Declare Integer InternetOpenUrl In wininet;
INTEGER hInternet,;
STRING lpszUrl,;
STRING lpszHeaders,;
INTEGER dwHeadersLength,;
INTEGER dwFlags,;
INTEGER dwContext

Declare Integer InternetReadFile In wininet;
INTEGER hFile,;
STRING @ lpBuffer,;
INTEGER dwNumberOfBytesToRead,;
INTEGER @ lpdwNumberOfBytesRead

Declare Integer InternetCloseHandle In wininet Integer hInet

Url_Open = InternetOpen(Inter_Url, 1, Chr(0), Chr(0), 0) &&本地初始化
If Url_Open=0
Clear Dlls
Retu -1 &&'本地初始化失败'
Endif

Url_Session = InternetOpenUrl (Url_Open, Inter_Url, "", 2, 16, 0)
If Url_Session=0
= InternetCloseHandle(Url_Open)
Clear Dlls
Retu -2 &&'网址不能打开'
Endif

Url_Fopen = Fcreate (LocalFile)
If (Url_Fopen = -1)
= InternetCloseHandle(Url_Session)
= InternetCloseHandle(Url_Open)
Clear Dlls
Return -3 &&'指定的目标档无效'
Endif

Url_SizeSum = 0
Url_ReadBuffer = Repli(Chr(0), 4096)
Do While .T.
Url_ReadBye = 0
If InternetReadFile (Url_Session, @Url_ReadBuffer, 4096, @Url_ReadBye) = 1
If Url_ReadBye = 0
Exit
Else
= Fwrite (Url_Fopen, Url_ReadBuffer, Url_ReadBye)
Endif
Url_SizeSum = Url_SizeSum + Url_ReadBye
If Url_SizeSum>1024^2
thisform.labUrlsize.Caption ='正在接收 '+allt(str(Url_SizeSum/1024^2,10,3))+'M……'
INKEY(0.001)
Else
thisform.labUrlsize.Caption ='正在接收 '+allt(str(Url_SizeSum/1024 ))+'K……'
INKEY(0.001)
Endif
Else
Exit
Endif
Enddo
= Fclose (Url_Fopen)
= InternetCloseHandle(Url_Session)
= InternetCloseHandle(Url_Open)
Clear Dlls
Return Url_SizeSum

我不明白楼上的到底懂不懂什么是COM以及COM+技术,如果你懂就不会说这些话,做人要厚道,要有一颗平常心,难道PRG的程序可以在.NET中调用吗?照你的说法,WINDOWS的API也没用了?WIMDOWS那么多DLL也是白扯了?MS公司的COM以及COM+技术都是有点脱裤子放P)?

支持，已下，但没有买。

还没弄明白,不过看了,就捧下场，值得提倡。

先下来看看。

不懂的说