Metainformationen zur Seite
Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
— | rdp [2015/05/03 17:45] (aktuell) – angelegt - Externe Bearbeitung 127.0.0.1 | ||
---|---|---|---|
Zeile 1: | Zeile 1: | ||
+ | < | ||
+ | < | ||
+ | < | ||
+ | < | ||
+ | <title id=" | ||
+ | <meta content=" | ||
+ | <style type=" | ||
+ | P | ||
+ | { | ||
+ | font-family: | ||
+ | color: #000000; | ||
+ | font-size: 65%; | ||
+ | } | ||
+ | H1 | ||
+ | { | ||
+ | margin-top: 0em; | ||
+ | font-family: | ||
+ | font-size: 100%; | ||
+ | font-weight: | ||
+ | } | ||
+ | P.indent | ||
+ | { | ||
+ | line-height: | ||
+ | margin: 0.5em 1em 0.2em 3em; | ||
+ | } | ||
+ | .button | ||
+ | { | ||
+ | border-bottom-color: | ||
+ | background-color: | ||
+ | margin-top: 6pt; | ||
+ | border-top-color: | ||
+ | font-family: | ||
+ | color: #000000; | ||
+ | border-right-color: | ||
+ | margin-left: | ||
+ | font-size: 70%; | ||
+ | border-left-color: | ||
+ | font-weight: | ||
+ | } | ||
+ | .topspace | ||
+ | { | ||
+ | margin-top: 0.08em; | ||
+ | } | ||
+ | </ | ||
+ | <meta name=" | ||
+ | </ | ||
+ | <body bgcolor="# | ||
+ | <script type=" | ||
+ | <!-- | ||
+ | const L_FullScreenWarn1_Text = "Your current security settings do not allow automatically switching to fullscreen mode." | ||
+ | const L_FullScreenWarn2_Text = "You can use ctrl-alt-pause to toggle your remote desktop session to fullscreen mode" | ||
+ | const L_FullScreenTitle_Text = " | ||
+ | const L_ErrMsg_Text | ||
+ | const L_ClientNotSupportedWarning_Text = " | ||
+ | ' error messages | ||
+ | const L_RemoteDesktopCaption_ErrorMessage = " | ||
+ | const L_InvalidServerName_ErrorMessage = "An invalid server name was specified." | ||
+ | |||
+ | sub window_onload() | ||
+ | if not autoConnect() then | ||
+ | | ||
+ | end if | ||
+ | end sub | ||
+ | |||
+ | function autoConnect() | ||
+ | Dim sServer | ||
+ | Dim iFS, iAutoConnect | ||
+ | |||
+ | sServer = getQS (" | ||
+ | iAutoConnect = getQS (" | ||
+ | iFS = getQS (" | ||
+ | |||
+ | if NOT IsNumeric ( iFS ) then | ||
+ | iFS = 0 | ||
+ | else | ||
+ | iFS = CInt ( iFS ) | ||
+ | end if | ||
+ | |||
+ | if iAutoConnect <> 1 then | ||
+ | autoConnect = false | ||
+ | exit function | ||
+ | else | ||
+ | if iFS < 0 or iFS >= Document.all.comboResolution.options.length then | ||
+ | iFS = 0 | ||
+ | end if | ||
+ | |||
+ | if IsNull ( sServer ) or sServer = "" | ||
+ | sServer = window.location.hostname | ||
+ | end if | ||
+ | |||
+ | Document.all.comboResolution.selectedIndex | ||
+ | Document.all.Server.value = sServer | ||
+ | |||
+ | btnConnect () | ||
+ | |||
+ | autoConnect = true | ||
+ | end if | ||
+ | |||
+ | end function | ||
+ | |||
+ | function getQS ( sKey ) | ||
+ | Dim iKeyPos, iDelimPos, iEndPos | ||
+ | Dim sURL, sRetVal | ||
+ | iKeyPos = iDelimPos = iEndPos = 0 | ||
+ | sURL = window.location.href | ||
+ | |||
+ | if sKey = "" | ||
+ | getQS = "" | ||
+ | exit function | ||
+ | end if | ||
+ | |||
+ | iKeyPos = InStr ( 1, sURL, sKey ) | ||
+ | |||
+ | if iKeyPos = 0 then | ||
+ | sRetVal = "" | ||
+ | exit function | ||
+ | end if | ||
+ | |||
+ | iDelimPos = InStr ( iKeyPos, sURL, " | ||
+ | iEndPos = InStr ( iDelimPos, sURL, "&" | ||
+ | |||
+ | if iEndPos = 0 then | ||
+ | sRetVal = Mid ( sURL, iDelimPos + 1 ) | ||
+ | else | ||
+ | sRetVal = Mid ( sURL, iDelimPos + 1, iEndPos - iDelimPos - 1 ) | ||
+ | end if | ||
+ | |||
+ | getQS = sRetVal | ||
+ | end function | ||
+ | |||
+ | sub checkClick | ||
+ | if Document.all.Check1.Checked then | ||
+ | Document.all.tableLogonInfo.style.display = "" | ||
+ | Document.all.editUserName.Disabled = false | ||
+ | Document.all.editDomain.Disabled = false | ||
+ | else | ||
+ | Document.all.tableLogonInfo.style.display = " | ||
+ | Document.all.editUserName.Disabled = true | ||
+ | Document.all.editDomain.Disabled = true | ||
+ | end if | ||
+ | end sub | ||
+ | |||
+ | sub OnControlLoadError | ||
+ | Document.all.cerrmsg.style.display = " | ||
+ | Document.all.csafemsg.style.display = " | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | end sub | ||
+ | |||
+ | sub OnControlLoad | ||
+ | set Control = Document.getElementById(" | ||
+ | if Not Control is Nothing then | ||
+ | if Control.readyState = 4 then | ||
+ | | ||
+ | else | ||
+ | Document.all.cerrmsg.style.display = " | ||
+ | Document.all.csafemsg.style.display = " | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | end if | ||
+ | | ||
+ | Document.all.cerrmsg.style.display = " | ||
+ | Document.all.csafemsg.style.display = " | ||
+ | Document.all.Server.disabled = TRUE | ||
+ | Document.all.comboResolution.disabled = TRUE | ||
+ | end if | ||
+ | end sub | ||
+ | |||
+ | |||
+ | sub BtnConnect | ||
+ | Dim serverName | ||
+ | ' | ||
+ | if not Document.all.Server.value = "" | ||
+ | serverName = Document.all.Server.value | ||
+ | else | ||
+ | serverName = Document.location.hostname | ||
+ | end if | ||
+ | |||
+ | | ||
+ | |||
+ | On Error Resume Next | ||
+ | | ||
+ | If Err then | ||
+ | msgbox L_InvalidServerName_ErrorMessage, | ||
+ | Err.Clear | ||
+ | exit sub | ||
+ | end if | ||
+ | On Error Goto 0 | ||
+ | |||
+ | ' | ||
+ | | ||
+ | | ||
+ | ' | ||
+ | | ||
+ | | ||
+ | case " | ||
+ | MsRdpClient.FullScreen = TRUE | ||
+ | resWidth | ||
+ | resHeight = screen.height | ||
+ | case " | ||
+ | resWidth | ||
+ | resHeight = " | ||
+ | case " | ||
+ | resWidth | ||
+ | resHeight = " | ||
+ | case " | ||
+ | resWidth | ||
+ | resHeight = " | ||
+ | case " | ||
+ | resWidth | ||
+ | resHeight = " | ||
+ | case " | ||
+ | resWidth | ||
+ | resHeight = " | ||
+ | end select | ||
+ | |||
+ | | ||
+ | | ||
+ | |||
+ | | ||
+ | | ||
+ | |||
+ | ' | ||
+ | ' | ||
+ | ' | ||
+ | ' | ||
+ | ' | ||
+ | On Error Resume Next | ||
+ | | ||
+ | | ||
+ | If Err then | ||
+ | msgbox L_ClientNotSupportedWarning_Text, | ||
+ | Err.Clear | ||
+ | end if | ||
+ | On Error Goto 0 | ||
+ | ' | ||
+ | |||
+ | ' | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | |||
+ | ' | ||
+ | ' | ||
+ | |||
+ | ' | ||
+ | | ||
+ | |||
+ | ' | ||
+ | | ||
+ | | ||
+ | |||
+ | ' | ||
+ | | ||
+ | end sub | ||
+ | |||
+ | --> | ||
+ | |||
+ | </ | ||
+ | < | ||
+ | --> | ||
+ | <!-- =========================LOGIN AREA | ||
+ | --> | ||
+ | <div id=" | ||
+ | < | ||
+ | <id id=" | ||
+ | Connection</ | ||
+ | </ | ||
+ | <p> | ||
+ | </p> | ||
+ | <table style=" | ||
+ | <!-- Graphic bar row --> | ||
+ | < | ||
+ | <tr> | ||
+ | <!-- Column 1 spans 4 rows --> | ||
+ | <td valign=" | ||
+ | <div style=" | ||
+ | <p id=" | ||
+ | < | ||
+ | A connection cannot be made without a working installed version of the control.< | ||
+ | Click <a href=" | ||
+ | to install the updated Remote Desktop Connection (RDC) client.</ | ||
+ | </ | ||
+ | <div style=" | ||
+ | <p class=" | ||
+ | <id id=" | ||
+ | remote computer you want to use, select the screen | ||
+ | size for your connection, and then click | ||
+ | < | ||
+ | </p> | ||
+ | </ | ||
+ | </td> | ||
+ | <!-- Column 2 spans 4 rows--> | ||
+ | <td valign=" | ||
+ | | ||
+ | </td> | ||
+ | <!-- Column 3 --> | ||
+ | <td style=" | ||
+ | <label accesskey=" | ||
+ | <br> | ||
+ | <p align=" | ||
+ | </ | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td id=" | ||
+ | <br> | ||
+ | & | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 2 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td valign=" | ||
+ | <p align=" | ||
+ | <label accesskey=" | ||
+ | <id id=" | ||
+ | </ | ||
+ | </p> | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td valign=" | ||
+ | & | ||
+ | <option selected value=" | ||
+ | <id id=" | ||
+ | Full-screen</ | ||
+ | <option value=" | ||
+ | <id id=" | ||
+ | 640 by 480</ | ||
+ | <option value=" | ||
+ | <id id=" | ||
+ | 800 by 600</ | ||
+ | <option value=" | ||
+ | <id id=" | ||
+ | 1024 by 768</ | ||
+ | <option value=" | ||
+ | <id id=" | ||
+ | 1280 by 1024</ | ||
+ | <option value=" | ||
+ | <id id=" | ||
+ | 1600 by 1200</ | ||
+ | </ | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 3 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td> | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td align=" | ||
+ | < | ||
+ | id=" | ||
+ | class=" | ||
+ | disabled onclick=" | ||
+ | value=" | ||
+ | type=" | ||
+ | name=" | ||
+ | </td> | ||
+ | </tr> | ||
+ | <!-- Row 4 --> | ||
+ | <tr> | ||
+ | <!-- Column 3 --> | ||
+ | <td height=" | ||
+ | | ||
+ | </td> | ||
+ | <!-- Column 4 --> | ||
+ | <td> | ||
+ | | ||
+ | </td> | ||
+ | </tr> | ||
+ | </ | ||
+ | </ | ||
+ | </ | ||
+ | <!-- ================================= LOGIN FORM ================= | ||
+ | --> | ||
+ | <!-- ================================= CONNECT ==================== | ||
+ | --> | ||
+ | <div style=" | ||
+ | < | ||
+ | < | ||
+ | < | ||
+ | <tr> | ||
+ | <td> | ||
+ | < | ||
+ | id=" | ||
+ | language=" | ||
+ | onreadystatechange=" | ||
+ | onerror=" | ||
+ | classid=" | ||
+ | width=" | ||
+ | height=" | ||
+ | </ | ||
+ | </td> | ||
+ | </tr> | ||
+ | <tr> | ||
+ | <td> | ||
+ | <br> | ||
+ | <font id=" | ||
+ | <div style=" | ||
+ | <id id=" | ||
+ | < | ||
+ | <br> | ||
+ | </ | ||
+ | </ | ||
+ | </td> | ||
+ | </tr> | ||
+ | <script language=" | ||
+ | <!-- | ||
+ | sub ReturnToConnectPage() | ||
+ | | ||
+ | end sub | ||
+ | |||
+ | sub MsRdpClient_OnConnected() | ||
+ | | ||
+ | end sub | ||
+ | |||
+ | sub MsRdpClient_OnDisconnected(disconnectCode) | ||
+ | | ||
+ | | ||
+ | |||
+ | if (disconnectCode = &hB08 or majorDiscReason = 2 or majorDiscReason = 1) and not (extendedDiscReason = 5) then | ||
+ | ' | ||
+ | ReturnToConnectPage | ||
+ | exit sub | ||
+ | end if | ||
+ | |||
+ | | ||
+ | if not errMsgText = "" | ||
+ | | ||
+ | end if | ||
+ | |||
+ | | ||
+ | |||
+ | end sub | ||
+ | --> | ||
+ | </ | ||
+ | </ | ||
+ | </ | ||
+ | </ | ||
+ | </ | ||
+ | </ | ||
+ | </ |