时间戳

首页 > 解决方案 > 关于 GeckoWebBrowser KeyEvent

vb.net - 关于 GeckoWebBrowser KeyEvent

问题描述

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

<input onkeypress="return event.charCode >= 48 ; event.charCode <= 57" disabled="" id="field1" type="tel" value="" pattern="[0-9]*">

the VB.NET code: Dim ev As DomEventArgs = GeckoWebBrowser1.Document.CreateEvent("KeyEvents") Dim curInput As GeckoInputElement curInput = GeckoWebBrowser1.Document.GetElementById("field1") curInput.Focus() nsIEventVar.InitKeyEvent(New nsAString("keypress"), True, False, GeckoWebBrowser1.Window.DomWindow, False, False, False, False, Keys.Enter, Keys.NumPad0) nsIEventVar.InitKeyEvent(New nsAString("keyUp"), True, False, GeckoWebBrowser1.Window.DomWindow, False, False, False, False, Keys.Up, Keys.NumPad0) Xpcom.QueryInterface(Of nsIDOMEventTarget)(curInput.DomObject).DispatchEvent(nsIEventVar)

但不成功将 0 发送到输入控件。

标签： vb.netgecko

解决方案

推荐阅读