Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
7 / 5 / 2
Регистрация: 06.10.2018
Сообщений: 183

Скачать файл с google drive

25.06.2023, 14:38. Показов 1071. Ответов 15

Студворк — интернет-сервис помощи студентам
что то не пойму почему не скачивается файл, помогите кто может
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub DownloadAndOpenFile()
    Dim url As String
    Dim downloadPath As String
    Dim webClient As Object
 
    url = "https://drive.google.com/file"
    downloadPath = "C:\"
    Set webClient = CreateObject("MSXML2.XMLHTTP")
 
    ' Скачивание файла
    webClient.Open "GET", url, False
    webClient.send
 
    ' Сохранение файла
    If webClient.Status = 200 Then
        Dim stream As Object
        Set stream = CreateObject("ADODB.Stream")
  
        stream.Open
        stream.Type = 1 ' Binary
        stream.Write webClient.responseBody
        stream.SaveToFile downloadPath, 2 ' Overwrite
        stream.Close
  
        ' Открытие файла
        Dim shell As Object
        Set shell = CreateObject("WScript.Shell")
        shell.Run downloadPath
        Set shell = Nothing
    End If
 
    Set webClient = Nothing
End Sub
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.06.2023, 14:38
Ответы с готовыми решениями:

Скачать и загрузить файл на Google Drive
Как скачать и загрузить файл на Google Drive ,программно в c++ под windows? искал искал а гугл молчит((

Скачать файл посредством wget с google drive
Здравствуйте. Для скачивания файла с google drive я использую батник со следующим кодом: "C:\Program Files...

Как подключить папку из одного Google Drive к другому Google Drive ?
Доброго Вам Подскажите как подключить папку из одного Google Drive , чтоб она была видна в другом Google Drive как обычная папка, а...

15
428 / 333 / 61
Регистрация: 29.06.2019
Сообщений: 493
25.06.2023, 16:29
nsprovasiliy, 13-й строкой воткните код
Visual Basic
1
Debug.Print webClient.responseText
и в [Ctrl+G] посмотрите - как "не скачивается"?
И попробуйте поменять папку "C:" на какую-нибудь другую.

И ещё!
downloadPath по смыслу должен ещё содержать имя файла.
Что то типа
Visual Basic
1
downloadPath = "C:\123.xml"
2
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
28.06.2023, 19:52
Я даже не знал что на VB6 можно файлы скачивать таким скриптом. А посылать GET-запросы и получать ответы тоже можно? Например для получения API из открытых источников Интернета (API интернетный, а не VBшный) ...
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,507
Записей в блоге: 1
29.06.2023, 17:14
Цитата Сообщение от HackerVlad Посмотреть сообщение
А посылать GET-запросы и получать ответы тоже можно?
Вот, допустим, недавно было в теме на Планете Эксель. Конечн не везде все можно получить, в отдельных случаях без сторонней библиотеки (забыл название, ее в Пайтоне тоже используют) не обойтись
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function GOOGLETRANSLATE(text As String, source_language As String, target_language As String) As String
Dim URL As String
URL = "https://translate.google.com/m?sl=" & source_language & "&tl=" & target_language & "&hl=en&ie=UTF-8&q=" & text
Dim XMLHTTPS As Object
Set XMLHTTPS = CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTPS.Open "GET", URL, False
XMLHTTPS.setrequestheader "User-Agent", "Mozilla/5.0 (compatible;MSIE 6.0; WindowsNT 10.0))"
XMLHTTPS.send ""
 
Dim HTML As Object
Set HTML = CreateObject("HTMLFile")
With HTML
  .Open
  .write XMLHTTPS.responseText
  .Close
End With
 
Dim HTMLDc As HTMLDocument
Set HTMLDc = HTML
 
Dim Class As Object
Set Class = HTMLDc.getElementsByClassName("result-container")(0)
If Not Class Is Nothing Then
GOOGLETRANSLATE = Class.innerText
End If
 
Set Class = Nothing
Set HTML = Nothing
Set XMLHTTPS = Nothing
 
End Function
1
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
29.06.2023, 19:44
Цитата Сообщение от testuser2 Посмотреть сообщение
Конечн не везде все можно получить
Твой скрипт ругается на:
Dim HTMLDc As HTMLDocument

Добавлено через 40 секунд
А есть такой код для JavaScript'a? Мне как раз сайты переводить было бы удобно!?

Добавлено через 43 секунды
Но в любом случае СПАСИБО
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,507
Записей в блоге: 1
30.06.2023, 06:08
HackerVlad, я если честно, не смотрел этот код. Сейчас проверил. Он работает с подключенной "C:\Windows\SysWOW64\mshtml.tlb", но странновато, код нельзя полностью отследить в отладчике, хотя если брекпоинт ставить, в конце, то можно видеть результат. Наверное это связано с ассинхронными вызовами. Есть недостаток c английского на русский переводит нормально, а вот обратно присылает кракозябры. Вот эта тема. Подозреваю, что там при отправке кириллицы ее надо как-то конвертировать или что..
1
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 12:42
testuser2, Большое спасибо!!!

Протестировал следующий код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Function GOOGLETRANSLATE(text As String, source_language As String, target_language As String) As String
Dim URL As String
URL = "https://translate.google.com/m?sl=" & source_language & "&tl=" & target_language & "&hl=en&ie=UTF-8&q=" & text
Dim XMLHTTPS As Object
Set XMLHTTPS = CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTPS.Open "GET", URL, False
XMLHTTPS.setrequestheader "User-Agent", "Mozilla/5.0 (compatible;MSIE 6.0; WindowsNT 10.0))"
XMLHTTPS.send ""
 
Dim HTML As Object
Set HTML = CreateObject("HTMLFile")
With HTML
  .Open
  .write XMLHTTPS.responseText
  .Close
End With
 
Dim HTMLDc As HTMLDocument
Set HTMLDc = HTML
 
Dim Class As Object
Set Class = HTMLDc.getElementsByClassName("result-container")(0)
If Not Class Is Nothing Then
GOOGLETRANSLATE = Class.innerText
End If
 
Set Class = Nothing
Set HTML = Nothing
Set XMLHTTPS = Nothing
 
End Function
 
Private Sub Command1_Click()
    MsgBox GOOGLETRANSLATE("Hello world", "en", "ru")
End Sub
Строчку MsgBox GOOGLETRANSLATE("Hello world", "en", "ru") придумал сам! Слава Богу, прокатило! Хотя я понятия не имел что нужно писать в параметрах функции!

Получил результат правильный!
Изображения
 
1
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 12:58
Так и не понял как сделать перевод с русского!?
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,507
Записей в блоге: 1
30.06.2023, 15:41
Насчет скачивания файла с интернета, вот есть интересная статейка Трика. Недавно разглядывал, пытался вникнуть в очередной раз, как реализуется многопоточка. В интернетную часть не вникал, но там кстати как-то по другому все, целиком на WinApi, ни каких POST и GET, а дапустим InternetOpenUrl, InternetReadFile... По части многопоточки, мне tlb-шка нужна, Влад, не подскажешь, как их делать??
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 19:43
Так и не понял как сделать перевод с русского!?
Цитата Сообщение от testuser2 Посмотреть сообщение
Недавно разглядывал, пытался вникнуть в очередной раз, как реализуется многопоточка.
Я раз 100 наверное разглядывал и пытался вникнуть....

Добавлено через 7 минут
Цитата Сообщение от testuser2 Посмотреть сообщение
По части многопоточки, мне tlb-шка
Там много чего нужно, многопоточность я так и не освоил. Небыло времени для этого. Недели 2 наверное надо потратить. Только The Trick может тебе что-то подсказать в этом направлении, так как он компьютерный гений. Я не знаю как это всё делать, но я смог бы если бы потратил много времени на это. Неделю точно потрать надо, ни меньше. Но The trick сейчас занят, он сейчас отвечать на форуме вряд ли будет. У него много дел своих.

Добавлено через 2 минуты
Хотя The Trick самый лучший программист во всём Интернете конечно.

Добавлено через 48 секунд
На втором месте Drgokas по профессионализму. Возможно, он тоже смог бы тебе что-то подсказать по многопоточности.

Добавлено через 2 минуты
Аааа тебе наверное надо создание TLB именно, а не многопоточность? Тогда создай тему я там отвечу.
0
7 / 5 / 2
Регистрация: 06.10.2018
Сообщений: 183
30.06.2023, 19:48  [ТС]
а мне Лайкусик все же с моего вопроса началось вон че замутил
1
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 19:54
Цитата Сообщение от testuser2 Посмотреть сообщение
InternetOpenUrl, InternetReadFile
Самая распространённая функция для скачивания файлов с Интернета это URLDownloadToFileA

Visual Basic
1
2
3
4
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
На этом форуме много раз видел как используют эту функцию.

Добавлено через 1 минуту
nsprovasiliy, мне не жалко лайков) надеюсь ты решил свой вопрос по своей теме)

Добавлено через 1 минуту
nsprovasiliy, кстати тебе тоже может эта функция URLDownloadToFileA понадобится, вот здесь что-то такое: Сохранение кода сайта в файл
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,507
Записей в блоге: 1
30.06.2023, 20:04
Цитата Сообщение от HackerVlad Посмотреть сообщение
Хотя The Trick самый лучший программист
Он молодец, что многим делится, много статей написал. Пусть даже где-то не понятно, спустя время читаешь и уже более понятно. Я думаю, уже в принципе понимаю, как сделать простую многопоточку "по колхозному". Самую простую я уже сделал на VBA, надо будет тему открыть. Меня в частности на это VBA больше интересует, поскольку про VB все описано вдоль и поперек..
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 20:08
testuser2, так тебе нужно было создание TLB или многопоточность?
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,507
Записей в блоге: 1
30.06.2023, 20:18
Цитата Сообщение от HackerVlad Посмотреть сообщение
так тебе нужно было создание TLB или многопоточность?
и то и это, и фиг его знает чего еще, чтоб не чувствать себя нубом, среди школоты ) Шутка конечно, школота ныньче на Пайтоне пробовляется, там даже типов нету вродь.. такое себе
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
30.06.2023, 20:20
testuser2, по многопоточности это слишком сложная тема, а вот по созданию TLB я легко отвечу, пиши там в теме что именно тебе нужно вообще
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.06.2023, 20:20
Помогаю со студенческими работами здесь

Загрузить файл на Google Drive
Загрузить файл на Google Drive C#

Api Google Drive обновить файл
Как сформировать запрос (ну и каким методом его исполнять) на обновление файла на гугл диске с диска компьютера? Такой по типу запрос...

Отправка данных на сервер в файл (google drive)
Недавно начал изучать андроид и хочу попробовать отправить данные в файл, который хранится в гугл драйв. Как это возможно реализовать? ...

Не получается сохранить программно файл на Google Drive
добрый день, уважаемое сообщество. пытаюсь маленько тренироваться в программировании под андроид и вот столкнулся с такой проблемой: ...

Drupal 7 webform приаттачить dropbox или google drive файл
Доброго всем времени суток. Возник такой вопрос. Есть страница на сайте. Сайт на drupal 7. На странице есть форма созданная с помощью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru