Sub Button2_Click
rellenausuarios1
End Sub
Sub Button3_Click
Activity.Finish
End Sub
Sub Button4_Click
rellenausuarios
End Sub
Sub rellenausuarios
Dim nom As String=edittext1.Text
Dim pass As String=edittext2.Text
' ExecuteRemoteQuery("INSERT INTO usuarios (nombre,pwd,esadmin) VALUES ('"&EditText1.Text&"','"&EditText2.Text&"','"&esadmin&"')",1)
ExecuteRemoteQuery("http://xxx.xxx.es/xxx/xxx.php?tipo=2&nombre="&nom&"&pwd="&pass&"&esadmin="&esadmin, 1)
End Sub
Sub rellenausuarios1
Dim nom As String=edittext1.Text
Dim pass As String=edittext2.Text
' ExecuteRemoteQuery("INSERT INTO usuarios (nombre,pwd,esadmin) VALUES ('"&EditText1.Text&"','"&EditText2.Text&"','"&esadmin&"')",1)
ExecuteRemoteQuery("http://xx.xx.xx/xx/xx.php?tipo=2&nombre="&nom, 1)
End Sub
Sub ExecuteRemoteQuery(Query As String, TaskId As Int)
Dim req As HttpRequest
req.InitializePost2(Query, Query.GetBytes("UTF8"))
' Msgbox(Query,"")
hc.Initialize("hc")
hc.Execute(req, TaskId)
ProgressDialogShow("Subiendo datos")
Log(Query)
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
' Log("My response is successful")
'Msgbox("OK","")
' do some other stuff here
ProgressDialogHide
ToastMessageShow("OK",False)
'Activity.Finish
'StartService(control)
End Sub