Imports System.IO
Imports System.Runtime.InteropServices
Module Example
<STAThread()> _
Sub Main()
Dim objApplication As StructureEditor.Application = Nothing
Dim objStructureEditor As StructureEditor.SEECStructureEditor = Nothing
Dim strUserName As String
Dim strPassword As String
Dim strGroup As String
Dim strRole As String
Dim strURL As String
Try
OleMessageFilter.Register()
' Start structure editor application
objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("StructureEditor.Application"))
objStructureEditor = objApplication.SEECStructureEditor
objApplication.Visible = True
strUserName = "Username"
strPassword = ""
strGroup = ""
strRole = ""
strURL = "http://Servername:8085/tc"
If objStructureEditor.ValidateLogin(strUserName, strPassword, strGroup, strRole, strURL) = 0 Then
objStructureEditor.CreateRootNewItem()
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
If Not objApplication Is Nothing Then
' Kill the instance of structure editor created
objApplication.Quit()
End If
OleMessageFilter.Revoke()
End Try
End Sub
End Module