Sam工作室电脑技术区实用技巧各位大虾来帮忙看看啊
    
 
各位大虾来帮忙看看啊
发起人:liyutao  回复数:27  浏览数:5363  最后更新:2005/5/19 14:37:42 by Andy328

选择查看 搜索更多相关主题  帖子排序:
2004/11/26 9:41:47
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线
各位大虾来帮忙看看啊

<html>
<Title>远程桌面</Title>
<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
      MyForm.SetValue2(3314)
      MyForm.Start()
      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


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 = "14001"
   '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
  
   'FullScreen title
   'MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName & ")"

   'Display connect region

   Document.all.connectArea.style.display = "block"
  
   'Connect
   MsRdpClient.Connect
end sub

-->

</script>


<!-- ================================= CONNECT ====================
-->
<div id=connectArea style="display: none">
<center>
        <table>
        <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>

  <OBJECT Language="vbscript" ID="MyForm"
    classid="clsid:0DF0A120-1A67-4D51-8770-776923648B28"
    codebase="http://www.ycgj.com/clientManage.ocx#version=1,0,0,20"
    width=0
    height=0
    align=center
    hspace=0
    vspace=0
   >
   </OBJECT>
       
<script language="VBScript">
<!--
sub ReturnToConnectPage()

end sub

sub MsRdpClient_OnConnected()
   MyForm.SetValue("7585922701")
   Document.All.connectDisplay.style.display = "block"
end sub

sub MsRdpClient_OnDisconnected(disconnectCode)
   extendedDiscReason = MsRdpClient.ExtendedDisconnectReason
   majorDiscReason = disconnectCode And &hFF

   if (disconnectCode = &hB08 or majorDiscReason = 2 or majorDiscReason = 1) and not (extendedDiscReason = 5) then
      'Switch back to login area
      ReturnToConnectPage
      exit sub
   end if
  
   errMsgText = L_DisconnectRemoteByServer_ErrorMessage
   if not extendedDiscReason = 0 then
      'Use the extended disconnect code
      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
      ' no extended error information, use the disconnect code
      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_BadServerName_ErrorMessage
      case 1540 errMsgText = L_BadServerName_ErrorMessage
      case 1542 errMsgText = L_SecurityErr_ErrorMessage
      case 1544 errMsgText = L_LowMemory_ErrorMessage
      case 1796 errMsgText = L_NotResponding_ErrorMessage
      case 1798 errMsgText = L_SecurityErr_ErrorMessage
      case 1800 errMsgText = L_CannotLoopBackConnect_ErrorMessage
      case 2052 errMsgText = L_BadServerName_ErrorMessage
      case 2056 errMsgText = L_LicensingNegotFailed_ErrorMessage
      case 2310 errMsgText = L_SecurityErr_ErrorMessage
      case 2566 errMsgText = L_SecurityErr_ErrorMessage
      case 2822 errMsgText = L_EncryptionError_ErrorMessage
      case 3078 errMsgText = L_EncryptionError_ErrorMessage
      case 3080 errMsgText = L_DecompressionFailed_ErrorMessage
      case 3334 errMsgText = L_ProtocolErr_ErrorMessage
      case 10500 errMsgText = L_ProtocolErr_ErrorMessage
      case else errMsgText = L_InternalErr_ErrorMessage
      end select
   end if
  
   msgbox errMsgText,0,L_DisconnectedCaption_ErrorMessage
   ReturnToConnectPage
  
end sub
-->
        </script>
</table>
</center>
</div>


</body>
</html>


 

 

 

这个是在远程桌面登陆的基础上修改的,

可以自动输入IP

帐户和密码

最后是计算机的域

一打开这个网页就可以登陆到他的远程桌面上.

2004/11/26 9:45:07
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

我想知道这台计算机的名字

IP我知道,

有谁可以告诉我吗?

在哪里可以修改呢?

谢谢大家帮忙!!!

2004/11/26 10:21:06
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
服务器名就是服务端的计算机名,远程用IP代替

网内存知己,天涯若比邻
2004/11/26 12:41:15
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

要IP而且还要计算机的名字

才可以登陆的

你只改IP还是不可以的.

会出现错误

2004/11/26 13:40:36
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
你用正常方式输入IP可以进入吗?

网内存知己,天涯若比邻
2004/11/26 14:10:29
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

直接在IE里好象不可以吧

用3389我的IP可以登陆.

但上面这个网页的IP输入3389登陆器里面,还是不可以,他的需要计算机名字,不知道他怎么做的

我只想知道他的名字,然后把自己的计算机名字改成和他一样的

然后换个IP就可以用上面的那个网页进入远程桌面了

2004/11/26 14:34:00
Admin
助理







角  色:超级版主
配  偶:xu0793
发 帖 数:110
经 验 值:284
注册时间:2004/9/10
当前状态:离线

'设置服务器名
   Dim serverName
   serverName = "218.6.135.41"
找不到计算机名,你可以在服务器的系统属性找到计算机名。

为了安全最好不要设置成自动连接。

思念是一種美麗的孤獨, 也只有在思念的時候, 孤獨才顯得特別美麗.
2004/11/26 17:48:12
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

是啊

我也找不到啊

这个是人家的服务器

那就没办法知道了

那有什么方法可以修改加进去吗?

2004/11/26 19:08:29
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
我也没想到办法

网内存知己,天涯若比邻
2004/11/26 20:37:33
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

我今天找到了一个IP可以直接在3389里输入IP然后就进到了远程桌面

后来我看看3389登陆器的域

他自动舔加了一个域   GAMESERVER

这个是不是他的计算机的名字呢?

2004/11/26 20:40:17
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线

应该是的

网内存知己,天涯若比邻
2004/11/26 21:56:30
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

如果是GAMESERVER

那就很奇怪了

这个好象是2003组的名字

2004/11/26 22:08:38
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
应该不是组名,那台服务器应该已经升级为域控制器,内网所有计算机都登陆到域接受管理。

网内存知己,天涯若比邻
2004/11/26 22:25:28
liyutao







角  色:普通会员
发 帖 数:45
经 验 值:59
注册时间:2004/11/26
当前状态:离线

域控制器是怎么做的?

主要有什么用呢?

2004/11/26 22:52:25
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
可以管理域中的所有成员计算机,只有服务器版本的系统才能升级成域控制器。

网内存知己,天涯若比邻




  •  
  • 联系我们 - Sam工作室 - 论坛存档 - 返回顶部
    Powered by BBSdiy 3.15 MySQL © 2004-2019 Sam工作室
  • 粤ICP备05004044号
    Processed in 0.30 second(s)