xShell中如何用一个脚本文件发送剪贴板数据？

2023-02-20 11:16:58

回答

徐乐毅

厂商代表软件顾问在线聊

2023-02-20 11:17:24

苏州思亿捷信息科技有限公司

解决方法：

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

xsh.Screen.Synchronous = false

End Sub

影响软件：

Xshell 4

我的回复

登录回复

软件

软件名称

XSHELL

制造商

NetSarang Computer, Inc.

功能分类

公有云/私有云平台

免费询价去提问

杜经理

 安世亚太科技股份有限公司

近期服务1425家客户
温亚昕

 上海联铪泰电子有限公司

近期服务495家客户
韩经理

 四川麦克斯乐科技有限公司

近期服务1748家客户
肖经理

 武汉图瓦软件有限公司

近期服务186家客户
青铜器软件朱学群Amy

深圳市青铜器软件系统有限公司

近期服务68家客户
张欣瑶

 广州华盟信息科技有限公司

近期服务425家客户
Lillian

Altium Limited 奥腾

近期服务61家客户
周厚兰

 北京亿为科技集团有限公司

近期服务724家客户
朱经理

 深圳思木科技有限公司

近期服务119家客户
宋军伟

 北京友联华宇科技有限公司

近期服务358家客户
刘敬玉

 深圳同奈信息科技有限公司

近期服务0家客户
乐经理

 上海菁富信息技术有限公司

近期服务1735家客户
Jeffrey

上海科仿信息科技有限公司

近期服务384家客户
朱燕升

 上海科仿信息科技有限公司

近期服务697家客户
陆珍

 上海安托信息技术有限公司

近期服务4400家客户
高璐

 广州市智造软件科技有限公司

近期服务1792家客户
牟一凡

 大连豪森软件有限公司

近期服务0家客户
陶美玲

 苏州鸿博信息技术有限公司

近期服务1248家客户
李工

 北京云汇智通科技有限公司

近期服务832家客户
林先生

 上海锐和恒海信息科技有限公司

近期服务512家客户
解经理

 合肥万胜兴创科技有限公司

近期服务42家客户
龚磊

 新科益系统与咨询（上海）有限公司

近期服务0家客户
肖女士

 上海复园电子科技有限公司

近期服务16家客户
彭仲立

 深圳市思博睿科技有限公司

近期服务3153家客户