Dim ordea
Set ordea = wscript.CreateObject("wscript.shell")Dimnamename= InputBox("请输入要发送的窗口名称:")
ordea.AppActivate nameDim num
num = InputBox("请输入发送次数:")For i =1To num
wscript.sleep100
ordea.SendKeys i
For j =1To i
ordea.SendKeys"^v"Next
ordea.SendKeys"%s"Next
**vbs 快速发送消息自设窗口名和次数版**Dim ordeaSet ordea = wscript.CreateObject("wscript.shell")Dim namename = InputBox("请输入要发送的窗口名称:")ordea.AppActivate nameDim numnum = InputBox("请输入发送次数:")For i = 1 To num wscript.sleep 100 ordea.SendKeys i For j = 1 T