UniversalLP

Livestreamer no command line script

Jan 22nd, 2017
41
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim streamer
  2. Dim quality
  3. Dim link
  4.  
  5.  
  6. streamingSite = "twitch.tv"       ' The Site you want to grab the stream from
  7. default       = "gamesdonequick"  ' The stream that is shown by default in the text box
  8. defaultq      = "high"            ' The default quality
  9.  
  10.  
  11. streamer = InputBox("Enter livestream channel", "livestreamer", default)
  12. quality  = InputBox("Enter quality", "livestreamer", "high")
  13.  
  14. link = "livestreamer " & streamingSite & "/" & streamer & " " & quality & "  --http-header Client-ID=jzkbprff40iqj646a697cyrvl0zt2m6"
  15.  
  16. CreateObject("Wscript.Shell").Run link,0,True
  17. Set objShell = Nothing
RAW Paste Data