pastebin - collaborative debugging tool
kpaste.net RSS


YouTube Uninterrupted
Posted by Anonymous on Tue 18th May 2010 09:21
raw | new post

  1. ; YouTube Uninterrupted
  2. ; change youtube url (from firefox) and launch in srware iron (or any other browser)
  3. ; Last updated: 18/05/2010 4:04:23 PM
  4. ; ToDo:
  5. ; Gui for setting alternate browser, show hint (traytip each launch), launch without prompting
  6. ; Backup exisiting clipboard (?)
  7. ;
  8. #Persistent
  9. #SingleInstance force
  10. #NoEnv
  11. ;#NoTrayIcon
  12. SetWorkingDir, %A_ScriptDir%
  13. SetTitleMatchMode, 2
  14.  
  15. AppName=YouTube Uninterrupted
  16. TrayIcon=%A_ScriptDir%\youtube.ico
  17. YouTubeFrom=http://www.youtube.com/v/
  18. YouTubeTo=http://www.youtube.com/watch?v=
  19. Browser=SRWare Iron
  20. BrowserPath=%ProgramFiles%\SRWare Iron\IronPortable.exe
  21. ShowHint=0  ; by default Off in case the traytip goes crazy.
  22. ShowHintMenuItem=Show clipboard contents [debug]
  23. Timeout=10  ;Msgbox timeout (in seconds)
  24.  
  25.  
  26. ;add all browser groups here - comment out the ones that you need
  27. GroupAdd, Browsers, ahk_class MozillaUIWindowClass
  28. GroupAdd, Browsers, ahk_class KMeleon Browser Window  ; K-Meleon
  29. GroupAdd, Browsers, ahk_class IEFrame  ; Internet Explorer or Maxthon
  30. ;GroupAdd, Browsers, ahk_class Chrome_WidgetWin_0   ;   SRWare Iron
  31.  
  32. ;TrayMenu Customisation
  33. IfExist, %TrayIcon%
  34.   Menu, Tray, Icon, %TrayIcon%
  35. Menu, Tray, Tip, Open YouTube links in %Browser%.
  36. Menu, Tray, NoStandard
  37. Menu, Tray, DeleteAll
  38. Menu, Tray, Add, Open YouTube links in %Browser%, EncodeURL
  39. Menu, Tray, Default, Open YouTube links in %Browser%
  40. Menu, Tray, Add, %ShowHintMenuItem%, NoHint
  41. Menu, Tray, UnCheck, %ShowHintMenuItem%
  42. ;Menu, Tray, Default, %ShowHintMenuItem%
  43. Menu, Tray, Add,
  44. Menu, Tray, Standard
  45. Return
  46.  
  47. EncodeURL:
  48. IfInString, Clipboard, %YouTubeFrom%  ; clipboard contains a youtube url
  49. {
  50.   StringGetPos, pos, Clipboard, %YouTubeFrom%  ; make sure that youtube url is in the beginning
  51.   If pos = 0
  52.   {
  53.     StringReplace, Clipboard, Clipboard, %YouTubeFrom%, %YouTubeTo%, All
  54.     StringGetPos, StringPos, Clipboard, &
  55.     StringLeft, YouTubeURL, Clipboard, %StringPos%
  56.     GoSub, PromptAndRun
  57.   }
  58.   Else
  59.     Return
  60. }
  61. Else IfInString, Clipboard, %YouTubeTo%  ; clipboard contains a youtube url
  62. {
  63.   StringGetPos, pos, Clipboard, %YouTubeTo%
  64.   If pos = 0
  65.   {
  66.     StringGetPos, StringPos, Clipboard, &   ;; check 1st if there is an ampersand else just launch the url
  67.     If StringPos >= 0
  68.     {
  69.       StringLeft, YouTubeURL, Clipboard, %StringPos%
  70.       GoSub, PromptAndRun
  71.     }
  72.     Else If StringPos < 0 ; no ampersand so just make sure there's no CR
  73.     {
  74.       StringGetPos, StringPos, Clipboard, `r            ; check for CR position      
  75.       IfLess, StringPos, 0,
  76.         YouTubeURL=%Clipboard%      ; if no CR is found, StringPos will return -1
  77.       Else
  78.         StringLeft, YouTubeURL, Clipboard, %StringPos%  ; start from left until CR position
  79.       GoSub, PromptAndRun   ;; PromptAndRun should be a function
  80.     }
  81.   }
  82.   Else
  83.     Return
  84. }
  85. Else
  86. {
  87.   If ShowHint=1
  88.   {
  89.   TrayTip,%AppName%,%Clipboard%,,1
  90.   SetTimer, RemoveTrayTip, 5000
  91.   }
  92. }
  93. Return
  94.  
  95. OnClipboardChange:
  96. IfWinActive ahk_group Browsers  ; if one of the above browsers is active..
  97.   {
  98.   GoSub, EncodeURL
  99.   }
  100. Return
  101.  
  102. PromptAndRun: ; show a msgbox with a timeout to play the urls
  103.     MsgBox, 36, %AppName%, Would you like to open this url: %YouTubeURL% in %Browser%?, %Timeout%  ; 10-second timeout.
  104.     IfMsgBox, Timeout  ; i.e. Assume "Yes" if it timed out.
  105.     {
  106.       Run, %BrowserPath% %YouTubeURL%
  107.       TrayTip,%AppName%,Launching %YouTubeURL%,,1
  108.       SetTimer, RemoveTrayTip, 5000
  109.     }
  110.     Else IfMsgBox, Yes
  111.     {
  112.       Run, %BrowserPath% %YouTubeURL%
  113.       TrayTip,%AppName%,Launching %YouTubeURL%,,1
  114.       SetTimer, RemoveTrayTip, 5000
  115.     }
  116.     Else IfMsgBox, No
  117.       Return  ; User pressed the "No" button.
  118.     Return
  119. Return
  120.  
  121. NoHint:
  122. If ShowHint=1
  123. {
  124.   Menu, Tray, UnCheck, %ShowHintMenuItem%
  125.   ShowHint=0
  126. }
  127. Else
  128. {
  129.   Menu, Tray, Check, %ShowHintMenuItem%
  130.   ShowHint=1
  131. }
  132. Return
  133.  
  134. RemoveTrayTip:
  135. SetTimer, RemoveTrayTip, Off
  136. TrayTip
  137. Return

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}




All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at