山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

web 远程桌面连接，为何换成我的地址就不行，给我看看代码？

楼主liyu001xj（鲤鱼山）2004-12-04 04:32:30 在 Web 开发 / ASP 提问

web 远程桌面连接，serverName = "218.6.135.41" 可以，为何换成我的地址就不行，给我看看代码？

<html>

<head>
<Title>远程桌面</Title>
</head>

<font color=red>如果你是第一次登陆此页面，请稍候，系统将为你安装远程控制插件...</font><p>
<font color=blue>设置完成后不要关闭外挂直接关闭这个网页就可以了!</font>

<script language="vbscript">
<!--
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 中运行。"

' error messages
const L_RemoteDesktopCaption_ErrorMessage = "远程桌面连接"
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) 建立连接时出现了一个网络错误。"
const L_ControlLoadFailed_ErrorMessage= "远程桌面 Web 连接 ActiveX 控制无法安装。在没有一个安装后运行正常的控制版本的情况下，无法进行连接。请与服务器的管理员联系。"
const L_InvalidServerName_ErrorMessage = "指定了一个无效服务器。"

sub window_onload()
if not LCase(Navigator.CpuClass) = "x86" then
msgbox L_PlatformCheck_ErrorMessage
end if

value = MsgBox ("一. 您的游戏账号最好有密码保护,绑定,如果没有相应密码保护措施,出现任何问题本站不负任何责任. " & (Chr(10)) & "二. 游戏人物所带的极品装备,最好您自己存起来,如果在我们的挂机过程中,因为不可抗拒的因素(例如外挂本身的缺陷),至使装备丢失,本站概不负责." & (chr(10)) & "三. 本公司提供了一部分默认挂机外挂,如果您需要使用其它脱机外挂,请告诉我们,游戏月卡,部分挂机卡费用由玩家自己解决." & (chr(10)) & "四. 用户设置好外挂后,进入了正常挂机时,请尽早离开服务器.以减轻服务器负担.方便您挂机游戏的流畅进行." & (chr(10)) & "五. 挂机达到日期后,本站将会自动安全关闭您所挂外挂,不会造成其它问题. " & (chr(10)) & (chr(10)) & "请你务必认真阅读并了解本站协议,如果你选择是按钮,就意味着你同意本网站协议,我们双方将严格按照协议执行.", vbOKCancel, "协议")
if (value = vbOK) then

btnConnect()
end if

end sub

sub OnControlLoadError
msgbox L_ControlLoadFailed_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage
end sub

sub OnControlLoad
set Control = Document.getElementById("MsRdpClient")
end sub

问题点数：100、回复次数：10Top

1 楼liyu001xj（鲤鱼山）回复于 2004-12-04 04:32:47 得分 0

接上：

sub BtnConnect

'设置服务器名
Dim serverName
serverName = "218.6.135.41"

On Error Resume Next
MsRdpClient.server = serverName
If Err then
msgbox L_InvalidServerName_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage
Err.Clear
exit sub
end if
On Error Goto 0

'serverName name text
Document.all.srvNameField.innerHtml = serverName

'设置用户名
MsRdpClient.UserName = "9999"
MsRdpClient.AdvancedSettings2.ClearTextPassword = "A5814D8080AD46DA388969AC7857177E8EC90CD0"
'MsRdpClient.Domain = Document.all.Domain.Value

'Resolution
MsRdpClient.FullScreen = FALSE
resWidth = "800"
resHeight = "600"

MsRdpClient.DesktopWidth = resWidth
MsRdpClient.DesktopHeight = resHeight

MsRdpClient.Width = "800"
MsRdpClient.Height = "600"

'Device redirection options
MsRdpClient.AdvancedSettings2.RedirectDrives = FALSE
MsRdpClient.AdvancedSettings2.RedirectPrinters = TRUE
MsRdpClient.AdvancedSettings2.RedirectPorts = FALSE
MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE
MsRdpClient.AdvancedSettings2.RDPPort = 3314

'FullScreen title
'MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName & ")"

'Display connect region

Document.all.connectArea.style.display = "block"

'Connect
MsRdpClient.Connect
end sub

-->

</script>


<div id=connectArea style="display: none">
<center>
<table ID="Table1">
<tr>
<OBJECT language="vbscript" ID="MsRdpClient"
onerror="OnControlLoadError"
onreadystatechange="OnControlLoad"
CLASSID="CLSID:7584c670-2274-4efb-b00b-d6aaba6d3850"
CODEBASE="/gjweb/msrdp.cab#version=5,2,3790,0"
WIDTH=<% resWidth = Request.QueryString("rW")
if resWidth <200 or resWidth > 1600 then
resWidth = 800
end if
Response.Write resWidth %>
HEIGHT=<% resHeight = Request.QueryString("rH")
if resHeight <200 or resHeight > 1200 then
resHeight = 600
end if
Response.Write resHeight %>>
</OBJECT>
</tr>
<tr>
<br>
<font size="1" color="#000000" id="srvfontname" face="宋体, Verdana, Arial, Helvetica">
<div id=connectDisplay style="display:none">
<ID id=loggedinsrv>已连接 </ID><i><span id="srvNameField"></span></i></font><br></div>
</tr>

<script language="VBScript">

</script>
</table>
</center>
</div>

</html>Top

2 楼flyingsnowy（(欧杨)不远万里来看楼主的帖，这是一种什么样的精神病？）回复于 2004-12-04 08:15:03 得分 0

upTop

3 楼cuixiping（无心●愚公）回复于 2004-12-04 09:03:10 得分 0

web 远程桌面连接，serverName = "218.6.135.41" 可以，为何换成我的地址就不行，给我看看代码？

出错提示呢？Top

4 楼99percent（大鱼大肉）回复于 2004-12-04 09:07:00 得分 0

远程桌面是否局域网不行?还是你没有设置终端?Top

5 楼liyu001xj（鲤鱼山）回复于 2004-12-04 11:53:53 得分 0

出错提示到是没有，但是516号提示。终端服务我有。用MSTSC都可以连通Top

6 楼liyu001xj（鲤鱼山）回复于 2004-12-05 12:51:57 得分 0

upTop

7 楼yqh1314（‰兆雪伊人倍思逢☆）回复于 2004-12-05 13:23:00 得分 0

这么多怎么看拉！Top

8 楼liyu001xj（鲤鱼山）回复于 2004-12-05 14:23:58 得分 0

粘贴下来看嘛，是完整的，可以使用的。Top

9 楼sywcf（wcf）回复于 2004-12-06 14:45:20 得分 0

学习Top

10 楼ylben（杨威利）回复于 2004-12-06 16:33:46 得分 100

markTop