Hey all,
I know this code has been attempted before as a GUI app, and it would not copy text properly. Here is an updated version of the Google Search Shortcut Script from: Google Search Shortcut Script
#Region
#AutoIt3Wrapper_Outfile=shortcuts.exe
#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
shortcuts.au3
shortcuts.exe