Rich4rd

Menu Google Search or Translate

May 28th, 2020
402
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;==============================================================================================
  2. ;Menu Google: select any text in any text edit field, then press
  3. AppsKey & RButton::
  4. Menu,Google,Add,Search with Google,GoogleSearch
  5. Menu,Google,Add,Translate with Google,GoogleTranslate
  6. Menu,Google,Show
  7. return
  8.  
  9. GoogleSearch:
  10. #g:: ;press Win+g
  11. {
  12. Send, ^c
  13. Sleep 50
  14. Run, http://www.google.com/search?q=%clipboard%
  15. Return
  16. }
  17.  
  18. GoogleTranslate:
  19. #t:: ;press Win+T
  20. MyClip := ClipboardAll
  21. Clipboard = ; empty the clipboard
  22. Send, ^c
  23. ClipWait, 2
  24. if ErrorLevel  ; ClipWait timed out.
  25. {
  26.     return
  27. }
  28. StringReplace, Clipboard, Clipboard, `%, `%25, All ; has to come first
  29. StringReplace, Clipboard, Clipboard, `r`n, `%0A, All
  30. Run % "http://translate.google.com/#auto|el|" . clipboard ; uriEncode(clipboard) ;Auto To Greek
  31. Clipboard := MyClip
  32. return
  33.  
  34. /*
  35. ;Run % "http://translate.google.com/#auto|en|" . clipboard ; uriEncode(clipboard) ;Auto To English
  36. ;Run % "http://translate.google.com/#auto|hy|" . clipboard ; uriEncode(clipboard) ;Auto To Armenian
  37. ;Run % "http://translate.google.com/#auto|el|" . clipboard ; uriEncode(clipboard) ;Auto To Greek
  38. ;Run % "http://translate.google.com/#auto|iw|" . clipboard ; uriEncode(clipboard) ;Auto To Hebrew
  39. ;Run % "http://translate.google.com/#auto|la|" . clipboard ; uriEncode(clipboard) ;Auto To Latin
  40. ;Run % "http://translate.google.com/#auto|ar|" . clipboard ; uriEncode(clipboard) ;Auto To Arabic
  41. ;Run % "http://translate.google.com/#auto|de|" . clipboard ; uriEncode(clipboard) ;Auto To German
  42. ;Run % "http://translate.google.com/#auto|ru|" . clipboard ; uriEncode(clipboard) ;Auto To German
  43. ;Run % "http://translate.google.com/#auto|it|" . clipboard ; uriEncode(clipboard) ;Auto To German
  44. ;Run % "http://translate.google.com/#auto|fr|" . clipboard ; uriEncode(clipboard) ;Auto To French
  45. ;Run % "http://translate.google.com/#auto|es|" . clipboard ; uriEncode(clipboard) ;Auto To Spanish
  46. ;Run % "http://translate.google.com/#auto|ja|" . clipboard ; uriEncode(clipboard) ;Auto To Japanese
  47. ;Run % "http://translate.google.com/#auto|zh-TW|" . clipboard ; uriEncode(clipboard) ;Auto To Chinese Traditional
  48. */
  49.  
  50. ;==============================================================================================
Add Comment
Please, Sign In to add comment