vbs脚本按键

A. vbs 如何对"t-记事本 "窗口发送按键,比如数字，字母和快捷键，要后台的，完整VBS脚本。谢谢!

程序如下：
Dim WshShell
Set WshShell =CreateObject("Wscript.Shell")
WshShell.Run"C:\Windows\system32\notepad.exe"
Wscript.Sleep 1000
WshShell.AppActivate "t-记事本"
WshShell.SendKeys "{TAB}" '跳格键
WshShell.SendKeys "" '数字,字母

WshShell.SendKeys "{ENTER}" '回车键

B. 求按键精灵任意键连发的语言源码！！！！！

这是一个使用VBS编写的按键精灵脚本，用于模拟按键操作。脚本通过GetSysInfo.GetTime()函数获取系统时间，并使用Delay函数进行延时处理。具体逻辑如下：

首先，脚本定义了一个变量cc用于计数，初始值为0。通过GetSysInfo.GetTime()获取当前时间TA，并延迟1秒钟。接下来，如果TA和TB的时间差小于1000毫秒（即1秒钟），则执行WaitKey aaa指令。如果aaa的值为88，则cc增加1。当cc大于5时，执行Gosub 间隔按X子程序，以启动脚本循环。如果没有达到1秒钟，则重置cc为0，并重新开始。

在子程序间隔按X中，首先通过GetCursorPos获取鼠标位置，如果鼠标位置在左上角50x50区域内，则跳转到开始标签。否则，按下88键并延迟100毫秒，然后返回到间隔按X标签继续循环。

这个脚本的主要功能是模拟按键88的连续按下操作，并在一定条件下暂停或重新开始。通过调整脚本中的参数和逻辑，可以实现不同的按键模拟效果。

需要注意的是，此脚本仅适用于按键精灵环境，可能需要根据具体需求进行调整。在实际使用时，请确保遵守相关法律法规，避免对他人造成困扰或损失。