用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析

提示:
1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环.
2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送

看到问题，立即着手编写测试代码，这时候问题出现：

弹出 inputbox 窗口后，VBS处于暂停状态，等待用户输入，点击确定or取消，

所以在它后面的 Wshshell.Sendkeys "^v" 将无法执行，

如果前面弹出 inputbox 窗口后点击确定 or 取消的话，那么再执行 ctrl+v 就不能把剪切板中的内容粘贴到inputbox 窗口当中，如果把Wshshell.Sendkeys "^v" 放到 inputbox 之前的话，也不行，因为 inputbox 还没弹出来,ctrl+v也无法实现粘贴内容到 inputbox，

转换一下思路，我们把inputbox 和 sendkey写成两个文件，这样它们互相就不会产生冲突，最终解决代码如下：


代码如下:

Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
Set fso=wscript.createobject("scripting.filesystemobject")
set f=fso.opentextfile("sendkey.vbs",2,true)
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")")
f.WriteBlankLines(1)
f.Write("WScript.Sleep 1800")
f.WriteBlankLines(1)
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34))
f.WriteBlankLines(1)
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34))
f.WriteBlankLines(1)
f.Close
Wshshell.Run ("sendkey.vbs")
InputBox "请输入","提示",""
fso.DeleteFile ("sendkey.vbs")

代码先写 sendkey.vbs 并执行，执行过程中会等待1.8秒发送 ctrl+v ，接着弹出 inputbox，这时候inputbox弹出来了，sendkey.vbs在等待1.8秒后也执行ctrl+v把内容粘贴到了inputbox 输入框中.问题解决

总结：在遇到一些问题的时候，不能钻牛角尖，换个思路，其实解决起来并不难！

赞 (0)

相关推荐

  • 用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析

    提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环. 2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送 看到问题,立即着手编写测试代码,这时候问题出现: 弹出 inputbox 窗口后,VBS处于暂停状态,等待用户输入,点击确定or取消, 所以在它后面的 Wshshell.Sendkeys "^v" 将无法执行, 如果前面弹出 inputbox 窗口后点击确定 or 取消的话,那么再执行 ctrl+v

  • js实现ctrl+v粘贴上传图片(兼容chrome、firefox、ie11)

    js实现ctrl+v粘贴上传图片(兼容chrome、firefox、ie11)

    我们或多或少都使用过各式各样的富文本编辑器,其中有一个很方便功能,复制一张图片然后粘贴进文本框,这张图片就被上传了,那么这个方便的功能是如何实现的呢? 原理分析 提取操作:复制=>粘贴=>上传 在这个操作过程中,我们需要做的就是:监听粘贴事件=>获取剪贴板里的内容=>发请求上传 为方便理解下文,需要先明白几点: 我们只能上传网页图(在网页上右键图片,然后复制)和截图(截图工具截的图片,eg:qq截图),不能粘贴上传系统里的图片(从桌面上.硬盘里复制),他们是存在完全不同的地方的.

  • java8实现list集合中按照某一个值相加求和,平均值等操作代码

    集合: List<User> user = new User(); user .stream().collect(Collectors.summingInt(User::getAge)) 参数类型: summarizingDouble 统计数据(double)状态, 其中包括count min max sum和平均值 summarizingInt 统计数据(int)状态, 其中包括count min max sum和平均值 summarizingLong 统计数据(long)状态, 其中包括c

  • docker nginx实现一个主机部署多个站点操作

    在某站租赁的虚拟机快到期了,续费得花200多,想到在阿里云新买的服务器,不如把这个也转移过去.域名我就用真实的吧,大家别黑我网站就好了,谢谢各位了. 阿里云里面已经用部署了一个站点 用域名 www.dcssn.com 就能直接访问,我的想法是再用 www.xhxf119.com 指向这个主机,根据域名的不同去访问不同的服务. 首先 域名解析都要指向这个主机的ip 然后 www.dcssn.com的服务开启8080端口,docker run -p 8080:80 weian www.xhxf119

  • C#中一个高性能异步socket封装库的实现思路分享

    C#中一个高性能异步socket封装库的实现思路分享

    前言 socket是软件之间通讯最常用的一种方式.c#实现socket通讯有很多中方法,其中效率最高就是异步通讯. 异步通讯实际是利用windows完成端口(IOCP)来处理的,关于完成端口实现原理,大家可以参考网上文章. 我这里想强调的是采用完成端口机制的异步通讯是windows下效率最高的通讯方式,没有之一! 异步通讯比同步通讯处理要难很多,代码编写中会遇到许多"坑".如果没有经验,很难完成. 我搜集了大量资料,完成了对异步socket的封装.此库已用稳定高效的运行几个月. 纵观网

  • vue-cli3+typescript新建一个项目的思路分析

    最近在用vue搭一个后台管理的单页应用的demo,因为之前只用过vue-cli2+javascript进行开发,而vue-cli3早在去年8月就已经发布,并且对于typescript有了很好地支持.所以为了熟悉新技术,我选择使用vue-cli3+typescript进行新应用的开发.这里是新技术的学习记录. 初始化项目 卸载老版本脚手架,安装新版本脚手架后,开始初始化项目.初始化的命令跟2.x版本的略有不同,以前是 vue init webpack project-name ,而现在是 vue

  • 使用Python制作一个数据预处理小工具(多种操作一键完成)

    使用Python制作一个数据预处理小工具(多种操作一键完成)

    在我们平常使用Python进行数据处理与分析时,在import完一大堆库之后,就是对数据进行预览,查看数据是否出现了缺失值.重复值等异常情况,并进行处理. 本文将结合GUI工具PySimpleGUI,来讲解如何制作一款属于自己的数据预处理小工具,让这个过程也能够自动化!最终效果如下 本文将分为三部分讲解: 制作GUI界面 数据处理讲解 打包与测试 主要涉及将涉及以下模块: PySimpleGUI pandas matplotlib 一.GUI界面制作 思路 老规矩,先讲思路再上代码,首先还是说一

  • 按键精灵 脚本-学习VBS的一个不错的教程

    今天我就从总体上对VBS进行介绍,希望能给大家一个直观的印象.另外,讲解与按键官网的按键精灵教程(李悦制作)相结合,帮大家看懂这个东东. 一.概述 要让计算机做事情就必须由人给它指令.原来的指令很复杂,都是些0011001之类的东西,后来逐渐简化,指令也更接近于人类的语言.VBS(Microsoft(R) Visual Basic(R) Scripting)也是高级语言的一种,和其他高级语言相比,它有简单易学的特点,是电脑初学者涉足编程领域的良好入口. 如果说从低级语言进化到高级语言是人类控制计

  • 用vbs针对一个 IP 地址范围运行脚本

    问: 嗨,Scripting Guy!我想在一个子网中的所有计算机上运行脚本.有没有办法不必将所有 IP 地址都硬编码到脚本中就能完成这项任务呢? -- RB 答: 嗨,RB.根据您在电子邮件中的描述,看来您的设置类似于:您的子网的 IP 地址范围为 192.168.1.1 到 192.168.1.254.您想创建一个脚本,可以先从第一个 IP 地址开始,在相应的计算机上运行某个代码,然后转到第二个地址,运行相同的代码,按地址顺序在每台计算机上都运行相同的脚本.此外,您想通过尽可能最少的代码行就

  • VBS合并一个文件夹里的TXT的实现代码

    复制代码 代码如下: Const ForReading = 1 'VBS的这句不能少. dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scripting.FileSystemObject") '创建FSO对象 jiuw = inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TX

随机推荐