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

Html Con Herramientas Libres

Buscando herramientas que me permitan trabajar en entornos web con software libre me encontré con esta interesante presentación de aplicaciones open source para el desarrollo de sitios webs.

Lo más interesante para mí, fue que a medida que avanzaban las diapositivas iba apareciendo un buen listado de software para probar en distinta plataformas.

Ahora solo basta con probar, ya que desde el mundo del software libre hay herramientas para todos los gustos, desde los que disfrutan editando código en la consola, hasta los que prefieren trabajar siguiendo indicaciones de amigables asistentes.

¿C o Java?

Este ha sido, es y será durante un largo tiempo uno de los principales motivos de discusión en la historia de la computación, y sobre todo en el área académica. ¿Qué se debe aprender/enseñar en la carrera, C o Java?

Read more

¡Cuidado! Virus en Facebook de video “Dancing Girl”

Hoy en día es más común saber de virus que afectan a redes sociales; en esta oportunidad la afectada fue una de las redes más populares, Facebook. Read more