特酷的脚本

最新推荐文章于 2012-08-12 22:41:23 发布

gzfqh

最新推荐文章于 2012-08-12 22:41:23 发布

阅读量1.4k

点赞数

分类专栏：作品发布文章标签：脚本

本文链接：https://blog.csdn.net/gzfqh/article/details/376614

版权

作品发布专栏收录该内容

6 篇文章 0 订阅

订阅专栏

         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