Вопрос про винсок&Файлы из интернета

[RazArt]

Как используя винсок скачивать файлы из интернета, не прибегая к стандартной качалке IE.
P.S. Я юзал поиск и все примеры реализованны через IE(

[BION]

Как используя винсок скачивать файлы из интернета, не прибегая к стандартной качалке IE.
P.S. Я юзал поиск и все примеры реализованны через IE(

Для скачивания из интеренета ненадо использовать винсок, достаточно URLDownloadToFile

Код: Выделить всё

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


[RazArt]

А подробнее, зачем нужны половина этих переменных?

[Viper]

А подробнее, зачем нужны половина этих переменных?

Может быть все-таки аргументов?

[RazArt]

Ну да, просто привык, энто же все равно переменные)

[iGrok]

Ну да, просто привык, энто же все равно переменные)

Открываешь гугль, вбиваешь туда "URLDownloadToFile", и по первой же ссылке смотришь подробное описани функции на английском. Если что-то остаётся непонятным - спрашиваешь. )

[RazArt]

Здесь он совершенно не реагирует, если нужна авторизация пользователя

Код: Выделить всё

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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000


Private Sub Form_Load()

   Command1.Caption = "Download File"
   
End Sub

   
Private Sub Command1_Click()

   Dim sSourceUrl As String
   Dim sLocalFile As String
   Dim hfile As Long
   
   sSourceUrl = "http://vbnet.mvps.org/code/faq/fileloadtext.htm"
   sLocalFile = "c:\deleteme.htm"
   
   Label1.Caption = sSourceUrl
   Label2.Caption = sLocalFile
   
   If DownloadFile(sSourceUrl, sLocalFile) Then
   
      hfile = FreeFile
      Open sLocalFile For Input As #hfile
         Text1.Text = Input$(LOF(hfile), hfile)
      Close #hfile
     
   End If

End Sub


Public Function DownloadFile(sSourceUrl As String, _
                             sLocalFile As String) As Boolean
 
  'Download the file. BINDF_GETNEWESTVERSION forces
  'the API to download from the specified source.
  'Passing 0& as dwReserved causes the locally-cached
  'copy to be downloaded, if available. If the API
  'returns ERROR_SUCCESS (0), DownloadFile returns True.
   DownloadFile = URLDownloadToFile(0&, _
                                    sSourceUrl, _
                                    sLocalFile, _
                                    BINDF_GETNEWESTVERSION, _
                                    0&) = ERROR_SUCCESS
   
End Function

[tyomitch]

Качалка из Кирпичей умеет обрабатывать авторизацию.

[RazArt]

Умеет, но твоя качалка сделанна из IE, а я хочу узнать как качать файлы винсоком

[awl100Alex]

RazArt
Если тебе так нужно именно через Winsock... да еще и авторизовываться... то, скорее всего, для начала тебе нужно будет запустить на своем компе службу IIS (Internet Information Services) – таким образом сделав его Web-сервером. Или использовать удаленный... корпоративный, например.
Затем используя POST-запросы в методе SendData в конце добавлять строку вида:..
Login=Здесь_твой_Логин&Domain= Здесь_твой_Сайт&Password= Здесь_твой_Пароль
- по сути повторять тоже, что и делают браузеры. После этого, принимать ответ в GetData в таком же тэговском виде и анализировать, разделять, сохранять в файл...
P.S.
Это все пока чисто теоретическая идея, на практике не проверял. Может получится, а может и нет в виду каких-то неучтенных тонкостей. Не знаю, но попробовать можно.

[BION]

WinHTTP+MSHTML+URLDownloadToFile

[tyomitch]

Умеет, но твоя качалка сделанна из IE, а я хочу узнать как качать файлы винсоком

Там тот же самый urlmon, что и в предложенной URLDownloadToFile.
А чего ради нужно именно через винсок?

[RazArt]

Мне просто интерестно как работают эти WinAPI функции и могу ли я сделать что-то подобное

[alibek]

Можешь. Только вначале придется почитать про протокол HTTP и Cookies.