Mensajes

Le diría: "Yo también te tengo ganas"

Y como sea que reaccione, es fácil hacerse el "amigo" e ir chamullándola y dejarla "punto caramelo" para lo otro. En menos de 15 días la tenés lista.

El que no aprovecha es

Y encima, la mina te vende cervezas, jajaja.

Podrías buscar una imagen cualquiera y convertirlos en iconos con algun programa que se dedique a hacer eso. Creo que hay servicios online que sirven para eso también.

Saludos.

para eso buscas hostings free q tengan smtp y lo haces :3

Sí, bueno. Solo que actualmente es más común que los correos de esos hosting que decís es muy probable que lleguen como "Correos no deseados" y no los lean así no mas... 

Sí, entonces algo de razón tenía, eran los permisos.

si quieres guardar en C:\ debes darle permisos a tu aplicacion, prueba con eso y nos comentas.!

Dí los permisos a mi aplicación y pude grabar tranquilamente.

como dijeron, es por permisos.

cuando tu aplicacion necesita grabar una imagen o crear archivos, se deben crear en el directorio que windows le brinda para hacer eso y ahi no hay problema de permisos, esa es la carpeta Application Data (AppData), ahi cada aplicacion guarda sus preferencias y archivos temporales.

No sabía que AppData no daba problemas con el tema de permisos.

Otra, creé una carpeta manualmente en C:\ y también pude grabar en ella la imagen sin que me salga ningún error.   

Muchas gracias a todos.

Estoy tratando de guardar una imagen en el Disco C:, pero me sale un error: Error genérico en GDI+. He intentado guardarlo en D: y ahí si que no tengo problemas.

Código (vbnet) [Seleccionar] Expandir

PictureBox1.Image.Save("C:\CapturaPantalla.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Se que es un tema de permisos pero, ¿hay alguna posibilidad que se guarde sin problemas en C:?

Quizás esto vaya en Windows

Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam

Sí, la verdad. Aunque también es cierto que si desde la misma cuenta de Gmail, Outlook o Windows Live, si envías correos muy seguidos, te bloquean la cuenta por un tiempo para evitar esto que vos mencionas. Hice la prueba con mi cuenta personal y me pasó  .
La única solución fue enviar los emails cada 10 segundos aproximadamente.

Saludos.

Chrome es, a mí parecer, más rápido y más seguro. Pero como dice el amigo arriba, siempre y cuando no veas porno cosas y andes haciendo clic por ahí... todo irá bien.

[Descargar proyecto]

Ya he visto en este foro muchos códigos de "Email bomber", pero aquí les traigo uno, que a decir verdad, no es muy diferente a los demás. Pero para hacer bromas en el día de hoy creo que viene al pelo.  

Aclaro que no son emails anónimos, sino que se debe usar una cuenta de correo que exista y que sea válida completando la dirección de correo y la contraseña.
Se puede enviar tantos emails como se quiera (hasta que se presione el botón "Detener") a varios destinatarios al mismo tiempo simplemente separando los correos con "punto y coma" y sin espacios  

Código (vbnet) [Seleccionar] Expandir

'Una vieja idea para hacer bromas por email
'
'Por Crazy.sx

Imports System.Net.Mail
Imports System.IO
Public Class EnvEMAIL
   Private TipoCuenta As String
   'Private aAdjuntos As Attachment
   'Private dato As FileStream
   'Private CORREO As New MailMessage
   Dim numCantidadEnviados As Integer = 0

   Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
       lblConteoEmail.Text = "Cantidad email enviados: 0"
       If checkbxActivarBomber.CheckState = CheckState.Checked Then
           Timer1.Interval = txtSegundos.Text * 1000
           Timer1.Enabled = True
       End If

       If checkbxActivarBomber.CheckState = CheckState.Unchecked Then
           Timer1.Enabled = False
           Call emailNormal()
       End If
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Call emailBomber()
   End Sub

   Private Sub emailBomber()
       Call emailNormal()
   End Sub

   Private Sub emailNormal()
       Dim Mail As New MailMessage
       Dim puertoSMTP As String = Nothing
       Mail.Subject = txtAsunto.Text

       If chekbxCCO.CheckState = CheckState.Checked Then
           For Each email As String In txtDestino.Text.Split(";")
               Mail.Bcc.Add(New System.Net.Mail.MailAddress(email)) 'CCO
           Next
       Else
           For Each email As String In txtDestino.Text.Split(";")
               Mail.To.Add(New System.Net.Mail.MailAddress(email)) 'Sin CCO
           Next
       End If

       Mail.From = New MailAddress(txtRemitente.Text)
       Mail.Body = txtCuerpoMensaje.Text

       If ComboBox1.Text = "Windows Live" Then
           TipoCuenta = "smtp.live.com"
       End If

       If ComboBox1.Text = "Gmail" Then
           TipoCuenta = "smtp.gmail.com"
       End If

       If ComboBox1.Text = "Outlook" Then
           TipoCuenta = "smtp.live.com"
       End If

       Dim TRUE_FALSE As Boolean = vbNull
       If ComboBox2.Text = "TRUE" Then
           TRUE_FALSE = True
       End If

       If ComboBox2.Text = "FALSE" Then
           TRUE_FALSE = False
       End If

       Dim SMTP As New SmtpClient(TipoCuenta)
       SMTP.EnableSsl = TRUE_FALSE
       SMTP.Credentials = New System.Net.NetworkCredential(txtRemitente.Text, txtPass.Text)
       SMTP.Port = txtPuertoSMTP.Text
       SMTP.Send(Mail)

       If checkbxActivarBomber.CheckState = CheckState.Checked Then
           numCantidadEnviados = numCantidadEnviados + 1
           lblConteoEmail.Text = "Cantidad email enviados: " & numCantidadEnviados
       Else
           MsgBox("Mensaje enviado a destinario/s")
       End If
   End Sub

   Private Sub EnvEMAIL_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
       End
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       txtPuertoSMTP.Text = "587" 'Puerto predeterminado
       ComboBox1.Text = "Seleccione SMTP"
       Call ElegirSMTP()
       Call seguridadSSL()
   End Sub

   Sub seguridadSSL()
       With Me.ComboBox2.Items
           .Add("TRUE")
           .Add("FALSE")

       End With
   End Sub

   Sub ElegirSMTP()
       With Me.ComboBox1.Items
           .Add("Outlook")
           .Add("Windows Live")
           .Add("Gmail")
       End With
   End Sub

   Private Sub btnDetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetener.Click
       Timer1.Enabled = False
       numCantidadEnviados = 0
   End Sub
End Class

Descargar proyecto: https://skydrive.live.com/redir?resid=8E230698F73CED18!986&authkey=!AEeGCOYK3QRk3iA

Ya que estamos, pasenme el SMTP y el puerto de Yahoo y/o de algunos otros que conozcan. Gracias.

Saludos, yo.

Pelotudo.

Muy bueno che. Espectacular ese tema también jaja. Felicitaciones

(Leo Gutierrez, demuestre)