Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Keyen Night en 1 Agosto 2009, 03:38 AM

Título: Algunos Trucos VB
Publicado por: Keyen Night en 1 Agosto 2009, 03:38 AM
Saber si un proceso está corriendo por medio de su nombre

Código (vb) [Seleccionar]
     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]
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]
Imports System.IO

Código (vbnet) [Seleccionar]
    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]

    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]
Imports System.Threading.Thread

Libererar la memoria RAM usada en nuestra aplicación

Declaramos la siguiente API

Código (vbnet) [Seleccionar]

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]
SetProcessWorkingSetSize(Process.GetCurrentProcess.Handle, -1, -1)

Agregaré más ;)

Título: Re: Algunos Trucos .NET
Publicado por: raul338 en 1 Agosto 2009, 16:00 PM
Buenisimo!!!!!!!

Espero los demas codigos  :P ;D ;D

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 (http://www.pinvoke.com) tiene para C# y vb.NET ^^

En lo demas, execlente  ;-) ;-) ;-) ;-)