Dim jav As List
Dim vidplaying As String
' video player
Private player1 As SimpleExoPlayer
Dim Layoutset As String
Dim Timer0 As Timer
Dim whileplaying As Timer
whileplaying.Initialize("whileplaying", 50)
Dim TTS1 As TTS
Dim encoding As String
Dim jav As List
Dim langspin As Int
Dim SubTextLabelservice As String
Dim chosenName1 As String
Dim encospinpath As String
Dim encospinfile As String
Dim List0, SRTime0 As List
Dim subTitleList As List
Dim oddval As Int
oddval = 0
Dim Position As Int = 0
Dim StringFunctions0 As StringFunctions
Dim CurrentTimeLabelservice As String
Dim CurrentTimeLabel2service As String
Dim CurrentSubTitle As Int = 0 'index -1 from SRT
Dim TimeSeekBarservice As Int
'Dim lastTickTime As Long = 0
Dim timeStarted As Long = 0
Dim timeOffset As Long = 0
Dim isPlaying As Boolean = False
Dim subspinnerint As Float
subspinnerint = 10.0
Dim SubNumberLabelservice As String
' Dim spnrLanguages As Spinner
' ############SubGitter Globals
Dim my_buffer As OutputStream
Dim js As jSoup
Dim html, local_html, url As String
Dim DOM1 As List : DOM1.Initialize
Dim DOM2 As List : DOM2.Initialize
Dim DOM3 As List : DOM3.Initialize
Dim Selector1 As List : Selector1.Initialize
Dim Selector2 As List : Selector2.Initialize
Dim Selector3 As List : Selector3.Initialize
Dim Extract1 As List : Extract1.Initialize
Dim Extract2 As List : Extract2.Initialize
Dim Extract3 As List : Extract3.Initialize
Dim Extract4 As List : Extract4.Initialize
Dim Extract5 As List : Extract5.Initialize
Dim selectionurl As String
Dim success1 As String = "false"
DisableStrictMode
Dim Positionset As Int
Dim selection1 As Int
Dim DLlink As List : DLlink.Initialize
selection1 = 0
Dim searchent As String
Dim homeclick As Int
'###Lang timer
Dim setval As Int
setval = 0
Dim currentsubval As Int
'### List position for Extr 4
Dim getindex As List
'Video player
Private SimpleExoPlayerView1 As SimpleExoPlayerView
Dim p As Phone
Dim sources As List
Dim vidon As String
vidon = 0
'# Keep screen awake
Dim wakein As PhoneWakeState