¿Nadie sabe algo respecto al tema?.
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úCita de: PalitroqueZ en 19 Mayo 2017, 13:59 PMmira las especificaciones tecnicas de cada periferico ... mira los watts que consuma cada uno
@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
Cita de: WallkOver en 19 Mayo 2017, 04:48 AMTira el error de mensaje no enviado
Cita de: WallkOver en 19 Mayo 2017, 04:48 AMno funciona. cual puede ser el problema?
Cita de: WallkOver en 19 Mayo 2017, 04:48 AMControl.CheckForIllegalCrossThreadCalls = False
' ***********************************************************************
' 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
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.
Cita de: Orubatosu en 18 Mayo 2017, 11:11 AMLo de que dure "4 veces mas" es puro marketing.
Cita de: ASUS
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
Cita de: simorg en 18 Mayo 2017, 15:46 PMEstamos hablando de "Fuentes conmutadas", no de una fuente convencional, su funcionamiento es totalmente distinto.
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"
Cita de: Songoku en 18 Mayo 2017, 14:10 PMP.D ¿al final te compraste el soplador para mantener limpio tu equipo?.[/color]
Cita de: simorg en 18 Mayo 2017, 15:14 PMNo porque tengas una fuente de más Watios consumiras más.