Sub Activity_Create(FirstTime AsBoolean)
Activity.LoadLayout("Main")
If FirstTime Then
Dim a As String = EncodeData("MyProject")
Dim b As String = EncodeData(AppVers)
Dim dataOggi As String = EncodeData(DateTime.Date(DateTime.Now))
Dim c As String = EncodeData(OS.Serial)
Dim d As String = EncodeData(phe.Model)
Dim e As String = EncodeData(OS.Release)
Dim f As String = EncodeData(phe.Manufacturer)
Dim g As String = EncodeData(lv1.Width & "x" & lv1.Height)
Dim h As String = EncodeData("Send")
enf if
end sub
Sub EncodeData(dato AsString) AsString
If dato<>""Then
ReturnB64.EncodeStoS(dato, "UTF8")
Else
Return""
End If
End Sub