Mensajes

Es dificil saber sin el codigo pero en teoria esos mensajes funcionaron bien ...

te dejo el codigo completo, espero que sea una pelotudez.

Código (asm) [Seleccionar] Expandir

format PE GUI 4.0
entry start

include 'win32w.inc'

section '.data' data readable writeable

  _class TCHAR 'CocusUI®',0
  _title TCHAR 'Window de prueba',0
  _error TCHAR 'Startup failed.',0
  _dlgLV TCHAR 'SysListView32',0
  _cap1 TCHAR 'LV32',0

  dlglvheader dd ?
  dlglvhwnd dd ?
  dlghwnd dd ?
  dlghdc dd ?
  tmp dd ?

  wc WNDCLASS 0,WindowProc,0,0,NULL,NULL,NULL,COLOR_BTNFACE+1,NULL,_class

  msg MSG
  lvi LV_ITEM
  lvc LV_COLUMN
  hdi HD_ITEM

section '.text' code readable executable

  start:

        invoke  GetModuleHandle,0
        mov     [wc.hInstance],eax
        invoke  LoadIcon,0,IDI_APPLICATION
        mov     [wc.hIcon],eax
        invoke  LoadCursor,0,IDC_ARROW
        mov     [wc.hCursor],eax
        invoke  RegisterClass,wc
        test    eax,eax
        jz      error

        invoke  CreateWindowEx,0,_class,_title,WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU,128,128,256,192,NULL,NULL,[wc.hInstance],NULL
        test    eax,eax
        jz      error

        mov     [dlghwnd],eax
        invoke  GetDC,eax
        mov     [dlghdc],eax

        jmp     createlv


  createlv:
        invoke CreateWindowEx,0,_dlgLV,NULL,WS_CHILD + WS_TABSTOP + WS_VISIBLE + LVS_REPORT,5,5,240,155,[dlghwnd],0,[wc.hInstance],NULL
        mov    [dlglvhwnd],eax
        invoke SetWindowLong,[dlglvhwnd], GWL_WNDPROC, WindowProc2
        invoke ShowWindow,[dlglvhwnd],SW_SHOW

        mov     [lvi.mask], LVIF_TEXT ;or LVIF_STATE
        mov     [lvi.iItem], 0
        mov     [lvi.iSubItem], 0
        mov     [lvi.pszText], _cap1

        invoke  SendMessage,[dlglvhwnd], LVM_INSERTITEM,0,[lvi]

        cmp     eax,-1
        ja      msg_loop
        invoke  MessageBeep, MB_OK

  msg_loop:
        invoke  GetMessage,msg,NULL,0,0
        cmp     eax,1
        jb      end_loop
        jne     msg_loop
        invoke  TranslateMessage,msg
        invoke  DispatchMessage,msg
        jmp     msg_loop

  error:
        invoke  MessageBox,NULL,_error,NULL,MB_ICONERROR+MB_OK

  end_loop:
        invoke  ExitProcess,[msg.wParam]

proc WindowProc2 uses ebx esi edi, hwnd,umsg,wparam,lparam
     invoke  DefWindowProc,[hwnd],[umsg],[wparam],[lparam]

     cmp     [umsg], LVM_INSERTITEM
     je      .beep
     ret

     .beep:
     invoke     MessageBeep, MB_OK
     ret
endp

proc WindowProc uses ebx esi edi, hwnd,wmsg,wparam,lparam
        cmp     [wmsg],WM_DESTROY
        je      .wmdestroy

  .defwndproc:
        invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]

        jmp     .finish
  .wmdestroy:
        invoke  DestroyWindow,[dlglvhwnd]
        invoke  PostQuitMessage,0
        xor     eax,eax
  .finish:
        ret
endp



section '.idata' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL',\
          shell32,'SHELL32.DLL'

  include 'api\kernel32.inc'
  include 'api\user32.inc'
  include 'api\shell32.inc'  Saludos y gracias por las respuestas

¿Ambos mensajes devuelven -1? Teniendo el codigo lo mejor que podes hacer es depurar el programa con el WinDbg.

Recien lo probe con Olly, me devuelven 0. A su vez agregue un CMP para no tener que andar debugueando. cual sera el problema?

edit, dejo foto del Olly:


saludos

Tuyo

Código [Seleccionar] Expandir

inc lvi.iSubItem

Iczelion

Código [Seleccionar] Expandir

mov     [lvi.iSubItem], 0

¿ No será por eso ? (Mucho de ASM no manejo )

Al revez, el que uso yo usa los []. Esto es porque le estoy pasando como puntero. (de todas formas sin [] no funciona ). Estoy casi seguro que es un problema al pasar el string; aun sigo viendo que carajos pasa.

Gracias por contestar, ademas espero otras respuestas.

saludos

Hola!

Fíjate por aqui: http://win32assembly.online.fr/tut31.html

Quizás te ayude

Saludos!

Che gracias por responder. Mientras tanto estvue indagando por mi cuenta. Lo que me pusiste vos

Código (asm) [Seleccionar] Expandir

  LOCAL lvc:LV_COLUMN
  mov lvc.imask,LVCF_TEXT+LVCF_WIDTH
  mov lvc.pszText,offset Heading1
  mov lvc.lx,150
  invoke SendMessage,hList, LVM_INSERTCOLUMN,0,addr lvc yo lo tengo asi:

Código (asm) [Seleccionar] Expandir

       mov     [lvc.mask], LVCF_TEXT or LVCF_WIDTH
       mov     [lvc.pszText], _cap1 ; aca tengo duda de que esto sea asi
       mov     [lvc.cx], 50
       invoke  SendMessage, [dlglvhwnd], LVM_INSERTCOLUMN, 0, [lvc]

y para el tema de agregar un item en ese codigo esta asi:

Código (asm) [Seleccionar] Expandir

 mov lvi.imask,LVIF_TEXT
 inc lvi.iSubItem
 invoke wsprintf,addr buffer, addr template,[edi].nFileSizeLow
 lea eax,buffer
 mov lvi.pszText,eax
 invoke SendMessage,hList, LVM_INSERTITEM,0, addr lvi
y yo por mi parte lo tengo como

Código (asm) [Seleccionar] Expandir

       mov     [lvi.iItem], 0
       mov     [lvi.iSubItem], 0
       mov     [lvi.mask], LVIF_TEXT
       mov     [lvi.pszText], _cap1
       invoke  SendMessage,[dlglvhwnd], LVM_INSERTITEM,0,[lvi]

misteriosamente sigue sin funcionar. sorry que sea duro con esto, recien empiezo

saludos

Hola que tal, bueno me decidi a meterme en el tema de ASM. Hasta el momento va todo bien, pero me surgio una duda. Quiero crear un control ListView32, lo creo, perfecto. Ahora quiero agregar una columna, para ello me estoy basando en el codigo fuente del ucListView en VB6 de Carles P.V. Bueno, el tema es que no consigo meter el item del header, o algo asi. Aca adjunto el pedazo de codigo:

Código (asm) [Seleccionar] Expandir

 createlv:
        invoke CreateWindowEx,0,_dlgLV,NULL,WS_CHILD + WS_TABSTOP + LVS_REPORT + WS_VISIBLE,5,5,240,155,[dlghwnd],0,[wc.hInstance],NULL
       mov    [dlglvhwnd],eax
       invoke ShowWindow,eax,SW_SHOW
       invoke  SetWindowLong,[dlglvhwnd], GWL_WNDPROC, WindowProc2                

       ; poner el lv en modo list
       invoke GetWindowLong,[dlglvhwnd],GWL_STYLE
       mov    [tmp], eax
       mov    [tmp], tmp+LVS_LIST-LVS_ICON-LVS_SMALLICON-LVS_REPORT
       invoke SetWindowLong,[dlglvhwnd],GWL_STYLE,[tmp]

       ; agregar columna
       invoke lstrlen,_cap1           ; len del caption
       mov    [hdi.cchTextMax], eax   ; len
       mov    [hdi.pszText], _cap1    ; caption
       mov    [hdi.cxy], 100          ; width
       mov    [hdi.fmt], HDF_STRING+HDF_CENTER ; formato
       mov    [hdi.mask], HDI_TEXT+HDI_WIDTH+HDI_FORMAT  ; mask

       invoke SendMessage,[dlglvhwnd],LVM_INSERTCOLUMN,0,[lvc] ;
       invoke SendMessage,[dlglvhwnd],4127,0,0                 ; buscar header dentro del lview
       mov    [dlglvheader], eax                               ; guardo resultado
       invoke SendMessage,eax,HDM_SETITEM,0,[hdi]              ; seteo el item en el header y tengo declarado asi:

Código (asm) [Seleccionar] Expandir

 _dlgLV TCHAR 'SysListView32',0
 _cap1 TCHAR 'LV32',0

 dlglvheader dd ?
 dlglvhwnd dd ?

 tmp dd ?

 lvc LV_COLUMN
 hdi HD_ITEM
estoy usando FASM. wc.hInstance viene de WNDCLASSEX que uso para crear la ventana. WndProc2 es un procedimiento que llama al DefProcWnd. Ah y probe con y sin [] en hdi y lvc.

PD: si quito la parte de 'cambiar el estilo' se ve el recuadro blanco del LV. Pero, con el codigo ese, queda del color de fondo de la ventana.

alguna sugerencia?

desde ya muchas gracias  

uf perfecto! yo no uso esos codigos, pero siempre que me pasaban alguno, no funcionaba en W7 y tenia que recurrir a la querida PC virtual.

ahora yo pregunto (para boludear), ese opcode que pusiste, si lo llamo con CallWindowProc, me devuelve el base address asi nomas no?

es un poco engañoso el tema de comparar la primera letra nomas, pero dudo que se cargue otra DLL que empieze con K antes que el k32 o el ntdll

en fin, perfecto, saludos

Si llamas a esa ShellCode con CallWindowProc este devolvera 0, tienes que pasarle el puntero a un buffer (LONG) donde recibirás el Address en [ESP+8] (2ndo parametro)... Seria algo asi:

Código [Seleccionar] Expandir

CallWindowProc VarPtr(bvCode(0)),byval 0&, byval varptr(lBuffer),byval 0&, byval 0&

Y no solo compara que el modulo cargado empiece por 'K'/'k' sino que mida tambien 12 caracteres (UNICODE)(24bytes)... osea que sea "KERNEL32.DLL"

perfecto, todos los dias se aprende algo nuevo despues voy a indagar en ASM, tendria que aprenderlo de una vez por todas jajaj

saludos!

[CallAPI]

Bueno, supongo que algunos se habran dado cuenta que en W7 algunos CallAPI no funcionan... Eso es porque el W7 pone primero NTDLL antes que KERNEL32 en los modules cargados (Peb->InInitOrder[0]->BaseAddress != &KERNEL32 )... Es por eso que he programado (Basandome en otros) este shellcode que saca el BaseAddress de K32 en cualquier W$ NT aqui tenies el codigo:

Código [Seleccionar] Expandir

http://karcrack.pastebin.com/TWmj5G5c

Y bueno, para solucionar el problema en los codigos que utilizan un pequeño shellcode para sacar el BaseAddres basta con reemplazar la constante THUNK_KERNELBASE por estos OPCODES:

Código [Seleccionar] Expandir

8B4C2408565531C0648B70308B760C8B761C8B6E088B7E208B3638471875F3803F6B7407803F4B7402EBE789295D5EC3

Saludos

Originalmente posteado (En Ingles):

Código [Seleccionar] Expandir

http://www.advancevb.com.ar/?p=499

uf perfecto! yo no uso esos codigos, pero siempre que me pasaban alguno, no funcionaba en W7 y tenia que recurrir a la querida PC virtual.

ahora yo pregunto (para boludear), ese opcode que pusiste, si lo llamo con CallWindowProc, me devuelve el base address asi nomas no?

es un poco engañoso el tema de comparar la primera letra nomas, pero dudo que se cargue otra DLL que empieze con K antes que el k32 o el ntdll

en fin, perfecto, saludos

[SECURITY_DESCRIPTOR]

Hola me gusta programar en VB 6.0 manejo alguna Api's de uindoous pero no he podido conseguir hacer funcionar otras por que manejan declaran variables como esctructure o como mas abajo aparece en negrtita osea

pSecurityDescriptor As SECURITY_DESCRIPTOR

Public Declare Function AccessCheck Lib "advapi32.dll" Alias "AccessCheck" (pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal ClientToken As Long, ByVal DesiredAccess As Long, GenericMapping As GENERIC_MAPPING, PrivilegeSet As PRIVILEGE_SET, PrivilegeSetLength As Long, GrantedAccess As Long, ByVal Status As Long) As Long

El que me pueda ayudar de verdad es un capo, saludos Mixer

ApiViewer!

Código (vb) [Seleccionar] Expandir

Private Type SECURITY_DESCRIPTOR
Revision As Byte
Sbz1 As Byte
Control As Long
Owner As Long
Group As Long
Sacl As ACL
Dacl As ACL
End Type

sabes lo que pasa, intenta hacer bitblt al picture donde tenes la captura y pintarlo en otro picture, fijate que te va a quedar negro o del color de fondo del picture de la captura. tenes que usar otro metodo, donde puedas obtener la imagen.

nose si me entendiste, pero con eso, por lo menos yo, no podia obtener la foto de la webcam, era imposible. habia que buscar otro metodo como el del clipobard o otro que habia hecho cobein (que no recuerdo si usaba el clipboard)

saludos

Hacia mucho que no posteaba por aca, asi que .. lo ultimo que hice: MDI TABS mod

Tiene unas cuantas modificaciones con respecto al original:


• Libre de referencias al SSUBTMR6.dll
• Ningun modulo o clase adicional
• Imagenes de las pestañas y botones pintadas por UxTheme
  
  
  • Se mantienen las originales (OwnerThemed_XXXXX) por si el sistema no esta usando ningun theme
• Iconos sobre las pestañas
• WM_MOUSEWHEEL (no anda del todo bien) para scrollear las pestañas
• Click con el boton del medio del mouse para cerrar una pestaña
• Imagenes HOVER sobre pestañas y botones
• Deteccion del cambio del caption de MDI Child
• Drag & Drop funcional
• Le removi el AlignBottom ya que el UxTheme no admite usar pestañas al revez
  
En fin, tenes que probarla para ver como funca. Ya se que algunas cosas andan medias chulengas, es por eso que cualquier fix vendria de pelos.

Bajala de

ACA

PD: Yo le envie un mail al autor de esta clase preguntandole si podia postearla; ya que no hubo respuesta la subo igual. El autor es Steve McMahon.[/list][/list]