Mensajes

el boton de cerrar de un frame???? los frame no tienen botones o no entendi

vale haz dicho que con postmessage y sendmessage no sirve? o no sabes como hacerlo con esas apis ???

nos puedes decir cual es yo al menos quisiera saber

gracias!  es cierto lo que dices ahora sol hay que saber como usar cualquier api con cualquier numero de parametros con este metodo 

vale osea que esto funciona? pero e leido y solo envia sms osea segun el titulo "jodemoviles" el soft era para joder los moviles no? o con los sms que se envian jode el movil? alguien que sepa y que lo haya usado y le haya funcionado?

hola buenas pues si mi vb se cuelga en un codigo de API guide que es el ejemplo de loadlibrary:

Código (vb) [Seleccionar] Expandir

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Sub Form_Load()
    On Error Resume Next
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'We're going to call an API-function, without declaring it!
    Dim lb As Long, pa As Long
    'map 'user32' into the address space of the calling process.
    lb = LoadLibrary("user32")
    'retrieve the address of 'SetWindowTextA'
    pa = GetProcAddress(lb, "SetWindowTextA")
    'Call the SetWindowTextA-function
    CallWindowProc pa, Me.hWnd, "Hello !", ByVal 0&, ByVal 0&
    'unmap the library's address
    FreeLibrary lb
End Sub


se cuelga cuando llega a esta linea:

Código (vb) [Seleccionar] Expandir

CallWindowProc pa, Me.hWnd, "Hello !", ByVal 0&, ByVal 0&

alguien sabe porq? y como arreglarlo?

buen analisis amigo! voy a probar podas las posibles valores que pueda y su reaccion gracias

vale mirad

Código (vb) [Seleccionar] Expandir

dir = VarPtr(A0)
dir = dir + 2

CopyMemory ByVal VarPtr(destino), ByVal dir, 10
Debug.Print destino

e puesto 10 bytes y solamente necesito los 2!
significa que estuviera accedienco a memoria prohibida de otra variable o mas de otro programa y lo peor es que me da correcto

gracias BlackZeroX y pues si eso me imaginaba que si se queria acceder a la memoria que no deberia me daria error o me daria un resultado incorrecto pero pero con la funcion copymemory en el tercer parametro lo correcto seria 2 bytes que son el integer pero y entonces seria el numero 2! pero si ingreso digamos 4 , 6 ,8 el resultado el correcto siempre y no me da error ni valor incorrecto :/

vale ahora tengo mas dudad 
e probado con eso y pues ahora que veo no importa el numero de bytes que le escriba en el tercer parametro siempre pasa el resultado porq? si le agregara mas bytes no estaria accediendo a las demas variables que se encuentran en esa posicion??? 

hice este code:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long

Dim DEST_integer As Integer
dim DEST_long as long
dim DEST_CHAR as string


A0.a1 = 50
A0.A2 = 20
A0.A3 = 50000
A0.A4 = "R"

dir = VarPtr(A0)
dir = dir + XXX

CopyMemory ByVal VarPtr(<type DESTINO>), ByVal dir, LEN DE BYTES
Debug.Print destino

End Sub

vale espero que me ayuden no podria estar bien y no resuelvo esto
pues primero esa duda porq escribiendo cualquier longitud en LEN BYTES( tercer parametro ) el numero de bytes que quiero copiar siempre obtengo el resultado correcto y eso esta bien solo que tengo una duda si agrego mas bytes no estaria dandome una respuesta incorrecta ???

y pues la otra duda porq los parametros se pasan por valor? porq no da el resultado correcto pasandolos por referencia ?

gracias