|
8342
|
Programación / Scripting / Re: como puedo enviar unos archivos de manera automatica a mi correo por Cmd
|
en: 16 Agosto 2013, 14:48 pm
|
Batch no dispone de ningún comando para emails, debes recurrir a aplicaciones de terceros o en su defecto a cualquier otro lenguaje que no sea Batch. Puedes registrarte de forma gratuita aquí y utilizar la aplicación commandline que ofrecen, para usarla en Batch: https://www.zeta-uploader.com/es , lo llevo usando años, lo bueno es que usan un server dedicado así que no es necesario enviarlo desde una cuenta de correo original y no hay limite (al menos no un limite pequeño) de tamaño. ...O puedes googlear un poco para ver ejemplos de códigos para enviar emails usando VBS, por ejemplo. Para lo de la hora debes crear una tarea programada en tu PC -> SCHTASKSSaludos
|
|
|
8343
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 16 Agosto 2013, 04:19 am
|
Unos tips que he codeado sobre el manejo de una lista de Tuplas, de una lista de FIleInfo, y sobre la utilización de algunas extensiones de LINQ: PD: Es muy bueno aprender todos estos métodos para dejar en el olvido a los FOR. List(Of Tuple) ' Create the list: Dim TupleList As New List(Of Tuple(Of String, Boolean, Integer)) ' From {Tuple.Create("Hello world", True, 1)} ' Add an Item: TupleList.Add(Tuple.Create("Elektro", False, 0)) TupleList.Add(Tuple.Create("H@cker", True, 1)) ' Order the TupleList by a Tuple item: TupleList = TupleList.OrderBy(Function(Tuple) Tuple.Item3).ToList ' Sort the TupleList by a Tuple item: TupleList.Sort( _ Function(Comparer_A As Tuple(Of String, Boolean, Integer), _ Comparer_B As Tuple(Of String, Boolean, Integer)) _ Comparer_A.Item3.CompareTo(Comparer_B.Item3)) ' Filter the list by items equals as "True" in their Tuple second item: TupleList = TupleList.Where(Function(Tuple) Tuple.Item2 = True).ToList ' Display a Tuple item from a list item: MsgBox(TupleList.Item(0).Item2) ' Looping the list: For Each Item As Tuple(Of String, Boolean, Integer) In TupleList MsgBox(Item.Item1) Next
List(Of FileInfo) ' Create the list: Dim Files As List (Of IO. FileInfo) = IO. Directory. GetFiles("C:\", "*") _ .Select(Function(ToFileInfo) New IO.FileInfo(ToFileInfo)).ToList ' Add an Item: Files. Add(New IO. FileInfo("C:\Windows\Notepad.exe")) ' Order the list by a file property: ' Sort the list by a file property: Function(Comparer_A As IO.FileInfo, Comparer_B As IO.FileInfo) _ Comparer_A.Extension.CompareTo(Comparer_B.Extension)) ' Filter the list by files containing "note" word in their filename: ' Display a file property from a list item: MsgBox(Files. Item(0). FullName) ' Looping the list: Next
|
|
|
8344
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿ Se puede hacer esta consulta de fechas ?
|
en: 16 Agosto 2013, 02:13 am
|
La ciencia de "1 mes" no es exacta, son todo promedios, Google dice que son 30 días como ha dicho Novlucker, pero la Wikipedia dice que son 29, y nosotros cuando decimos un mes (al menos yo) pensamos en 30 días sin tener el cuenta el més en el que estamos, pero cuando decimos "el próximos més" pensamos en el día 1 del siguiente més, en fín por todo esto creo que no hay que comerse mucho la cabeza para intentar calcular al milímetro los meses. Así que aquí dejo el code funcional para VB que me ha proporcionado una persona, el code funciona con la fecha problemática que ha comentado @ostrede y también con los horarios: #Region " Date Difference " ' Date Difference ' ' Examples : ' ' MsgBox(DateDifference(DateTime.Parse("01/03/2013"), DateTime.Parse("10/04/2013"))) ' Result: 1 Months, 1 Weeks, 2 Days, 0 Hours, 0 Minutes and 0 Seconds ' MsgBox(DateDifference(DateTime.Parse("01/01/2013 14:00:00"), DateTime.Parse("02/01/2013 15:00:30"))) ' Result: 0 Months, 0 Weeks, 1 Days, 1 Hours, 0 Minutes and 30 Seconds Private Function DateDifference(ByVal Date1 As DateTime, ByVal Date2 As DateTime) As String Dim Time As TimeSpan Dim MonthDiff As Integer, WeekDiff As Integer Do Until Date1 > Date2 Date1 = Date1.AddMonths(1) MonthDiff += 1 Loop MonthDiff -= 1 Date1 = Date1.AddMonths(-1) Time = (Date2 - Date1) WeekDiff = (Time.Days \ 7) Time = (Time - TimeSpan.FromDays(WeekDiff * 7)) Return String.Format("{0} Months, {1} Weeks, {2} Days, {3} Hours, {4} Minutes and {5} Seconds", _ MonthDiff, WeekDiff, Time.Days, Time.Hours, Time.Minutes, Time.Seconds) End Function #End Region
¿Tema solucionado? xD. Saludos
|
|
|
8345
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿ Se puede hacer esta consulta de fechas ?
|
en: 15 Agosto 2013, 22:50 pm
|
EleKtro H@cker, sin probarla, esa función no es correcta ¿Qué pasa si le paso como parámetros las fechas "01/01/2013 14:00:00" y "02/01/2013 13:00:30"? Saludos Es verdad no me di cuenta, malditas "horas" xD Bueno todo tiene solución, entonces hay que substraer en lugar de restar: Dim HourDiff As Long = Date2.Subtract(Date1).Hours Dim MinuteDiff As Long = Date2.Subtract(Date1).Minutes Dim SecondDiff As Long = Date2.Subtract(Date1).Seconds Dim MilliDiff As Long = Date2.Subtract(Date1).Milliseconds
Llevo un lio tremendo para sacar la fecha con eficacia (por ejemplo entre meses como febrero con 28 días), el valor de las semanas se resiste, pero nadie tiene la solución: http://stackoverflow.com/questions/18259835/function-to-get-a-custom-date-differenceSaludos!
|
|
|
8346
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿ Se puede hacer esta consulta de fechas ?
|
en: 15 Agosto 2013, 21:35 pm
|
Es reálmente necesario obtener el valor de las semanas?, los formatos de string standard de un DateTime no pueden obtener este valor... Ahora lo he hecho de otra manera ya que el primer code no funcionaba con algunas fechas, pero el valor de las semanas no se me ocurre como obtenerlo: CORREGIDO (eso creo, aun no he probado la modificación pero debería funcionar): Private Function DateDifference(ByVal Date1 As DateTime, ByVal Date2 As DateTime) As String Dim MonthDiff As Long , _ DayDiff As Long , HourDiff As Long , _ MinuteDiff As Long , SecondDiff As Long MonthDiff = Date2.Month - Date1.Month DayDiff = Date2.Day - Date1.Day HourDiff = Date2.Subtract(Date1).Hours MinuteDiff = Date2.Subtract(Date1).Minutes SecondDiff = Date2.Subtract(Date1).Seconds 'Dim MilliDiff As Long = Date2.Subtract(Date1).Milliseconds Return String.Format("{0} Months, {1} Days, {2} Hours, {3} Minutes and {4} Seconds", _ MonthDiff, DayDiff, HourDiff, MinuteDiff, SecondDiff) End Function
Saludos.
|
|
|
8348
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo crear un capturador de vídeo
|
en: 15 Agosto 2013, 20:26 pm
|
@Alexperto El compañero IkillNukes ha dado en el clavo, no es ninguna solución "Noob", no vas a poder codificar el video y mostrarlo al mismo tiempo mientras todavía se está codificando... primero creas los frames, los muestras, y luego (al darle al botón Stop) los codificas. ¿Que consumiria mucha ram?, bueno, no es necesario que captures y muestres bmp's a 32 BitDepth y con una resolución HighDefinition, puedes capturar en tiempo real jpg's pequeños y además disminuirle los efectos visuales de imágen usando las classes de GDI. Y para codificar el video, aparte de lo que te han dicho, mira si tienes poca información aquí: www.google.com/search?q=google+%2B+vbnet+record+video&ie=utf-8&oe=utf-8&lr=lang_enAunque si quieres mi opinión personal, diréctamente usaria una suite de codificación profesional como FFMPEG, X264 o MeGui, además FFMpeg tiene un Wrapper para VBNET y soporta la codificación dada una serie de frames así que lo tienes bien fácil, las otras aplicaciones no lo sé, pero en cualquier caso me parece mucho mejor llamar al x264 por línea de comandos para codificar un video resultante en formato H264 que codificar un video AVI por ejemplo usando otra cosa para que quede una patata xD. Saludos
|
|
|
8349
|
Foros Generales / Dudas Generales / Re: me han invadido y vampirizado?
|
en: 15 Agosto 2013, 17:58 pm
|
Me gustaría que me dieses tu opinión o alguna idea Si examinas el problema no parece haber ningún motivo por el cual preocuparse, si quieres tomar precauciones para el futuro puedes seguir el consejo de Hiper@ctive pero me parece muy extremista para este caso en concreto. 1. - Si tu hubiesen movido el puntero del mouse de forma remota, la pantalla no estaría suspendida, y no habrias necesitado encenderla, así que al menos no habia nadie con escritorio remoto. 2. - Al usar comandos para copiar archivos (Instrucciones remotas de Batch u de otro lenguaje), no salta la GUI del sistema de copiado de Windows, así que tampoco habia nadie copiando archivos de forma interna. En conclusión, que no habia nadie manipulando el mouse ni tampoco copiando archivos sin manipular el mouse, no sé de donde provendría dichos archivos que se estaban copiando, pero yo creo que un Juanker no era. Saludos!
|
|
|
8350
|
Programación / .NET (C#, VB.NET, ASP) / Re: descifrar AES en vb.net?
|
en: 15 Agosto 2013, 14:59 pm
|
Prueba así, este no pide el salt: #Region " AES Decrypt " ' [ AES Decrypt Function ] ' ' Examples : ' MsgBox(AES_Decrypt("cv/vYwpl51/dxbxSMNSPSg==", "Test_Password")) ' Result: Test_Text Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String Dim AES As New System.Security.Cryptography.RijndaelManaged Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim decrypted As String = "" Try Dim hash(31) As Byte Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 16) Array.Copy(temp, 0, hash, 15, 16) AES.Key = hash AES.Mode = Security.Cryptography.CipherMode.ECB Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor Dim Buffer As Byte() = Convert.FromBase64String(input) decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return decrypted Catch ex As Exception Return Nothing End Try End Function #End Region
...Aquí el encriptador, y más snippets: Librería de Snippets !! (Posteen aquí sus snippets)
|
|
|
|
|
|
|