Mensajes

Como puedo obtener el peso de un archivo apartir del link?, por ejemplo el link de una imagen...

Gracias 

Como dice el titulo .__. como puedo guardar una imagen que se encuentra en el clipboard...

Gracias

Si realmente es solo por diversión y probar crear un metodo que sea muy corto y potente sin compararlo con los estandares actuales .__.

[(1024 * 1024) / X]

Saludos a todos...

Estoy tratando de calcular la velocidad de rellanado de una RAM por segundo...

Mi idea es correr un timer cada 1 seg que sume una varible +1, y en un backgroundworker llenar una variable con Space(1024 * 1024) (1024Kb) pero el backgroundworker termina el trabajo cuando ejecuta la linea habria una forma de esperar a que se llene el buffer que estoy creando?

Para luego dividir (1024 * 1024) / X cantidad de segundos que duró el llenado del buffer que fue contado con un Timer y así obtener la velocidad aproximada de llenado por segundo en Bytes

Quisas es algo loco o hay otra forma de hacerlo?

Gracias

[Saber si un proceso está corriendo por medio de su nombre]

Saber si un proceso está corriendo por medio de su nombre

Código (vb) [Seleccionar] Expandir

     Public Function IsRuning(ByVal ProcessName As String) As Boolean
        Return Process.GetProcessesByName(ProcessName).Count > 0
    End Function

Saber si un string es Multilinea

Código (vb) [Seleccionar] Expandir

String.Contains(Chr(13))

True y False repectivamente para Es y No Es, Siendo String el nombre de la variable o texto a consultar.

Leer una determinada linea de un archivo

Necesitamos importar

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Código (vbnet) [Seleccionar] Expandir

    Public Function ReadFileLine(ByVal filer As String, ByVal line As Integer) As String
        Return File.ReadAllLines(filer).ElementAt(line - 1)
    End Function

Explorar Ruta y seleccionar archivo (Método no Común)

Código (vbnet) [Seleccionar] Expandir


    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Dim Folder As String = "C:\", _
    nFile As String = "Archivo"

        ShellExecute(0, "Open", Folder, vbNullString, vbNullString, 1)
        For Each i As Process In Process.GetProcessesByName("explorer")
            While i.MainWindowTitle <> Mid(Folder, InStrRev(Folder, "\") + 1, Len(Folder))
            End While
            Exit For
        Next
        SendKeys.SendWait(nFile)


Folder el directorio a abrir y nFile el nombre del archivo a seleccionar sin incluir la extensión...

Usar la API Sleep sin declararla

Solo debemos importar la siguiente libreria

Código (vb) [Seleccionar] Expandir

Imports System.Threading.Thread

Libererar la memoria RAM usada en nuestra aplicación

Declaramos la siguiente API

Código (vbnet) [Seleccionar] Expandir


Public Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean


Para Liberar nuestra memoria ahora solo tenemos que usar

Código (vbnet) [Seleccionar] Expandir

SetProcessWorkingSetSize(Process.GetCurrentProcess.Handle, -1, -1)

Agregaré más

Adoro este foro .__. Gracias

Bueno les traigo mi método de cifrado preferido en una sola función que sirve tanto para cifrar como para descifrar, los carácteres no se repiten, El unico debug que le he encontrado y quisiera ayuda para solucionarlo es el siguiente:
Si el largo del texto es mayor al valor ASCII maximo (255) y los carácteres son los mimos en una cadena seguida de 255+1 carácter da debug...
Por ejemplo:
256 Caráracteres "a"

aaaaaaaaaaaaaaaaaa......
aaaaaaaaaaaaaaaaaaa....

Aqui el codigo:

Código (vb) [Seleccionar] Expandir

Public Function DEncriptStr(ByVal str As String) As String
       Dim int As Long = str.Length
       DEncriptStr = Nothing
       For Each x As String In str
           DEncriptStr = DEncriptStr & Chr(Asc(x) Xor int)
       Next
       Return DEncriptStr
   End Function

Gracias de adelantado...

  no lo habia hecho, es que nunca habia intentado esto
Muchas gracias 

AxSkin1 no me aparece en Me

Pd: Me movieron el thread y doble postiee 

Los sospechaba xD pero no busque, Gracias.