xshell用一个脚本逐行发送剪贴板数据的方法

经常使用xshell的用户都知道，当我们想把数据复制到剪贴板上时候，第一个反应就是工具 -> 选项 -> 键盘和鼠标 -> 将选定的文本自动复制到剪贴板中进行设置，那当我们逐行发送剪贴板数据的时候该怎么办了？有什么简单的方法了，本集小编就来给大家叨叨。

问题描述：

这篇文章解释了如何逐行发送剪贴板数据使用一个简单的脚本文件和Xshell脚本功能。

xShell脚本与Windows/Dos下的批处理相似，也就是用各类命令预先放入到一个文件中，方便一次性执行的一个程序文件，主要是方便管理员进行设置或者管理用的。

解决方法：

将剪贴板数据发送。它可以是有用的命令,如果你有多个行就要检查每个命令的结果
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

影响软件：

Xshell 4