Direktlink Google Bildersuche als Kontextmenü im Windows Explorer

powershell -Executionpolicy Bypass -C "&'C:\Pfad\Script.ps1' 'D:\deinbild.jpg'"

param(
    [string]$file
)

function Get-GoogleImageSearchResult([string][ValidateScript({Test-Path $_})]$path){
    $boundary = [datetime]::now.Ticks.ToString()
    $p1 = @"  
--$boundary
Content-Disposition: form-data; name="encoded_image"; filename="$([IO.Path]::GetFileName($path))"  
Content-Type: image/$([System.IO.Path]::GetExtension($path).substring(1))


"@  
    $p2 = @"  
--$boundary
Content-Disposition: form-data; name="image_content"  


--$boundary--

"@  
    $bytes = [System.Text.Encoding]::ASCII.GetBytes($p1) + ([IO.File]::ReadAllBytes($path)) + [System.Text.Encoding]::ASCII.GetBytes($p2)
    $request = [Net.HttpWebRequest] ([Net.HttpWebRequest]::Create('https://images.google.com/searchbyimage/upload'))  
    $request.Method = "POST"  
    $request.ContentType = "multipart/form-data; boundary=$boundary"  
    $request.ContentLength = $bytes.Length
    $request.AllowAutoredirect = $false
    $stream = $request.GetRequestStream()
    $stream.Write($bytes, 0, $bytes.Length)
    $stream.Close()
    return [regex]::match((New-Object Io.StreamReader $request.GetResponse().GetResponseStream()).ReadToEnd(),'(?is)HREF="([^"]+)"').Groups[1].Value  
}

$url = Get-GoogleImageSearchResult $file
if ($url){start $url}

import sys
import requests
filePath = sys.argv[-1]

sUrl = 'https://www.google.com/searchbyimage/upload'  
parts = {'encoded_image': (filePath, open(filePath, 'rb')), 'image_content': ''}  
response = requests.post(sUrl, files=parts, allow_redirects=False)
url = response.headers['Location']  
print(url)

AutoHotkeyU64.exe Skriptdatei.ahk "Bla Bla"

Run, https://www.google.de/imghp
WinWaitActive Google Bilder
Sleep 1000
Send +{Tab}
Sleep 100
Send {Enter}
Sleep 100
Send +{Tab}
Sleep 100
Send {Enter}
Sleep 100
Send {Tab}
Sleep 100
Send {Tab}
Sleep 100
Send {Enter}
Sleep 100
;Send, D:\Meine Bilder\Testbild.jpg
Send, %1%
Sleep 100

; Das letze Enter ist vorläufig noch auskommentiert,
; damit man in der Testphase noch lesen kann, was automatisch eingetragen wurde.
;Send {Enter}

"C:\Program Files (x86)\Tools\AutoHotkey\AutoHotkeyU64.exe" "C:\Program Files (x86)\Tools\AutoHotkey\Bildersuche.ahk" "D:\Meine Bilder\Testbild.jpg"  

[HKEY_CLASSES_ROOT\jpegfile\shell\Bildersuche\command]
@="\"C:\\Program Files (x86)\\Tools\\AutoHotkey\\AutoHotkeyU64.exe\" \"C:\\Program Files (x86)\\Tools\\AutoHotkey\\Bildersuche.ahk\" \"%1\""  

[HKEY_CLASSES_ROOT\Applications\Mein-Bildbetrachter.exe\shell\Bildersuche\command]
@="\"C:\\Program Files (x86)\\Tools\\AutoHotkey\\AutoHotkeyU64.exe\" \"C:\\Program Files (x86)\\Tools\\AutoHotkey\\Bildersuche.ahk\" \"%1\""  

[HKEY_CLASSES_ROOT\*\shell\Bildersuche\command]
@="\"C:\\Program Files (x86)\\Tools\\AutoHotkey\\AutoHotkeyU64.exe\" \"C:\\Program Files (x86)\\Tools\\AutoHotkey\\Bildersuche.ahk\" \"%1\""  

Content-Type: multipart/form-data; boundary="123456789"

Content-Type: multipart/form-data; boundary=123456789

Powershell.exe -Executionpolicy Bypass -C "&'C:\Scripts\GoogleImgSearch.ps1' '%1'"  

$proxy = [System.Net.WebProxy]::GetDefaultProxy()
$proxy.UseDefaultCredentials = $true
$request.Proxy = $proxy

If MsgBox ("Datei '" & WScript.Arguments(0) & "' jetzt zu Google hochladen.", vbInformation Or vbYesNo) = vbYes Then  
	CreateObject("Wscript.Shell").Run("powershell -NoProfile -Executionpolicy Bypass -C ""&'C:\Pfad\script.ps1' '" & WScript.Arguments(0)& "'"""),0,False  
End If

wscript //NOLOGO "C:\pfad\script.vbs" "%1"

param(
    [string]$file
)

[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null  
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null  

function Get-GoogleImageSearchResult([string][ValidateScript({Test-Path $_})]$path){
    $boundary = [datetime]::now.Ticks.ToString()
    $p1 = @"  
--$boundary
Content-Disposition: form-data; name="encoded_image"; filename="$([IO.Path]::GetFileName($path))"  
Content-Type: image/$([System.IO.Path]::GetExtension($path).substring(1))


"@  
    $p2 = @"  
--$boundary
Content-Disposition: form-data; name="image_content"  


--$boundary--

"@  
    $bytes = [System.Text.Encoding]::ASCII.GetBytes($p1) + ([IO.File]::ReadAllBytes($path)) + [System.Text.Encoding]::ASCII.GetBytes($p2)
    $request = [Net.HttpWebRequest] ([Net.HttpWebRequest]::Create('https://images.google.com/searchbyimage/upload'))  
    $request.Method = "POST"  
    $request.ContentType = "multipart/form-data; boundary=$boundary"  
    $request.ContentLength = $bytes.Length
    $request.AllowAutoredirect = $false
    $stream = $request.GetRequestStream()
    $stream.Write($bytes, 0, $bytes.Length)
    $stream.Close()
    return [regex]::match((New-Object Io.StreamReader $request.GetResponse().GetResponseStream()).ReadToEnd(),'(?is)HREF="([^"]+)"').Groups[1].Value  
}

function ShowForm(){
    $form1 = New-Object System.Windows.Forms.Form
    $lblStatus = New-Object System.Windows.Forms.Label
    $form1.ClientSize = [System.Drawing.Size]::new(292,62)
    $form1.ControlBox = $False
    $form1.StartPosition = 1
    $form1.FormBorderStyle = 5
    $form1.Name = "form1"  
    $form1.Text = "Uploading ..."  
    $form1.add_Shown({
        $form1.Update()
        $url = Get-GoogleImageSearchResult $file
        if ($url){
            start $url
        }
        $form1.Close()
    })

    $lblStatus.Dock = 5
    $lblStatus.Font = New-Object System.Drawing.Font("Arial",13,1,3,0)  
    $lblStatus.Location = [System.Drawing.Point]::new(0,0)
    $lblStatus.Name = "lblStatus"  
    $lblStatus.Size = [System.Drawing.Size]::new(292,62)
    $lblStatus.Visible = $true
    $lblStatus.Text = "Uploading file, please wait."  
    $lblStatus.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
    $form1.Controls.Add($lblStatus)
    $form1.ShowDialog() | out-null
}
ShowForm

CreateObject("Wscript.Shell").Run("powershell -NoProfile -Executionpolicy Bypass -C ""&'C:\Pfad\script.ps1'

wscript //NOLOGO "C:\pfad\script.vbs" "%1"