Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim j As HttpJob
j.Initialize("j", Me)
j.Download("http://www.rsn.it/")
End Sub
Sub JobDone(j As HttpJob)
If j.Success Then
Dim m As Matcher = Regex.Matcher2("<meta [^>]+charset=([^""]+)", Regex.CASE_INSENSITIVE, j.GetString)
Dim charset As String = "utf8"
If m.find Then
charset = m.Group(1)
Log("Found charset: " & charset)
End If
Log(j.GetString2(charset))
End If
j.Release
End Sub