Mensajes

la voz sale en ingles porque viene por defecto de windows... para cambiarlo ve a  panel de control> Voz

salu2!

Alguien sabe una Api equivalente a GetProcAddress pero qeu recupere la funcion de un exe?

salu2!

mmm... pero eske yo queria que eso lo hiciera el programa de forma autotizada.. y pensaba que habia una api para comprovarlo...  lo voy a hacer como tu dijistes pero por codigo.

gracias por la ayuda.

salu2!

¿Qué procesos no te dan permiso? Puede ser por varios motivos, tal vez alguien lo esté protegiendo.

Saludos

Creo que son los vitales de windows...

Buenas foro de elhacker.net tengo un problema , y es el siguiente... intento inyectarme en cualquier proceso que este abierto pero muchos no me dan persiso.. quisiera saber si hay alguna api para saber que procesos te dan permiso para abrirlos y cuales no.

esperando respuesta.

salu2!

puedes hacer lo siguiente:

al pulsar control se activa el timer1

si el timer 1 detecta que pulsaste v se hace X si detecta uqe se pulsa 1 hace otra accion

es una manera facil y sencilla


salu2!

  parece muy interesate... ^^

Muchas gracias... me falto ese byval que fallo xD!

salu2!

drinky.. para que complicarte la vida usando API .. ?'

acuerdate esto:

Mientras mas lineas tiene el programa mas pesa y mas bugs puede tner 

Bye !

hay que saber mas  opciones... si siempre tienes una unica salida habra veces que no te servira.

salu2!

Hola, tengo el siguiente problema, estoy intentando leer un mediante api pero nose porqeu demonios no me coje los datos, este es el code:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As Any) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Public Const GENERIC_READ = &H80000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const OPEN_EXISTING As Long = 3

Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
Public Type OVERLAPPED
    ternal As Long
    ternalHigh As Long
    offset As Long
    OffsetHigh As Long
    hEvent As Long
End Type


Public Function Archivo(ruta As String) As Boolean
    Dim abrirarchivo As Long
    Dim sa As SECURITY_ATTRIBUTES
    Dim leerarchivo As Long
    Dim over As OVERLAPPED
    Dim buffer As String
    Dim nada As Long
    Dim bytesleidos As Long
    abrirarchivo = CreateFile(ruta, GENERIC_READ, FILE_SHARE_READ, sa, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
    buffer = Space(FileLen(ruta))
    leerarchivo = ReadFile(abrirarchivo, buffer, nada, bytesleidos, over)
    Call CloseHandle(abrirarchivo)
    MsgBox buffer
End Function

Sub Main()
    Call Archivo("c:\feo.txt")
End Sub

espero vuestra ayuda.

salu2!