Sub wvSession_OverrideUrl (Url As String) As Boolean
If (Url.IndexOf("reload:") > -1) Then
Dim id As String = Url.SubString2(7, Url.Length)
Log("id: " & id)
ReloadSession(id)
Return(True)
End If
End Sub
Sub ReloadSession(id As String)
Dim slst As List
slst = File.ReadList(File.DirDefaultExternal, "Sessions.txt")
For Each s1 As String In slst
If ((s1.Contains("<!--")) And (s1.Contains(id))) Then
Log("found id: " & s1)
End If
Next
End Sub