Option Explicit

Private WithEvents MSN As MessengerAPI.Messenger

Private Sub Form_Load()
    Set MSN = New Messenger
End Sub

Private Sub MSN_OnContactBlockChange(ByVal hr As Long, ByVal pContact As Object, ByVal pBoolBlock As Boolean)
    Dim Contacto As IMessengerContact
   
    Set Contacto = pContact
   
    Select Case pBoolBlock 'Se bloqueo o se desbloqueo?
        Case True 'Se bloqueo
            MsgBox Contacto.SigninName & " ha sido bloqueado"
        Case False 'Se desbloqueo
            MsgBox Contacto.SigninName & " ha sido desbloqueado"
    End Select
End Sub

Private Sub MSN_OnMyFriendlyNameChange(ByVal hr As Long, ByVal bstrPrevFriendlyName As String)
    'Funciona solo para el Windows Messenger
End Sub

Private Sub MSN_OnMyStatusChange(ByVal hr As Long, ByVal mMyStatus As MessengerAPI.MISTATUS)
    MsgBox mMyStatus 'Devuelve el numero de estado al que se cambio.
End Sub

Option Explicit

Private Sub Command1_Click()
    Dim strHeader As String
   
    Inet1.OpenURL "http://www.google.co.ve/jojojojo.html"
    DoEvents
   
    strHeader = Mid(Split(Inet1.GetHeader, "HTTP/1.1")(1), 2, 3)
   
    If strHeader = "404" Then
        MsgBox "No existe"
    ElseIf strHeader = "200" Then
        MsgBox "Si existe"
    End If
End Sub

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
    If Descargar("http://localhost/index.php", "C:\hola.php") = True Then
        MsgBox "Se descargo"
    Else
        MsgBox "el archivo no se encunetra"
    End If
End Sub

Private Function Descargar(URL, Destino) As Boolean
    Dim lRet As Long
   
    lRet = URLDownloadToFile(0, URL, Destino, 0, 0)
   
    If lRet = 0 Then
        Descargar = True
    Else
        Descargar = False
    End If
End Function