elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Algunos Trucos VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Algunos Trucos VB  (Leído 2,659 veces)
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Algunos Trucos VB
« en: 1 Agosto 2009, 03:38 »

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

Código
  1.     Public Function IsRuning(ByVal ProcessName As String) As Boolean
  2.        Return Process.GetProcessesByName(ProcessName).Count > 0
  3.    End Function

Saber si un string es Multilinea

Código
  1. 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
  1. Imports System.IO

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

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

Código
  1.    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
  2.    Dim Folder As String = "C:\", _
  3.    nFile As String = "Archivo"
  4.  
  5.        ShellExecute(0, "Open", Folder, vbNullString, vbNullString, 1)
  6.        For Each i As Process In Process.GetProcessesByName("explorer")
  7.            While i.MainWindowTitle <> Mid(Folder, InStrRev(Folder, "\") + 1, Len(Folder))
  8.            End While
  9.            Exit For
  10.        Next
  11.        SendKeys.SendWait(nFile)
  12.  

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

Libererar la memoria RAM usada en nuestra aplicación

Declaramos la siguiente API

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

Para Liberar nuestra memoria ahora solo tenemos que usar

Código
  1. SetProcessWorkingSetSize(Process.GetCurrentProcess.Handle, -1, -1)

Agregaré más ;)



« Última modificación: 23 Diciembre 2009, 20:08 por Keyen Night » En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Algunos Trucos .NET
« Respuesta #1 en: 1 Agosto 2009, 16:00 »

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 tiene para C# y vb.NET ^^

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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines