Hola, seguí investigando un poco con el Invoke (http://cobein.com/wp/?p=567) que ustedes me explicaron como usar ;-) (gracias por eso).
Me han surgido dos dudas y me gustaría que me enseñaran a resolverlas tras estar probando y probando posibles soluciones.
1 - (tratando con hooks):
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Public Type ESTRUCTURADELHOOK
VkCode As Long
ScanCode As Long
Flags As Long
Time As Long
DwExtraInfo As Long
End Type
____________________________________________________________________
Uso:
Dim KbHook As ESTRUCTURADELHOOK
CopyMemory kbHook, Parameters, Len(kbHook)
¿Cómo hago Invoke CopyMemory teniendo declarado un type ahi arriba?
2 - Tratando con WININET (Ejemplo de FreeVBCode (http://www.freevbcode.com/ShowCode.asp?ID=1252))
Estoy usando este code para ver el source de una web y lo único que no pude transformar con Invoke fue lo siguiente:
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
Me leí TODO este thread, (http://foro.elhacker.net/programacion_visual_basic/help_invoke_internetreadfile_api-t343917.0.html) pero no me solucionó la duda
.
Estos parametros son los que debes pasar en el API CopyMemory (en la liga que se supone que te leiste TODO hay ejemplos):
...
void CopyMemory(
__in PVOID Destination,
__in const VOID *Source,
__in SIZE_T Length
);
...
Más info: http://msdn.microsoft.com/en-us/library/windows/desktop/aa366535%28v=vs.85%29.aspx
Creo que no te lo leiste todo como has mencionado...
http://foro.elhacker.net/programacion_visual_basic/help_invoke_internetreadfile_api-t343917.0.html;msg1681569#msg1681569
mas explicitamente...
...
Call lCallApiByName("wininet", "InternetReadFile", hFile, VarPtr(bBuffer(0)), 1, VarPtr(Ret))
...
BOOL InternetReadFile(
__in HINTERNET hFile,
__out LPVOID lpBuffer,
__in DWORD dwNumberOfBytesToRead,
__out LPDWORD lpdwNumberOfBytesRead
);
Más info de la api: http://msdn.microsoft.com/en-us/library/windows/desktop/aa385103%28v=vs.85%29.aspx
NOTA: no es necesario que sepas C/C++ solo necesitas leer la MSDN y saber que pasar en dichos parametros...
Te dejo un ejemplo más:
GetCursorPos
BOOL WINAPI GetCursorPos(
__out LPPOINT lpPoint
);
lee la descripcion aqui en la MSDN http://msdn.microsoft.com/en-us/library/windows/desktop/ms648390%28v=vs.85%29.aspx
para saber que invocar te vas al recuadro Requirements hay revisas la libreria... en este caso es User32.dll y no presenta nombre como GetCursosPosW o GetCursosPosA (), asi que llamamos por GetCursosPos...
Option Explicit
Private Type PointAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Dim udtCursorPos As PointAPI
MsgBox Invoke("User32", "GetCursorPos", VarPtr(udtCursorPos))
MsgBox udtCursorPos.x & vbCrLf & udtCursorPos.y
End Sub
Con esto ya podras crear los invoques del CopyMemory y de cualquier API...
Dulces Lunas!¡.
¿Se supone?, no, lo leí todo.
Quizás mi error esté en otro lado. Está marcada la línea que me falla:
Option Explicit
Public Function OpenURL(ByVal sUrl As String) As String
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
hOpen = Invoke("WININET", "InternetOpenW", StrPtr("Hola, soy un navegador WEB"), 0, _
0, 0, 0)
hOpenUrl = Invoke("WININET", "InternetOpenUrlW", hOpen, StrPtr(sUrl), 0, 0, &H80000000, 0)
bDoLoop = True
While bDoLoop
sReadBuffer = 0
'bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead) 'LÍNEA ORIGINAL QUE ANDA
bRet = Invoke("wininet", "InternetReadFile", hOpenUrl, VarPtr(sReadBuffer), Len(sReadBuffer), VarPtr(lNumberOfBytesRead)) 'ESTA LINEA FALLA
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
If hOpenUrl <> 0 Then Invoke "WININET", "InternetCloseHandle", hOpenUrl
If hOpen <> 0 Then Invoke "WININET", "InternetCloseHandle", hOpen
OpenURL = sBuffer
End Function
Gracias por los ejemplo, en serio, pero ya se (o por lo menos eso creo yo) arreglármelas con los Invokes. Lo único en lo que le pifio es en crear strings al vuelo, strptr() o los varptr(), etc. Todavía no me queda claro cuando ponerlos, estoy seguro que me salta error por eso
[Estoy leyendo lo que me pusiste del retlCopyMemory y edito]
Edito: Sí, creo que mi code del RtlCopymem ocurre porque yo no pongo nunca varPtr(). ¿Cuándo debo poner VarPtr(), StrPtr(), (no se si hay más) ?
el StrPtr() lo pongo o lo saco, pruebo cuando anda y cuando no, y así se si dejarlo o no.
Gracias por responder. :)
Hola.
Solucioné el invoke con rtlmovememory, pero no el de InternetReadFile
Invoke "KERNEL32", "RtlMoveMemory", VarPtr(a), VarPtr(b), Len(a)
me habían faltado poner los VarPtr, aunque igualmente no sé cuando ponerlos y cuando NO.
Salduos
Revisa bien el ejemplo que yo puse, de hecho puedes tomar 100% el ejemplo y cambiar algunas cosas para tu proposito.
Nota: pista Jamas use un array de string si no de bytes como lo dice claramente la MSDN...
Dulces Lunas!¡.
Gracias Infrangelux!!!!!!
Lo pude solucionar; array de bytes =D
Te hago una pregunta, cuando se que tengo que poner strPtr() o VarPtr?
cuando veas parametros asi...
BOOL InternetReadFile(
__in HINTERNET hFile,
__out LPVOID lpBuffer,
__in DWORD dwNumberOfBytesToRead,
__out LPDWORD lpdwNumberOfBytesRead
);
lp/LP = Long Pointer (Puntero...) pero debes leer las descripciones... tambien depende de como declares la API...
strptr() es un puntero a el 1 elemento de una cadena de tipo string...
varptr() es para obtener la dirrecion de una variable X (CUAL SEA: string UDT, retorno de funcion, long, integer, single, currency, etc...)
OJO: Tambien debes leer las descripciones de los parametros en la MSDN...
Dulces Lunas!¡.