Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для А_н_д_р_ей

Старожил


Сообщения: 459
Благодарности: 27

Профиль | Отправить PM | Цитировать


Цитата:
Используя командную строку А зачем вам это надо?
Ment69 Да...так, как-то ради спартивного интереса
А можете привести пример: ?
допустим такой:

Цитата:
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 Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)
Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function
Private Sub Command1_Click()
Call DownloadFile("www.oszone.net/download/explorer.exe", "explorer.exe")
End Sub
чтобы я только ссылку подставил скопировал в командную строку и пошла закачка в фоновом режиме без браузера ?

Отправлено: 08:56, 05-10-2010 | #3