欢迎大家访问我的BLOG

sendkey 给你意想不到的感觉?

上一篇 / 下一篇 2007-01-17 20:34:02

查看( 693 ) / 评论( 1 )

CODE:

set WshShell = WScript.CreateObject("WScript.Shell")

         WshShell.Run "notepad.exe"

         WScript.Sleep 500

         WshShell.AppActivate "notepad.exe"

         ShowText 20, "-------------------Now Look!-------------------------"

         ShowText 20, "毛泽东"

  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

把上面的代码拷贝到记事本,然后另存为 filename.vbs
双击看看效果.
再把毛泽东替换成下面的看看(点右键->编辑)
你到底爱不爱我？打开mediaplayer
行为
编辑
女人和男人
当然你也可以找找其他有趣的东西

全部脚印 不留脚印留下脚印:

24388
17127

论坛模式推荐收藏分享给好友推荐到圈子管理

TAG:

netice 发布于2007-01-19 17:34:53: WshShell.AppActivate "notepad.exe" 打开记事本
WScript.Sleep 500 睡500？肯定是时间什么的（间隔时间）

能解释下函数意思吗？
Sub ShowText(t,s)
里面t ,s 是什么参数？

WshShell.SendKeys vbCrLf 换行

[ 本帖最后由 netice 于 2007-1-19 17:37 编辑 ]