Mensajes

[Abril Negro]

parece ser que en abril negro todo vale no?

DDos no se acepta...

Y bueno... es mi primer Abril Negro como Mod Que tension Tendre que abrir mi cofre de los tesoros

[(MOD: Imposible que funcione:)]

Lo has probado?? Segun veo que utilizas el MSNP es imposible que funcione

Porque pones los Sleep's con If's... son Sub's, osea, no devuelven nada... porque comparas que sea distinto de 0???

El codigo se puede optimizar y no estoy seguro de que sea funcional...(MOD: Imposible que funcione:)

Código [Seleccionar] Expandir

WS.remotehost = messenger.hotmail.com
??? Has intentado probarlo?? Esto esta en nombre CPH??

Ah! Muy graciosa la forma en la que muestras el porcentaje

PD:No pretendo ser cruel

Muy interesante

Tendre que mirarme lo de solo enviar los 'pedazos' que cambien, asi nos haremos una idea para el Stealth

Este es el ejemplo que te dije

Código (vb) [Seleccionar] Expandir

Option Explicit
'KERNEL32
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function CallWindowProc Lib "USER32" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function Invoke(ByVal lpCode As Long, ParamArray vParams() As Variant) As Long
    Dim i           As Long
    Dim lPtr        As Long
    Dim bvASM(&HFF) As Long
   
    lPtr = VarPtr(bvASM(&H0))
   
    Call AddByte(&H58, lPtr)                    '//POP EAX
    Call AddLong(&H59595959, lPtr)              '//POP ECX (x4)
    Call AddByte(&H50, lPtr)                    '//PUSH EAX
   
    For i = UBound(vParams) To LBound(vParams) Step -1
        Call AddByte(&H68, lPtr)                '//PUSH ________
        Call AddLong(CLng(vParams(i)), lPtr)    '//____ XXXXXXXX
    Next i
   
    Call AddCall(lpCode, lPtr)                  '//CALL lpCode
    Call AddByte(&HC3, lPtr)                    '//RET
    Invoke = CallWindowProc(VarPtr(bvASM(&H0)), ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&)
End Function

Private Sub AddCall(ByVal lpPtrCall As Long, ByRef lPtr As Long)
    Call AddByte(&HE8, lPtr)                    '//CALL ________
    Call AddLong(lpPtrCall - lPtr - 4, lPtr)    '//____ XXXXXXXX
End Sub

Private Sub AddLong(ByVal lLong As Long, ByRef lPtr As Long)
    Call CopyMemory(ByVal lPtr&, lLong, &H4)
    lPtr = lPtr + &H4
End Sub

Private Sub AddByte(ByVal bByte As Byte, ByRef lPtr As Long)
    Call CopyMemory(ByVal lPtr&, bByte, &H1)
    lPtr = lPtr + &H1
End Sub

Ejemplo de uso:

Código (vb) [Seleccionar] Expandir

Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32.dll" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Sub Form_Load()
    Dim hMod    As Long
   
    hMod = GetProcAddress(LoadLibrary("KERNEL32"), "Beep")
    Call Invoke(hMod, 200, 500)
End Sub

Utiliza un Select Case envez de tantos Ifs

Código [Seleccionar] Expandir

http://msdn.microsoft.com/en-us/library/bb775233(VS.85).aspx

No me gusta bajar sources desde MU.

Hola,

quería preguntar una estupidez... tengo un código en C++ y quiero hacer la GUI en VB. Creo una dll en C++, y después... ¿cómo la incorporo en VB? ¿Con LoadLibrary? Si ese es el caso, ¿me lo podrían explicar?

Muchas gracias.

No compiles la DLL con la conveccion de llamada CDECL, sino con stdcall

El problema que tienes es que URLDownloadToFile requiere 5 parametros y solo le pasas, 4, cuando intente leer el 5º hay muchas posibilidades de que falle...

Fijate en algun CallAPIByName y veras lo que hacen Usan codigo en ASM para pushear tantos parametros como sea necesario...

Podrias meter el codigo en ASM que pusheara los parametros necesarios en un bytearray y luego cargarlo con CallWindowProc...

Ahora luego pongo un ejemplo

La explicación es sencilla, en este foro no tenemos secciones para distintos idioma, por lo tanto los no hispanohablantes se las apañan como pueden.