Русское сообщество AutoIt

  • Май 22, 2012, 13:50:51 *
  • Добро пожаловать, Гость
Пожалуйста, войдите или зарегистрируйтесь.

Войти
Расширенный поиск  

Новости:

Создан файловый архив для участников форума.

Закачивайте свои файлы и получайте рейтинг, прямые ссылки, и т.п.

Для изображений и скриншотов по прежнему есть AUTOIT.RV.UA

Реклама

Автор Тема: Отправка интернет-запросов по БД и запись результатов в Excel  (Прочитано 431 раз)

0 Пользователей и 1 Гость смотрят эту тему.

Alexaut [?]

  • Новичок
  • *
  • Репутация: 0
  • Offline Offline
  • Сообщений: 23
  • Версия AutoIt: 3.3.6.1.
    • Награды
Имеется база адресов картинок типа: http://s.photosight.ru/img/2/42e/4291922_icon.jpg и т.д. записанных в столбцах Excel. Задача, - определить встречаемость аналогов каждой картинки на интернете. Используем для этого поисковик Гугл-картинки. Для отдельно взятого изображения задачка решается, например, так:

; подключение библиотеки IE
#include <IE.au3>
; открываем страницу Гугл-картинки
$oIE = _IECreate ("http://www.google.ru/imghp?hl=ru&tab=wi")
; Ждем, пока перезагрузится странинца
_IELoadWait ($oIE)
;кликаем на иконку Фотик
$oFotik= _IEGetObjById($oIE, "qbi")
_IEAction ($oFotik, "click")
send("http://s.photosight.ru/img/2/42e/4291922_icon.jpg"); В строку поиска вводим адрес картинки, для которой определяем встречаемость
send("{Enter}"); Получаем искомое "Результатов: примерно 18"

Получаем значение встречаемости - "Результатов: примерно 18" (Примечание: скрипт работает в IE8).

Вопрос: как расписать последовательный ввод из Excel адресов картинок в ГУгл и запись результатов встречаемости в параллельный столбец того же файла Excel? - Спасибо!




  Записан

Garrett [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 548
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 2056
  • Версия AutoIt: 3.3.6.1
    • Награды
Ниже Excel файл, дабы не возникало вопросов. По аналогии можете подогнать под свой файл.

Код: AutoIt [Выделить]
#include <IE.au3>
#include <Excel.au3>

_IEErrorNotify(0)

Dim $sFileXls = @ScriptDir & "\images.xls"
Dim $sGooURL = "http://www.google.ru/imghp?hl=ru&tab=wi"

$oExcel = _ExcelBookOpen($sFileXls)

If @error = 1 Then
    MsgBox(16, "Error!", "Невозможно создать Excel объект!")
    Exit
ElseIf @error = 2 Then
    MsgBox(16, "Error!", "Файл не найден!")
    Exit
EndIf

$aFile = _ExcelReadSheetToArray($oExcel, 1, 1)
Dim $aResult[UBound($aFile)-1]

If WinExists("[CLASS:IEFrame]") Then
    WinActivate("[CLASS:IEFrame]")
    $hWin = WinGetHandle("[CLASS:IEFrame]")
    $oIE = _IEAttach($hWin, "HWND")
    _IENavigate($oIE, $sGooURL)
Else
    $oIE = _IECreate($sGooURL)
EndIf    

For $i = 1 To UBound($aFile)-1
    $sResult = _Submit($aFile[$i][1])
    $aResult[$i-1] = $sResult
Next

_ExcelWriteArray($oExcel, 1, 2, $aResult, 1)

MsgBox(0, "Success!", "Press OK to Save File and Exit")

_ExcelBookSave($oExcel)
_Exit()

Func _Submit($s_File)

    $o_Search = _IEGetObjById($oIE, "qbi")

    If @error Then
        MsgBox(16, "Failure!", "Version of Internet Explorer below the eighth!" & @CRLF & "Press OK to Exit")
        _Exit()
    EndIf

    _IEAction ($o_Search, "click")

    $o_Form = _IEGetObjById($oIE, 'qbf')
    $o_Input = _IEGetObjById($oIE, "qbui")
    _IEFormElementSetValue($o_Input, $s_File)
    _IEFormSubmit($o_Form)
    _IELoadWait($oIE)

    $s_Result = _IEGetObjById($oIE, "resultStats")
    Return _IEPropertyGet($s_Result, 'innerText')
EndFunc

Func _Exit()
    _ExcelBookClose($oExcel)
    _IEQuit($oIE)
    Exit
EndFunc


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться




  Записан

--------------------------------------------------------------------------------------------------
Все стандарты Document Object Model HTML
--------------------------------------------------------------------------------------------------
«Жизнь – цепь, а мелочи в ней – звенья. Нельзя звену не придавать значения!»

Alexaut [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 23
  • Версия AutoIt: 3.3.6.1.
    • Награды
ФАНТАСТИКА! - Работает!!! :))) - СПАСИБО! :)




  Записан
 


Похожие темы
Тема Автор Ответов Просмотров Последний ответ
[Сеть, интернет] TCPHttp.au3 (отправка/приём http запросов при помощи TCP функций, асинхронность)
UDF - Пользовательские функции
HukpoFuJl 0 2105 Последний ответ Август 14, 2010, 01:31:31
от HukpoFuJl
[Сеть, интернет] Авторизация на сервере (отправка/приём http запросов при помощи TCP функций)
AutoIt для новичков
Nelsy 0 1129 Последний ответ Ноябрь 13, 2010, 17:52:29
от Nelsy
[Сеть, интернет] фильтр get-запросов
Стол заказов
coldmine 4 875 Последний ответ Февраль 07, 2011, 21:00:32
от Kaster
Многопоточность для интернет запросов
AutoIt для новичков
CreatiK 2 713 Последний ответ Февраль 09, 2011, 00:51:53
от `p r o x y
Отправка запросов с числами из входящего запроса
Стол заказов
panandrusha 4 1132 Последний ответ Май 15, 2011, 14:25:02
от panandrusha
Запись/чтение значения активной ячейки Excel
AutoIt для новичков
Heler 2 567 Последний ответ Май 21, 2011, 10:07:34
от madmasles
[Сеть, интернет] Отправка HTTPS GET запросов
AutoIt для новичков
Humanoid 1 667 Последний ответ Июнь 07, 2011, 18:37:00
от CreatoR
[Сеть, интернет] Генератор HTTP запросов
Примеры и рабочие проекты
misha497 4 1550 Последний ответ Июнь 24, 2011, 17:48:54
от Garrett
Отправка сообщения на mail используя данные из Excel
Стол заказов
beliy 17 2083 Последний ответ Август 10, 2011, 17:55:26
от beliy
[Элементы GUI] Отправка поисковых запросов
Стол заказов
Gorenich 4 476 Последний ответ Октябрь 14, 2011, 08:57:47
от Gorenich


Реклама

* Последние сообщения на форуме
post Re: Авторизация в одноклассниках
[Автоматизация IE и Web-интерфейса] Arei Сегодня в 13:24:59
post Re: Смена IP адресса
[AutoIt для новичков] Zaramot Сегодня в 13:04:33
post Re: Авторизация в одноклассниках
[Автоматизация IE и Web-интерфейса] Александр Сегодня в 12:59:21
post Re: Выполнение скрипта при нажатии средней кнопки мыши
[AutoIt для новичков] madmasles Сегодня в 12:23:31
post [Мышь, клавиатура] Re: Выполнение скрипта при нажатии средней кнопки мыши
[AutoIt для новичков] Nurgazy Сегодня в 12:09:36
post Re: Объясните плз, как работать с массивами ArrayAdd и прочее...
[AutoIt для новичков] madmasles Сегодня в 12:08:03
post Объясните плз, как работать с массивами ArrayAdd и прочее...
[AutoIt для новичков] webmonster Сегодня в 12:03:38
post Re: Как заменить метку времени файла на севере
[Автоматизация IE и Web-интерфейса] ---Zak--- Сегодня в 11:39:56
post Как заменить метку времени файла на севере
[Автоматизация IE и Web-интерфейса] eropov Сегодня в 11:26:37
post Re: Выполнение скрипта при нажатии средней кнопки мыши
[AutoIt для новичков] madmasles Сегодня в 11:13:16

* Пользователи онлайн
  • Dot Гостей: 119
  • Dot Скрыт: 2
  • Dot Пользователей: 31
  • Dot Пользователи Online: