Sub Process_Globals
Dim hc As HttpClient
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
hc.Initialize("hc")
End If
Dim post As HttpRequest
Dim payload As String
payload = "username=" & editUser.Text & "&password=" & editPass.Text
post.InitializePost2("http://192...", payload.GetBytes("UTF8"))
hc.Execute(post, 1)
End Sub