comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Biblioteca de Apis de Windows

  • 23 Respuestas
  • 11255 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 26, 2013, 02:31:56 am »
[INDICE]

    * Sleep
    * Findwindow
    * Shellexecute
    * ShFileOperation
    * Copyfile
    * SetwindowPost
    * Exitprocess
    * GetCurrentProcess
    * URLDownloadToFile
    * GetLogicalDrives
    * Keybd_Event
    * DoFileDownload
    * MoveFile
    * TextOut
    * GetParent
    * SetCursorPos
    * BlockInput
    * ExitWindowsEx
    * GetLogicalTime
    * GetCursorPos
    * SetWindowText
    * GetForegroundWindow
    * GetWindowText
    * mouse_event

Marcado como mejor respuesta por: en Hoy a las 04:59:13 am

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #1 en: Enero 26, 2013, 02:33:38 am »
Nombre: Sleep

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Explicacion: Se usa para generar un retardo.+

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
private sub form_load()
sleep(5000)
msgbox "ya pasaron 5 segundos"
end sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #2 en: Enero 26, 2013, 02:33:59 am »
Nombre: Findwindow

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function FindWindow _
     Lib "user32" _
     Alias "FindWindowA" ( _
         ByVal lpClassName As String, _
         ByVal lpWindowName As String) As Long


Explicacion de esta api: Sirve para saber si una ventana esta activa, entre otras cosas.

Ejemplo de su uso:
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function FindWindow _
     Lib "user32" _
     Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
private sub command1_click()
   
 Dim hola As Long
         
     hola = FindWindow(clase, vbNullString)
       

     If hola<> 0 Then
         MsgBox "está abierta"
     Else 

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #3 en: Enero 26, 2013, 02:34:13 am »
Nombre: Shellexecute

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal _
 lpFile As String, ByVal lpParameters As String, ByVal _
 lpDirectory As String, ByVal nShowCmd As Long) As Long

Explicacion: Lo que ace esta api es ejecutar archivos.

Ejemplo de su uso: ( este code es de mr.blood, Gracias amigo)

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal _
 lpFile As String, ByVal lpParameters As String, ByVal _
 lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function Archivos(ByVal rute As String, hWnd As String, VBHide As Boolean)
Dim num As Integer
If VBHide = False Then
num = 1
Else
If VBHide = True Then
num = 0
End If
End If
Call ShellExecute(hWnd, "Open", rute, "", "", num)
End Function
es un ejemplo de una dll, para reproducir musica.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #4 en: Enero 26, 2013, 02:34:34 am »
Nombre: ShFileOperation

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
Explicacion: Esta api sirve para eliminar un archivo.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
 
 Private Sub Form_Load() 
     Dim Operacion As SHFILEOPSTRUCT 
     Dim file As String 
     file = "c:\Nuevo Documento de texto.txt" 
    With Operacion 
         
         .wFunc = 3 
         'Este el Path al archivo a eliminar 
         .pFrom = App.Path & "\" & file 
         
         .fFlags = 64 
     End With 
       
     SHFileOperation Operacion 
 
 End Sub

Nota: el archivo se elimina en esta linea:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
SHFileOperation Operacion
Operacion es el path del archivo a eliminar.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #5 en: Enero 26, 2013, 02:34:55 am »
Nombre: Copyfile

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Explicacion: Sirve para copiar un archivo.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim Copiar As Long

Copiar = CopyFile(App.Path & "\Drinky.crack", "C:\Drinky.crack", 1)

gracias drinky :D

saludos!

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #6 en: Enero 26, 2013, 02:35:08 am »
Nombre: SetwindowPost

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Explicacion: Sirve para acer uqe este siempre visible una ventana, entre otras cosas.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1

Private Sub Form_Load()
Me.ScaleMode = vbPixels
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #7 en: Enero 26, 2013, 02:35:29 am »
Nombre: Exitprocess

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub ExitProcess Lib "kernel32" ( _
     ByVal uExitCode As Long)
 Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
     ByVal hProcess As Long, _
     lpExitCode As Long) As Long

Explicacion: Sirve para matar un proceso.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub ExitProcess Lib "kernel32" ( _
     ByVal uExitCode As Long)
 Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
     ByVal hProcess As Long, _
     lpExitCode As Long) As Long
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)

Nota: Esta api va dada de la mano con la api GetCurrentProcess ( explicada mas abajo. si no leen su uso no entenderan tampoco esta api, ya explicada.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #8 en: Enero 26, 2013, 02:35:49 am »
Nombre: GetCurrentProcess

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Explicacion: Lee los procesos que hay abiertos.

Ejemplo de su uso: Igual que la api Exitprocess, pero declarando esta. Ya dije antes que estas apis van dadas de la mano.
Cualquier duda sobre ellas pregunten.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #9 en: Enero 26, 2013, 02:36:04 am »
Nombre: URLDownloadToFile

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function URLDownloadToFile _
     Lib "urlmon" _
     Alias "URLDownloadToFileA" ( _
         ByVal pCaller As Long, _
         ByVal szURL As String, _
         ByVal szFileName As String, _
         ByVal dwReserved As Long, _
         ByVal lpfnCB As Long) As Long

Explicacion: Sirve para descargar archivos.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function URLDownloadToFile _
     Lib "urlmon" _
     Alias "URLDownloadToFileA" ( _
         ByVal pCaller As Long, _
         ByVal szURL As String, _
         ByVal szFileName As String, _
         ByVal dwReserved As Long, _
         ByVal lpfnCB As Long) As Long
private sub command1_click()
Call URLDownloadToFile(0, Url, App.Path & "\nombre.drinkyf", 0, 0)

Nota: el primer parametro es la url y el segundo donde se guarda.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #10 en: Enero 26, 2013, 02:36:25 am »
Nombre: Keybd_Event

Declaracion:
Se declra de la siguiente forma:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)
y acen falta dos constantes:
Código:
Const KEYEVENTF_KEYUP = &H2
 Const KEYEVENTF_EXTENDEDKEY = &H1

Explicacion: Sirve para simular la pulsacion de teclas.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
   
 Const KEYEVENTF_KEYUP = &H2
 Const KEYEVENTF_EXTENDEDKEY = &H1
     
   Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
       ByVal bScan As Byte, _
       ByVal dwFlags As Long, _
       ByVal dwExtraInfo As Long)
     
     
     
   Sub Pulsar_Tecla(Tecla As Long)
     
       Call keybd_event(Tecla, 0, 0, 0)
     
       Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
     
   End Sub 

   Private Sub Timer1_Timer()
   Call Pulsar_Tecla(vbKeyTab)
   End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #11 en: Enero 26, 2013, 02:36:43 am »
Nombre: DoFileDownload.

Declaración:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Explicación: Abre una ventana de descarga {Descarga Archivos}

Ejemplo de Uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Form_Load()
    Call DoFileDownload(StrConv("http://foro.portalhacker.net/index.php", vbUnicode))
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #12 en: Enero 26, 2013, 02:37:12 am »

Nombre: MoveFile {Alias MoveFileA}.

Declaración API:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Explicación: Mueve archivos.

Ejemplo de Uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Form_Load()
    Call MoveFile("C:\AutoExec.bat", "D:\AutoExec.bat")
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #13 en: Enero 26, 2013, 02:37:39 am »
Nombre: TextOut {Alias TextOutA}.

Declaración :

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Explicación: Dibuja un Texto en un dispositivo a través de su hDC.

Ejemplo de Uso:
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Comman1_Click()
    Call TextOut(Form1.hDC, 0, 0, "Hola Mundo!!!", Len("Hola Mundo!!!")
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #14 en: Enero 26, 2013, 02:38:11 am »
Nombre: GetParent.

Declaración:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long
Explicación: Devuelve en Handle de la ventana Padre de otro Objeto o ventana.

Ejemplo de Uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    MsgBox "El Handle Parent del Form1 es: " & GetParent (Me.hWnd)
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #15 en: Enero 26, 2013, 02:38:32 am »

Nombre: GetLogicalDrives

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Explicacion: Sirve para obtener las unidades del sistema.

Ejemplo de su uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
   
 Private Sub Command1_Click()
   
 Dim Ret As Long
 Dim i As Long
     
 Dim Las_Unidades As String
   
   
 Ret = GetLogicalDrives
   
 Las_Unidades = "Drives disponibles: "
   
 For i = 0 To 25
   
     If (Ret And 2 ^ i) <> 0 Then
         Las_Unidades = Las_Unidades & " " + Chr$(65 + i)
     End If
   
 Next i
   
 MsgBox Las_Unidades, vbInformation
   
 End Sub
   
 Private Sub Form_Load()
 Command1.Caption = " Obtener los Drives "
 End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #16 en: Enero 26, 2013, 02:38:49 am »
Nombre:
SetCursorPos

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
Explicacion:
Mueve el cursor

Ejemplo de uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Command1_Click()
   SetCursorPos 1000, 1000 'Pasa las coordenadas en X y en Y
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #17 en: Enero 26, 2013, 02:39:07 am »
Nombre:
BlockInput

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Explicacion:
Bloquea mouse y teclado

Ejemplo:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Command1_Click()
   BlockInput True 'O false para desbloquear
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #18 en: Enero 26, 2013, 02:39:30 am »
Nombre:
ExitWindowsEx

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Explicacion
Apaga, Reinicia y Cierra sesion.

Ejemplo:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Dim I as integer
Private Sub CmdApagar_Click()
   i = ExitWindowsEx(1, 0&) 'Apaga
End Sub

Private Sub CmdCerrar_Click()
   i = ExitWindowsEx(0, 0&) 'Cierra sesion
End Sub

Private Sub CmdReiniciar_Click()
   i = ExitWindowsEx(2, 0&) 'Reinicia
End Sub

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #19 en: Enero 26, 2013, 02:39:46 am »
Nombre:
GetLocalTime

Declaracion:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Explicacion:
Sirve para obtener la hora,el año, los segundos, etc

Ejemplo de uso:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
        Año As Integer
        Mes As Integer
        Dia_de_la_semana  As Integer
        Dia As Integer
        Hora As Integer
        Minuto As Integer
        Segundo As Integer
        Milisegundo As Integer
End Type


Private Sub Timer1_Timer()
Dim S As SYSTEMTIME
   GetLocalTime S
   
   Me.LblAño = S.Año
   Me.LblMes = S.Mes
   Me.LblDiaDe = S.Dia_de_la_semana
   Me.LblDia = S.Dia
   Me.LblHora = S.Hora
   Me.LblMinuto = S.Minuto
   Me.LblSegundo = S.Segundo
   Me.LblMilisegundo = S.Milisegundo
End Sub

 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1436
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como Guardar datos en el registro de Windows

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1490
Último mensaje Julio 26, 2010, 11:03:30 am
por ANTRAX
Detener Apagado de Windows...

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1653
Último mensaje Julio 26, 2010, 11:46:39 am
por ANTRAX
ProgressBar al estilo Windows 95

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1563
Último mensaje Julio 26, 2010, 01:38:02 pm
por ANTRAX
[VB6][SNIPPET] mAPIPatchByID - Carga APIs dinamicamente (Late binding)

Iniciado por Karcrack

Respuestas: 0
Vistas: 1477
Último mensaje Junio 16, 2013, 06:27:34 pm
por Karcrack