Vb.net 关于GeckoWebBrowser KeyEvent

我想将keycode发送到GeckoWebBrowser，html源代码如下：

VB.NET代码：
Dim ev作为DomEventArgs=GeckoWebBrowser1.Document.CreateEvent（“KeyEvents”）
作为GeckoInputElement的Dim curInput
curInput=GeckoWebBrowser1.Document.GetElementById（“field1”）
curInput.Focus（）
nsIEventVar.InitKeyEvent（新的nsAString（“keypress”）、True、False、GeckoWebBrowser1.Window.DomWindow、False、False、False、Keys.Enter、Keys.NumPad0）
nsIEventVar.InitKeyEvent（新nsAString（“keyUp”）、True、False、，
GeckoWebBrowser1.Window.DomWindow，False，False，False，key.Up，key.NumPad0）
Xpcom.QueryInterface（属于nsIDOMEventTarget）（curInput.DomObject）.DispatchEvent（nsIEventVar）

---

但将0发送到输入控件失败。

我使用：

Dim元素作为geckoinpotement=GeckoWebBrowser1.Document.GetElementById（“field1”）元素1.Click（）Element1.Focus（）SendKeys.Send（“{Enter}”）Element.Value=str1

但无法将input.Dim Element1作为GeckoInputElement=GeckoWebBrowser1.Document.GetElementById（“field1”）启用Dim Utils作为nsIDOMWindowUtils=Xpcom.QueryInterface（属于nsIDOMEventTarget）（Element1.DomObject），使用类型为nsAString=New nsAString（“keypress”）Utils.SendKeyEvent（类型，0，Keys.NumPad0，0，False）结束使用