DotNetBrowser-Examples/vbnet/winforms/KeyboardEventSimulation/Form1.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
115
116
117
118
119
120
121
122
123
124

#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 DotNetBrowser.Browser
Imports DotNetBrowser.Engine
Imports DotNetBrowser.Input.Keyboard
Imports DotNetBrowser.Input.Keyboard.Events
Imports DotNetBrowser.Navigation
Imports DotNetBrowser.WinForms

''' <summary>
'''     This example demonstrates how to simulate keypress.
''' </summary>
Public Class Form1
    Private const Html as String = "<html>
                                        <body>
                                            <input type='text' autofocus></input>
                                        </body>
                                    </html>"
    Private browser As IBrowser
    Private browserView As BrowserView
    Private engine As IEngine

    Public Sub New()
        InitializeComponent()
        AddHandler Closing, AddressOf Form_Closing

        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.
            Controls.Add(browserView)

            browserView.InitializeFrom(browser)
            browserView.Dock = DockStyle.Fill

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

    End Sub

    Private Async Sub SimulateInput(e As Task(Of NavigationResult))
        If e.Result.LoadResult = LoadResult.Completed Then
            Await Task.Delay(2000)
            ' #docfragment "KeyboardEventSimulation.Usage"
            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})
            ' #enddocfragment "KeyboardEventSimulation.Usage"
        End If
    End Sub

    ' #docfragment "KeyboardEventSimulation.Implementation"
    Private Shared Sub SimulateKey(keyboard As IKeyboard, key As KeyCode, keyChar As String,
                                   Optional 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
    '#enddocfragment "KeyboardEventSimulation.Implementation"

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