远程连接的web实现.docx

Windows7document.documentElement.style.overflow = hidden;var winWidth = 0;var winHeight = 0;function findDimensions()if (window.innerWidth)winWidth = window.innerWidth;else if (document.body) & (document.body.clientWidth)winWidth = document.body.clientWidth;if (window.innerHeight)winHeight = window.innerHeight;else if (document.body) & (document.body.clientHeight)winHeight = document.body.clientHeight;if (document.documentElement & document.documentElement.clientHeight & document.documentElement.clientWidth)winHeight = document.documentElement.clientHeight;winWidth = document.documentElement.clientWidth;findDimensions();window.onresize=findDimensions; const L_FullScreenWarn1_Text = 当前的安全设置不允许自动切换到全屏模式。const L_FullScreenWarn2_Text = 您可以用 ctrl-alt-pause 将远程桌面会话切换到全屏模式const L_FullScreenTitle_Text = 远程桌面 Web 连接const L_ErrMsg_Text = 连接到远程计算机时的错误: const L_PlatformCheck_ErrorMessage = 远程桌面 Web 连接 ActiveX 控件只能在 32 位版本的 Internet Explorer 中运行。const L_DisconnectedCaption_ErrorMessage = 远程桌面连接已被中断const L_ErrConnectCallFailed_ErrorMessage = 客户端连接到远程计算机时出现错误。请检查系统内存，然后重新连接。const L_DisconnectRemoteByServer_ErrorMessage = 远程计算机已结束连接。const L_LowMemory_ErrorMessage = 本地计算机内存不足。请关闭一些程序，然后再连接到远程计算机。const L_SecurityErr_ErrorMessage = 由于安全错误，客户端无法连接到远程计算机。请确认您已登录到网络，然后重新连接。const L_BadServerName_ErrorMessage = 找不到指定的远程计算机。请确认您键入的计算机名和 IP 地址是否正确，然后重新连接。const L_ConnectFailedProtocol_ErrorMessage = 由于一个协议错误，客户端无法连接到远程计算机。请重新连接到远程计算机。如果客户端依旧无法连接，请跟网络管理员联系。const L_CannotLoopBackConnect_ErrorMessage = 客户端无法连接，您无法从同一台计算机的控制台会话连接到控制台。const L_NetworkErr_ErrorMessage = 由于网络错误，连接被结束。请重新连接到远程计算机。const L_InternalErr_ErrorMessage = 出现了一个内部错误。const L_NotResponding_ErrorMessage = 客户端无法连接到远程计算机。远程连接没有启用，或者计算机太忙，无法接受新连接。也有可能网络问题阻碍了连接。请重新连接。如果问题继续出现，请跟系统管理员联系。const L_VersionMismatch_ErrorMessage = 客户端和服务器版本不相符。请升级客户端软件，然后重新连接。const L_EncryptionError_ErrorMessage = 由于数据加密的错误，这个会话将结束。请重新连接到远程计算机。const L_ProtocolErr_ErrorMessage = 由于协议错误，这个会话将被中断。请重新连接到远程计算机。const L_IllegalServerName_ErrorMessage = 指定的计算机名含有无效字符。请确认计算机名，重试一次。const L_ConnectionTimeout_ErrorMessage = 远程连接已超时。请重新连接到远程计算机。const L_DisconnectIdleTimeout_ErrorMessage = 由于达到了空闲超时限度，远程会话被结束。这个限度是服务器管理员或网络策略设置的。const L_DisconnectLogonTimeout_ErrorMessage =由于达到了总登录时间限度，远程会话被结束。这个限度是服务器管理员或网络策略设置的。const L_ProtocolErrWITHCODE_ErrorMessage = 由于内部协议错误，客户端已中断连接: const L_LicensingTimeout_ErrorMessage = 客户端试图连接时，出现了一个授权错误(授权超时)。请重新跟远程计算机连接。const L_LicensingNegotFailed_ErrorMessage = 由于授权协议中的一个错误，远程计算机中断了会话。请重新跟远程计算机连接；或者跟服务器管理员联系。const L_DisconnectRemoteByServerTool_ErrorMessage = 跟远程计算机的远程会话被一个管理工具结束。可能是您的管理员中断了您的连接。const L_LogoffRemoteByServer_ErrorMessage = 由于会话在远程计算机上被注销，远程会话被中断。您的系统管理员或另一个用户结束了您的连接。const L_DisconnectByOtherConnection_ErrorMessage = 由于另一个用户连接到了会话，远程会话被中断。const L_ConnectionBroken_ErrorMessage = 跟远程计算机的连接被打断。请重新连接到远程计算机。const L_ServerOutOfMemory_ErrorMessage = 由于远程计算机内存不足，连接被中断。const L_LicenseInternal_ErrorMessage = 由于远程计算机的授权协议中有一个内部错误，远程会话被中断。const L_NoLicenseServer_ErrorMessage = 由于没有终端服务器许可证服务器可以提供许可证，远程会话被中断。请跟服务器管理员联系。const L_NoLicense_ErrorMessage = 由于这台计算机没有终端服务器客户端访问许可证，远程会话被中断。请跟服务器管理员联系。const L_LicenseBadClientMsg_ErrorMessage = 由于远程计算机从这台计算机收到一个无效的授权消息，远程会话被中断。const L_LicenseHwidDoesntMatch_ErrorMessage = 由于这台计算机上储存的终端服务器客户端访问许可证已被修改，远程会话被中断。const L_BadClientLicense_ErrorMessage = 由于这台计算机上储存的终端服务器客户端访问许可证的格式无效，远程会话被中断。const L_LicenseCantFinishProtocol_ErrorMessage = 由于授权协议中有网络问题，远程会话被中断。请重新跟远程计算机连接。const L_LicenseClientEndedProtocol_ErrorMessage = 由于客户端过早地结束了授权协议，远程会话被中断。const L_LicenseBadClientEncryption_ErrorMessage = 由于授权消息的加密不正确，远程会话被中断。const L_CantUpgradeLicense_ErrorMessage = 由于无法升级或重续本地计算机的客户端访问许可证，远程会话被中断。请跟服务器管理员联系。const L_LicenseNoRemoteConnections_ErrorMessage = 由于远程计算机没有授权接受远程连接，远程会话被中断。请跟服务器管理员联系。const L_DecompressionFailed_ErrorMessage = 由于客户端的解压缩操作失败，远程会话被中断。请重新连接到远程计算机。const L_ServerDeniedConnection_ErrorMessage =客户端无法建立跟远程计算机的连接。导致这个错误的可能的原因是: 1) 远程计算机上的远程连接可能没有启用。2) 已超出远程计算机上的连接最大数。3) 建立连接时出现了一个网络错误。sub window_onload() if not LCase(Navigator.CpuClass) = x86 then msgbox L_PlatformCheck_ErrorMessage end ifend subfunction autoConnect()Dim sServerDim iFS, iAutoConnectsServer = getQS (Server)iAutoConnect = getQS (AutoConnect)iFS = getQS (FS)if NOT IsNumeric ( iFS ) theniFS = 0elseiFS = CInt ( iFS )end ifif iAutoConnect 1 thenautoConnect = falseexit functionelseif iFS = DboResolution.options.length theniFS = 0end ifif IsNull ( sServer ) or sServer = thensServer = window.location.hostnameend ifDboResolution.selectedIndex= iFSDocument.all.Server.value = sServerbtnConnect ()autoConnect = trueend ifend functionfunction getQS ( sKey )Dim iKeyPos, iDelimPos, iEndPosDim sURL, sRetValiKeyPos = iDelimPos = iEndPos = 0sURL = window.location.hrefif sKey = Or Len(sKey) 1 thengetQS = exit functionend ifiKeyPos = InStr ( 1, sURL, sKey )if iKeyPos = 0 thensRetVal = exit functionend ifiDelimPos = InStr ( iKeyPos, sURL, = )iEndPos = InStr ( iDelimPos, sURL, & )if iEndPos = 0 thensRetVal = Mid ( sURL, iDelimPos + 1 )elsesRetVal = Mid ( sURL, iDelimPos + 1, iEndPos - iDelimPos - 1 )end ifgetQS = sRetValend functionsub OnControlLoad set Control = Document.getElementById(MsRdpClient) if Not Control is Nothing then if Control.readyState = 4 then Document.all.connectButton.disabled = FALSE end if end ifend subsub BtnConnect MsRdpClient.server = ip MsRdpClient.AdvancedSettings2.RDPPort=3389 Document.all.srvNameField.innerHtml = serverName MsRdpClient.UserName=name MsRdpClient.AdvancedSettings2.ClearTextPassword=password MsRdpClient.Domain=TSC-V.com findDimensions() MsRdpClient.FullScreen = FALSE MsRdpClient.DesktopWidth = 1024 MsRdpClient.DesktopHeight = 768 MsRdpClient.Width = 1024 MsRdpClient.Height = 768 MsRdpClient.AdvancedSettings2.RedirectDrives = TRUE MsRdpClient.AdvancedSettings2.RedirectPrinters = TRUE MsRdpClient.AdvancedSettings2.RedirectPorts = TRUE MsRdpClient.AdvancedSettings2.RedirectSmartCards = TRUE MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & ( & serverName & ) Document.all.loginArea.style.display = none Document.all.connectArea.style.display = block MsRdpClient.Connectend sub One Moment Please Loading. sub ReturnToConnectPage() Window.close()end subsub MsRdpClient_OnConnected() Document.All.connectDisplay.style.display = blockend subsub MsRdpClient_OnDisconnected(disconnectCode) extendedDiscReason = MsRdpClient.ExtendedDisconnectReason majorDiscReason = disconnectCode And &hFF if (disconnectCode = &hB08 or majorDiscReason = 2 or majorDiscReason = 1) and not (extendedDiscReason = 5) then ReturnToConnectPage exit sub end if errMsgText = L_DisconnectRemoteByServer_ErrorMessage if not extendedDiscReason = 0 then select case extendedDiscReason case 0 errMsgText = case 1 errMsgText = L_DisconnectRemoteByServerTool_ErrorMessage case 2 errMsgText = L_LogoffRemoteByServer_ErrorMessage case 3 errMsgText = L_DisconnectIdleTimeout_ErrorMessage case 4 errMsgText = L_DisconnectLogonTimeout_ErrorMessage case 5 errMsgText = L_DisconnectByOtherConnection_ErrorMessage case 6 errMsgText = L_ServerOutOfMemory_ErrorMessage case 7 errMsgText = L_ServerDeniedConnection_ErrorMessage case 256 errMsgText = L_LicenseInternal_ErrorMessage case 257 errMsgText = L_NoLicenseServer_ErrorMessage case 258 errMsgText = L_NoLicense_ErrorMessage case 259 errMsgText = L_LicenseBadClientMsg_ErrorMessage case 260 errMsgText = L_LicenseHwidDoesntMatch_ErrorMessage case 261 errMsgText = L_BadClientLicense_ErrorMessage case 262 errMsgText = L_LicenseCantFinishProtocol_ErrorMessage case 263 errMsgText = L_LicenseClientEndedProtocol_ErrorMessage case 264 errMsgText = L_LicenseBadClientEncryption_ErrorMessage case 265 errMsgText = L_CantUpgradeLicense_ErrorMessage case 266 errMsgText = L_LicenseNoRemoteConnections_ErrorMessage case else errMsgText = L_ErrMsg_Text end select if extendedDiscReason 4096 then errMsgText = L_ProtocolErrWITHCODE_ErrorMessage & errMsgText end if else select case disconnectCode case 0 errMsgText = L_ErrMsg_Text case 1 errMsgText = L_ErrMsg_Text case 2 errMsgText = L_ErrMsg_Text case 260 errMsgText = L_BadServerName_ErrorMessage case 262 errMsgText = L_LowMemory_ErrorMessage case 264 errMsgText = L_ConnectionTimeout_ErrorMessage case 516 errMsgText = L_NotResponding_ErrorMessage case 518 errMsgText = L_LowMemory_ErrorMessage case 520 errMsgText = L_BadServerName_ErrorMessage case 772 errMsgText = L_NetworkErr_ErrorMessage case 774 errMsgText = L_LowMemory_ErrorMessage case 776 errMsgText = L_BadServerName_ErrorMessage case 1028 errMsgText = L_NetworkErr_ErrorMessage case 1030 errMsgText = L_SecurityErr_ErrorMessage case 1032 errMsgText = L_IllegalServerName_ErrorMessage case 1286 errMsgText = L_EncryptionError_ErrorMessage case 1288 errMsgText = L_Ba