源代码分享如下

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


Dim LangLibrary(1)  
LangLibrary(0) = "111"
'双引号中是输出的内容，可以更改但不支持中文

WshShell.AppActivate "文件传输助手"  '双引号中写要爆破的聊天框的名称（不支持游戏）
Wscript.Sleep 500  

For i = 1 To 30
    Wscript.Sleep 99
    WshShell.SendKeys LangLibrary(0)
    WshShell.SendKeys "{ENTER}"
Next