DotNetBrowser-Examples/vbnet/console/JavaScriptBridge/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
93
94
#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.Text
ImportsDotNetBrowser.Browser
ImportsDotNetBrowser.Engine
ImportsDotNetBrowser.Geometry
ImportsDotNetBrowser.Js
ImportsDotNetBrowser.Logging

''' <summary>
''' This example demonstrates how to inject a .NET object into JavaScript and
''' invoke its public methods from the JavaScript side.
''' </summary>
FriendClassProgram

PublicSharedSubMain()
LoggerProvider.Instance.Level=SourceLevels.Information
LoggerProvider.Instance.FileLoggingEnabled=True
LoggerProvider.Instance.OutputFile="dnb.log"

UsingengineAsIEngine=EngineFactory.Create()
UsingbrowserAsIBrowser=engine.CreateBrowser()

browser.Size=NewSize(700,500)
DimhtmlBytes()AsByte=Encoding.UTF8.GetBytes("<html>
<body>
<scripttype='text/javascript'>
varShowData=function(a)
{
document.title=a.FullName
+' ' + a.Age + '. ' + a.Walk(a.Children[1])
+' ' + a.Children[1].FullName
+' ' + a.Children[1].Age;
};
</script>
</body>
</html>")
browser.Navigation.LoadUrl("data:text/html;base64,"+Convert.ToBase64String(htmlBytes))_
.Wait()
Dimperson=NewPerson("Jack",30,True)
person.Children=NewDictionary(OfInteger,Person)()
person.Children.Add(1,NewPerson("Oliver",10,True))
DimvalueAsIJsObject=browser.MainFrame.ExecuteJavaScript(OfIJsObject)("window").Result
value.Invoke("ShowData",person)

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

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

PrivateClassPerson

PublicReadOnlyPropertyAgeAsDouble

PublicPropertyChildrenAsIDictionary(OfInteger,Person)
PublicReadOnlyPropertyFullNameAsString

PublicReadOnlyPropertyGenderAsBoolean

PublicSubNew(fullNameAsString,ageAsInteger,genderAsBoolean)
Me.Gender=gender
Me.FullName=fullName
Me.Age=age
EndSub

PublicFunctionWalk(withPersonAsPerson)AsString
ReturnString.Format("{0} is walking with {1}!",If(Gender,"He","She"),withPerson.FullName)
EndFunction

EndClass
EndClass