Sub Process_Globals
Dim sf As StringFunctions
sf.Initialize
End Sub
Sub JobDone (Job As HttpJob) 'Aqui baixa as informações exibidas do site e tras para o app
If Job.Success = True Then
ProgressDialogHide
Select Job.JobName
Case "Job1"
Dim cass As String
Dim ssss As String
'Log(Job)
cass = Job.GetString
ssss =sf.MidExtract(cass,"<p>nome=", "</p>")
WebView1.StopLoading
WebView1.Visible = False
Msgbox(ssss, "teste")
End Select
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub