① 怎样使用BAT脚本实现自动按键盘的某个键
批处理是不行的 用VBS 很简单 例子如下
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 3000
objShell.SendKeys "{F5}"
WScript.Sleep 3000
objShell.SendKeys "{F5}"
loop
使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符本身作为 string 参数发送。例如，要发送字母 x，则请发送 string 参数 "x"。
可使用 SendKeys 同时发送多个键击。为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc" 。SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。这组特殊的字符可包括圆括号、中括号、大括号，以及：
加号 "+"
插入记号 "^"
百分号 "%"
和“非”符号 "~"
用大括号 "{}" 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 "{+}"。SendKeys中使用的中括号 "[ ]" 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换 (DDE) 就是这样）。
要发送左中括号字符，请发送字符串参数 "{[}"；要发送右中括号字符，请发送字符串参数 "{]}"。
要发送左大括号字符，请发送字符串参数 "{{}"；要发送右大括号字符，请发送字符串参数 "{}}"。
某些键击不生成字符（如 ENTER 和 TAB）。某些键击表示操作（如 BACKSPACE 和 BREAK）。要发送这些类型的键击，请发送下表中列出的参数：
空格键 " "
退格键 {BACKSPACE} 或 {BS} 或 {BKSP}
BREAK {BREAK}
DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
向上键 {UP}
向左键 {LEFT}
向右键 {RIGHT}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
INSERT {INSERT} 或 {INS}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
SCROLL LOCK {SCROLLLOCK}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：
SHIFT +
CTRL ^
ALT %
注意：这样使用时，不用大括号括起这些特殊字符。
要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。例如，要发送的组合键指定：
如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 "+(ec)"。
如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。
可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如，如果要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。
注意：只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。
注意：不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。
例子1：关机脚本 （模拟按键为：Ctrl + Esc、u、u ）
把以下代码复制至记事本，另存为 off.vbs
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}uu"
例子2：重启脚本 （模拟按键为：Ctrl + Esc、u、r ）
把以下代码复制至记事本，另存为 reboot.vbs
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}ur"
例子3：切换输入法 （模拟同时按下：Shift Ctrl ）
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "+(^)"
例子4：输入 cn-dos.net! 至记事本并保存为 CnDos.txt
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500
WshShell.AppActivate "无标题 - 记事本"
WshShell.SendKeys "c"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "-"
WScript.Sleep 200
WshShell.SendKeys "d"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "."
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "e"
WScript.Sleep 200
WshShell.SendKeys "t"
WScript.Sleep 200
WshShell.SendKeys "!"
WScript.Sleep 200
WshShell.SendKeys "%FS"
WScript.Sleep 500
WshShell.SendKeys "C"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "D"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "%S"
WScript.Sleep 500
WshShell.SendKeys "%FX"
例子5：自动定时存盘的记事本（此脚本来自网上）
'第一部分：定义变量和对象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=(1000*60*1) '自动存盘时间为1分钟
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("给文本起名(不能用中文和纯数字)：")
'第二部分：打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "无标题 - 记事本"
'第三部分：用输入的文件名存盘
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime
'第四部分：自动定时存盘
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit
例子：
set objShell = CreateObject("Wscript.Shell")
strCommandLine = "psetup755281.exe" '启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 5200 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 300 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
WScript.Sleep 200
WshShell.SendKeys " " '模拟按下空格键去除安装网络超级搜霸一行前的√号
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '模拟按下 Tab 键选择安装项目
WScript.Sleep 200
WshShell.SendKeys " " '模拟按下空格键去除安装网络超级搜霸一行前的√号
WScript.Sleep 200 '延时0.3秒
WshShell.SendKeys "f" '模拟按下 F键同意协议
② 按键精灵创建记事本的脚本
h=Plugin.File.OpenFile("c:\创建的文件.txt")
Call Plugin.File.CloseFile(h)
Call Plugin.File.WriteFileEx("c:\创建的文件.txt", "输入的文本")
③ VB如何实现记事本自动打字。 好了给搞分
OptionExplicit
'Text2.MultiLine属性设为True
PrivateConstlpFileName="D:123.txt"'默认文件全路径
PrivateConstlpInterval=100'间隔100毫秒(0.1秒)
PubliclpStringAsString
PubliclpLenthAsLong
PrivateSubCommand1_Click()
IfDir(Text1.Text)=""Then
MsgBox"文件:"&Text1.Text&"不存在!",vbCritical+vbOKOnly,"Error"
ExitSub
EndIf
DimsAsString
lpString=""
OpenText1.TextForInputAs#1
DoWhileNotEOF(1)
LineInput#1,s
lpString=lpString&s&vbCrLf
Loop
Close#1
lpLenth=Len(lpString)
Timer1.Enabled=True
EndSub
PrivateSubForm_Load()
Text1.Text=lpFileName
Timer1.Interval=lpInterval
Timer1.Enabled=False
Command1.Caption="打开(&O)"
EndSub
PrivateSubTimer1_Timer()
StaticiAsLong
i=i+1
Ifi>lpLenthThen
i=0
Timer1.Enabled=False
ExitSub
EndIf
Text2.Text=Left(lpString,i)
EndSub
'如图,画好这些控件,就可以了
④ vbs如何自动自动输入文字
运行下面的代码，直接输入123 （10次）
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
for i = 1 to 10 ' 此处10想输入的次数
WshShell.SendKeys "123"
NEXT
⑤ 记事本里面可以直接运行哪些脚本，比如VBS，BAT，JS，谢谢大家，还有哪些，我想
记事本类型的编辑器都不能直接运行调试VBS BAT JS代码的、
如果你想自动输入用户名密码登录软件的话用VBS实现把
下面是代码：
QQ自动登陆
Dim WshShell, QQPath, QQselect
QQPath="c:\progra~1\tencent\qq\qq.exe" QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "34168531" QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "soula.ik8.com" QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" '输入回车键
只须将以上代码中的QQ所在路径、QQ号码、密码改成你自己的，运行该vbs就可以自动登陆QQ了。
⑥ 记事本写出的脚本能干什么
完全可以！
记事本只是负责编辑脚本文本（就跟编C、JAVA语言一样），而按键精灵脚本是被按键精灵模拟软件解释执行的，她实际是种程序解释器而已。
而且没必要用记事本编辑脚本，按键精灵里面的编辑环境很全面高效实用的。当然如果需要从记事本里导入导出文本，比如读并传递参数（但要把字符变成数值），或写某些东西，都可以。但那是另一回事。
⑦ 求vbs代码能 自动新建记事本 并自动打字的
这个功能你可以使用SHELL中的sendkeys虚拟按键来完成。
dim sh,str,a,i
set sh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 200
loop
str="nihao!" '这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 100 '打字速度。数值越小越快。
next
save=0 '如想保存则写1
if save=1 then
'sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "^s"
wscript.sleep 100
sh.sendkeys "c:\name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
⑧ 记事本脚本编程怎么编
很简单，我给你一个很简单的例子，用记事本做一个批处理脚本文件：新建个记事本，打开，输入“shutdown -s -t 1”保存，然后你把这个文件的*.txt后缀改为*.bat后缀。你点击下，很奇妙的事会发生。
⑨ 记事本写出的脚本能干什么
完全可以!
记事本只是负责编辑脚本文本(就跟编C、JAVA语言一样)，而按键精灵脚本是被按键精灵模拟软件解释执行的，她实际是种程序解释器而已。
而且没必要用记事本编辑脚本，按键精灵里面的编辑环境很全面高效实用的。当然如果需要从记事本里导入导出文本，比如读并传递参数(但要把字符变成数值)，或写某些东西，都可以。但那是另一回事。
⑩ 求VBS自动打字程序！
我写的这么辛苦 要追加分哦~
QQ自动发送消息
代码开始:
do '死循环
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ自动发送消息脚本"
dim myarray(5)
myarray(0)="aaa"
myarray(1)="bbbb"
myarray(2)="ccc"
myarray(3)="ddd"
myarray(4)="eeee"
myarray(5)="ffff"
myarray(n)="你要发送的消息" '自己还可以加，不支持中文信息
for i=0 to n '如果为五组消息，则把n 改成5
WScript.Sleep 1000
WshShell.SendKeys myarray(i)
WshShell.SendKeys "%s" 'QQ发送消息默认为CTRL+S 如果改成了按ENTER键发送则应改为WshShell.SendKeys "{enter}"
Next
wscript.sleep 2000
loop
代码结束 下面时QQ信息攻击脚本
用法：把下面的代码复制到一个新建的记事本里,再重命名为xxxx.vbs
首先复制你要发送给对方的消息
然后双击这个vbs
再点一下与对方聊天的窗口
程序代码
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ信息攻击脚本"
for i=1 to 20 '把20改成40则发送40次，随自己改
WScript.Sleep 1000 每隔1/6秒发送一次消息
WshShell.SendKeys"^v"
WshShell.SendKeys "%s" WshShell.SendKeys "%s" 'QQ发送消息默认为CTRL+S 如果改成了按ENTER键发送则应改为WshShell.SendKeys "{enter}"
Next
祝你用得开心~