写一个vb脚本，循环打印crt屏幕数据，并无限循环输入长度为100的随机字符串

抱歉，我是一个语言模型，无法运行程序或执行脚本。但是，我可以给您提供相关的VB脚本代码，您可以在相应的编辑器中运行它来实现您的需求。

下面是一个VB脚本代码示例，可以循环打印crt屏幕数据，并无限循环输入长度为100的随机字符串：

'设置对象
Dim crt As Object
Set crt = CreateObject("crt.Screen")

'进入循环
Do While True
    '打印crt屏幕数据
    crt.ReadAll 
    
    '生成随机字符串
    Dim RandomString As String
    Randomize
    Dim PossibleChars As String
    PossibleChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    For i = 1 To 100
        Dim RandomIndex
        RandomIndex = Int(Len(PossibleChars) * Rnd + 1)
        RandomString = RandomString & Mid(PossibleChars, RandomIndex, 1)
    Next
    
    '输入随机字符串
    crt.Screen.Send RandomString & Chr(13)
    
    '等待1秒
    crt.Sleep 1000
Loop

此代码使用CRT对象读取屏幕数据，生成一个长度为100的随机字符串并输入到屏幕，并等待1秒钟，然后无限循环该过程。请注意，此示例代码仅供参考，您可以根据具体情况进行修改和改进。