Mensajes

[Items.Count]

Por increíble que parezca el Items.Count ha podido conmigo, ya te he enviado info con todo lo que he hecho y he probado



Para no spamear meto un Snippete de camino:

Enviar Mails (Correos) desde un Form

Código (vbnet) [Seleccionar] Expandir

Imports System.Net.Mail
Public Class Form1
   Function SendEmail(ByVal Recipients As List(Of String), _
                     ByVal FromAddress As String, _
                     ByVal Subject As String, _
                     ByVal Body As String, _
                     ByVal UserName As String, _
                     ByVal Password As String, _
                     Optional ByVal Server As String = "smtp.gmail.com", _
                     Optional ByVal Port As Integer = 587, _
                     Optional ByVal Attachments As List(Of String) = Nothing) As String
       Dim Email As New MailMessage()
       Try
           Dim SMTPServer As New SmtpClient
           For Each Attachment As String In Attachments
               Email.Attachments.Add(New Attachment(Attachment))
           Next
           Email.From = New MailAddress(FromAddress)
           For Each Recipient As String In Recipients
               Email.To.Add(Recipient)
           Next
           Email.Subject = Subject
           Email.Body = Body
           SMTPServer.Host = Server
           SMTPServer.Port = Port
           SMTPServer.Credentials = New System.Net.NetworkCredential(UserName, Password)
           SMTPServer.EnableSsl = True
           SMTPServer.Send(Email)
           Email.Dispose()
           Return "Email to " & Recipients(0) & " from " & FromAddress & " was sent."
       Catch ex As SmtpException
           Email.Dispose()
           Return "Sending Email Failed. Smtp Error."
       Catch ex As ArgumentOutOfRangeException
           Email.Dispose()
           Return "Sending Email Failed. Check Port Number."
       Catch Ex As InvalidOperationException
           Email.Dispose()
           Return "Sending Email Failed. Check Port Number."
       End Try
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Recipients As New List(Of String)
       Recipients.Add("SomeEmailAddress")
       Dim FromEmailAddress As String = Recipients(0)
       Dim Subject As String = "Test From VB."
       Dim Body As String = "email body text, if you are reading this from your gmail account, the program worked."
       Dim UserName As String = "GMAIL USERNAME WITHOUT  (@GMAIL>COM)"
       Dim Password As String = "Password"
       Dim Port As Integer = 587
       Dim Server As String = "smtp.gmail.com"
       Dim Attachments As New List(Of String)
       MsgBox(SendEmail(Recipients, FromEmailAddress, Subject, Body, UserName, Password, Server, Port, Attachments))
   End Sub
End Class

Ale, ponte a optimizar xD



Si hay algo que optimizar, luego pongo alguna especie de conversor de Html Entities y en el Body ("email body text, if you are reading this from your gmail account, the program worked.") se tunea un poco.

Un saludo.

[PD:]

Es que ya le he sacado muchas veces de quicio xD

No yo me refiero en el mismo proceso.. Es que por cada contacto que agrega se añaden como cosa de 500kbs de ram

PD: Eso es lo que pregunto si se puede comprimir... Ya se que existen los disposes y todo eso, y que en bruto no se puede comprimir el proceso en sí, se puede siempre probar a quitar sub-procesos, pero como ya sabrás los sub-procesos que yo tengo no son mas que 2 for each, un regex y una función para agregar gente...

Y si quiero saber cuantos están repes?

Pues según, si no funciona en minúsculas, pues se pasa a mayúsculas. Es todo lógica, ahora, que cual es la que se usa? Npi...

[Hola buenas,]

Hola buenas, quería saber si es posible ya que hice un programa que bueno añade contactos a Skype (y de por ahí me saqué una lista de más de 4000 contactos)

Agregue cosa de 2000 y cuando terminó de agregar gente, el proceso el exe pesaba cosa de 970 mb en la ram... Ya se que si comprimo el proceso, va a aumentar el rendimiento del procesador...

Hay alguna forma?

Un saludo.

¿Qué tiene de malo o cómo puede perjudicar a un menor?

Quizás pueda dañar la sensibilidad del menor (lo digo por experiencia propia, antes con 11 años si, pero ya con 15 que más que sea porno hardcore que sea hentai, todo es igual... xD)

[PD:]

Anda que chula, yo no tengo ni idea. Pero está bastante cool.
PD: En comparación con el Parallax esta le da mil vueltas.

Ya bueno, en casos expceticos como el tuyo, pues no te digo que no, pero, si por ejemplo tienes otras alternativas no te recomiendo que uses una proxy.

Pero el uso de proxyes no es seguro

[Eliminar duplicados de un ListBox]

Esto lleva 3 días sin recibir Snippets!
Mala señal...



Eliminar duplicados de un ListBox

Se necesita un listbox, algunos elementos repetidos entre sí dentro de el y un botón.

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       MsgBox(Eliminar(ListBox1) & " elementos duplicados en el List.", MsgBoxStyle.Information)
   End Sub

   Function Eliminar(ByVal LB As ListBox) As Int32
       Dim i As Int32
       Dim j As Int32
       Dim n As Int32 ' Recorre los items ( compara empezando desde el primero , de abajo hacia arriba)
       For i = 0 To LB.Items.Count - 2

           For j = LB.Items.Count - 1 To i + 1 Step -1 ' ... si es el mismo

               If LB.Items(i).ToString = LB.Items(j).ToString Then
                   LB.Items.RemoveAt(j) ' elimina el elemento indicando el índice
                   n += 1 'lleva la cuenta de los duplicados
               End If
           Next
       Next
       Return n ' retorna los eliminados
   End Function

Resultado:



PD: Este code lo he sacado de aquí: http://www.listeningonlineingles.com/2012/10/eliminar-duplicados-de-un-listbox-en.html

Pero está super ultra mega bug y yo lo he arreglado.

Un saludo.