mRemoteNG/mRemoteV1/UI/UI.Window.UltraVNCSC.vb

Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime
'Imports AxViewerX

Namespace UI
    Namespace Window
        Public Class UltraVNCSC
            Inherits UI.Window.Base

#Region "Form Init"
            Friend WithEvents tsMain As System.Windows.Forms.ToolStrip
            Friend WithEvents pnlContainer As System.Windows.Forms.Panel
            Friend WithEvents btnDisconnect As System.Windows.Forms.ToolStripButton

            Private Sub InitializeComponent()
                Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(UltraVNCSC))
                Me.tsMain = New System.Windows.Forms.ToolStrip
                Me.btnDisconnect = New System.Windows.Forms.ToolStripButton
                Me.pnlContainer = New System.Windows.Forms.Panel
                Me.tsMain.SuspendLayout()
                Me.SuspendLayout()
                '
                'tsMain
                '
                Me.tsMain.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
                Me.tsMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnDisconnect})
                Me.tsMain.Location = New System.Drawing.Point(0, 0)
                Me.tsMain.Name = "tsMain"
                Me.tsMain.Size = New System.Drawing.Size(446, 25)
                Me.tsMain.TabIndex = 0
                Me.tsMain.Text = "ToolStrip1"
                '
                'btnDisconnect
                '
                Me.btnDisconnect.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
                Me.btnDisconnect.Image = CType(resources.GetObject("btnDisconnect.Image"), System.Drawing.Image)
                Me.btnDisconnect.ImageTransparentColor = System.Drawing.Color.Magenta
                Me.btnDisconnect.Name = "btnDisconnect"
                Me.btnDisconnect.Size = New System.Drawing.Size(63, 22)
                Me.btnDisconnect.Text = "Disconnect"
                '
                'pnlContainer
                '
                Me.pnlContainer.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlContainer.Location = New System.Drawing.Point(0, 27)
                Me.pnlContainer.Name = "pnlContainer"
                Me.pnlContainer.Size = New System.Drawing.Size(446, 335)
                Me.pnlContainer.TabIndex = 1
                '
                'UltraVNCSC
                '
                Me.ClientSize = New System.Drawing.Size(446, 362)
                Me.Controls.Add(Me.pnlContainer)
                Me.Controls.Add(Me.tsMain)
                Me.Icon = Global.mRemote.My.Resources.UVNC_SC_Icon
                Me.Name = "UltraVNCSC"
                Me.TabText = "UltraVNC SC"
                Me.Text = "UltraVNC SC"
                Me.tsMain.ResumeLayout(False)
                Me.tsMain.PerformLayout()
                Me.ResumeLayout(False)
                Me.PerformLayout()

            End Sub
#End Region

#Region "Declarations"
            'Private WithEvents vnc As AxCSC_ViewerXControl
#End Region

#Region "Public Methods"
            Public Sub New(ByVal Panel As DockContent)
                Me.WindowType = Type.UltraVNCSC
                Me.DockPnl = Panel
                Me.InitializeComponent()
            End Sub
#End Region

#Region "Private Methods"
            Private Sub UltraVNCSC_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
                ApplyLanguage()

                StartListening()
            End Sub

            Private Sub ApplyLanguage()
                btnDisconnect.Text = My.Resources.strButtonDisconnect
            End Sub

            Private Sub StartListening()
                Try
                    'If vnc IsNot Nothing Then
                    '    vnc.Dispose()
                    '    vnc = Nothing
                    'End If

                    'vnc = New AxCSC_ViewerXControl()
                    'SetupLicense()

                    'vnc.Parent = pnlContainer
                    'vnc.Dock = DockStyle.Fill
                    'vnc.Show()

                    'vnc.StretchMode = ViewerX.ScreenStretchMode.SSM_ASPECT
                    'vnc.ListeningText = My.Resources.strInheritListeningForIncomingVNCConnections & " " & My.Settings.UVNCSCPort

                    'vnc.ListenEx(My.Settings.UVNCSCPort)
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "StartListening (UI.Window.UltraVNCSC) failed" & vbNewLine & ex.Message, False)
                    Close()
                End Try   
            End Sub

            Private Sub SetupLicense()
                Try
                    'Dim f As System.Reflection.FieldInfo
                    'f = GetType(AxHost).GetField("licenseKey", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
                    'f.SetValue(vnc, "{072169039103041044176252035252117103057101225235137221179204110241121074}")
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC SetupLicense failed (UI.Window.UltraVNCSC)" & vbNewLine & ex.Message, True)
                End Try
            End Sub

            'Private Sub vnc_ConnectionAccepted(ByVal sender As Object, ByVal e As AxViewerX._ISmartCodeVNCViewerEvents_ConnectionAcceptedEvent) Handles vnc.ConnectionAccepted
            '    mC.AddMessage(Messages.MessageClass.InformationMsg, e.bstrServerAddress & " is now connected to your UltraVNC SingleClick panel!")
            'End Sub

            'Private Sub vnc_Disconnected(ByVal sender As Object, ByVal e As System.EventArgs) Handles vnc.Disconnected
            '    StartListening()
            'End Sub

            Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
                'vnc.Dispose()
                Dispose()
                App.Runtime.Windows.Show(Type.UltraVNCSC)
            End Sub
#End Region

        End Class
    End Namespace
End Namespace