Google Images Legacy Loader

[Synaps3]

I've recently been annoyed by how google images works. You can't click an image and see the full res image. You have to go to the website and find the image on the page and occasionally, it won't allow you to view the image easily. This script makes it easy to view any image in google images in full resolution immediately. You just press Ctrl + Q while hovering over the image you want and it'll open full res in a new tab. This is only tested in firefox, but it shouldn't be hard to modify for another browser.

Here it is:

expandcollapse popup

#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>
#include <Clipboard.au3>
#include <Array.au3>
#include <String.au3>

Local $clipB
Local $urlArray
Local $theLink

HotKeySet("^q", "OpenImage")

Func DecodeUrl($src)
    Local $i
    Local $ch
    Local $buff

    ;Init Counter
    $i = 1

    While ($i <= StringLen($src))
        $ch = StringMid($src, $i, 1)
        ;Correct spaces
        If ($ch = "+") Then
            $ch = " "
        EndIf
        ;Decode any hex values
        If ($ch = "%") Then
            $ch = Chr(Dec(StringMid($src, $i + 1, 2)))
            $i += 2
        EndIf
        ;Build buffer
        $buff &= $ch
        ;Inc Counter
        $i += 1
    WEnd

    Return $buff
EndFunc   ;==>DecodeUrl

Func OpenImage()
   MouseClick($MOUSE_CLICK_RIGHT)
   Send("A")
   Sleep(100)
   $clipB = _ClipBoard_GetData($CF_TEXT)
   $theLink = DecodeUrl($clipB)
   $urlArray = _StringBetween($theLink, "=", "&")
   If StringInStr($urlArray[0], "?") <> 0 Then
      $urlArray = _StringBetween($theLink, "=", "?")
   EndIf
   ShellExecute($urlArray[0])
EndFunc

While 1

Wend

 

[Draygoes]

Nice.