Salve a tutti
Sto realizzando un software che scarica dati e/o siti da internet. Ho il problema che se la pagina o i dati non vengono trovati o non arrivano, il programma si blocca.
Il codice che ho usato è il seguente:
codice:
Dichiarazioni:
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
sub
URL = "indirizzoweb"
localFileName = "c.\percorso di salvataggio e nome del file"
end sub
la sub viene richiamata da una function ma se il file non "arriva" la sub non termina più e, naturalmente, non torno più alla function chiamante.
Volevo mettere un timer che dopo 60" costringesse la sub a terminare, ma non so cosa devo fargli fare per avere tale risultato.
Sono certo che qualcuno di voi saprà aiutarmi