+F1::   ; Shift + F1
   Clipboard := ""
   SendInput, ^{vk43}  ; посылаем Ctrl + C
   ClipWait, 0
   if ErrorLevel
   {
      TrayTip,, Текст для поиска не определён
      Return
   }
   str := URIEncode(Clipboard)
   Run chrome.exe http://www.google.com/search?q="%str%"
   Return
   
URIEncode(Str)
{
   b_Format:=A_FormatInteger
   SetFormat, IntegerFast, H
   Loop, % StrPutVar(Str, Var, "UTF-8")
   {
      Ch:=NumGet(Var, A_Index-1, "UChar")
      If Ch=0
         Break
      If (Ch>0x7f Or Ch<0x30 Or Ch=0x3d)
         s.="%"((StrLen(c:=SubStr(Ch, 3))<2) ? "0"c:c)
      else
         s.=Chr(Ch)
   }
   SetFormat, IntegerFast, % b_Format
   Return, s
}

StrPutVar(string, ByRef var, encoding = "CP0")
{
    ; Ensure capacity.
    VarSetCapacity( var, StrPut(string, encoding)
        ; StrPut returns char count, but VarSetCapacity needs bytes.
        * ((encoding="utf-16"||encoding="cp1200") ? 2 : 1) )
    ; Copy or convert the string.
    return StrPut(string, &var, encoding)
}

+F1::   ; Shift + F1
   Clipboard := ""
   SendInput, ^{vk43}  ; посылаем Ctrl + C
   ClipWait, 0
   if ErrorLevel
   {
      TrayTip,, Текст для поиска не определён
      Return
   }
   Clipboard := RegExReplace(Clipboard, """", "%22")
   Run chrome.exe http://www.google.com/search?q="%clipboard%"
   Return