El pasado 20 de Mayo de 2011 se celebraron los 20 años de lanzamiento de Microsoft Visual Basic, herramienta de programación que dio acceso a todos aquellos desarroladores de la epoca al nuevo entorno GUI, utilizando el lenguaje ya muy difundido Basic, su desarrollo estuvo a cargo de Alan Cooper, guru de la creacion de Software en Microsoft. Celebramos este aniversario dado la importancia de que tiene este lenguaje en el aprendizaje y los inicios de muchos programadores. Podemos ver la presentación del Key Note 91 a cargo de Bill Gates donde muestra el nuevo lenguaje:

Fuente:http://blogs.msdn.com/b/vbteam/archive/2011/05/20/happy-20th-birthday-visual-basic.aspx

http://msdn.microsoft.com/es-mx/vbasic/ff575742

Un regalito para los asiduos a Access VBA, cuesta conseguir este codigo pero al final nos damos cuenta que no es nada complicado. Al presionar un boton nos crea una consulta utilizando los parametros que le demos en la variable strQSL, pero primero cerciora que la consulta no este creada, si lo esta lo borra. Cualquier duda o comentario….

‘———————————
Private Sub cmdConsulta_Click()
On Error GoTo Err_cmdConsulta_Click

Dim qdfNew As DAO.QueryDef
Dim strSQL As String

If Len(Nz(DLookup(“Name”, “msysobjects”, _
“type=5 and Name= ‘MiConsulta’”), “”)) <> 0 Then
DoCmd.DeleteObject acQuery, “MiConsulta”
End If

strSQL = “SELECT codigo,nombre,direccion,telefono ” & _
“FROM dbo_Integrantes ” & _
“WHERE codigo>= 76306;”

Set qdfNew = CurrentDb.CreateQueryDef(“MiConsulta”, strSQL)
DoCmd.OpenQuery “MiConsulta”, acNormal, acEdit

Set MiConsulta = Nothing

Exit_cmdConsulta_Click:
Exit Sub

Err_cmdConsulta_Click:
MsgBox Err.Description
Resume Exit_cmdConsulta_Click

End Sub
‘———————————

Mi consulta era mas complicada, esta es basica para que de alli vayan ampliando la estructura de la misma, pueden ver la que use en: http://pastebin.com/cie6ciyZ

*** Si te ha sido de provecho este articulo puedes transmitir tu agradecimiento haciendo click en los anuncios google que sen encuentra del lado derecho de la pantalla ***

La Empresa de Desarrollo Nirsoft nos devela el codigo fuente en Visual Basic para realizar un develador de contraseña para archivos MDB de Access 95/97. Imperdible para probar y Analizar. Debes saber que tienes que analizar el codigo y colocar los objetos correspondientes necesarios: Botones (cmd_Browse, cmd_Exit, cmd_GetPassword) y Cajas de texto (txt_Password, txt_Filename). Cualquier duda deja tu comentario. Si tu nivel de conocimiento de Vbasic es muy bajo ¡Pide Ayuda!!!!.

'Access 95/97 Password Revealer
'Copyright (c) Nir Sofer 2002
'
'Web site: http://nirsoft.mirrorz.com
'
'This small utility instantly recovers the database password of
'Microsoft Access files (mdb files)
'It works only with Access 95 or 97.
'

Private Function XorPassword(Bytes As Variant) As String
    Dim XorBytes()      As Variant
    Dim strPassword     As String
    Dim intIndex        As Integer
    Dim CurrChar        As String * 1

    XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28, _
&HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
    strPassword = vbNullString
    intIndex = 0

    Do

	'Get a character from the password by doing a XOR with the
	'appropriate value in XorBytes array.
        CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex))
        'If we get a Null character, get out of the loop.
        If Asc(CurrChar) = 0 Then Exit Do
        'Add the password character to the accumulated password string.
        strPassword = strPassword & CurrChar
        intIndex = intIndex + 1
    Loop Until intIndex = 17

    XorPassword = strPassword
End Function

Private Function GetAccessPassword(strFilename As String) As String
    Dim intFileNum      As Integer
    Dim Bytes(&H100)    As Byte

    intFileNum = FreeFile
    'Open the Access filename
    Open strFilename For Binary As #intFileNum

    'Read first 256 bytes
    Get #intFileNum, , Bytes

    'Get the password from the XorPassword function
    GetAccessPassword = XorPassword(Bytes)
    Close #intFileNum
End Function

Private Sub cmdBrowse_Click()
    On Error GoTo canceled
    OpenDialog.Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNHideReadOnly
    OpenDialog.ShowOpen
    txtFilename.Text = OpenDialog.FileName
    Exit Sub
canceled:
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdGetPassword_Click()
    Dim strFilename     As String

    strFilename = Trim$(txtFilename.Text)
    If Len(strFilename) = 0 Then
        MsgBox "You must select a filename !", vbOKOnly Or vbInformation
    ElseIf Len(Dir(strFilename)) = 0 Then
        MsgBox "The filename does not exist !", vbOKOnly Or vbInformation
    Else
        txtPassword.Text = GetAccessPassword(strFilename)
    End If
End Sub

----------------------------------------------------------
Fuente: http://www.nirsoft.net/vb/accpass.html

Este articulo muestra como agregar un poco de vistosidad a tu aplicación de VB.net. En lugar de mustrar un cursor aburrido y estatico durante las operaciones de espera tu puedes mostrar un llamatico cursor animado.
La clave aqui es que a partir de .net 1.1; la clase Cursores no admite archivos .ani es decir cursores animados o cursores con otros colores que no sean blanco y negro.  Por lo tanto necesitamos utilizar la función LoadCursorFromFile que se encuentra incorporada a las librerias windows dll; user32.dll

Paso 1: Agregamos una nueva clase al Windows Forms application. Lo llamamos  ‘CursorClass’. Agregale el siguiente codigo:

Paso 2: Durante una operación de espera como la creación de un reporte o la busqueda en una base de datos grande, simplemente agrega este codigo:

Fuente: http://www.dotnetmaniac.info/ArticleViewer.aspx?Key={b5878750-5975-48bc-825c-54b494d45145}

Muchas veces por seguridad es conveniente evitar que abran el Administrador de Tareas, para hacer esto el usuario utiliza la combinación de teclas Alt+Ctrl+Supr. Para deshabilitar hay que ingresar al registro de Windows:

Haga click en Inicio luego en Ejecutar

Una vez alli escriba  Regedit y presione enter

Busque la entrada:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr

Una Vez alli Cambie el valor 1 por 0 esto deshabilitara la apertura del Administrador de Tareas.

Tambien podemos elaborar un programa en Visual Basic 6 que realice esta operación,  solo debemos crear un formulario con 2 botones de comando y escribir el siguiente codigo:

Option Explicit

‘ Rama del registro para deshabilitar y habilitar el TaskManager de XP
””””””””””””””””””””””””””””””””””””
Private Const RAMA_REGISTRO As String = _
“HKEY_CURRENT_USER\Software\” & _
“Microsoft\Windows\CurrentVer” & _
“sion\Policies\System\DisableTaskmgr”

Private Sub Grabar_Registro(Rama As String, Value As Integer)

Dim wsh As Object
On Error GoTo error_sub

‘creamos la variable para usar wsh
Set wsh = CreateObject(“wscript.shell”)

‘Grabamos el valor en el registro con el método regWrite _
de windows script host
wsh.RegWrite Rama, Value, “REG_DWORD”

‘Eliminamos la variable wsh creada
Set wsh = Nothing

Exit Sub

‘ Error
error_sub:
MsgBox Err.Description: Resume Next
End Sub

‘BOTON PARA Desactivar las teclas
””””””””””””””””””””””
Private Sub Command1_Click()
Grabar_Registro RAMA_REGISTRO, “1″
End Sub

‘BOTON PARA Activar Ctrl+Alt+Sup
””””””””””””””””””””””
Private Sub Command2_Click()
Grabar_Registro RAMA_REGISTRO, “0″
End Sub

Private Sub Form_Load()
Command1.Caption = “ Desactivar ”
Command2.Caption = “ Activar ”
End Sub

Fuente http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/20.htm

Excelente argumentación del maestro Lluis Franco (MVP Visual Developer) sobre la ventaja de C# sobre Visual Basic, basado en 10 caracteristicas descritas con ejemplos. Imperdible como todos sus los articulos:

http://geeks.ms/blogs/lfranco/archive/2008/12/23/10-cosas-que-me-gustan-de-c-respecto-a-vb.aspx

Antes que todo, para evitar confusiones, es necesario aclarar que el código de Gambas no es compatible con Visual Basic. Gambas es un lenguaje derivado de BASIC (con ciertas extensiones para hacerlo orientado a objetos) y a la vez es un IDE para programar en Linux aplicaciones RAD de forma sencilla como lo haces en Visual Basic para Windows.

Con Gambas puedes, tal cual lo haces en Visual Basic, crear formularios (ventanas), botones de comandos, cuadros de texto e inclusive conectar a bases de datos (MySQL, SQLite o PostgreSQL)

La instalación de Gambas en Debian/Ubuntu es la clásica:

$ sudo aptitude install gambas2

Si deseas agregar algunos componentes para aumentar la funcionalidad del entorno de desarrollo, puedes ver un listado de los mismos ejecutando:

$ apt-cache search gambas

Fuente: Ubuntulife

'Password Revealer
'Copyright (c) 2002 Nir Sofer
'Web site: http://nirsoft.mirrorz.com
'
'The following code sample scans all opened windows, and reveals the passwords
'behind the password text-boxes (with asterisks '***').
'This code sample works properly only on Windows 95/98/ME/NT. It doesn't work on Windows 2000/XP.
'

Public Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Type MSG
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const ES_PASSWORD = &H20&
Public Const EM_SETPASSWORDCHAR = &HCC

Public Declare Function InvalidateRect Lib "user32" _
(ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
Public Declare Function UpdateWindow Lib "user32" _
(ByVal hwnd As Long) As Long


Public Function EnumChildWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    If (GetWindowLong(hwnd, GWL_STYLE) And ES_PASSWORD) <> 0 Then
        'Clear the password character
        SendMessage hwnd, EM_SETPASSWORDCHAR, 0, 0
        'Repaint the window
        InvalidateRect hwnd, ByVal 0, 0
        UpdateWindow hwnd
    End If
    EnumChildWindowsProc = 1
End Function

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    'Enumerating all child windows.
    EnumChildWindows hwnd, AddressOf EnumChildWindowsProc, 0
    EnumWindowsProc = 1
End Function

Public Sub EnumPasswords()
    'Enumerating all top-level windows.
    EnumWindows AddressOf EnumWindowsProc, 0
End Sub

Si quieres Bajarte el proyecto lo puedes hacer desde aqui: http://www.nirsoft.net/vb/passrev.zip