Xshell 지식베이스

클립보드 내용을 줄 단위로 터미널에 보내는 스크립트

최종수정: 2012-07-31 18:28

다음은 클립보드의 내용을 줄 단위로 보내는 스크립트입니다. 여러 줄로 된 명령어의 결과를 확인하고자 할 때 사용할 수 있습니다.


Sub Main

xsh.Screen.Synchronous = true

Dim clpData, objIE, rlines

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

clpData = objIE.document.parentwindow.clipboardData.GetData("text")

rlines = Split(clpData, VbCrLf, -1)


Dim i

For i = 0 to ubound(rlines) Step 1

xsh.Screen.Send rlines(i)

xsh.Session.sleep(100)

xsh.Screen.WaitForString VbCr

Next

xsh.Screen.Synchronous = false

End Sub


주의: IE의 설정에 따라 클립보드에 대한 접근 허용 여부를 묻는 메시지가 나올 수 있습니다. IE의 '도구 -> 인터넷 옵션 -> 보안'에서 '프로그램 클립보드 액세스 허용'을 '사용'으로 변경합니다.



적용 제품
Xshell 4.0