能够向word或者qq里自动输入字符的批处理
还有怎么能在不显示cmd的情况下运行一些命令
能够向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目录也可以用的。
将上面的代码再加入文件系统的操作,还可以发送文件。