HTML中利用VBS 动态添加输入框或按钮

安装windows script host,双击后缀为.vbs的文件运行，或者在命令行下，以cscript命令运行。前面展示了一个HTML文件中嵌套VBScript的例子。这里展示一个通过Windows Script Host执行的本地将上述文件保存为后缀为vbs的文档，当你在资源管理器中双击该文档时，资源管理器通过查找注册表，发现该文件类型已与windows scripting Host 关联，因此调用WHS，并将文件名传入。WHS从文件开头执行，忽略掉注释文本。对这个例子来说，是从WSCript.Echo GetIP 处执行。这样就引发了对函数GetIP的调用。WSH在当前脚本内找到该函数，执行，并将结果作为参数传给WSCript.Echo，显示后结束。Echo是对象WSCript的一个方法，当脚本以这种方式执行时，它以Messagebox的方式输出文本。当脚本在命令行方式下，以CScript.exe命令执行时，输出到控制台。

dim wshshell

set wshshell=createobject("wscript.shell")

wscript.sleep 1000

wshshell.run "notepad.exe"

wscript.sleep 1000

wshshell.sendkeys "^( )"

wshshell.sendkeys "niyaoganshenme1"

用记事本编辑上面的内容,然后保存为后缀名为.vbs的文件

PS:按下ctrl+空格应切换为搜狗输入法,如果搜狗是默认输入法,wshell.sendkeys "^()"就不要

Set WS=CreateObject("WScript.Shell")

WS.run "rundll32.exe shell32.dll,Control_RunDLL input.dll"

WScript.Sleep 100

WS.AppActivate("文字服务和输入语言")

WScript.Sleep 100

WS.SendKeys "{END}"

WScript.Sleep 100

WS.SendKeys "{ENTER}"

---