自己动手编写VBScript脚本刷QQ群信息
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "群 -零 起 点"
For i=1 To 10 ' 要发送的次数
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
上面这是我写的代码,我加标注解释给大家了。。
哪里不明白的发贴问我。。。
把它保存成后缀为vbs的文件,然后把你说的话复制到你要发消息的群,记住一定要复制,否则会出现网页的地址。
然后你双击那个文件就行。。就会自动发消息了。。
WshShell.AppActivate "群 -零 起 点"
For i=1 To 10 ' 要发送的次数
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
上面这是我写的代码,我加标注解释给大家了。。
哪里不明白的发贴问我。。。
把它保存成后缀为vbs的文件,然后把你说的话复制到你要发消息的群,记住一定要复制,否则会出现网页的地址。
然后你双击那个文件就行。。就会自动发消息了。。