DotNetBrowser-Examples/vbnet/console/InjectObjectForScripting/Program.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
#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.

#EndRegion

ImportsSystem
ImportsSystem.Text
ImportsDotNetBrowser.Browser
ImportsDotNetBrowser.Browser.Handlers
ImportsDotNetBrowser.Engine
ImportsDotNetBrowser.Geometry
ImportsDotNetBrowser.Handlers
ImportsDotNetBrowser.Js

NamespaceInjectObjectForScripting
''' <summary>
''' This example demonstrates how to use InjectJsHandler for injecting "window.external"
''' object into the web page.
''' </summary>
FriendClassProgram

PrivateSharedSubInjectObjectForScripting(ByValpAsInjectJsParameters)
DimwindowAsIJsObject=p.Frame.ExecuteJavaScript(OfIJsObject)("window").Result
window.Properties("external")=ObjectForScripting.Instance
EndSub

PublicSharedSubMain(ByValargs()AsString)
Try
UsingengineAsIEngine=EngineFactory.Create((NewEngineOptions.Builder()).Build())
UsingbrowserAsIBrowser=engine.CreateBrowser()

browser.Size=NewSize(700,500)
browser.InjectJsHandler=NewHandler(OfInjectJsParameters)(AddressOfInjectObjectForScripting)
DimhtmlBytes()AsByte=Encoding.UTF8.GetBytes("<html>
<body>
<scripttype='text/javascript'>
varSetTitle=function()
{
document.title=window.external.GetTitle();
};
</script>
</body>
</html>")
browser.Navigation.LoadUrl("data:text/html;base64,"+Convert.ToBase64String(htmlBytes)).Wait()

browser.MainFrame.ExecuteJavaScript(OfIJsObject)("window.SetTitle();").Wait()

Console.WriteLine($"{vbTab}Browser title: {browser.Title}")
EndUsing
EndUsing
CatcheAsException
Console.WriteLine(e)
EndTry

Console.WriteLine("Press any key to terminate...")
Console.ReadKey()
EndSub

PublicNotInheritableClassObjectForScripting

PublicSharedReadOnlyPropertyInstance()AsNewObjectForScripting()

SharedSubNew()
EndSub

PrivateSubNew()
EndSub

PublicFunctionGetTitle()AsString
Return"Document title from .NET"
EndFunction

EndClass
EndClass
EndNamespace