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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  problema con msvbvm60.dll
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problema con msvbvm60.dll  (Leído 1,747 veces)
ZEALOT

Desconectado Desconectado

Mensajes: 38



Ver Perfil
problema con msvbvm60.dll
« en: 16 Enero 2006, 21:17 pm »

holas de nuevo
haber pues, ensayando una injeccion de dll en vb con una dll en vb me encontre con un problema y era que cuando llamaba a cuallquier funcion API estando en la dll, se me volvia miercoles el programa injectado, pero cuando intentaba con una dll hecha en c++ y el injector en vb funcionaba de maravilla, cuando intentava llamar a la misma dll desde un programa de en vb si funcionaba, y hice este code donde pasa exactamente lo mismo pero no es el mismo de la dll y queria saber porque diablos no es funcional este codigo, ya que DEBERIA funcionar, si es posible que alguno de ustedes me pueda ayudar.

Código:
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Long, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim var1 As Long, var2 As Long, var3 As Long, var4 As Long
var1 = GetModuleHandle("msvbvm60.dll")
var2 = GetProcAddress(var1, "rtcShell")
If var2 <= 0 Then MsgBox "funcion no encontrada": Exit Sub
var3 = CreateThread(ByVal 0&, 0&, ByVal var2, ByVal "notepad", 0&, ByVal 0&)
DoEvents
If var3 <= 0 Then
    MsgBox "POR QUE DIABLOS NO FUNCIONA ESTA PINGADA"
Else
    CloseHandle var3
End If
End Sub

o tambien si me pueden facilitar informacion de como vb hace para cargar las funciones de las dlls, ahhh se me olvidaba, con este codigo puedo llamar a las funciones de OTRA dll por ejemplo kernel32 o user32 sin que salgan errores, POR QUE???????


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[VB6] Alternativa funciones del VB6 [MSVBVM60 - API]
Programación Visual Basic
STARZ 3 7,695 Último mensaje 21 Junio 2012, 16:56 pm
por STARZ
[Pauscal] Funciones indocumentada de MSVBVM60
Programación General
Yuki 0 2,337 Último mensaje 1 Diciembre 2015, 20:36 pm
por Yuki
Aplicaciones en VB6 sin msvbvm60.dll
Programación Visual Basic
keef 8 2,958 Último mensaje 29 Diciembre 2020, 03:23 am
por keef
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines