Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#2301
¿Nadie sabe algo respecto al tema?.
#2302
Cita de: PalitroqueZ en 19 Mayo 2017, 13:59 PMmira las especificaciones tecnicas de cada periferico ... mira los watts que consuma cada uno

Eso no es nada facil. Si has visto mi post principal te habrás dado cuenta de que en las especificaciones del producto, ya sea en tiendas de venta o en las especificaciones oficiales en la web del fabricante, muchas veces no te ofrecen esa información, entonces, ¿cómo lo compruebas?. No se puede.

¡Saludos!
#2303
Lo que quieres hacer se denomina Substring.

Código (dos) [Seleccionar]

@Echo Off

Set "var=1234567890"
Set "left=%var:~5%"    & REM Eliminar 5 caracteres empezando por la izquierda.
Set "right=%var:~0,5%" & REM Eliminar 5 caracteres empezando por la derecha.

echo var..: %var%
echo left.: %left%
echo right: %right%

Pause & Exit /B 0


Saludos!
#2304
Las preguntas sobre VB.NET van en el foro de .NET, no VB6.




Cita de: WallkOver en 19 Mayo 2017, 04:48 AMTira el error de mensaje no enviado

Al formular una pregunta de programación se debe depurar el error para indicarnos el mensaje exacto de la excepción, no un mensaje de error personalizado e inventado y decorado en un MsgBox. No sé como pretendes que podamos tener una idea de que problema puede ser, si no nos dices que error te indica en realidad.




Cita de: WallkOver en 19 Mayo 2017, 04:48 AMno funciona. cual puede ser el problema?

Prueba usando el servidor smtp: smtp.live.com, en lugar de esto: "smtp-mail.outlook.com"




Cita de: WallkOver en 19 Mayo 2017, 04:48 AM
Código (vbnet) [Seleccionar]
Control.CheckForIllegalCrossThreadCalls = False

Eso no se debe hacer jamás, excepto por motivos de depuración de colisión de threads. Además, en el código que has mostrado no es necesario usar threads al fin y al cabo.

Si tu thread (non-UI-thread) necesita llamar a controles que han sido creados en otro thread (UI-thread), entonces puedes utilizar la función Control.InvokeRequired() y el método Control.Invoke().

Aparte, en este caso la creación manual de threads en tiempo de ejecución resulta bastante innecesario, puesto que puedes utilizar la función SmtpClient.SendMailAsync() y/o el método SmtpClient.SendAsync().




Por último, te dejo una clase que puedes aprovechar. La he extraido de mi framework de pago ElektroKit, el cual puedes encontrar en mi firma de usuario por si te interesa. El código está documentado incluyendo ejemplos de uso, no creo que sea necesario explicar nada más, pero si tienes dudas, pregunta.

Código (vbnet) [Seleccionar]
' ***********************************************************************
' Author   : Elektro
' Modified : 19-May-2017
' ***********************************************************************

#Region " Public Members Summary "

#Region " Methods "

' SendHotmail(String, String, String, String, String)
' SendHotmail(String, String, String, String, MailAddress)
' SendHotmail(String, String, String, String, String())
' SendHotmail(String, String, String, String, MailAddressCollection)

' SendHotmailAsync(String, String, String, String, String) As Task
' SendHotmailAsync(String, String, String, String, MailAddress) As Task
' SendHotmailAsync(String, String, String, String, String()) As Task
' SendHotmailAsync(String, String, String, String, MailAddressCollection) As Task

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System.Net
Imports System.Net.Mail
Imports System.Threading.Tasks

#End Region

#Region " Mail Util "

Namespace Elektro.Net

   Partial Public NotInheritable Class MailUtil

#Region " Public Methods "

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal address As String)

            MailUtil.SendHotmail(username, password, subject, body, {address})

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", New MailAddress("Address@Server.com"))
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal address As MailAddress)

            MailUtil.SendHotmail(username, password, subject, body, {address.Address})

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", {"Address1@Server.com", "Address2@Server.com"})
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal addresses As String())

            Dim addressCollection As New MailAddressCollection
            For Each address As String In addresses
                addressCollection.Add(New MailAddress(address))
            Next address

            MailUtil.SendHotmail(username, password, subject, body, addressCollection)

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Dim addressCollection As New MailAddressCollection
        ''' addressCollection.Add(New MailAddress("Address@Server.com"))
        ''' addressCollection.Add(New MailAddress("Address2@Server.com"))
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", addressCollection)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal addresses As MailAddressCollection)

            Using msg As New MailMessage

                For Each address As MailAddress In addresses
                    msg.To.Add(address)
                Next address
                msg.From = New MailAddress(username)
                msg.Subject = subject
                msg.Body = body

                Using client As New SmtpClient()
                    With client
                        .Host = "smtp.live.com"
                        .Port = 587
                        .EnableSsl = True
                        .DeliveryMethod = SmtpDeliveryMethod.Network
                        .Timeout = CInt(TimeSpan.FromSeconds(60).TotalMilliseconds)
                        .Credentials = New NetworkCredential(username, password)
                    End With
                    client.Send(msg)
                End Using

            End Using

        End Sub

' #If NET45 Then

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal address As String) As Task

            Await MailUtil.SendHotmailAsync(username, password, subject, body, {address})

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", New MailAddress("Address@Server.com"))
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal address As MailAddress) As Task

            Await MailUtil.SendHotmailAsync(username, password, subject, body, {address.Address})

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", {"Address1@Server.com", "Address2@Server.com"})
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal addresses As String()) As Task

            Dim addressCollection As New MailAddressCollection
            For Each address As String In addresses
                addressCollection.Add(New MailAddress(address))
            Next address

            Await MailUtil.SendHotmailAsync(username, password, subject, body, addressCollection)

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Dim addressCollection As New MailAddressCollection
        ''' addressCollection.Add(New MailAddress("Address@Server.com"))
        ''' addressCollection.Add(New MailAddress("Address2@Server.com"))
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", addressCollection)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal addresses As MailAddressCollection) As Task

            Using msg As New MailMessage

                For Each address As MailAddress In addresses
                    msg.To.Add(address)
                Next
                msg.From = New MailAddress(username)
                msg.Subject = subject
                msg.Body = body

                Using client As New SmtpClient()
                    With client
                        .Host = "smtp.live.com"
                        .Port = 587
                        .EnableSsl = True
                        .DeliveryMethod = SmtpDeliveryMethod.Network
                        .Timeout = CInt(TimeSpan.FromSeconds(60).TotalMilliseconds)
                        .Credentials = New NetworkCredential(username, password)
                    End With
                    Dim t As Task = client.SendMailAsync(msg)
                    Await t
                End Using

            End Using

        End Function

' #End If

#End Region

    End Class

End Namespace

#End Region


¡Saludos!
#2305
Cita de: Songoku en 18 Mayo 2017, 18:53 PMNo lo pienses mas, es mejor con ventiladores. Y si puede ser mejor que Asus yo te recomiendo Gigabyte.

Estuve mirando los modelos de la GTX 1060 distintos al de ASUS por el mismo y menor precio, pero al parecer el resto de fabricantes incluyendo a Gigabyte han preferido fabricar la tarjeta con solo 1 puerto HDMI, a diferencia de ASUS que ha puesto 2, y eso es lo que yo necesito, así que muy a mi pesar me tengo que quedar con el modelo de ASUS. Lo cierto es que me dejé alguna que otra marca por comparar la cantidad de puertos... pero eran marcas muy malas, como para fiarse de la calidad.

La tarjeta la acabo de comprar, junto al soplador.   :-)

¡Saludos!
#2306
Cita de: Orubatosu en 18 Mayo 2017, 11:11 AMLo de que dure "4 veces mas" es puro marketing.

ASUS me está empezando a dar asco, y rabia.

Cita de: ASUS

Si realmente fuese tan buena tarjeta y tan revolucionaría, tanto que presúntamente consigue hacer que su tiempo de vida dure hasta 4 veces más que el modelo con ventiladores del mismo chip, ¿entonces por qué este modelo tan super ultra revolucionario cuesta 20€ menos que el otro?.

...No cuela.
#2307
Cita de: Randomize en 18 Mayo 2017, 16:08 PM
Un recurso online, sabes que los hay a patadas y sabes buscar mejor que yo  ;)

Ya busqué en su día, hace unos 3 o 4 años un servicio online que te calculaba el consumo, era algo parecido, un formulario donde introducir datos, pero era algo muy tedioso y "tecnicista", no era en absoluto nada tan guiado o sencillo como esa página que me mostraste (aunque no funcione) o la que yo te dije... de hecho nunca supe como llegar a utilizar esa otra página de la que te hablo, no tenía el master de científico ni electricista, y parecia algo obligatorio.

Vamos, que si, te doy la razón en que no he buscado, he estado vago, pero es por que mi experiencia pasada me advirtió de que probablemente no habría esperanza de encontrar nada de utilidad... :xD

¡Saludos!
#2308
Cita de: simorg en 18 Mayo 2017, 15:46 PMEstamos hablando de "Fuentes conmutadas", no de una fuente convencional, su funcionamiento es totalmente distinto.

Solo por aclarar un último detalle importante: ¿TODAS las fuentes de alimentación de PC hoy por hoy son conmutadas?.




Cita de: Randomize en 18 Mayo 2017, 15:58 PMSip, mis ayudas ya son pésimas y mucho más mis comentarios, de hecho trato de crear temas "y me sale el tiro por la culata"  :xD :xD :xD

No era por criticarte, es que en esa página que me pasaste no me deja especificar el nombre de la CPU, no sé por qué xD, pero en la otra si, me aparece una lista desplegable donde elegir CPU.

#2309
Cita de: Songoku en 18 Mayo 2017, 14:10 PMP.D ¿al final te compraste el soplador para mantener limpio tu equipo?.[/color]

No, todavía no puedo darte mi crítica sobre el soplador, pero seguro que sería una crítica positiva :). Es algo que tengo pendiente por comprar, de hecho lo tengo guardado en la cesta de Amazon xD. Probablemente para la semana que viene ya lo tenga en mis manos.

Se me hace la boca agua solo de leer comentarios como este:



También he visto que en las reviews de Internet y de youtubers aleatorios dejan a este producto en un ranking de 10/10, algunos 9/10, menos no.

¡Saludos!
#2310
Cita de: simorg en 18 Mayo 2017, 15:14 PMNo porque tengas una fuente de más Watios consumiras más.

¿Viste todo el tocho de texto que escribí preocupado por el precio del consumo?, qué tonto soy, al final para descubrir que no importa cuanto se exceda la potencia de la fuente de lo realmente requerido... ¡por que ese exceso no cuesta ni un euro más en verdad! (excepto lo que cueste comprar una fuente de más potencia, claro está xD).

Pues no hay más que hablar. Doy el tema por resuelto.

Gracias!