''''''''''''''''''''''''''''''''
'PopUp automate by Giulliu@2021'
''''''''''''''''''''''''''''''''
dim a,b,l,w,o,p,s as integer
dim f as string
dim path as string
dim now as string
dim url as string = "http://127.0.0.1:8088/api"
dim readcnt as XmlReader = XmlReader.Create(url)
readcnt.ReadToFollowing("text")
p=readcnt.ReadElementContentAsInt()
readcnt.Close()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'edit the lines below as you pourpose

f="PopUp_STR"                   'name of photos input
l=5                             'live time in seconds
w=1                             'waiting time in minutes
o=2                             'Overlay channel
path="d:\editing\PopUpLOG.txt"  'where to store the log

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

'don't touch the lines below

a=l*1000
b=w*60000
s=2000

Do While TRUE
Console.WriteLine("")
Overlay.Find(o).In (f)
now=DateTime.Now.ToString("dd/MM/yy HH:mm:ss")
dim readpop as XmlReader = XmlReader.Create(url)
readpop.ReadToFollowing("input")
dim pop As String = readpop.ReadInnerXml()
dim textout as String=(now & " - " &pop & " on Overlay " & o & " for " & l & " seconds")
Console.WriteLine(textout)
readpop.Close()

Sleep(a)
p=p+1
Console.WriteLine(p & " PopUp out")
Overlay.Find(o).Out
Console.WriteLine("")
API.Function("SetText",Input:="2",SelectedName:="Message",Value:=(p).tostring)
dim file as System.IO.StreamWriter
file=My.Computer.FileSystem.OpenTextFileWriter(path, True)
file.WriteLine(p & " " & textout)
file.Close()
Sleep(s)
Console.WriteLine("Change PopUp")
API.Function("NextPicture",f)
Console.WriteLine("Waiting " & w & " minutes for next PopUp overlay")
Sleep(b-a-s)
Loop

dim busses as string = ""
busses = (x.SelectSingleNode("//input[@title='Call_01']/@audiobusses").Value)
' or check on callAudioSource  

If busses = "A" 
 'do this
Else if busses = "B"
 'do that 
else 
 'do something else
end if 

Dim ab1 as string = ""
Dim ab2 as string = ""
Dim ab3 as string = ""
Dim ab4 as string = ""
Dim ab5 as string = ""
Dim ab6 as string = ""

'Werte auslesen
do while true
Dim xml as string = API.XML()
Dim x as new system.xml.xmldocument
x.load("http://192.168.200.166:8088/api")
ab1 = (x.SelectSingleNode("//input[1]/@audiobusses").InnerText)
ab2 = (x.SelectSingleNode("//input[2]/@audiobusses").InnerText)
ab3 = (x.SelectSingleNode("//input[3]/@audiobusses").InnerText)
ab4 = (x.SelectSingleNode("//input[4]/@audiobusses").InnerText)
ab5 = (x.SelectSingleNode("//input[5]/@audiobusses").InnerText)
ab6 = (x.SelectSingleNode("//input[6]/@audiobusses").InnerText)

'Call 1 Darstellung Audio Bus
Dim client as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall1.Text&Value="&ab1)
Dim response as Webresponse = client.GetResponse()
response.Close

'Call 2 Darstellung Audio Bus
Dim client2 as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall2.Text&Value="&ab2)
Dim response2 as Webresponse = client2.GetResponse()
response2.Close

'Call 3 Darstellung Status
Dim client3 as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall3.Text&Value="&ab3)
Dim response3 as Webresponse = client3.GetResponse()
response3.Close

'Call 4 Darstellung Status
Dim client4 as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall4.Text&Value="&ab4)
Dim response4 as Webresponse = client4.GetResponse()
response4.Close

'Call 5 Darstellung Status
Dim client5 as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall5.Text&Value="&ab5)
Dim response5 as Webresponse = client5.GetResponse()
response5.Close

'Call 6 Darstellung Status
Dim client6 as Webrequest = WebRequest.Create("http://192.168.200.199:8088/api/?Function=SetText&Input=1&SelectedName=ABCall6.Text&Value="&ab6)
Dim response6 as Webresponse = client6.GetResponse()
response6.Close

sleep (1000)
loop

API.Function("SetZoom",Input:="1",Value:="0.6295") 

'''''''''''''''''''''''''''''''''''''''''
'2BOX One Button Cycling by Giulliu@2021'
'''''''''''''''''''''''''''''''''''''''''
dim mv as string
dim sta,sto,lf,rg as integer

'''''''''''''''''''''''''''''''''''''''''
'edit the lines below as you pourpose

mv = "2BOX"     'name of Layer/Multiview Input

'''''''''''''''''''''''''''''''''''''''''
Do While TRUE
dim url as string = "http://127.0.0.1:8088/api"
dim readcnt as XmlReader = XmlReader.Create(url)
readcnt.ReadToFollowing("text")
sta=readcnt.ReadElementContentAsInt()
sto=readcnt.ReadElementContentAsInt()
lf=readcnt.ReadElementContentAsInt()
rg=readcnt.ReadElementContentAsInt()
readcnt.Close()
If lf > sto Then
   API.Function("SetText",Input:="1",SelectedName:="SelectedLEFT.Text",Value:=(sta).ToString)
End If
If rg > sto Then
   API.Function("SetText",Input:="1",SelectedName:="SelectedRIGHT.Text",Value:=(sta).ToString)
End If
API.Function("SetMultiViewOverlay",mv,"2," & lf.ToString)
API.Function("SetMultiViewOverlay",mv,"3," & rg.ToString)
Sleep(100)
Loop