Propagación de enlace o texto por MSN con Visual Basic 6.0

Hace algun tiempo investigué como propagar un mensaje con algun enlace de manera automática a todos los contactos de nuestro messenger que esten en linea.

Aqui les muestro el código:

Public WithEvents msn As MessengerAPI.Messenger ‘ llamada a la libreria MSN
Public Sub manda()
            SendKeys “hey como estas” ‘mensaje a enviar
            SendKeys “{ENTER}” ‘envia
End Sub
Public Sub EventPause(sngSeconds As Single)
    Dim dblTotal As Double, dblDateCounter As Double, sngStart As Single
    Dim dblReset As Double, sngTotalSecs As Single, intTemp As Integer
        dblDateCounter = ((Year(Date) + Month(Date) + Day(Date)) _
          & 0 & 0 & 0 & 0 & 0)
        sngStart = Timer
        sngTotalSecs = (sngStart + sngSeconds)
        intTemp = (sngTotalSecs \ 86400)   ‘// Return the integer portion only
        dblReset = (intTemp * 100000) + (sngTotalSecs - (intTemp * 86400))
        dblTotal = dblDateCounter + dblReset
    Do
        DoEvents
    Loop While (dblDateCounter + Timer) < dblTotal
   
End Sub
Public Sub send()
Set msn = New MessengerAPI.Messenger
     For Each user In msn.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
            If user.Blocked = False Then ‘ si el contacto no esta bloqueado
            Set venta = msn.InstantMessage(user)
            manda ‘ llama a la funcion manda()
            SendKeys “%Z” ‘zumbido
            SendKeys “{ESC}” ‘cierra ventana
            EventPause (2) ‘pausa evento para proximo envio 2 segundos
            End If
        End If
    Next

Set MsgrUIA = Nothing
End Sub
Private Sub Timer1_Timer()
send
End Sub 

Nota: Deberán habilitar la librería Messenger Api Library en la opción “Proyecto > Preferencias” para que pueda funcionar. Además incluir un Timer en el Form, como verán  el código es simple y fácil de entender , funciona en cualquier versión de Msn incluida la versión 2009, si tienen alguna duda comenten el post y responderé.

Calcular Días laborales en Visual Basic .Net con SQL

Hace ya algunos meses desarrollé un Sistema Electrónico de Trámite Documentario en Visual Basic .NET 2005 usando como gestor de BD el SQL Server 2008 para un municipio de mi ciudad.

Bueno he buscado por todos lados este código, pero no lo encontré, así que yo mismo tube que hacerlo y lo comparto en este mi BLOG a Ustedes y se que  les va a ser de gran ayuda. La programación que hice es Semi-Estructurada ( Utiliza Clases en algunos casos ). Uds. ya vean como acomodan el código.

Read more

Error de inicio de sesión del usuario ’sa’ en SQL Server 2000