利用run sendKeys向记事本动态写入字符串

Dim shell,index
Dim arrayTemp,ArrayLen
Dim aryStr


aryStr = "Please Keep The Desktop Clearing Thank You!"
arrayTemp = Split(aryStr)                             ' 将字符串转为数组空格分隔
ArrayLen = UBound(arrayTemp)                ' 获得数组的长度


Set shell = CreateObject("wscript.shell")
shell.Run "notepad"                                    ' 打开记事本
WScript.Sleep 1000                                     ' 等待记事本的打开
For index=0 To ArrayLen
shell.SendKeys arrayTemp(index) & "   "          ' 动态向记事本输入数组中的字符串
WScript.Sleep 400
Next


Set shell = Nothing