900字范文,内容丰富有趣,生活中的好帮手!
900字范文 > 实现自动发送QQ消息的简单vbs小程序

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

时间:2019-06-17 17:00:20

相关推荐

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

确实是小程序,代码过于简单,就是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 1000word="Hello"xTimes = 10for i =1 To Cint(xtimes)WshShell.sendkeys "Hello{ENTER}"WshShell.sendkeys iWshShell.sendkeys "{ENTER}"next

这里要注意的是,我这里在运行的时候这个vbs的时候,输入法会自动切换成中文,所以第一个 ENTER 实际上就是输入法对于Hello的确认,若你的电脑没有输入法的问题,可以去掉Hello后的{ENTER},并且由于网络的原因,发送消息到达的先后顺序可能出现不一样

运行实例如下:

可以找个“好朋友”尝试一下

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。