vbs战术轰炸

墨序林:
dim a,b a=inputbox("大小") b=inputbox("速度 1000=1秒") do On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to a wscript.sleep b 'jsrbvh wsh.AppActivate wsh.sendKeys "∨∧" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit loop

【回复】回复 @我头你吗 : 好像有没有寄
【回复】回复 @程序员小蔡 :有吗？[笑哭][笑哭]没发现
诸君且听此龙吟:
我就想问问能不能刷文字 ，数字没意思

【回复】可以把机制改成一直按回车