При момощи кирпичика (Скачка файлов из Интернета) сделал возможность обновлять свою програмулинку через интернет.
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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates (Puff0rz@hotmail.com)
DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub
Tarik писал(а):GSerg, уел
автору нужно отловить событие GetOptions и прописать для BINDF значение BINDF_GETNEWESTVERSION
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Antonariy писал(а):А мы пойдем другим путем...
- Код: Выделить всё
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Antonariy писал(а)::shock:
Удалить из кеша барахло перед загрузкой. Если это не очевидно хотя бы из названия функции... то я уж не знаю. Пойду яду, чтоль, выпью...
Tarik писал(а):Чтобы URLDownloadToFile не блокировал, можно создать новый поток.
Ага, новый поток из VB -- самое то
tyomitch писал(а):Фишка в том, что URLDownloadToFile действует полностью идентично моей качалке. Т.е. если моя берёт файл из кэша, а не с сервера, то и URLDownloadToFile возьмёт оттуда же.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 79