标签:发送 exe 微信 VBS sleep wscript wshshell 500
偶然机会在网上看到通过vbs发送微信消息的脚本,记录一下
dim program1,name,Msg '定义变量并分配内存 'Inputbox()函数进行输入 name=Inputbox("请输入你要给谁发送消息") Msg=Inputbox("请输入你发送消息的内容") num=Inputbox("请输入重复发送多少次消息") 'program1表示WeChat.exe的位置 program1="C:\Program Files (x86)\WXWork\WXWork.exe" 'program1="D:\other-systems\QQ\Bin\QQ.exe" program1=Inputbox("请输入WeChat.exe或QQ.exe的存储位置") set wshshell=CreateObject("wscript.shell") '创建Windows的shell对象打开shell窗口 '在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将name复制到剪切板中 wshshell.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True wshshell.Run "mshta javascript:window.execScript('window.close','vbs')",0,True '通过绝对路径的方式打开微信窗口 set oexec=wshshell.exec(program1) wscript.sleep 500 '停留500毫秒 wshshell.sendKeys "^f" '执行ctrl + F快捷键在微信窗口唤醒搜索功能 wscript.sleep 500 wshshell.sendKeys "^v" '粘贴要搜索的name wscript.sleep 500 wshshell.sendKeys "{ENTER}" '按键盘的enter键,进入要发送消息的name联系人窗口 wscript.sleep 500 '在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将发送的消息内容复制到剪切板中 wshshell.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True wscript.sleep 500 for i=1 to num '循环发送num次 wshshell.sendKeys "^v" '粘贴要发送的msg消息内容 wscript.sleep 500 wshshell.sendKeys "{ENTER}" '按enter键进行发送 next wscript.quit
如果你复制到记事本的时候不能正常运行看看这个是不是可以:
标签:发送,exe,微信,VBS,sleep,wscript,wshshell,500 来源: https://www.cnblogs.com/tangkai/p/wechat.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。