Algunos Trucos VB

[Keyen Night]

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

[raul338]

Buenisimo!!!!!!!

Espero los demas codigos 

Aunque solo un consejo de parte mia, he leido que en .net las API no se deben declarar asi, sino como API manejadas (managed API). Puedes buscar la declaracion .net de las api en www.pinvoke.com tiene para C# y vb.NET ^^

En lo demas, execlente