'Total Seconds Countdown using Stopwatch as time reference

dim total as integer = 250  'Total # of seconds to count down
dim label as integer = 1
dim watch As Stopwatch = Stopwatch.StartNew()

do while label > 0  
     
     Dim elapsed As TimeSpan = watch.Elapsed
     label = total - Math.Floor(elapsed.TotalMilliseconds/1000)
     API.Function("SetText",Input:="9",SelectedName:="Description.Text",Value:=label) 'edit for own titlinput
     Sleep(250)
loop

'Total Seconds Countdown using DateTime as time reference

dim StartTime,NowTime as DateTime
dim ts As TimeSpan 

dim ctime as integer = 1
dim total as integer = 250  'Total # of seconds to count down

StartTime = DateTime.Now()

do while ctime > 0
    NowTime = DateTime.Now()
    ts = NowTime.Subtract(StartTime)
    ctime = total - (((ts.Hours * 60) + ts.Minutes) * 60 + ts.Seconds)

    API.Function("SetText",Input:="9",SelectedName:="Headline.Text",Value:=ctime)
    sleep(500)
Loop

Dim x As New XmlDocument()
x.LoadXml(API.XML)

dim soloNodesList As XmlNodeList = x.SelectNodes("/vmix/inputs/input[@solo='True']")

for each node as XmlElement In SoloNodesList
  API.Function("SoloOff",Input:=node.GetAttribute("key"))
next

For example this is the http://localhost:8088/api response from vMIX (copy I'm running)
...
<input key="fda8cd85-095d-4c40-98ba-b98800c02eaa" number="1" type="Stream" title="Center Camera" shortTitle="Center Camera" state="Running" position="0" duration="0" loop="False" muted="True" volume="100" balance="0" solo="False" audiobusses="" meterF1="0" meterF2="0" gainDb="0">Center Camera</input>
...

''''''''''''''''
' Script von Mats Julian Steffens
' www.lvstrm.de
''''''''''''''''
'
' Log everything you are playing
'
''''''''''''''''
dim dateinamealt as string = ""

do
dim datum as string
datum = DateTime.Now.ToString("yyMMdd")

dim filename as string
filename="C:\vMix log\overlay1\"+datum+"-vmixlog.txt"     'Where to save the file


If (Not System.IO.File.Exists(filename)) Then
   My.Computer.FileSystem.WriteAllText(filename, " ", True)
End If

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

dim timestamp as string
timestamp = DateTime.Now.ToString("dd/MM/yy HH:mm:ss")

dim xml as string = API.XML()
dim ovl1input as string = ""
dim x as new system.xml.xmldocument
x.loadxml(xml)

ovl1input = (x.SelectSingleNode("//overlays//overlay[1]").InnerText)
dim dateiname as string = (x.SelectSingleNode("//overlays//overlay[1]").InnerText)


if (ovl1input = nothing) 
'we don't have 2 PIP overlays, no point in continuing then

end if

dim inputnamelaenge as string

If (ovl1input = dateiname) Then
    inputnamelaenge = 0
Else
    inputnamelaenge = ovl1input.Length()+3
End If


dim inputString as string

'Datei schreiben
If (dateinamealt <> dateiname) Then
    inputString = timestamp + " " + dateiname.Substring(inputnamelaenge) + Environment.NewLine 

    Console.WriteLine(inputString)

    My.Computer.FileSystem.WriteAllText(filename, inputString, True)
    dateinamealt = dateiname

End If

sleep(1000)
loop