Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim sys
'[URL unfurl="true"]http://www.jsware.net/jsware/scripts.php3[/URL]
Set sys = CreateObject("JSSys3.Ops")
v = Sys.GetOpenWindowTitles(a)
If v > 0 Then
For i = 0 To UBound(a)
s = s & vbcrlf & a(i)
Next
msgbox s
End if