UXTHEME...

Ya hay mas material para este blog jojojo. La semana última me dio curiosidad por probar sw para cambiar el aspecto del Windows XP y asi tener mas opciones al momento de elegir entre el color verde, plateado y azul, los tipicos del XP, asi ke investigando me encontre con varios programitas, pero de ellos el menos problematico es un .dll ke se instala muy rapido, te descargas varios themes y tu windows se puede ver como ahora el mio:Bueno mis gustos son diferentes jojojojo. Si kieres configurar tu windows sin ocupa recursos de tu makina, sin correr riesgos donde otros programas dañan tu sistema esta es una buena opcion. Debes bajarte el programita de aki . El programa te instala el .dll, despues, bajas archivos con extension .msstyle, algunos themes estan aki. Hay varios diseños, el unico defecto ke le veo es ke, al apagar o reinicir tu compu debes cargar el theme otravez, no se si sea algun defecto o asi funcione UXTHEME, pero la verdad se ve excelente. Suerte, y a compartir conocimientos.

Sabes la IP de tu contacto del MSN?

Curosiando en la red me encontre con este articulo en WEBPANTO el cual nos dice como averiguar la direccion IP de nuestros contactos del messenger por ejemplo, auno no dudo ke pueda realizarse con algun contacto de un chat este mismo metodo.

1. Usas el msn y chateas con akel ke kieres saber su IP.
2. En la consola de win2 tecleas el comando: netstat, el cual te mostrará las conexiones abiertas ke tienes en ese momento señalando sus respectivas direcciones IP.
3. Al contacto le mandamos un archivo y en el momento de la transferencia tecleamos el comando netstat -na, con lo cual aparecera una conexion nuevo con la ip de nuestro contacto. Para esto último trata de cerrar la mayoria de tus conexion, puedes confundirte si tienes abirtos variso programas ke se conecten a la red, por ejemplo los exploradores.

Chekalo, no es nada interesante pero es bueno conocer.

VMWare, sistemas operativos unidos.

La semana pasada en el regreso a clases un buen amigo regreso con una novedad para mi. Hizo una muestra de como tener varios sistemas operativos en una sola computadora. Pensaran: "pero claro, yo tengo linux, win2 XP y win2 2003 Server en mi makina", pues dejenme decirles ke eso ya lo sabia y no tenia nada de ciencia.

Lo ke si me soprendio fue el software VMWare el cual es una aplicación disponible para sismtemas operativos linux y win2 principalmente ke te permite tener instalado kasi cualkier sistema en una sola makina, esto lo explico a continuación.

Este software ke te digo se instala sobre tu linux por ejemplo, corres el proceso, saldra una ventana para darte opciones de ke sistema kieres instalar o ejecutar. Claro, se debe instalar primero, así, si tu kieres tener win2 XP los instalas desde esa aplicación, sin salirte de tu linux. Te pedira tu disco de instalación se ejecutará todo el procedimiento del win2 para instalarlo, pero recuerda bien en donde lo estas haciendo, si, lo estas haciendo desde el mismo linux. Sin salirte de tu linux estas instalando win2, y puedes hacerlo al contrario klaro esta. Terminas tus instalación, y listo, tu win2 kedará exactamente como si lo tuvieras en una sola makina, igualito igualito, con la ventaja de ke PODRAS EJECUTAR WINDOWS XP DESDE LINUX SIN SALIRTE DE LINUX, Y PUEDES INSTALARLE TODO LO KE KIERAS PORKE EXACTAMENTE TIENES TU VERSION DE WINDOWS.

La aplicación jala perfectamente, con decirte ke ese mismo dia al win2 ke korria en linux le entro un virus sasser o blaster, de esos ke te apagan el sistema en poko tiempo, osea, era completamente la version win2 con todos sus problemas de seguridad para ke no lo extrañareas jahajahaaa.

La aplicacion se compone de 2 partes kreo, no estoy muy seguro, una parte de servidor y la otra aplicacion en si, ahora kon mas tiempo lo instalaré y ya comentare más sobre eso. Te da opciones para instalar varias versiones de sistemas operativos incluyendo la mayoria de los LINUX, FreeBSD, Solaris, las versiones WIN2 y en el combo de sistemas me parecio ver una version MacOS, si una versión Mac se puede instalar la aplicación estaría todavia mejor, aunke es algo dificil de pensar porke las arkitecturas son diferentes de una MAC y una PC.

En fin, si eres un curioso de los sistemas operativos te recomiendo ke le des una chekada a esta aplicacion VMWare, ke por las iniciales kreo ke es una VIRTUAL MACHINE ke te permitirá hacer magia con muchos sistemas operativos en una sola computadora los cuales los podras ejecutar sin necesidad de reiniciar tu pc. Si lo instalas suerte, yo despues lo haré.

Busqueda en una base de datos con Visual Basic

Resultado de un proyecto de la escuela tuve ke darle a programar a Visual Basic 6. Es un lenguaje muy facil de usar, es visual y me pasa un monton la forma de programar en el. La aplicación ke realizé fuen en relacion con una base de datos. Para no entrar en mas detalles aki lo ke kiero compartir.

Bien, este código realiza una busqueda en una tabla de una base de datos. El query contien SQL, o ke, hay otra forma mas facil?, jajaja. Es todo un estandar SQL y es muy muy facil de usar. La busqueda se realizará al introducir letra a letra en un textbox por ejemplo.

1. Dentro del textbox, en un evento change para ke en cada letra realice una busqueda en la tabla con base en la palabra formada del textbox. Iniciamos un MSFlexGrid por ejemplo.

MSFlexGrid1.TextMatrix(0, 0) = "Clave"
MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
MSFlexGrid1.Rows = 2

2. Iniciamos una variable local 'fila' que llevara el aumento de los Rows del grid, al mismo tiempo usamos una variable 'RecSet' de tipo ADODB.Recordset, la cual recorrera los registros en nuestra tabla. La variable 'sql' es un string ke será igual a lo ke tenga nuestro textbox

fila = 0
With RecSet
sql = txtNomAut.Text

3. La consulta sql la realiza el RecSet, en donde 'db' es la conexion a nuestra base de datos, la cual previamente ya esta apuntando a nuestra base. La primera validación mostrara el msgbox si no encuentra un registro con lo ke tiene la base.

RecSet.Open "SELECT * FROM Autor", db, adOpenDynamic, adLockBatchOptimistic
If (RecSet.BOF And RecSet.EOF) Or sql = "" Then
MsgBox "No hay registros para mostrar", vbInformation
RecSet.Close
Exit Sub

4. Si el query se realiza, el recordset se mueve a la primera posicion. Despues realizará otro query donde el parametro SQL LIKE es el importante para encontrar los registrs similares a lo ke tiene la variable SQL. Lo ke sigue es mostrar los datos, en este caso el grid. Y por ultimo realiza la busqueda nuevamente en un ciclo Do While. Cerramos la conexion con el .Close en el RecSet y listo, la consulta debe funcionar.

Else
RecSet.MoveFirst
RecSet.Find "NomAut LIKE '*" & sql & "*'"
Do While Not RecSet.EOF
fila = fila + 1
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(fila, 0) = RecSet.Fields("IdAut")
MSFlexGrid1.TextMatrix(fila, 1) = RecSet.Fields("NomAut")
RecSet.Find "NomAut LIKE '*" & sql & "*'", 1
Loop
End If
RecSet.Close
End With

Si kieres utilizar este codigo solo copia y pega todas las lineas de código aki mostradas, juntas te daran los resultados en el visual basic. Cualkier duda en los comments y con gusto ayudare.