特酷的脚本

         set WshShell = WScript.CreateObject("WScript.Shell")
         WshShell.Run "notepad.exe"
         WScript.Sleep 500
         WshShell.AppActivate "notepad.exe"

         ShowText 20, "------------------------hello,I am dusen-------------------------"
         ShowText 100, "    Everyone has the right to freedom of opinion and expression"
         ShowText 20, "                                                     05.5.17              "
         ShowText 20, "-------------------------Made by dusen---------------------------"

  Sub ShowText(t,s)
  Dim i,j
  i=0
         j=Len(s)
  Do While i<j
  i=i+1
         WScript.Sleep t
  WshShell.SendKeys Right(Left(s,i),1)
         Loop
         WshShell.SendKeys vbCrLf
  End Sub