|
21
|
Programación / ASM / Re: Consulta sobre como crear un ListView32
|
en: 15 Marzo 2010, 22:31 pm
|
Es dificil saber sin el codigo pero en teoria esos mensajes funcionaron bien ...
te dejo el codigo completo, espero que sea una pelotudez. 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
|
|
|
22
|
Programación / ASM / Re: Consulta sobre como crear un ListView32
|
en: 15 Marzo 2010, 16:47 pm
|
¿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
|
|
|
23
|
Programación / ASM / Re: Consulta sobre como crear un ListView32
|
en: 15 Marzo 2010, 03:21 am
|
Tuyo Iczelion ¿ 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
|
|
|
24
|
Programación / ASM / Re: Consulta sobre como crear un ListView32
|
en: 15 Marzo 2010, 02:57 am
|
Che gracias por responder. Mientras tanto estvue indagando por mi cuenta. Lo que me pusiste vos 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: 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: 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 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
|
|
|
25
|
Programación / ASM / Consulta sobre como crear un ListView32 (solucionado)
|
en: 15 Marzo 2010, 01:02 am
|
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: 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: _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
|
|
|
26
|
Programación / Programación Visual Basic / Re: [FIX] Error sacar BaseAddress Kernel32 W7 {cInvoke,cRunPe...}
|
en: 4 Marzo 2010, 22:31 pm
|
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: 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!
|
|
|
27
|
Programación / Programación Visual Basic / Re: [FIX] Error sacar BaseAddress Kernel32 W7 {cInvoke,cRunPe...}
|
en: 4 Marzo 2010, 22:16 pm
|
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: 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: 8B4C2408565531C0648B70308B760C8B761C8B6E088B7E208B3638471875F3803F6B7407803F4B7402EBE789295D5EC3 Saludos Originalmente posteado (En Ingles):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
|
|
|
28
|
Programación / Programación Visual Basic / Re: Alguien sabe como manejar los tipo de estructuras de las API de uindoou
|
en: 23 Febrero 2010, 00:23 am
|
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! 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
|
|
|
29
|
Programación / Programación Visual Basic / Re: capture cam web
|
en: 22 Febrero 2010, 02:44 am
|
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
|
|
|
30
|
Programación / Programación Visual Basic / [mod] Modificacion completa al VBAccelerator MDI Tabs!
|
en: 15 Febrero 2010, 21:01 pm
|
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 ACAPD: 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]
|
|
|
|
|
|
|