如何在web上实现对另一个应用程序的键盘输入，就像vb中的sendkey 博客分类： 开发工具 wshshellsendkeys

用
set   WshShell   =   CreateObject( "WScript.Shell ")
WshShell.SendKeys   "{ESC} "

但是要提示一个安全警告,这个警告怎么去除?




这个问题原来在.com的时候也碰到过。也一直没有搞定。后来是自己写的上传组件。其实你已经如果打算用activeX，可以自己写一个File组件.如果是要上传，还可以将其写成一个FTP上传的东西，那样上传也许会更好的。
其实WScript.Shell中也有SendKeys这个方法，MSDN中用了Sleep(100)，我不知道为什么，你也可以试试,这是一个例子。打开calc自己算一个东西。。
set   WshShell   =   WScript.CreateObject( "WScript.Shell ")
      WshShell.Run   "calc "
      WScript.Sleep   100
      WshShell.AppActivate   "Calculator "
      WScript.Sleep   100
      WshShell.SendKeys   "1{+} "
      WScript.Sleep   500
      WshShell.SendKeys   "2 "
      WScript.Sleep   500
      WshShell.SendKeys   "~ "
      WScript.Sleep   500
      WshShell.SendKeys   "*3 "
      WScript.Sleep   500
      WshShell.SendKeys   "~ "
      WScript.Sleep   2500

PS:取得当前的Document对象的方法是，利用ShellWindows这个对象，具体请参看MSDN中的HOWTO:   Connecting   to   a   Running   Instance   of   Internet   Explorer   ID:   Q176792,不过说实话，这种方法并不太适用。因为你得通过一些手段区分哪个是自己的窗口。