自动输入的批处理问题

能够向word或者qq里自动输入字符的批处理

还有怎么能在不显示cmd的情况下运行一些命令

批处理实现不了这项功能的，用VBS脚本吧。

下面是往QQ聊天窗口中发字母的一些代码，仅供参考：

使作方法：将下面的代码存入文本文档，改扩展名为VBS即可。

Dim sendmsg,n,total,flag
Set sendmsg=CreateObject("Wscript.shell")
total=Int(Inputbox(vbcrlf+vbcrlf+" 请输入要发送信息的次数","设置--第一步","99"))
flag=Inputbox(vbcrlf+vbcrlf+"请输入要发送的消息内容："+vbcrlf+" 1.要发送自定义内容，请直接，点击确定; !!!特别注意：输入不能为中文和一些特殊字符,若发送中文可贴入剪贴板即可"+vbcrlf+" 2.如若发送剪贴板中的内容，请直接点击确定(保持默认输入)","设置--第二步","发送剪贴板中的内容")
Msgbox("要发送的内容为:"&flag)
Wscript.Echo "3秒钟后，程序自动进行模拟输入,请点击相应的窗口以击活目标窗口"
Wscript.Sleep 3000
for n = 1 to total
if flag="发送剪贴板中的内容" Then
sendmsg.Sendkeys "^v"
else
sendmsg.Sendkeys flag
end if
Wscript.Sleep 100
sendmsg.Sendkeys "{ENTER}"
Wscript.Sleep 100
sendmsg.Sendkeys "%s"
Wscript.Sleep 100
next
Wscript.quit

还有批处理不过是内置命令和外部程序的集合，可以用VC等编程语言实现你要实现的功能，写成控制台程序，加入system32目录也可以用的。

将上面的代码再加入文件系统的操作，还可以发送文件。

用註冊表的方法

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息