Invoke WININET y CopyMemory

[STARZ]

Hola, seguí investigando un poco con el Invoke 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):

Código (vb) [Seleccionar] Expandir


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)
Estoy usando este code para ver el source de una web y lo único que no pude transformar con Invoke fue lo siguiente:

Código (vb) [Seleccionar] Expandir


bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)

Me leí TODO este thread, pero no me solucionó la duda

[BlackZeroX]

.
Estos parametros son los que debes pasar en el API CopyMemory (en la liga que se supone que te leiste TODO hay ejemplos):

Código (vb) [Seleccionar] Expandir


...
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...

Código (vb) [Seleccionar] Expandir


...
Call lCallApiByName("wininet", "InternetReadFile", hFile, VarPtr(bBuffer(0)), 1, VarPtr(Ret))
...


Código (cpp) [Seleccionar] Expandir



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

Código (cpp) [Seleccionar] Expandir



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...

Código (Vb) [Seleccionar] Expandir



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!¡.

[STARZ]

¿Se supone?, no, lo leí todo.
Quizás mi error esté en otro lado. Está marcada la línea que me falla:

Código (vb) [Seleccionar] Expandir


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.  

[STARZ]

Hola.
Solucioné el invoke con rtlmovememory, pero no el de InternetReadFile

Código [Seleccionar] Expandir


       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

[BlackZeroX]

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!¡.

[STARZ]

Gracias Infrangelux!!!!!!
Lo pude solucionar; array de bytes =D

Te hago una pregunta, cuando se que tengo que poner strPtr() o VarPtr?

[BlackZeroX]

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!¡.