Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("LiveStatsV1") 'Load the layout file.
MainForm.Title = "LiveStats Analysis " & Ver
MainForm.Icon = fx.LoadImage(File.DirAssets,"BDSConsulting.png")
we.InitializeNewInstance("javafx.scene.web.WebEngine",Null)
Temp = wv1
we = Temp.RunMethod("getEngine",Null)
wv1.Enabled = True
wv1.Visible = True
tv2.Visible = False
BrowserURLText.text = "http://"
we.RunMethod("load",Array As Object(startPage))
MainForm.Show
progInd.Visible = True
End Sub
Sub wv1_PageFinished (Url As String)
If Url.Contains("www.fibalivestats.com") Then
Dim start As Long = sf.InString(Url, "u/")
Dim right As Long = sf.Len(Url)
right = right - start - 2
Dim partUrl As String = sf.Right(Url, right)
Dim slash As Long = sf.InString(partUrl, "/")
Dim code As String = sf.Mid(Url, start + 1, slash + 2)
URLText.Text = Url.Replace(code,"data")
End If
BrowserURLText.Text = Url 'Display URL of page loaded in browser
progInd.Visible = False
End Sub