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
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