- Posts: 5
- Joined: Tue May 05, 2020 12:50 pm
- Real Name: Christoph Pelka
I have never written a line of VB.Net until today. Got this to compile. See this thread for some more info on ittereators viewtopic.php?f=12&t=63911
Imports BMDSwitcherAPI
Imports System
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Module Module1
Sub Main()
Dim switcherDiscovery As IBMDSwitcherDiscovery = New CBMDSwitcherDiscovery()
Dim failReason As _BMDSwitcherConnectToFailure = 0
Dim connectedSwitcher As IBMDSwitcher = Nothing
Dim productName As String = ""
Try
switcherDiscovery.ConnectTo("192.168.1.10", connectedSwitcher, failReason)
Dim switcher = connectedSwitcher
Catch ex As COMException
Console.WriteLine("Error #:" + failReason.ToString())
End Try
connectedSwitcher.GetProductName(productName)
Console.WriteLine(productName)
End Sub
End Module