Por favor, dame algunos consejos sobre el código VB. Archivos especificados en la red.

El siguiente código puede descargar el logotipo de Baidu. El archivo descargado es c: \ Baidu.gif.

Función de declaración privada URLDownloadToFile Lib "urlmon" alias "URLDownloadToFileA" (ByVal p caller es Long, ByVal szURL es String, ByVal szFileName es String, ByVal dwReserved es Long, ByVal lpfnCB es Long) es Long

La función pública DownloadFile (URL es una cadena, fn es una cadena) es un valor booleano

descargar archivo =(URLDownloadToFile(0, URL, fn, 0, 0) = 0)< / p>

Finalizar función

Subcomando privado 1_Click()

Si descarga el archivo("/img/shouye _ b 5486898 c 692066 BD 2 cbaeda 86d 74448 . gif ", " c:\baidu.gif ")Luego

MsgBox "¡Descarga exitosa!"

Otro

MsgBox "¡Descarga fallida!"

Terminará si...

Finalizar conector