vbs 快速发送消息自设窗口名和次数版

**

vbs 快速发送消息自设窗口名和次数版

**

Dim ordea
Set ordea = wscript.CreateObject("wscript.shell")

Dim name
name = InputBox("请输入要发送的窗口名称：")

ordea.AppActivate name

Dim num
num = InputBox("请输入发送次数：")

For i = 1 To num
	wscript.sleep 100
	ordea.SendKeys i
	For j = 1 To i
		ordea.SendKeys"^v"
	Next
	ordea.SendKeys"%s"
Next