Your Products have been synced, click here to refresh
Dim startupsetting As String = Application.StartupPath startupsetting = Path.Combine(startupsetting, "AutomationStartupOptions.txt") Dim fsA As FileStream = New FileStream(startupsetting, FileMode.Create) fsA.Close() Using sw As StreamWriter = New StreamWriter(startupsetting) sw.Write("/o") End Using Dim app As Object Try app = CreateObject("PCDLRN.Application") 'app.OperatorMode = True app.Visible = True Dim status As String = "" While Not status.Contains("Done Init") System.Threading.Thread.Sleep(1000) status = app.StatusBar() End While MsgBox("Application is open in online mode") Catch ex As Exception MsgBox("PcDmis cannot connect. " & vbNewLine & "(Error - " & ex.Message & ")" & vbNewLine & ex.ToString, MsgBoxStyle.Critical) End Try
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |