[VBScript] Send Key 사용하는 방법 (엔터키)

VBScript Send Key 사용하는 방법


VBScript는 인터넷 익스플로러에서만 작동하므로 요즘에는 사용을 하지 않는다. 그러나 윈도우에서 제공하는 다양한 함수를 사용할 수가 있어서 IE에서만 동작하는 웹페이지라면 사용을 할 수 있다.


다음은 "Send Keys" 버튼을 누르면 Input박스에 "Hello World!" 키 값을 넣고 엔터키를 입력 후 메시지 박수를 호출는 예제이다.



<html>
<head>
    <title></title>
    <script type="text/vbscript">
        Sub btnSendKey_OnClick()
            Dim WshShell 
            
            txtHello.focus

            Set WshShell = CreateObject("WScript.Shell")

            WshShell.SendKeys "Hello World!"
            WshShell.SendKeys "{ENTER}"		
        End Sub

        Sub txtHello_OnKeyUp()
            If window.event.keycode = 13 Then
                MsgBox txtHello.value
            End If
        End Sub
    </script>
</head>
<body bgcolor="#c0c0c0">
    <button id="btnSendKey">Send Keys</button><br /><br />
    <input id="txtHello" width="300px" />
</body>
</html>


 

댓글

Designed by JB FACTORY