Mensajes

Ok, vale te entiendo. Estoy intentando capturar el click del raton fuera del formulario y no lo consigo, utilizo este code:

Código [Seleccionar] Expandir

   Private Sub CapturaClick()
       Dim x As Integer = Cursor.Position.X
       Dim y As Integer = Cursor.Position.Y

       Label1.Text = _
           "Usando Cursor.Position: " & vbCrLf & _
           "x= " & x & ", Y = " & y

       Dim p As POINT_API
       GetCursorPos(p)

       Label2.Text = _
           "Usando GetCursorPos: " & vbCrLf & _
           "x= " & p.X & ", Y = " & p.Y
   End Sub

   Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseClick
       CapturaClick()
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Enabled = True
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ' No se que debe ir aquí
   End Sub

Pues he estado mirando, y no, no está bloqueada!

Hola, para comenzar tengo una duda. La cosa es que no se como se hace para que estado el programa "en segundo plano" (por decirlo así) es capaz de capturar las teclas. Una vez intente hacer una aplicación que estando en Hide (Me.Hide) al pulsar unas teclas se volviese a mostrar (Me.Show) pero no lo conseguí. ¿Cómo se hace éso?

Gracias.

Ok, vamos a leer un poquito! Con lo facil que es con la api del messenger, pero en windows xp no me funciona :s jeje

Sí eso había pensado, aun así antes de eso probaré en otro pc a ver que pasa, mañana me paso y comento el resultado sobre esto jeje!

Pues he probado en otro pc y si funciona, por lo tanto es mi SO. Pero no tengo ni idea de que puede ser! A ustedes que se les ocurre?

Pero, supuestamente no es utiliza el 587?
Estoy un poco perdido voy a ver si el nod32 está haciendo algo, vengo y confirmo!

Acabo de desactivar el nod32 y el firewall e intentar enviar un correo y nada no puedo!

Creo que tiene que ser problema de IP pero lo raro es que unos días antes funcionó! No se que podrá ser!

Hola, gracias por contestar. Estoy buscando algún ejemplo con el protocolo de msn pero no veo nada para vb2008, me podrías poner un ejemplo sencillo para ver como funciona! Gracias!

Hola estoy intentando trastear un poco con la api del messenger. Intento obtener el nick de esta forma!

Código [Seleccionar] Expandir

Imports MessengerAPI
Public Class Form1
    Dim msn As New MessengerAPI.Messenger
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = msn.MyFriendlyName
    End Sub
End Class

Pero me da el siguiente error:

Error al crear una instancia del componente COM con CLSID {B69003B3-C55E-4B48-836C-BC5946FC3B28} desde IClassFactory debido al siguiente error: 8007000e.

No entiendo por qué, alguien sabe como se puede solucionar?

El otro día estaba haciendo pruebas, y conseguí enviarme un correo pero ahora lo estoy intentando de nuevo y no funciona, no entiendo por qué, el code que ahora estoy probando es este, pero no consigo que se me envie el correo, pero está bien, el otro día funcionó. Será algo del ordenador?

Código [Seleccionar] Expandir

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Start by creating a mail message object
        Dim MyMailMessage As New MailMessage()

        'From requires an instance of the MailAddress type
        MyMailMessage.From = New MailAddress("user@gmail.com")

        'To is a collection of MailAddress types
        MyMailMessage.To.Add("user@gmail.com")

        MyMailMessage.Subject = "GMail Test"
        MyMailMessage.Body = "This is the test text for Gmail email"

        'Create the SMTPClient object and specify the SMTP GMail server
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("usuario@gmail.com", "password")
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage)
            MessageBox.Show("Email Sent")
        Catch ex As SmtpException
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class