直接上脚本代码,你们可以自己看着改

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

使用方式:1.在桌面创建一个 .vbs的文件,然后把上面的代码复制进去保存

                2.双击打开,输入你想要定时发送的文字,我这里是有两句文字,一个循环次数

                3.然后在五秒内把鼠标的焦点放置在需要输入的地方.

 

输入第一句文字后点击确认

 输入第二句文字后点击确认

输入循环次数后点确认,五秒之内把焦点放到数据框中即可.