使用CRT脚本Screen对象获取屏幕文本信息

'打开一个新的CRT窗口 crt.Session.Connect '/SSH2 /PASSWORD password user@hostname'

'等待直到远程主机的命令提示符出现 crt.Screen.WaitForString '$'

'发送一个命令并等待其执行完成 crt.Screen.Send 'ls -l' & vbCr crt.Screen.WaitForString '$'

'获取屏幕上的文本信息 text = crt.Screen.ReadString('$')

'在本地输出文本信息 crt.Dialog.MessageBox text

上述示例中，首先打开了一个新的CRT窗口并连接到远程主机。然后等待远程主机的命令提示符出现，并发送一个命令。使用Screen对象的ReadString方法获取屏幕上的文本信息，并将其输出到本地的消息框中。