第二个VBS小程序：秒发N条消息

学习编程可以解决我们很多的事情，比如：我们可以利用下面这条代码，来发送N条相同的消息。

在这里呢，我还是先将步骤以及效果图发给诸位，最后带上代码。

步骤解析：

1.在我们编辑的记事本中，其中WshShell.Appacticate"徘徊、"中的徘徊、为QQ中的备注。

2.在for i=1 to 100,中的100为发信息的条数。

3.在我们发送过程中，我们需要先将发送的文本先复制到剪贴板中。

最后给大家送上代码：

Set WshShell = WScript.CreateObject("Wscript.Shell")

WshShell.AppActivate"徘徊、"

for i=1 to 100

WScript.sleep 100

WshShell.Sendkeys"^v"

WshShell.Sendkeys i

WshShell.Sendkeys"%s"

Next

最后我们这里需要注意保存文件的类型为所有文件，文件的后缀名为：文件名.vbs

程序改变世界，但我们不能拿来破坏世界哦！不能骚扰人哦！想共同学习一些代码的可以加我扣扣：1511823954。最后向大家讨个关注，小孔会一直更新各种有趣代码的，有想和大家分享有趣的代码的也可以和我联系哦！