Windows vbs脚本定时给焦点窗口发送消息

Msg=Inputbox("message1")
Msg1=Inputbox("message2")
num=Inputbox("number")

a=1
b=num

set wshshell=CreateObject("wscript.shell")  '创建Windows的shell对象打开shell窗口
wscript.sleep 5000

for i=a to b   '循环发送

	
	str = Msg
	wshshell.Run "cmd.exe /c echo "&str&" | clip.exe",0,True '内容放入剪切板
	wshshell.sendKeys Trim("^v") '粘贴要发送的消息内容
	wscript.sleep 100
	wshShell.SendKeys "{BACKSPACE}"
	wscript.sleep 100
	wshShell.SendKeys "{BACKSPACE}"  '因为粘贴出来的内容有空格 所以我们做删除动作删除空格
	wscript.sleep 100
	wshshell.sendKeys "{ENTER}"   '按enter键进行发送
	
	'wscript.sleep 5000 '延时发送
	
	
	str = Msg1
	wshshell.Run "cmd.exe /c echo "&str&" | clip.exe",0,True '内容放入剪切板
	wshshell.sendKeys Trim("^v")  '粘贴要发送的消息内容
	wscript.sleep 100
	wshShell.SendKeys "{BACKSPACE}"
	wscript.sleep 100
	wshShell.SendKeys "{BACKSPACE}"
	wscript.sleep 100
	wshshell.sendKeys "{ENTER}"   '按enter键进行发送
	
	'wscript.sleep 1800000 '延时半小时
	
next
wscript.quit