VBS脚本自动发送微博

打开txt，写入以下VBS代码：

Set wshshell=CreateObject("wscript.shell")

WScript.Sleep 5000

Counter = 0

Do While Counter < 3

Counter = Counter + 1

wshshell.SendKeys "n"

WScript.Sleep 1000

wshshell.appactivate("Anything new that want to share?")

wscript.sleep 1000

wshshell.sendkeys "^v"  '在这里复制好你想要粘贴的代码就Ok啦 想发布什么就发布什么

wscript.sleep 2000

wshshell.sendkeys "^{ENTER}"

Loop

运行，切换至微博窗口即可。