global oIE
DetectHiddenWindows, On

YoutubeUpload = 1
Upload(YoutubeUpload)
Loop
{
   While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
      Sleep, 10
   text := oIE.document.documentElement.InnerText
   If InStr(text, "This page can’t be displayed")  {
      Upload(YoutubeUpload)
      continue
   }
   CreateScript(YoutubeUpload)
   
   if YoutubeUpload = 2
   {
      oIE.document.querySelector("input[name=""title""]").value := name1
      oIE.document.querySelector("textarea[name=""description""]").value := description
   }
   oIE.document.querySelector("button[class=""yt-uix-button yt-uix-button-size-default save-changes-button yt-uix-tooltip yt-uix-button-primary""]").click()
   loop
   {
      text := oIE.document.documentElement.InnerText
      if InStr(text, "1 of 1 uploaded")  {
         if (YoutubeUpload = 1 && YoutubeUpload := 2)
            break
         else
            break 2
      }
      sleep, 100
   }
}
oIE.Quit   
   
Upload(var)
{
   if (var = 1)
      oIE.navigate("https://www.youtube.com/signin?feature=masthead_switcher&next=`%2Fupload&authuser=1&action_handle_signin=true&skip_identity_prompt=False")
   else if (var = 2)  {
      CloseProcess("iexplore.exe")
      oIE := ComObjCreate("InternetExplorer.Application") 
      oIE.visible := True, oIEHWND := oIE.HWND 
      WinMaximize ahk_id %oIEHWND%
      oIE.navigate("https://www.youtube.com/signin?feature=masthead_switcher&next=`%2Fupload&skip_identity_prompt=False&pageid=110507430261645574853&authuser=0&action_handle_signin=true")
   }
}

CreateScript(var)
{
   UploadFile := (var = 1 ? "G:\RITS\youtube\astrolog.mpg" : "G:\RITS\youtube\utroLTV7.mpg")
   FileDelete, WinWait.ahk
   FileAppend, 
   (
   #NoTrayIcon
   WinWait, Choose File to Upload
   loop
   {
      ControlSetText, Edit1, "%UploadFile%", Choose File to Upload
      ControlClick, Button1, Choose File to Upload,,,, NA
      WinWaitClose, Choose File to Upload,,5
      if ErrorLevel != 1
         ExitApp
   }
   ), WinWait.ahk
   Run, WinWait.ahk
   WinWait, WinWait.ahk
   oIE.document.querySelector("span[class=""init-upload-action-icon yt-sprite""]").click()
   WinWaitClose, WinWait.ahk
   FileDelete, WinWait.ahk
}

oIE.navigate("http://pastebin.com/index/0ivKzH0R")
loop
{
   text := oIE.document.documentElement.InnerText
   If InStr(text, "This page can’t be displayed")  {
      oIE.navigate("http://pastebin.com/index/0ivKzH0R")
      continue
   }
   text := oIE.document.querySelector("#paste_code").outerText
   If text !=
      break
   sleep, 100
}

if InStr(text, "This page can’t be displayed")

loop
{
   oIE.navigate("http://pastebin.com/index/0ivKzH0R")
   text := oIE.document.documentElement.InnerText
   if InStr(text, "This page can’t be displayed")
      continue
   text := oIE.document.querySelector("#paste_code").outerText
   if (text != "")
      break
   sleep, 100
}

PasteBin:
oIE.navigate("http://pastebin.com/index/0ivKzH0R")
loop
{
   text := oIE.document.documentElement.InnerText
   If InStr(text, "This page can’t be displayed")
      GoTo, PasteBin
   text := oIE.document.querySelector("#paste_code").outerText
   If text !=
      break
   sleep, 100
} 
RegexMatch(text, "(^.*?\R)", name)
Description := RegExReplace(text, "(^.*?\R)")


DetectHiddenWindows, On
YoutubeUpload = 1
YoutubeUpload:
if YoutubeUpload = 1
{
   UploadFile := "G:\RITS\youtube\astrolog.mpg"
   oIE.navigate("https://www.youtube.com/signin?feature=masthead_switcher&next=`%2Fupload&authuser=1&action_handle_signin=true&skip_identity_prompt=False")
}
if YoutubeUpload = 2
{
   UploadFile := "G:\RITS\youtube\utroLTV7.mpg"
   CloseProcess("iexplore.exe")
   oIE := ComObjCreate("InternetExplorer.Application") 
   oIE.visible := True, oIEHWND := oIE.HWND 
   WinMaximize ahk_id %oIEHWND%
   oIE.navigate("https://www.youtube.com/signin?feature=masthead_switcher&next=`%2Fupload&skip_identity_prompt=False&pageid=110507430261645574853&authuser=0&action_handle_signin=true")
}
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
   Sleep, 10
text := oIE.document.documentElement.InnerText
If InStr(text, "This page can’t be displayed")
   GoTo, YoutubeUpload
FileDelete, WinWait.ahk
FileAppend, 
(
#NoTrayIcon
WinWait, Choose File to Upload
loop
{
   ControlSetText, Edit1, "%UploadFile%", Choose File to Upload
   ControlClick, Button1, Choose File to Upload,,,, NA
   WinWaitClose, Choose File to Upload,,5
   if ErrorLevel != 1
      ExitApp
}
), WinWait.ahk
Run, WinWait.ahk
WinWait, WinWait.ahk
oIE.document.querySelector("span[class=""init-upload-action-icon yt-sprite""]").click()
WinWaitClose, WinWait.ahk
FileDelete, WinWait.ahk
if YoutubeUpload = 2
{
   oIE.document.querySelector("input[name=""title""]").value := name1
   oIE.document.querySelector("textarea[name=""description""]").value := description
}
oIE.document.querySelector("button[class=""yt-uix-button yt-uix-button-size-default save-changes-button yt-uix-tooltip yt-uix-button-primary""]").click()
loop
{
   text := oIE.document.documentElement.InnerText
   if InStr(text, "1 of 1 uploaded") and (YoutubeUpload = 1)
   {
      YoutubeUpload = 2
      GoTo, YoutubeUpload
   }
   if InStr(text, "1 of 1 uploaded") and (YoutubeUpload = 2)
      break
   sleep, 100
}
oIE.Quit