Italian Parsing HTML

[giammy]

salve devo analizzare dei dati provenienti da un mio web server, ho utilizzato HttpUtils ecco il codice:

Sub Globals
Dim b4a As String
b4a = "http://www.b4x.com"
End Sub

Sub Activity_Create (FirstTime As Boolean)
HttpUtils.CallbackActivity = "Main" 'Current activity name.
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.Download("Job1", b4a)
End Sub

Sub JobDone (Job As String)
Dim s As String
If HttpUtils.IsSuccess(b4a) Then
s = HttpUtils.GetString(b4a)
End If
End Sub

riesco ad ottenere la stringa con i dati all'avvio dell'applicazione, però non riesco ad aggiornare i dati successivamente.

Mi sapete dire come modificare il codice per aggiornare ogni volta che premo un pulsante la stringa????

 

[giammy]

risolto

salve a tutti ho risolto in questo modo, posto il codice nel caso servisse a qualcuno. saluti

'Activity module
Sub Process_Globals

Dim Url As String
Dim HttpClient1 As HttpClient

Url = "http://192.168.1.106/?"
End Sub

Sub Globals
Dim Button1 As Button
Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
HttpClient1.Initialize("http")
End If

Activity.LoadLayout("http2")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
Dim HttpResponse1 As HttpResponse
Dim request As HttpRequest

Label1.Text=""
request.InitializeGet(Url)
request.Timeout=30000
If HttpClient1.Execute(request, 1) = False Then Return

End Sub