VBS模拟键盘事件，包括复制粘贴等等

set wshshell=CreateObject("wscript.shell")  '创建Windows的shell对象打开shell窗口
wscript.sleep 2
Dim MyArray(10) '创建数组
MyArray(0) = "内容1"
MyArray(1) = "内容2"
MyArray(2) = "内容3"
MyArray(3) = "内容4"
MyArray(4) = "内容5"
MyArray(5) = "内容6"
MyArray(6) = "内容7"
MyArray(7) = "内容8"
MyArray(8) = "内容9"
MyArray(9) = "内容10"
Dim k
k = 0
for i= 0 To 100   '循环发送
	'Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&"Hello World"&""")(Window.Close)"
	Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&Myarray(k)&""")(Window.Close)"
	wshshell.Run(Clipboard)
	wscript.sleep 1000
	wshshell.sendKeys "{ENTER}"    '按enter键进行发送
	wshshell.sendKeys "^v"   '粘贴要发送的消息内容
	wshshell.sendKeys "{ENTER}"    '按enter键进行发送
	wscript.sleep 20000			   '这里后面设置20000，即20秒比较好
	wshshell.sendKeys "{ENTER}"    '按enter键进行发送
	wscript.sleep 1000
	wshshell.sendKeys "{ENTER}"    '按enter键进行发送
	k = k+1
	if k = 10 Then
		k = 0
	else
	end If
next
wscrip

利用来触发回车和粘贴内容

这里要注意，正常的字母a-z和数字0-9可以直接进行输出，比如我要输出abc123456

wshshell.sendKeys "abc123456"

当然如果想需要发送中文也可以

wshshell.sendKeys "清心醉666"

这里其实参数就是实际的内容本体，但是如果需要特殊的按键比如回车，上档

切换到账号输入 shift 为+ 注意这里的集合需要{} 比如shift+a 则+a即可，如果是shift+tab 这种额外控件才需要{}

比如需要模拟键盘shift+tab

wshshell.sendKeys "+{TAB}" 

如果只是想单纯的shift + a

wshshell.sendKeys "+a"

shift的标识就是+，那比如常用的还有ctrl

wshshell.sendKeys "^a"	'//全选crtl 为^

^则代表CTRL了。这里就会实现全选

所以对应的如果要粘贴就是CTRL+V

wshshell.sendKeys "^v"	'//全选crtl 为^