永发信息网

自动输入的批处理问题

答案:2  悬赏:20  手机版
解决时间 2021-04-16 00:35

能够向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目录也可以用的。


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

全部回答
用註冊表的方法
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
dota地图说太大了无法运行,怎么办
锅炉厂家属院这个地址在什么地方,我要处理点
海王金樽怎么吃
怎么让QQ宠物快速升到20级
硅的相对原子量是多少??
捷安特5LEDs頭燈的价位
PE胶带和PET胶带什么区别?
什么香水适合学生用?
找点中国古代著名诗句
轩辕剑 天之痕破解版全集下载
感冒迷糊吃什么药比较好点
请问福建是不是有一个叫晋江的地方晋江是不是
阳台如何设计成花园式
DNF怎样强化武器不会爆?
前男友是什么意思???
推荐资讯
有一个PDF文件,是A3纸大小,如何使用两张A4
反恐精英OL自动退出怎么回事?
1080p 16M码流视频实时传输,用wifi传输是否
关于花的黑暗向的诗歌,关于黑暗的诗句
cf被封了吗 听说被天成cs online 给告了
问道剧情!
我天龙门派属性全加体,但我又想修内功,这样
王羲之书法讲座谁讲的好
想问下各位这个配置值多少钱?
请问重庆大黑除恶追缴了多少辆高级轿车,涉嫌
导致东汉快速灭亡的罪魁祸首是谁
淘宝买的鞋子一般好不好?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?