программный Поиск по картинке через google

[Invader]

столкнулся с проблемой есть ссылка на изображение
http://cdn77.boyandin.ru/files/forest-only-1-480.jpg
есть сервис от гугл поиск похожей картинки по ссылке
после подстановки я наблюдал следующий адресс запроса
вернее сказать значение get запроса
GET image_url=http%3A%2F%2Fcdn77.boyandin.ru%2Ffiles%2Fforest-only-1-480.jpg&=%D0%9F%D0%BE%D0%B8%D1
%81%D0%BA&encoded_image=&image_content=&filename=&num=10&hl=ru&bih=165&biw=1024
сам УРЛ формировался с редиректом гугла
http://www.google.com/searchbyimage?image_url=http%3A%2F%2Fcdn77.boyandin.ru%2Ffiles%2Fforest-
only-1-480.jpg&=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&encoded_image=&image_content=&filename=&num=10&hl=ru&bih=165&biw=1024
мой код для запроса выглядел
так

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

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Create a request for the URL.       
        Dim request As WebRequest = WebRequest.Create("http://www.google.com/searchbyimage?image_url=http://cdn77.boyandin.ru/files/forest-only-1-480.jpg")

        ' Get the response.
        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

        ' Get the stream containing content returned by the server.
        Dim dataStream As Stream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.
        TextBox2.Text = responseFromServer 'ХТМЛ код страницы но не той куда должен выходить гугл с результатами поиска
        ' Cleanup the streams and the response.
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub


End Class



я понимаю что запрос формирую не верный, кто укажет на правильный путь,
задача сводиться к тому что я подбрасываю гуглу ссылки на фото и ожидается ответ-страница для парсинга с найденными результатами похожих изображений.
страница результата поиска для данной сылки имеет адрес
http://www.google.com/search?tbs=sbi:AMhZZiuz2XN50sJm_1F3UZ0OEHGOfn4-GdJsWE-AZWBJ3yoiOExKg-
gzze4_1sbJGFSpaKpOeYdQU3iNlsq_1WRaoXfus37nCuO4oKZWE-kQxmTSF-
8K6ZiarxHrwVONpwybfNXCTDwbA_1uplSf5gPfFyoAh61rrd4o6h0-VQI4BB633xove4YGTE52c1MUslDHs8Wc-
lY_1KI3NHwjH_10N6hHs2rD_1S9Q5jH90wxEISRDtulJgyoIP1v5ceiBXFHnv4Qpd3WQSsejU-
iRpb9gfd06oevoECuQxHRYLJWgSvGy5_1yLaPc8xhnDqKui6Q4TSvaiACunoodXLL8SeLKLGwqLSJnDUe_1pPWi7zDkuOmwiitRpekN
e0OrSHFIATTJCtrfmKgCvdcCrhQ4oN5rRAvHtHlw2QIs4rmaR58k7n5rS1jHHHv_1mobQM3mM1eOA_1WV94vCZTG2SzNbKkkeFjYL
CFWug3cJJqF9Zvf6TVBKGON5BRx3GoiWiSqFfsRDzesndGQ6R_19jFAEfPsxL-
RQry50VOi0CmAIESUCByXN6sHpCotrR9fcMIc2DpzkuYT09fcWdbop4-hjlOvFG9lHjpZDaYZzm-
anPBTzaDxRmVBmkA7j0IT3GiW7fHRH1tAQ3QHp8IVsw8AHTA_1geMPxXPnMDDp7sQcQIhLtYjBWzZJYaz9M9FtKWXj0SLlE1esAJqL
C8bHLJY8OBZNUnNRjRhRfoyQ283YDW6fMWZz7kV45BBWDKpUOHpxGxiLEtUuDI6gSvY5WRFzxqGhTuLYskw6qCSW5ULjcvFpSJXp
Nr8gRsD4mvbavo7kyJd2ZhOL2iJaEZCAxZWTDADlgWVkDQqo8EEaB46aTC-
v6EWNhRQEHHZ7Fx2wUN7ix63dAP9iKoaokhHCelwydezXv6EGyPkZEHy372tpz5_1KVTVKzyScEKiuELkvlQXmwmUdOnGSL0YWeo8X
z3gI3O2ZXd-auX7Vm-snzm6n-ecqHn5jUWQWWs3x5nTtScLgAhjzCLOqUq8p-
rJs6L2fM_1WVtKiLzlhC4s94PI4OgBBletUdZGcm2LlFGMj1WZmJXwQfoxL0VJUjJ5Cy-
91SwyHYNh0jx61fWo3hSA8IplYxdDLely6JQXQ7bOhsEL8-3IH0G6m9oBWf-
Yhxrt5CU54MpeQdqJH97tvz5sgrh1kAIgzH8zkjwDCveW7_1cRxNFBqYoPnuWQiSCFNrk_1RgFYYgkbJm3kO1Cc6ATMbg1TcarPNeO
xAHQK0WUB_11YTOsfLBnc7RAThTCWV7VNUu7sDcha9g8USC43d_1jktrWQ_1VzqC5YZ0rLdnBNyW-tgf6cxRkpsMmp-
UVcBDCoDOLfV7&num=10&hl=ru&bih=165&biw=1024

[FireFenix]

http://google.ru/imghp?hl=ru&q=тут_линк_на_картинку?
или
http://www.google.com/searchbyimage?image_url=тут_линк_на_картинку

[Invader]

благодарю за ответ вторая сылка, я на неё тоже обращал внимание, но при подстановке в браузере мозила переход нормальный, а вот через код выбрасывает на одну и туже страницу вернее её содержание а имено https://www.google.ru/
да и ещё я заметил что интернет експлоер 6 после ввода в панель навигации
http://www.google.com/searchbyimage?image_url=http://cdn77.boyandin.ru/files/forest-only-1-480.jpg
выводит тоже на начальную страницу гугл

может проблема в коде?

[FireFenix]

FF13, IE9 нормально переходят, хз в чём проблема
IE6 морально устарел, лучше бы его и не было

[Invader]

а с чем же связан неверный переход в коде, прошу прощения но найдите время взгляните на код он же не большой,
не гугл ни другие ресурсы ответа не дают, может специалисту будет понятна ошибка???
VS 2008, XPSP3

[Qwertiy]

Опера тоже отправляется на главную страницу
Проблема в user-agent'е.

Работающий код:

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

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1

Private Tabs As New TabControl With {.Dock = DockStyle.Fill}

Private SearchIt = "http://bbs.vbstreets.ru/download/file.php?avatar=6157_1320574933.jpg"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Me.Controls.Add(Tabs)

  Dim Request As HttpWebRequest = HttpWebRequest.Create("http://www.google.com/searchbyimage?image_url=" & SearchIt)
  Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.83 Safari/535.11"
  Dim Response As HttpWebResponse = Request.GetResponse()

  MsgBox(Response.ResponseUri.ToString())

  Dim Result As String
  Using Reader As StreamReader = New StreamReader(Response.GetResponseStream(), Encoding.UTF8)
    Result = Reader.ReadToEnd()
  End Using
  Response.Close()

  For Each Match As Match In Regex.Matches(Result, "'data:image/jpeg;base64,(.*?)'")
    Using Pct As New MemoryStream(Convert.FromBase64String(Regex.Replace(Match.Groups(1).Value, "\\x[\dA-Fa-f][\dA-Fa-f]", Function(M As Match) Chr("&H" & M.Value.Substring(2)))))
      Tabs.TabPages.Add(New TabPage() With {.BackgroundImage = Bitmap.FromStream(Pct), .BackgroundImageLayout = ImageLayout.Zoom})
    End Using
  Next Match
End Sub

End Class

UPDATE [+1 час]: Код обновлён.

[Invader]

благодарю за очень подробный ответ

[Invader]

есть ещё банальный вопрос, примеров море но не сработал ни один
регекспом надо отловить ссылку, ссылка имеет общий вид
<a href="/imgres?imgurl=http://bgstay.com/images/photos/big_thumb_10634_1.jpg&amp;imgrefurl=http:
//bgstay.com/en-r-7-north_black_sea_coast_bulgaria&amp;h=96&amp;w=149&amp;sz=11&amp;tbnid=jZRePKJFVUglpM&
amp;tbnh=76&amp;tbnw=119&amp;prev=/search%3Fq
%3D%25D0%25B0%25D0%25B4%25D0%25B8%25D1%2581%26tbm%3Disch%26tbo%3Du&amp;zoom=1&amp;q=%D0%B0%D0%B4%D0%B8
%D1%81&amp;usg=__1y4RX8Z-8LgjgLlg6txVv269M4o=&amp;sa=X&amp;ei=4cAjUI2LJaWC4gSYvYG4AQ&amp;ved=0CGoQ8g0">
жирным выделил что надо отловить!
я писал так

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

Using Reader As StreamReader = New StreamReader(Response.GetResponseStream(), Encoding.UTF8)
            Result = Reader.ReadToEnd()
            TextBox2.Text = Result
            TextBox1.Text = TextBox1.Text + "   " + Regex.Match(Result, "<a\s*href=.*?(http.*?jpg)[|>]").Value
        End Using


не отлавливает

[Qwertiy]

Regex.Match(Result, "&lt;a\s*href=.*?(http.*?jpg)[|&gt;]").Value

Regex - не html. C какого перепугу там оказалось &lt;, когда в твоём примере там <?

[|&gt;]

Тоже фигня.

Надо что-то типа (не проверял): href=.*?imgurl=(.*?)((&amp;)|&)imgrefurl, после чего взять первую группу.

[Invader]

прости с группами вообще не понимаю, вроде как первые скопки программно указать? если можно строчкой на примере,
извиняюсь за невежество...

[Qwertiy]

если можно строчкой на примере

А посмотреть мой код чуть выше?

PS: Reader не стоит держать, когда он уже не нужен.

[Invader]

я про это и говорю всё было понятно пока не появились записи в Вашем коде

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

For Each Match As Match In Regex.Matches(Result, "'data:image/jpeg;base64,(.*?)'")


в тексте рег. вырожение не было обнаружено, (хотя я мог и пропустить) и что оно означает не понимаю, одно ясно по рабочему коду это превьюшки,
а вот строчки далее, просто дали мне понять что я даже плавать не научился

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

MemoryStream(Convert.FromBase64String(Regex.Replace(Match.Groups(1).Value, "\\x[\dA-Fa-f][\dA-Fa-f]", Function(M As Match) Chr("&H" & M.Value.Substring(2)))))


вот моя реализация не рабочая, так как вроде страницу тянет нужную с результатами поиска но ссылки почему то уже не ru а com??? и так же не понятно, не находит нужных href о которых я говорил выше...
самое обидное что с обычных страниц без переадресаций, только ленивый не вытащит ссылку, а здесь стопор....

[Qwertiy]

Как ты ухитрился упаковать этот архив, что для одного из файлов 7Zip пишет, что тип сжатия неподдерживаемый?

Регулярка, которую я написал замечательно работает.

GoolePics [.NET4].7z

Код & compile.bat & exe

(6.89 Кб) Скачиваний: 200

[Invader]

Как ты ухитрился упаковать этот архив, что для одного из файлов 7Zip пишет, что тип сжатия неподдерживаемый?

Регулярка, которую я написал замечательно работает.

GoolePics [.NET4].7z

это не я ухитрился, а ничего умнее не придумал как выбрать команду экспорт шаблона в visual studio 2010

[Qwertiy]

это не я ухитрился, а ничего умнее не придумал как выбрать команду экспорт шаблона в visual studio 2010

Не придумал тупо упаковать папку любым архиватором (или даже проводником)? Ого!
Я с ним минут 5 повозился, потом забил и взял только код формы.

Код посмотрел?

[Qwertiy]

visual studio 2010

Так у тебя VS2010 или VS2008?

[Invader]

visual studio 2010

Так у тебя VS2010 или VS2008?

уже да, хотя и vs2008 expres остался

вот вопрос я тут не много Ваш код поменял, объясню
1 нужно было отсеять ссылки по размеру, в сылках есть параметр "sz=" так вот, его значение определённого диапазона
устраивает остальные нет

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

  Dim ves As Integer
        Dim Links As New List(Of String)
        For Each Match As Match In Regex.Matches(Result, "td valign=.*?top.*?href=.*?imgurl=(.*?)((&|&)tbnid.*?)imgrefurl")
            ves = CInt(Regex.Match(Match.Groups(1).Value, "sz=(.*?)").Value)
            textbox1.text = ves
            If ves > 30 Or ves < 70 Then
                Links.Add(Match.Groups(1).Value)
            Else : GoTo 5
            End If
     
        Next Match
5:
        textbox2.text = String.join(vbCrLf, Links)

        Me.WindowState = FormWindowState.Maximized


тут по ошибкам кода 2 вопроса:
1 как правильно записать строчку
ves = CInt(Regex.Match(Match.Groups(1).Value, "sz=(.*?)").Value)
так чтоб переменная ves принимало значение к примеру sz="50" тогда ves=50
почему при моей записи выдает ошибку о невозможности преобразования стринговой в интежер, хотя я понимаю значение ves у меня равно "sz="?
я пытался записать так

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

Dim ves As Match
            ves = Regex.Match(Match.Groups(1).Value, "sz=(.*?)")
            textbox1.text = ves.Groups(1).value


но тогда ничего не находит -textbox1.text = ""

[Qwertiy]

очему при моей записи выдает ошибку о невозможности преобразования стринговой в интежер

Потому что строка "sz="50"" - это не число. Бери первую группу, а не всё совпадение.

sz=(.*?)

Нежадное поедание символов. Какая минимальная строка соответствует этому шаблону? "sz=". Какая её часть соответствует выражению в скобках? Пустая строка. Вот её ты и получаешь. Добавь ограничитель.

Else : GoTo 5

Есть же Exit For... И почему метка числовая?

[Invader]

очему при моей записи выдает ошибку о невозможности преобразования стринговой в интежер

Потому что строка "sz="50"" - это не число. Бери первую группу, а не всё совпадение.

так вся группа и не бралось а лишь строчка "sz=", что значит первую группу, как обозначить!?

sz=(.*?)

Нежадное поедание символов. Какая минимальная строка соответствует этому шаблону? "sz=". Какая её часть соответствует выражению в скобках? Пустая строка. Вот её ты и получаешь. Добавь ограничитель.

как выглядит ограничитель - конец строки!?

Else : GoTo 5

Есть же Exit For... И почему метка числовая?

ну во первых ещё плавать учусь, а второе имеет ли значение метки, если да то как бы это правильней прописать...

[Qwertiy]

что значит первую группу, как обозначить!?

Скобками! У тебя уже обозначено.

как выглядит ограничитель - конец строки!?

1. Конец строки обозначается $.
2. Зачем ставить нежадную группировку, если тебе надо до конца строки?
3. Почему тебе вообще не написать sz="?(\d+)?
4. Читай Википедию.

а второе имеет ли значение метки, если да то как бы это правильней прописать...

Имя метки стоит делать осмысленным словом и меток не должно быть много. Но я не являюсь их противником.

[Invader]

я не понимаю что такое не нужная группировка!!!!

[Qwertiy]

я не понимаю что такое не нужная группировка!!!!

А я не понимаю, что значит эта фраза...

[Invader]

2. Зачем ставить нежадную группировку, если тебе надо до конца строки?

нежадную группировку-Я идиот! Убейте меня, кто-нибудь!?
что ЭТО!, направте на путь истинный

[Invader]

кто то выходит за меня, тема открыта, меняю вход, админы проверти адрес входа

[Qwertiy]

нежадную группировку

Я имел в виду нежадную квантификацию. Ты её используешь когда ставишь .*?. Она означает, что надо найти минимальное вхождение, а не максимальное, как при .*. Подробнее в Википедии.

PS: Нежадная и ненужная - что-то совсем не похоже. Пиши вопросы внимательнее.

[Invader]

так я не понял как правильно задать переменную
это верно

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

Dim ves As Match
            ves = Regex.Match(Match.Groups(1).Value, "sz=(.*)")
            textbox1.text = ves.Groups(1).value


либо это

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

Dim ves As Integer
            ves = CInt(Regex.Match(Match.Groups(1).Value, "sz=(.*)").Value)
    textbox1.text = ves


[Invader]

понял, очень понял, главное не ленитЪся

[Qwertiy]

А сам проверить не можешь?
Я бы написал ves = Regex.Match(Match.Groups(1).Value, "sz=.*?(\d+)").Groups(1).Value

[Qwertiy]

понял, очень понял, главное не ленитЪся

Наконец-то!

[Invader]

решено, в очередной раз благодарю за просвещение...

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


Dim ves As Integer
        Dim Links As New List(Of String)
        For Each Match As Match In Regex.Matches(Result, "td valign=.*?top.*?href=.*?imgurl=(.*?)((&|&)tbnid.*?)imgrefurl")
            ves = CInt(Regex.Match(Match.Groups(1).Value, "sz=(\d+)").Groups(1).Value)
            textbox1.text = ves.tostring
            If ves > 70 Or ves < 30 Then
                GoTo 4
            Else
                Links.Add(Match.Groups(1).Value)
            End If

4:
        Next Match

        textbox2.text = String.join(vbCrLf, Links)
     


        Me.WindowState = FormWindowState.Maximized