Switched to VncSharp, an open source VNC component.

2026-02-17 14:07:46 +08:00 · 2010-01-16 23:39:30 -06:00
parent 11ed1b43ff
commit 37854b1901
8 changed files with 82 additions and 98 deletions
--- a/mRemoteV1/ChangeLog.txt
+++ b/mRemoteV1/ChangeLog.txt
@@ -1,4 +1,12 @@
-1.61:
+1.62:
+  Switched to VncSharp, an open source VNC component
+  VNC is supported again except for the following features:
+    Windows authentication
+    Toggling view only mode while connected (must be set before connecting)
+    Setting the compression, encoding and color settings
+    Connecting through a proxy server
+
+1.61:
  Removed unlicensed SmartCode Solutions ViewerX VNC Viewer ActiveX
  This version of mRemoteNG does not support VNC

--- a/mRemoteV1/Connection/Connection.Info.vb
+++ b/mRemoteV1/Connection/Connection.Info.vb
@@ -823,7 +823,7 @@ Namespace Connection
 #Region "VNC"
        Private _VNCCompression As mRemote.Connection.Protocol.VNC.Compression = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Compression), My.Settings.ConDefaultVNCCompression)
        <Category(Category4 & Language.Base.Props_Appearance), _
-           Browsable(True), _
+           Browsable(False), _
           DisplayName(Language.Base.Props_Compression), _
           Description(Language.Base.Descr_Compression), _
           TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
@@ -850,7 +850,7 @@ Namespace Connection

        Private _VNCEncoding As mRemote.Connection.Protocol.VNC.Encoding = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Encoding), My.Settings.ConDefaultVNCEncoding)
        <Category(Category4 & Language.Base.Props_Appearance), _
-           Browsable(True), _
+           Browsable(False), _
           DisplayName(Language.Base.Props_Encoding), _
           Description(Language.Base.Descr_Encoding), _
           TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
@@ -878,7 +878,7 @@ Namespace Connection

        Private _VNCAuthMode As mRemote.Connection.Protocol.VNC.AuthMode = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.AuthMode), My.Settings.ConDefaultVNCAuthMode)
        <Category(Category2 & Language.Base.Props_Connection), _
-            Browsable(True), _
+            Browsable(False), _
            DisplayName(Language.Base.Props_AuthMode), _
            Description(Language.Base.Descr_AuthMode), _
            TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
@@ -905,7 +905,7 @@ Namespace Connection

        Private _VNCProxyType As mRemote.Connection.Protocol.VNC.ProxyType = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.ProxyType), My.Settings.ConDefaultVNCProxyType)
        <Category(Category6 & Language.Base.Props_Misc), _
-           Browsable(True), _
+           Browsable(False), _
           DisplayName(Language.Base.Props_ProxyType), _
           Description(Language.Base.Descr_ProxyType), _
           TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
@@ -932,7 +932,7 @@ Namespace Connection

        Private _VNCProxyIP As String = My.Settings.ConDefaultVNCProxyIP
        <Category(Category6 & Language.Base.Props_Misc), _
-            Browsable(True), _
+            Browsable(False), _
            DisplayName(Language.Base.Props_ProxyIP), _
            Description(Language.Base.Descr_ProxyIP)> _
        Public Property VNCProxyIP() As String
@@ -958,7 +958,7 @@ Namespace Connection

        Private _VNCProxyPort As Integer = My.Settings.ConDefaultVNCProxyPort
        <Category(Category6 & Language.Base.Props_Misc), _
-            Browsable(True), _
+            Browsable(False), _
            DisplayName(Language.Base.Props_ProxyPort), _
            Description(Language.Base.Descr_ProxyPort)> _
        Public Property VNCProxyPort() As Integer
@@ -984,7 +984,7 @@ Namespace Connection

        Private _VNCProxyUsername As String = My.Settings.ConDefaultVNCProxyUsername
        <Category(Category6 & Language.Base.Props_Misc), _
-            Browsable(True), _
+            Browsable(False), _
            DisplayName(Language.Base.Props_ProxyUsername), _
            Description(Language.Base.Props_ProxyUsername)> _
        Public Property VNCProxyUsername() As String
@@ -1010,7 +1010,7 @@ Namespace Connection

        Private _VNCProxyPassword As String = My.Settings.ConDefaultVNCProxyPassword
        <Category(Category6 & Language.Base.Props_Misc), _
-            Browsable(True), _
+            Browsable(False), _
            DisplayName(Language.Base.Props_ProxyPassword), _
            Description(Language.Base.Descr_ProxyPassword), _
            PasswordPropertyText(True)> _
@@ -1037,7 +1037,7 @@ Namespace Connection

        Private _VNCColors As mRemote.Connection.Protocol.VNC.Colors = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Colors), My.Settings.ConDefaultVNCColors)
        <Category(Category4 & Language.Base.Props_Appearance), _
-           Browsable(True), _
+           Browsable(False), _
           DisplayName(Language.Base.Props_Colors), _
           Description(Language.Base.Descr_Colors), _
           TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
--- a/mRemoteV1/Connection/Connection.Protocol.VNC.vb
+++ b/mRemoteV1/Connection/Connection.Protocol.VNC.vb
@@ -1,5 +1,5 @@
 Imports mRemote.App.Runtime
-'Imports AxViewerX
+Imports VncSharp
 Imports System.ComponentModel

 Namespace Connection
@@ -10,59 +10,44 @@ Namespace Connection
 #Region "Properties"
            Public Property SmartSize() As Boolean
                Get
-                    'If VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_NONE Then
-                    Return False
-                    'Else
-                    '    Return True
-                    'End If
+                    Return Not VNC.AutoScroll
                End Get
                Set(ByVal value As Boolean)
-                    'If value = False Then
-                    '    VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_NONE
-                    'Else
-                    '    If Info.VNCSmartSizeMode = SmartSizeMode.SmartSFree Then
-                    '        VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_FREE
-                    '    Else
-                    '        VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_ASPECT
-                    '    End If
-                    'End If
+                    VNC.SetScalingMode(value)
+                    VNC.AutoScroll = Not value
                End Set
            End Property

            Public Property ViewOnly() As Boolean
                Get
-                    'Return VNC.ViewOnly
+                    'Return VNC.ViewOnly ' TODO: Fix this
                    Return False
                End Get
                Set(ByVal value As Boolean)
-                    'VNC.ViewOnly = value
+                    VNC.SetInputMode(value)
                End Set
            End Property
 #End Region

 #Region "Private Declarations"
-            'Private VNC As AxCSC_ViewerXControl
+            Private VNC As VncSharp.RemoteDesktop
            Private Info As Connection.Info
 #End Region

 #Region "Public Methods"
            Public Sub New()
-                'Me.Control = New AxCSC_ViewerXControl
-                'SetupLicense(Me.Control)
+                Me.Control = New VncSharp.RemoteDesktop
            End Sub

            Public Overrides Function SetProps() As Boolean
                MyBase.SetProps()

                Try
-                    'VNC = Me.Control
+                    VNC = Me.Control

-                    'Info = Me.InterfaceControl.Info
+                    Info = Me.InterfaceControl.Info

-                    'VNC.BeginInit()
-
-                    'VNC.Port = Me.Info.Port
-                    'VNC.HostIP = Me.Info.Hostname
+                    VNC.VncPort = Me.Info.Port

                    'If Info.VNCCompression <> Compression.CompNone Then
                    '    VNC.JPEGCompression = True
@@ -122,17 +107,6 @@ Namespace Connection
                    '    VNC.RestrictPixel = False
                    'End If

-                    'Select Case Info.VNCSmartSizeMode
-                    '    Case SmartSizeMode.SmartSNo
-                    '        VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_NONE
-                    '    Case SmartSizeMode.SmartSFree
-                    '        VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_FREE
-                    '    Case SmartSizeMode.SmartSAspect
-                    '        VNC.StretchMode = ViewerX.ScreenStretchMode.SSM_ASPECT
-                    'End Select
-
-                    'VNC.ViewOnly = Info.VNCViewOnly
-
                    'VNC.ConnectingText = Language.Base.Connecting & " (SmartCode VNC viewer)"
                    'VNC.DisconnectedText = Language.Base.Disconnected
                    'VNC.MessageBoxes = False
@@ -149,7 +123,7 @@ Namespace Connection
                Me.SetEventHandlers()

                Try
-                    'VNC.ConnectAsync()
+                    VNC.Connect(Me.Info.Hostname, Me.Info.VNCViewOnly, Info.VNCSmartSizeMode <> SmartSizeMode.SmartSNo)
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "Opening connection failed" & vbNewLine & ex.Message)
                    Return False
@@ -160,7 +134,7 @@ Namespace Connection

            Public Overrides Sub Disconnect()
                Try
-                    'VNC.Disconnect()
+                    VNC.Disconnect()
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC Disconnect failed" & vbNewLine & ex.Message, True)
                End Try
@@ -170,9 +144,9 @@ Namespace Connection
                Try
                    Select Case Keys
                        Case SpecialKeys.CtrlAltDel
-                            'VNC.SendCAD()
+                            VNC.SendSpecialKeys(SpecialKeys.CtrlAltDel)
                        Case SpecialKeys.CtrlEsc
-                            'VNC.SendCtrlEsq()
+                            VNC.SendSpecialKeys(SpecialKeys.CtrlEsc)
                    End Select
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC SendSpecialKeys failed" & vbNewLine & ex.Message, True)
@@ -223,7 +197,7 @@ Namespace Connection

            Public Sub RefreshScreen()
                Try
-                    'VNC.RequestRefresh()
+                    VNC.FullScreenUpdate()
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC RefreshScreen failed" & vbNewLine & ex.Message, True)
                End Try
@@ -233,33 +207,29 @@ Namespace Connection
 #Region "Private Methods"
            Private Sub SetEventHandlers()
                Try
-                    'AddHandler VNC.ConnectedEvent, AddressOf VNCEvent_Connected
-                    'AddHandler VNC.Disconnected, AddressOf VNCEvent_Disconnected
+                    AddHandler VNC.ConnectComplete, AddressOf VNCEvent_Connected
+                    AddHandler VNC.ConnectionLost, AddressOf VNCEvent_Disconnected
+                    VNC.GetPassword = AddressOf VNCEvent_Authenticate
                Catch ex As Exception
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC SetEventHandlers failed" & vbNewLine & ex.Message, True)
                End Try
            End Sub
-
-            Public Shared Sub SetupLicense(ByVal vncCtrl As Control)
-                Try
-                    Dim f As System.Reflection.FieldInfo
-                    f = GetType(AxHost).GetField("licenseKey", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
-                    f.SetValue(vncCtrl, "{072169039103041044176252035252117103057101225235137221179204110241121074}")
-                Catch ex As Exception
-                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNC SetupLicense failed" & vbNewLine & ex.Message, True)
-                End Try
-            End Sub
 #End Region

 #Region "Private Events & Handlers"
            Private Sub VNCEvent_Connected(ByVal sender As Object, ByVal e As EventArgs)
                MyBase.Event_Connected(Me)
+                VNC.AutoScroll = Info.VNCSmartSizeMode = SmartSizeMode.SmartSNo
            End Sub

            Private Sub VNCEvent_Disconnected(ByVal sender As Object, ByVal e As EventArgs)
                MyBase.Event_Disconnected(sender, e.ToString)
                MyBase.Close()
            End Sub
+
+            Private Function VNCEvent_Authenticate() As String
+                Return Info.Password
+            End Function
 #End Region

 #Region "Enums"
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.61")> 
-<Assembly: AssemblyFileVersion("1.61")> 
+<Assembly: AssemblyVersion("1.62")> 
+<Assembly: AssemblyFileVersion("1.62")> 
--- a/mRemoteV1/References/VncSharp.dll
+++ b/mRemoteV1/References/VncSharp.dll
--- a/mRemoteV1/UI/UI.Window.Connection.resx
+++ b/mRemoteV1/UI/UI.Window.Connection.resx
@@ -124,18 +124,18 @@
  <data name="cmenTabExternalApps.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAmhJREFUOE+lU9tL
-        01EcP/0VvbqxiQ6dOp2b25xzzgspRrvpNkeMTBqiszSzGgrSKlIYtV9RZJl0UdOJjbSctFUrsKcxg3oo
-        /GF0ocCHpHrwoU87B04UBAke+Dx+vp8bZxcAsqN3/ebdK8vJ1Fby2QoST1cQf/wcC/EnuLf4CDOxJdye
-        XcD45Dwu35jBhat3MHJxAqHwGIJnhK3O3sFukiX/fLl3D95Fd8M8b8SrN+v/xeu36/j0ZQPdJ0ciJJl6
-        ga/LD/HjvYD7H2L4+HljW9j89h3+Y6cFQi2XlJRApVKhtLQUZWVlUKvVKC8vh0ajQUVFBfR6PQwGAyor
-        K1FVVYXq6mrU1NSgvWdIIEuJFCPl5ORAIpFAKpVCJpNBLpcjNzcXeXl5UCgUKCgoQGFhIYqKiphgXV0d
-        eofCAqGF8QPpdBpTU1PbPpDtQCCxBwlmkyuura2hr6/vn6o0Jo/Y2NiIQ/0hgczG4ixbfn4+MpkMotEo
-        lErlb6ucxDvRarXQ6XRobm7GgcCgQCbnFmE2mxmhuLiY5eNlUhIFJ9EyqRiF1WrF/s4BgUxMx1BfX/8X
-        ibdPlfgCRqORLWAymdgKDocDno5egYzdmgPNQ1VoF5T052R8NuqSwmKxoLa2Fi0tLXD6ugVyaXya5eHW
-        uBJVoQS6NyfR6SgaGhrgdrth8/oFci5ybZPmsdlssNvtzJrT6WQKFK2trXC5XIzg8XjQ1tbG4PV60eT0
-        jZLAwHAgGDq/GgxFxP7hsHhkcFTsOn5W9B89JR7sGRJ9XSdEr79fdLcfFrOWxayquM/dITY5fKuWJoeJ
-        0O+8E/wCTNYVG3agVjIAAAAASUVORK5CYII=
+        YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAmlJREFUOE+lVN1L
+        k1EcPv9Ft06mzOF0m27qdHOb040cRpubc3PEyKQhTktbVuJAWkUKUr5FkWXSh5pObKTmJK1WYFdjBnVR
+        7MXogwIvkurCi552DpwoCBK8eC6f3/PFOQQA2Q3IjVv3ri6vJrdXn61h5ekaEo+fYz7xBPcXHmE6voQ7
+        M/MYm5jDlZvTuHjtLgYvjSM6PIq+s8J2e3d/iGTJP1/u24t3sT0wzxnw6s3Gf/H67QY+fdlE6NTgCFlN
+        vsDX5Yf48V7Agw9xfPy8uSNsffuO4PEzAqGWVSoV1Go1SkpKUFpaCo1GA61Wi7KyMlRUVKCyshJVVVXQ
+        6/Worq6GyWRCTU0NWrsiAllaSTJSTk4OJBIJcnNzIZVKkZeXh/z8fMhkMsjlchQWFkKhUKC4uJgJ1tXV
+        oTsyLBBaGD+QSqUwOTm54wPZDgQSX1xhNrliJpNBT0/PP1VpTB6xvr4eh8NRgczEEyxbQUEB0uk0YrEY
+        ioqKflvlJN5JeXk5dDodGhoacLCzXyATswswm82MoFQqWT5eJiVRcBItk4pROBwOHGjvFcj4VBxWq/Uv
+        Em+fKvEFDAYDW8BoNLIVXC4XfG3dAhm9PQuah6rQLijpz8n4bNQlhcViQW1tLZqamuAOhARyeWyK5eHW
+        uBJVoQS6NyfR6ShsNhu8Xi+c/qBAzo9c36J5nE4nGhsbmTW3280UKDweD5qbmxnB5/OhpaWFwe/3w+4O
+        DJHO3oHOvuiF9b7oiBgeGBaP9g+JHSfOicFjp8VDXREx0HFS9AfDorf1iJi1LGZVxf3eNtHuCqxb7C7j
+        rp4y/QZ+AXhAQe1Sf9VzAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="cmenTabReconnect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/mRemoteV1/UI/UI.Window.Connection.vb
+++ b/mRemoteV1/UI/UI.Window.Connection.vb
@@ -77,27 +77,28 @@ Namespace UI
                Me.cmenTab.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmenTabFullscreen, Me.cmenTabSmartSize, Me.cmenTabViewOnly, Me.ToolStripSeparator1, Me.cmenTabScreenshot, Me.cmenTabStartChat, Me.cmenTabTransferFile, Me.cmenTabRefreshScreen, Me.cmenTabSendSpecialKeys, Me.cmenTabExternalApps, Me.cmenTabSep1, Me.cmenTabRenameTab, Me.cmenTabDuplicateTab, Me.cmenTabReconnect, Me.cmenTabDisconnect})
                Me.cmenTab.Name = "cmenTab"
                Me.cmenTab.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
-                Me.cmenTab.Size = New System.Drawing.Size(202, 302)
+                Me.cmenTab.Size = New System.Drawing.Size(202, 324)
                '
                'cmenTabFullscreen
                '
                Me.cmenTabFullscreen.Image = Global.mRemote.My.Resources.Resources.Fullscreen
                Me.cmenTabFullscreen.Name = "cmenTabFullscreen"
                Me.cmenTabFullscreen.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabFullscreen.Text = Language.Base.Fullscreen & " (RDP)"
+                Me.cmenTabFullscreen.Text = "Fullscreen (RDP)"
                '
                'cmenTabSmartSize
                '
                Me.cmenTabSmartSize.Image = Global.mRemote.My.Resources.Resources.SmartSize
                Me.cmenTabSmartSize.Name = "cmenTabSmartSize"
                Me.cmenTabSmartSize.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabSmartSize.Text = Language.Base.SmartSize & " (RDP/VNC)"
+                Me.cmenTabSmartSize.Text = "SmartSize (RDP/VNC)"
                '
                'cmenTabViewOnly
                '
                Me.cmenTabViewOnly.Name = "cmenTabViewOnly"
                Me.cmenTabViewOnly.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabViewOnly.Text = Language.Base.Props_ViewOnly & " (VNC)"
+                Me.cmenTabViewOnly.Text = "View Only (VNC)"
+                Me.cmenTabViewOnly.Visible = False
                '
                'ToolStripSeparator1
                '
@@ -109,28 +110,29 @@ Namespace UI
                Me.cmenTabScreenshot.Image = Global.mRemote.My.Resources.Resources.Screenshot_Add
                Me.cmenTabScreenshot.Name = "cmenTabScreenshot"
                Me.cmenTabScreenshot.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabScreenshot.Text = Language.Base.Screenshot
+                Me.cmenTabScreenshot.Text = "Screenshot"
                '
                'cmenTabStartChat
                '
                Me.cmenTabStartChat.Image = Global.mRemote.My.Resources.Resources.Chat
                Me.cmenTabStartChat.Name = "cmenTabStartChat"
                Me.cmenTabStartChat.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabStartChat.Text = Language.Base.StartChat & " (VNC)"
+                Me.cmenTabStartChat.Text = "Start Chat (VNC)"
+                Me.cmenTabStartChat.Visible = False
                '
                'cmenTabTransferFile
                '
                Me.cmenTabTransferFile.Image = Global.mRemote.My.Resources.Resources.SSHTransfer
                Me.cmenTabTransferFile.Name = "cmenTabTransferFile"
                Me.cmenTabTransferFile.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabTransferFile.Text = Language.Base.TransferFile & " (SSH/VNC)"
+                Me.cmenTabTransferFile.Text = "Transfer File (SSH)"
                '
                'cmenTabRefreshScreen
                '
                Me.cmenTabRefreshScreen.Image = Global.mRemote.My.Resources.Resources.Refresh
                Me.cmenTabRefreshScreen.Name = "cmenTabRefreshScreen"
                Me.cmenTabRefreshScreen.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabRefreshScreen.Text = Language.Base.RefreshScreen & " (VNC)"
+                Me.cmenTabRefreshScreen.Text = "Refresh Screen (VNC)"
                '
                'cmenTabSendSpecialKeys
                '
@@ -138,26 +140,26 @@ Namespace UI
                Me.cmenTabSendSpecialKeys.Image = Global.mRemote.My.Resources.Resources.Keyboard
                Me.cmenTabSendSpecialKeys.Name = "cmenTabSendSpecialKeys"
                Me.cmenTabSendSpecialKeys.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabSendSpecialKeys.Text = Language.Base.SendSpecialKeys & " (VNC)"
+                Me.cmenTabSendSpecialKeys.Text = "Send special Keys (VNC)"
                '
                'cmenTabSendSpecialKeysCtrlAltDel
                '
                Me.cmenTabSendSpecialKeysCtrlAltDel.Name = "cmenTabSendSpecialKeysCtrlAltDel"
-                Me.cmenTabSendSpecialKeysCtrlAltDel.Size = New System.Drawing.Size(146, 22)
-                Me.cmenTabSendSpecialKeysCtrlAltDel.Text = Language.Base.Key_Control & "+" & Language.Base.Key_Alt & "+" & Language.Base.Key_Del
+                Me.cmenTabSendSpecialKeysCtrlAltDel.Size = New System.Drawing.Size(141, 22)
+                Me.cmenTabSendSpecialKeysCtrlAltDel.Text = "Ctrl+Alt+Del"
                '
                'cmenTabSendSpecialKeysCtrlEsc
                '
                Me.cmenTabSendSpecialKeysCtrlEsc.Name = "cmenTabSendSpecialKeysCtrlEsc"
-                Me.cmenTabSendSpecialKeysCtrlEsc.Size = New System.Drawing.Size(146, 22)
-                Me.cmenTabSendSpecialKeysCtrlEsc.Text = Language.Base.Key_Control & "+" & Language.Base.Key_Esc
+                Me.cmenTabSendSpecialKeysCtrlEsc.Size = New System.Drawing.Size(141, 22)
+                Me.cmenTabSendSpecialKeysCtrlEsc.Text = "Ctrl+Esc"
                '
                'cmenTabExternalApps
                '
                Me.cmenTabExternalApps.Image = CType(resources.GetObject("cmenTabExternalApps.Image"), System.Drawing.Image)
                Me.cmenTabExternalApps.Name = "cmenTabExternalApps"
                Me.cmenTabExternalApps.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabExternalApps.Text = Language.Base.Menu_ExternalApplications
+                Me.cmenTabExternalApps.Text = "External Applications"
                '
                'cmenTabSep1
                '
@@ -169,27 +171,27 @@ Namespace UI
                Me.cmenTabRenameTab.Image = Global.mRemote.My.Resources.Resources.Rename
                Me.cmenTabRenameTab.Name = "cmenTabRenameTab"
                Me.cmenTabRenameTab.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabRenameTab.Text = Language.Base.RenameTab
+                Me.cmenTabRenameTab.Text = "Rename Tab"
                '
                'cmenTabDuplicateTab
                '
                Me.cmenTabDuplicateTab.Name = "cmenTabDuplicateTab"
                Me.cmenTabDuplicateTab.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabDuplicateTab.Text = Language.Base.DuplicateTab
+                Me.cmenTabDuplicateTab.Text = "Duplicate Tab"
                '
                'cmenTabReconnect
                '
                Me.cmenTabReconnect.Image = CType(resources.GetObject("cmenTabReconnect.Image"), System.Drawing.Image)
                Me.cmenTabReconnect.Name = "cmenTabReconnect"
                Me.cmenTabReconnect.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabReconnect.Text = Language.Base.Reconnect
+                Me.cmenTabReconnect.Text = "Reconnect"
                '
                'cmenTabDisconnect
                '
                Me.cmenTabDisconnect.Image = Global.mRemote.My.Resources.Resources.Pause
                Me.cmenTabDisconnect.Name = "cmenTabDisconnect"
                Me.cmenTabDisconnect.Size = New System.Drawing.Size(201, 22)
-                Me.cmenTabDisconnect.Text = Language.Base.Disconnect
+                Me.cmenTabDisconnect.Text = "Disconnect"
                '
                'Connection
                '
@@ -278,7 +280,7 @@ Namespace UI
                cmenTabViewOnly.Text = Language.Base.Props_ViewOnly & " (VNC)"
                cmenTabScreenshot.Text = Language.Base.Screenshot
                cmenTabStartChat.Text = Language.Base.StartChat & " (VNC)"
-                cmenTabTransferFile.Text = Language.Base.TransferFile & " (SSH/VNC)"
+                cmenTabTransferFile.Text = Language.Base.TransferFile & " (SSH)"
                cmenTabRefreshScreen.Text = Language.Base.RefreshScreen & " (VNC)"
                cmenTabSendSpecialKeys.Text = Language.Base.SendSpecialKeys & " (VNC)"
                cmenTabSendSpecialKeysCtrlAltDel.Text = Language.Base.Key_Control & "+" & Language.Base.Key_Alt & "+" & Language.Base.Key_Del
@@ -398,7 +400,7 @@ Namespace UI
                        Me.cmenTabSmartSize.Enabled = True
                        Me.cmenTabStartChat.Enabled = True
                        Me.cmenTabRefreshScreen.Enabled = True
-                        Me.cmenTabTransferFile.Enabled = True
+                        Me.cmenTabTransferFile.Enabled = False

                        Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol
                        Me.cmenTabSmartSize.Checked = vnc.SmartSize
--- a/mRemoteV1/mRemoteV1.vbproj
+++ b/mRemoteV1/mRemoteV1.vbproj
@@ -141,6 +141,10 @@
      <SpecificVersion>False</SpecificVersion>
      <HintPath>References\Tamir.SharpSSH.dll</HintPath>
    </Reference>
+    <Reference Include="VncSharp, Version=1.0.0.0, Culture=neutral, PublicKeyToken=61974755c7bfea7c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>References\VncSharp.dll</HintPath>
+    </Reference>
    <Reference Include="WeifenLuo.WinFormsUI.Docking, Version=2.2.2864.18696, Culture=neutral, PublicKeyToken=d481317c817cec47, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
      <HintPath>References\WeifenLuo.WinFormsUI.Docking.dll</HintPath>