#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=shortcuts.ico
#AutoIt3Wrapper_Outfile=shortcuts.exe
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region
#EndRegion
#include <Clipboard.au3>

Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)

HotKeySet("{F1}", "_googleit")

TraySetToolTip("Right click to exit")
TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_exit")

While 1
	Sleep(20)
WEnd

#cs _googleit() Source
User: ViciousXUSMC
https://www.autoitscript.com/forum/topic/177446-google-search-shortcut-script/?do=findComment&comment=1273519
#ce Source

Func _googleit()
	Opt("WinTitleMatchMode", 2) ;Set Title Match To "Any Part of String"
	$sOldClip = ClipGet() ;Save Current Clipboard
	Send("^c") ;Copy Selected Text to Clipboard *before losing focus of current window
	WinActivate("Google Chrome", "") ; activate chrome
	ShellExecute("https://www.google.at/search?q=" & URLEncode(_ClipBoard_GetData())) ;Navigate to search
	ClipPut($sOldClip) ;Restore Old Clipboard
	Opt("WinTitleMatchMode", 1) ; Sets back to default
EndFunc   ;==>_googleit


;URL encoding is critical when doing string search queries via URL.

#cs URLEncode Source
User: Dhilip89 - UnicodeURL UDF
https://www.autoitscript.com/forum/topic/46894-unicodeurl-udf/
#ce

Func URLEncode($UnicodeURL)
	$UnicodeBinary = StringToBinary($UnicodeURL, 4)
	$UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
	$UnicodeBinaryLength = StringLen($UnicodeBinary2)
	Local $EncodedString
	For $i = 1 To $UnicodeBinaryLength Step 2
		$UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
		If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString('0x' & $UnicodeBinaryChar, 4)) Then
			$EncodedString &= BinaryToString('0x' & $UnicodeBinaryChar)
		Else
			$EncodedString &= '%' & $UnicodeBinaryChar
		EndIf
	Next
	Return $EncodedString
EndFunc   ;==>URLEncode

Func _exit()
	$result = MsgBox(1, "Shortcuts", "Do you wish to exit Shortcuts?", 0)
	If $result == 1 Then Exit
EndFunc   ;==>_exit