Aventura en Bogota

Tuve la oportunidad recientemente de conocer la ciudad de Bogota, y debo decir que es un lugar precioso, el centro de Bogota es muy antiguo pero con construcciones bien restauradas, y la ciudad es increiblemente limpia, fui por motivos de trabajo lo que no me permitio conocer mucho, pero lo poco que pude conocer me gusto. Me sigo quedando con la Antigua pero con Bogota si hay competencia. Por cierto la idea del trasmetro en Guatemala fue tomado del Transmilenio de Bogota, eso si, como se puede ver en la fotografia hay una gran diferencia. Por cierto algo que olvidaba mencionar, casi todas las construcciones e inclusive los edificios son de ladrillo, entonces la ciudad se ve completamente naranja......

Como obtener la informacion del Disco Duro

Muchas veces nos es útil obtener información del Disco Duro por ejemplo para el control de licencias, una vez obtenido ésto podemos encriptar o manipular esa información para que nos sirva de comprobación de piratería :)

articulo original aqui

Se hace una Clase DiscoDuro.vb que será nuestra clase especializada

Public Class DiscoDuro
Private _Modelo As String
Private _Tipo As String

Private _Serial As String

'Propiedad para Manejar el Modelo del Disco
Public Property Modelo() As String

Get
'Retorna el Modelo del Diso Duro
Return _Modelo
End Get
Set(ByVal value As String)
'Asigna el Modelo del Disco Duro

_Modelo = value
End Set
End Property

'Propiedad para Manejar el Tipo del Disco

Public Property Tipo() As String
Get
'Retorna el Tipo del Diso Duro
Return _Tipo
End Get

Set(ByVal value As String)
'Asigna el Tipo del Disco Duro
_Tipo = value

End Set
End Property

'Propiedad para Manejar el Serial del Disco
Public Property Serial() As String

Get
'Retorna el Serial del Diso Duro
Return _Serial
End Get
Set(ByVal value As String)
'Asigna el Serial del Disco Duro

_Serial = value
End Set
End Property

End Class

Y el codigo para utilizarla seria asi

'Importamos el namespace System.Management para Accesar al Windows Management Instrumentation
Imports System.Management

Public Class Form1
'Declaramos una coleccion del tipo ArrayList
Dim hdLista As New ArrayList

'En el evento Load escribiremos el codigo para obtener la informacion

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'Creamos ahora un objeto ManagementObjectSearcher y agregaremos la cadena de seleccion

'para obtener de la clase Win32_DiskDrive
' la Informacion del modelo y el tipo del Disco Duro
Dim BuscardorWMI As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

For Each wmi_HD As ManagementObject In BuscardorWMI.Get

'creamos un objeto del tipo DiscoDuro
Dim Hd As New DiscoDuro
'asignamos el valor del Modelo obtenido de la consulta
' en la propiedad Modelo del objeto Hd
Hd.Modelo = wmi_HD("Model").ToString
'asignamos el valor del Tipo obtenido de la consulta

' en la propiedad Modelo del objeto Hd
Hd.Tipo = wmi_HD("InterfaceType").ToString
'y Finalmente agregamos dicho objeto Hd al ArrayList que creamos
hdLista.Add(Hd)
Next


'Creamos ahora una nueva instancia del objeto que habiamos
' creado del tipo ManagementObjectSearcher
'y agregaremos la cadena de seleccion para obtener de la clase Win32_PhysicalMedia
' los seriales internos
'de los Discos Duros que hallamos encontrado en el ciclo anterior
BuscardorWMI = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
'Deifinimos a i como un contador para manejar el ArrayList

Dim i As Integer = 0

For Each wmi_HD As ManagementObject In BuscardorWMI.Get

'Indica continuar con el ciclo mientras que i sea menor que
' la cantidad de discos encontrados
If i < hdLista.Count - 1 Then
'creamos un nuevo objeto del Tipo DiscoDuro para ir almacenando alli
'cada uno de los discos duros encontrados

Dim hd As New DiscoDuro
'asignamos el valor acutalde la lista en el objeto HD
hd = hdLista(i)
'debemos verificar que el valor del campo "SerialNumber" obtenido en la busqueda
'no sea un valor nulo de lo contrario

'la aplicacion arrojará una excepcion
If wmi_HD("SerialNumber").ToString = Nothing Then
'en el caso de que se halla encontrado el serial la propiedad "Serial" del
' objeto hd se guardará los siguiente:

hd.Serial = "No se Pudo Obtener El Serial"
Else
'en el caso contrario almacenaremos el numero de serial interno
'del disco duro en la propiedad "Serial" del objeto hd
hd.Serial = wmi_HD("SerialNumber").ToString
End If

'incrementando i
i += 1
End If
Next

'aqui coloco una manera de mostrarlo ustedes pueden escoger la que mejor les paresca
For Each hd As DiscoDuro In hdLista
'por cuestiones de tiempo yo escogí usar un MessageBox

MessageBox.Show(hd.Modelo & vbCrLf & hd.Tipo & vbCrLf & hd.Serial)
Next

End Sub

End Class

Un mes utilizando Windows Vista

Ya tengo un mes utilizando Windows Vista, y tengo mis observaciones (post orientado a usuario general, mas adelante pondré como me fué con las herramientas de desarrollo)



1) PRO: la apariencia Grafica que brinda el Tema Aero, es hermosa, con transparencias, brillos, efectos 3D, se nota en realidad una gran diferencia con windows XP.




2) CONTRA: eh aqui una imagen de mi monitor de proceso con el equipo recién iniciado.
Con solo entrar a Windows Vista ya tengo 1.4Gb. de memoria ocupados.





3) PRO: las busquedas y la indexacion de documentos y contenidos, permite encontrar cualquier documento ya sea por nombre, por contenido o por referencias...muy buena.









4) CONTRA: Aplicaciones, nada funciona al 100% todo es incompatible, tengo problemas en casi todas las aplicaciones instaladas. Sin embargo tambien hay truco y parches para casi todo.


En resumen Windows vista tiene sus incompatibilidades y un enorme consumo de recursos, entonces si la apariencia es muy importante pues prefiero un windows XP con algun programa de temas, y si la estabilidad lo es, pues no se, la pantalla de errores de windows Vista ahora es verde con azul eso si. Muy bonita, al final prefiero Windows Xp que Windows Vista. Eso sin mencionar que los Widgets, transparencias, efectos 3D y brillos estan en Linux y MacOSX desde hace casi 2 años.

La proxima versión de SQL Server

Aquí un adelanto.

mmmmm....

Hay gente que conquista medio mundo, pero valora mas la mitad que no tiene