DotNetBrowser-Examples/vbnet/wpf/KeyboardEventSimulation/MainWindow.xaml.vb at v4 · TeamDev-IP/DotNetBrowser-Examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
#Region "Copyright"

' Copyright © 2026, TeamDev. All rights reserved.
'
' Redistribution and use in source and/or binary forms, with or without
' modification, must retain the above copyright notice and the following
' disclaimer.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
' "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
' LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
' A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
' OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
' LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
' DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
' (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
' OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#End Region

Imports System.ComponentModel
Imports System.Text
Imports System.Threading.Tasks
Imports DotNetBrowser.Browser
Imports DotNetBrowser.Engine
Imports DotNetBrowser.Input.Keyboard
Imports DotNetBrowser.Input.Keyboard.Events
Imports DotNetBrowser.Navigation
Imports DotNetBrowser.Wpf

''' <summary>
'''     This example demonstrates how to simulate keypress.
''' </summary>
Partial Public Class MainWindow
    Inherits Window

    Private browser As IBrowser
    Private browserView As BrowserView
    Private engine As IEngine

    Public Sub New()
        EngineFactory.CreateAsync(New EngineOptions.Builder With {
                                     .RenderingMode = RenderingMode.OffScreen
                                     }.Build()) _
        .ContinueWith(Sub(t)
            engine = t.Result
            browser = engine.CreateBrowser()
            browserView = New BrowserView()
            ' Embed BrowserView component into main layout.
            mainLayout.Children.Add(browserView)

            browserView.InitializeFrom(browser)

            Dim htmlBytes() As Byte = Encoding.UTF8.GetBytes("<html>
                                            <body>
                                                <input type='text' autofocus></input>
                                            </body>
                                        </html>")
            browser.Navigation.LoadUrl("data:text/html;base64," + Convert.ToBase64String(htmlBytes)) _
                                 .ContinueWith(AddressOf SimulateInput)
        End Sub, TaskScheduler.FromCurrentSynchronizationContext())

        ' Initialize WPF Application UI.
        InitializeComponent()
    End Sub

    Private Async Sub SimulateInput(e As Task(Of NavigationResult))
        If e.Result.LoadResult = LoadResult.Completed Then
            Await Task.Delay(2000)
            Dim keyboard As IKeyboard = browser.Keyboard
            SimulateKey(keyboard, KeyCode.VkH, "H")
            SimulateKey(keyboard, KeyCode.VkE, "e")
            SimulateKey(keyboard, KeyCode.VkL, "l")
            SimulateKey(keyboard, KeyCode.VkL, "l")
            SimulateKey(keyboard, KeyCode.VkO, "o")
            SimulateKey(keyboard, KeyCode.Space, " ")
            'Simulate input of some non-letter characters
            SimulateKey(keyboard, KeyCode.Vk5, "%", New KeyModifiers() With {.ShiftDown = True})
            SimulateKey(keyboard, KeyCode.Vk2, "@", New KeyModifiers() With {.ShiftDown = True})
        End If
    End Sub

    Private Shared Sub SimulateKey(ByVal keyboard As IKeyboard, ByVal key As KeyCode, ByVal keyChar As String, Optional ByVal modifiers As KeyModifiers = Nothing)
        modifiers = If(modifiers, New KeyModifiers())
        Dim keyPressedEventArgs = New KeyPressedEventArgs With {
                .KeyChar = keyChar,
                .VirtualKey = key,
                .Modifiers = modifiers
                }

        Dim keyTypedEventArgs = New KeyTypedEventArgs With {
                .KeyChar = keyChar,
                .VirtualKey = key,
                .Modifiers = modifiers
                }
        Dim keyReleasedEventArgs = New KeyReleasedEventArgs With {
                .VirtualKey = key,
                .Modifiers = modifiers
                }

        keyboard.KeyPressed.Raise(keyPressedEventArgs)
        keyboard.KeyTyped.Raise(keyTypedEventArgs)
        keyboard.KeyReleased.Raise(keyReleasedEventArgs)
    End Sub

    Private Sub Window_Closing(sender As Object, e As CancelEventArgs)
        ' Dispose browser and engine when close app window.
        browser.Dispose()
        engine.Dispose()
    End Sub

End Class