查看完整版本: sendkey 给你意想不到的感觉?

sendkey 给你意想不到的感觉?

[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
[/code]

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

WshShell.AppActivate "notepad.exe" 打开记事本
WScript.Sleep 500 睡500？肯定是时间什么的（间隔时间）


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

  WshShell.SendKeys vbCrLf 换行

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