Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
    
' Esta biblioteca obtiene datos del sistema operativo

' No están recogidas estas obciones de kill

'killBackgroundProcesses (packageName As String)
'
'Have the system immediately kill all background processes associated with the given package.
'packageName:
'killProcess (pid As Int)
'
'Kill the process with the given PID.
End Sub

Sub Globals
    ' Crearemos 9 botones.
    Dim Buttons(5,4) As Button
    
    ' Crearemos 1 etiqueta (Label)
    Dim etiqueta As Label
    Dim ListView1 As ListView
    
    Dim OS As OperatingSystem
    Dim informacion As String
    Dim numero_boton As Int
    
    Dim lstname,lstpid, lstnamepid, lstret As List
    Dim lstnameserv, lstpidserv, lstnamepidserv, lstretserv As List
    Dim lstnametar, lstpidtar, lstnamepidtar, lstrettar As List
    
    Dim linea As String
    Dim OS As OperatingSystem
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
   
    Dim ancho, alto, offsetY As Int
    ancho = 60dip
    alto = 30dip
    For y =1 To 2
        For x = 1 To 4
        numero_boton = numero_boton + 1
            Dim b As Button
            b.Initialize("Button") 
            b.TextSize = 8
            b.Text = numero_boton
            b.Tag = numero_boton
            Activity.AddView(b, -80 + x * (ancho + 10dip), -40 + y * (alto + 10dip), ancho, alto)
            Buttons(x,y) = b 
        Next
    Next
    
    ' Los View cuando se crean en el código hay que 
    ' Iniciarlos y luego Añadirlos al Activiy
    etiqueta.Initialize("etiqueta")
    etiqueta.TextSize = 12
    etiqueta.TextColor = Colors.White
    etiqueta.Color = Colors.Black
    Activity.AddView(Etiqueta, 20dip, 80dip, 300dip, 400dip)
    
    ListView1.Initialize("ListView1")
    ListView1.Color=Colors.Blue
    ListView1.Visible=False
    Activity.AddView(ListView1, 10, 200, 100%x, 80%y)
    
    
    OS.Initialize("OS")
     
    lstname.Initialize ' Nombre de los Procesos
    lstpid.Initialize  ' PID de los Procesos
    lstnamepid.Initialize
    lstret=OS.RunningAppProcessInfo(lstname,lstpid,lstnamepid)
    
    lstnameserv.Initialize ' Nombre de los Servicios
    lstpidserv.Initialize  ' PID de los Servicios
    lstnamepidserv.Initialize
    lstretserv=OS.RunningServiceInfo(10, lstnameserv,lstpidserv,lstnamepidserv)
    
    lstnametar.Initialize ' Número de las Tareas
    lstpidtar.Initialize  ' Número de actividades de las tareas
    lstnamepidtar.Initialize
    lstrettar=OS.RunningTaskInfo(10, lstnametar,lstpidtar,lstnamepidtar)
    

End Sub
Sub Activity_Resume
    
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    
End Sub

Sub Button_Click
    Dim b As Button
    b = Sender
    
    Select b.Tag
Case 1
 ListView1.Visible=False
 informacion = "Memoria interna disponible = " & OS.AvailableInternalMemorySize & CRLF & _
 "Memoria externa disponible = " & OS.AvailableExternalMemorySize & CRLF & _
 "Memoria disponible = " & OS.AvailableMemory & CRLF & _
 "Nivel de bateria = " & OS.BatteryLevel & CRLF & _
 "Placa = " & OS.Bootloader & CRLF & _
 "Bootloader = " & OS.Bootloader & CRLF & _
 "Software personalizado = " & OS.Brand & CRLF & _
 "Uso de la CPU = " & OS.calculateCPUusage & CRLF & _
 "Nombre del código = " & OS.Codename & CRLF & _
 "Densidad de pantalla = " & OS.density & CRLF & _
 "Densidad dpi = " & OS.densityDpi & CRLF & _
 "Dispositivo = " & OS.Device & CRLF & _
 "Display = " & OS.Display & CRLF & _
 "Tiempo de este proceso = " & OS.ElaspedCPUTime & CRLF & _
 "Memoria externa disponible " & OS.externalMemoryAvailable & CRLF & _
 "Huella = " & OS.Fingerprint & CRLF & _
 "Bloques disponibles = " & OS.getAvailableBlocks("/data") & CRLF & _
 "Tareas recientes = " & OS.getRecentTasks(2,3)

 etiqueta.Text = informacion
Case 2
 ListView1.Visible=False
 informacion = "Servicios = " & OS.getRunningServices(1) & CRLF & _
 "Tareas = " & OS.getRunningTasks(1) & CRLF & _
 "Hardware = " & OS.Hardware & CRLF & _
 "Altura en pixel = " & OS.heightPixels & CRLF & _
 "Host = " & OS.Host & CRLF & _
 "Identificador = " & OS.ID  & CRLF & _
 "Incremental = " & OS.Incremental & CRLF & _
 "Manufarurador = " & OS.Manufacturer & CRLF & _
 "Modelo = " & OS.Model & CRLF & _
 "Mi PID = " & OS.myPid & CRLF & _
 "Mi UID = " & OS.myUid & CRLF & _
 "OS = " & OS.OS & CRLF & _
 "Altura Pantalla = " & OS.physicalScreenHeight & CRLF & _
 "Anchura Pantalla = " & OS.physicalScreenWidth & CRLF & _
 "Producto = " & OS.Product & CRLF & _
 "Radio = " & OS.Radio

  etiqueta.Text = informacion
Case 3
 ListView1.Visible=False
 informacion = "Liberar = " & OS.Release & CRLF & _
 "SDK = " & OS.SDK & CRLF & _
 "Bajo de memoria = " & OS.Tags & CRLF & _
 "Tags = " & OS.Tags & CRLF & _ 
 "Umbral de memoria = " & OS.Threshold & CRLF & _
 "Time = " & OS.Time & CRLF & _
 "Memoria externa total = " & OS.TotalExternalMemorySize & CRLF & _
 "Memoria interna total = " & OS.TotalInternalMemorySize & CRLF & _
 "Usuario = " & OS.User & CRLF & _
 "Ancho en pixel = " & OS.widthPixels & CRLF & _
 "Pixel/Pulgada H = " & OS.xdpi & CRLF & _
 "Pixel/Pulgada V = " & OS.ydpi & CRLF & _
 "Infor. CPU = " & OS.ReadCPUinfo
 
  etiqueta.Text = informacion
Case 4
    ListView1.Clear
    For i = 0 To lstname.Size - 1
    linea = lstname.Get(i) & " (" & lstpid.Get(i) & ")"
    ListView1.AddSingleLine(linea) ' Escribe los procesos en el ListView1
    Next

    ListView1.Visible=True

 
   etiqueta.Text = "Listado de Procesos"
Case 5
    ListView1.Clear
    For i = 0 To lstnameserv.Size - 1
    linea = lstnameserv.Get(i) & " (" & lstpidserv.Get(i) & ")"
    ListView1.AddSingleLine(linea) ' Escribe en el ListView1
    Next

    ListView1.Visible=True

 
   etiqueta.Text = "Listado de Servicios"
Case 6
    ListView1.Clear
    For i = 0 To lstnametar.Size - 1
    linea = lstnametar.Get(i) & " (" & lstpidtar.Get(i) & ")"
    ListView1.AddSingleLine(linea) ' Escribe en el ListView1
    Next

    ListView1.Visible=True

 
   etiqueta.Text = "Listado de PID de Tareas"
Case 7

    ListView1.Visible=False

   etiqueta.Text = "Nada"
Case 6
    ListView1.Visible=False
 
   etiqueta.Text = "Nada"
Case Else

   etiqueta.Text = "Nada"
End Select
    
   
    
End Sub