标签归档:sendkeys

模拟键盘输入的脚步,让老四的键盘钢琴自动演奏

在老四(http://www.0097.org/laos/)的博客上看到一电子钢琴,下边还有千千阙听的曲子,想马上弹奏一曲,好累啊,音调好像也不对,写了一个VBScript的脚本,给他留了言。结果该文章不显示了,提示找不到文件

Windows虚拟主机的悲哀啊,因为网页中有了Wscript脚本,结果被主机非屏蔽了,或说被杀毒软件Killer了,以前用Win主机生成的时候也出现过这种问题,真的不是故意的,再次像老四抱歉。

下面是老四的键盘钢琴

下面保存为vbs,运行后,打开本页面即可用该脚本模拟键盘按键,听到千千阙听

Sub start
	'每个空格代表演示1000毫秒,两个按键间隔400毫秒
	'童话
	'keys="LONOL LONOL LONO OOMMLL ONOL LQPPO LONOM MMOTS PPRRQQ QQNPOONO ONOR LSRQPPPRRQQ QQVUTUV VPOT TTSSSLSRQQRQ QRQ RQPOOQST TTSPPRQ OQST TTSPPRQRQPO PQMMOONO"
	'心语心愿
	'keys="TVUTSTQ TSTVUVUTUV VWXXXXW VUTUS TVUTST QSTXWVUV VUTTTTSSTQSSTXWVUVV VUTTSUT"
	'会呼吸的痛
	'keys="STVTXXTW  WWVUVWXWSV VUTUVRRRVVWVSSS SYXWXX STVTXXTW WWVUVWXWSVVVUTUVRRRVVWVSSS STUVVUVV"
	'欢乐颂
	'keys="J J K L L K J I      H H I J J I IJ J K L L K J I      H H I J I H H     I I J H I J K J H     I J K J I H I E    J J K L L K J        I H H I J I H H"
	'千千阙歌
	keys="HHIJ LMONNNLJ IIIJK MOQPPNLHHIJ LMONNNLJ IIIJK MOQPPNLMLMLMNNMN PPPPNOPQQQPPPOQ NLMLMOPQQPQ QPOP OMM LMOP QQPQ QSTSQQQQPPOPOM  QQRQPOP QQ Q PPOP OMOO"
	'婚礼进行曲
	'keys="HKKK HLJK HKNNMLKJKL HKKK HLJK HKMOMKILMKNMLII JKLL NMLII JKLL HKKK HLJK HKMOMKILMKILMKK"
	keydb=split(keys," ")
	for each keyrs in keydb
		for i=1 to len(keyrs)
			sendkey mid(keyrs,i,1)
			wscript.sleep 400
		next
		wscript.sleep 1000
	next
End Sub
 
Sub sendkey(k)
	wshell.sendkeys k
End Sub
 
do while startnum=0 or startnum=2
	startnum=msgbox("你真的要听苗启源为您演奏吗?",1)
loop
 
set wshell=createobject("Wscript.Shell")
start
gourl=msgbox("结束了,是不是想去苗启源家看看",1)
if gourl=1 then wshell.run("http://www.miaoqiyuan.cn")