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

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