实现自动发送QQ消息的简单vbs小程序

最新推荐文章于 2022-05-21 21:27:57 发布

monster663

最新推荐文章于 2022-05-21 21:27:57 发布

阅读量3.3k

点赞数 3

本文链接：https://blog.csdn.net/monster663/article/details/115679563

版权

这篇博客介绍了如何通过VBScript创建桌面快捷方式，并编写代码自动运行该快捷方式，执行发送消息的功能。内容包括设置WScript.Shell对象、运行命令以及使用SendKeys方法模拟键盘输入。需要注意的是，运行时可能会遇到输入法自动切换为中文的问题，以及因网络延迟导致的消息顺序问题。示例代码提供了一个简单的实现，可供学习参考。

摘要由CSDN通过智能技术生成

确实是小程序，代码过于简单，就是vbs的基本用法，就是一个雏形，还没有进行进一步的完善，仅供大家参考
首先找到一个QQ好友，右键生成一个桌面快捷方式
在这里插入图片描述
我这里改名成1（实际上的文件名为1.lnk）了
然后txt中写入以下内容

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c C:\Users\DELL\Desktop\1.lnk"
WScript.Sleep 1000
word="Hello"
xTimes = 10
for i =1 To Cint(xtimes)
	WshShell.sendkeys "Hello{ENTER}"
	WshShell.sendkeys i
	WshShell.sendkeys "{ENTER}"
next