elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 [11] 12 13 14
101  Programación / Programación Visual Basic / Re: ¿algunas apis para obtener/modificar le fecha y hora de archivos? VB6 en: 3 Abril 2011, 05:41 am
GRACIAS..., problema resuelto.
salu2
102  Programación / Programación Visual Basic / ¿algunas apis para obtener/modificar le fecha y hora de archivos? VB6 en: 2 Abril 2011, 16:24 pm
estoy buscando algunas apis que puedan obtener y cambiar la hora y fecha de:
creacion, ultimo acceso, ultima modificacion de un archivo, yo tenia unos codigos pero los perdi... los nombres de las apis ni los recuerdo, ahora estoy que busco pero todavia no hay resultados, si saben cuales son les agradeceria que pusieran los nombres para buscar info.
103  Programación / Programación Visual Basic / Re: Codigo de formulario Ayuda !!!! en: 2 Abril 2011, 00:46 am
para poner comentarios en el textarea tambien podrias usar enumchildwindows y este te pasaria los hwnd de todas las ventanas hijas, ahi saldria el hwnd del textarea luego agarras ese hwnd y usas sendmessage + la constante wm_settext y le pasas la cadena, y asi colocas el comentario.
104  Programación / Programación Visual Basic / Re: Codigo de formulario Ayuda !!!! en: 1 Abril 2011, 16:04 pm
-holas mejor seria que aprendas algo del protocolo web o http sobre formularios.
-otra cosa más sencilla creo que puedes hacer seria tomar un sniffer o cualquier otro programa que intercepte datos, ahora lo pones a interceptar al navegador , ingresas la web que dices, te logueas, dejas tu comentario... ahora te pones a ver los datos y direccion web interceptado y te fijas y analizas los comandos enviados y recibidos por el navegador , ahora lo que haces es usar el control winsock que conecte a esa web y envie "los mismos datos" pero modificados con los datos que quieres enviar, un ejemplo mas o menos de lo que ocurre cuando entras en una web:

un usuario: darkmisterio
una clave: 123456

al loguearte el navegador enviaria algo asi:

POST HTTP1.0<html>...<user="darkmisterio"><pass="123456">...<html>

al enviar el comentario seria mas o menos asi:

POST /HTTP1.0<html>...<msg="hola este es mi comentario">...</html>

*en el primero modificarias "darkmisterio" y "123456" por el nombre y clave que desees
*en el segundo "hola este es mi comentario" por tu comentario
-Bueno no es exactamente como se envia los datos pero mas o menos es una idea que puedes usar.
*ahora para que tu programa lo envia seria algo asi:


Código:
dim login as string, clave as string, comentario as string
login = txtusuario.text
clave = txtclave.text
comentario = txtcomentario.text
winsock1.connect "http://laweb.com", 80
winsock1.senddata "POST HTTP1.0<html>...<user=" & login & "><pass=" & clave & ">...<html>"

winsock1.senddata "POST /HTTP1.0<html>...<msg=" & comentario & ">...</html>
105  Programación / Programación Visual Basic / Re: [DUDA] sobre apis Findnextfile en vb6 en: 31 Marzo 2011, 16:18 pm
pense que el dir era más veloz  :xD , y si es más facil hacerlo de esa manera.
106  Programación / Programación Visual Basic / [DUDA] sobre apis Findnextfile en vb6 en: 30 Marzo 2011, 18:10 pm
hola vi las apis para listar archivos, hice este codigo:

Código
  1. ' 1 command1 + 1 text1
  2. Option Explicit
  3.  
  4. Private Type FILETIME
  5.    dwLowDateTime As Long
  6.    dwHighDateTime As Long
  7. End Type
  8. 'Estructura WIN32_FIND_DATA para info de archivos
  9. Private Type WIN32_FIND_DATA
  10.    dwFileAttributes As Long
  11.    ftCreationTime As FILETIME
  12.    ftLastAccessTime As FILETIME
  13.    ftLastWriteTime As FILETIME
  14.    nFileSizeHigh As Long
  15.    nFileSizeLow As Long
  16.    dwReserved0 As Long
  17.    dwReserved1 As Long
  18.    cFileName As String * 300
  19.    cAlternate As String * 14
  20. End Type
  21.  
  22.  
  23.  
  24.  
  25. Private Declare Function FindFirstFile _
  26.    Lib "kernel32" _
  27.    Alias "FindFirstFileA" ( _
  28.        ByVal lpFileName As String, _
  29.        lpFindFileData As WIN32_FIND_DATA) As Long
  30.  
  31. 'Api FindNextFile (busca el siguiente)
  32. Private Declare Function FindNextFile _
  33.    Lib "kernel32" _
  34.    Alias "FindNextFileA" ( _
  35.        ByVal hFindFile As Long, _
  36.        lpFindFileData As WIN32_FIND_DATA) As Long
  37.  
  38. 'Api GetFileAttributes (para recuperar los atributos de los archivos)
  39.  
  40.  
  41. Private Declare Function FindClose _
  42.    Lib "kernel32" ( _
  43.        ByVal hFindFile As Long) As Long
  44.  
  45. Private Sub Command1_Click()
  46.    Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long
  47.    hFind = FindFirstFile("d:\*.*", WFD)
  48.    tmP = "hFind: " & hFind & vbCrLf
  49.    RNext = FindNextFile(hFind, WFD)
  50.    While RNext <> 0
  51.        Total = Total + 1
  52.        tmP = tmP & "rNext: " & RNext & vbCrLf
  53.        Archivo = WFD.cFileName
  54.        Archivo = Replace(Archivo, Chr(0), "") 'borra los nulos
  55.  
  56.        tmP = tmP & Archivo & vbCrLf
  57.        RNext = FindNextFile(hFind, WFD)
  58.    Wend
  59.    FindClose hFind
  60.    Text1.Text = "Total archivos: " & Total & vbCrLf & tmP
  61. End Sub
  62.  

ejecuto el codigo , y el resultado es una lista en la que se repiten los nombres de los ficheros, luego intente ejecutandolo compilado y el resultado es el mismo:


http://hosting11.imagecross.com/image-hosting-64/3767error.jpg


*luego encontre la solucion cambiando el codigo de esta manera:

Código
  1. Private Sub Command1_Click()
  2.    Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long
  3.    hFind = FindFirstFile("d:\*.*", WFD)
  4.    tmP = "hFind: " & hFind & vbCrLf
  5.    RNext = FindNextFile(hFind, WFD)
  6.    While RNext <> 0
  7.        Total = Total + 1
  8.        tmP = tmP & "rNext: " & RNext & vbCrLf
  9.        Archivo = WFD.cFileName
  10.        P = InStr(1, Archivo, Chr(0))
  11.        If P > 0 Then Archivo = Left(Archivo, P - 1)
  12.  
  13.        tmP = tmP & Archivo & vbCrLf
  14.        RNext = FindNextFile(hFind, WFD)
  15.    Wend
  16.    FindClose hFind
  17.    Text1.Text = "Total archivos: " & Total & vbCrLf & tmP
  18. End Sub


el resultado:

http://hosting11.imagecross.com/image-hosting-64/4585solucion.jpg


*weno, no entiendo si los 2 codigos hacen lo mismo por que uno falla y el otro funciona bien, alguien podria explicar?
107  Programación / Programación Visual Basic / Re: Como obtener hwnd de ventanas hijas de juegos? en: 30 Marzo 2011, 17:13 pm
ok, no sabia eso, gracias.
108  Programación / Programación Visual Basic / Como obtener hwnd de ventanas hijas de juegos? en: 29 Marzo 2011, 23:35 pm
habra alguna forma de obtener los hwnd de las ventanas hijas de los juegos?
por decir: botones, o lista de opciones que al pasar el mouse se sobresalen o brillan o en algunos juegos que tienen cuadros que tienen animaciones como de flash bien llamativo.


he intentado usardo enumchildwindow en ventanas de juegos que tienen gran cantidad de objetos y me salen solo unos pocos hwnd, pero no sale los hwnd de los botones y cuadros de animaciones que digo, intente usar el spy++ del vb6 , pero solo obtengo el hwnd padre y no los hwnd hijas.

anterior intente sacar los hwnd de programas y funciona normal pero de juegos no se por q no se puede.

algunos juegos de los que intente sacar las hwnd hijas:

http://hosting11.imagecross.com/image-hosting-64/135game1.jpg

http://hosting11.imagecross.com/image-hosting-64/8523game2.jpg

http://hosting11.imagecross.com/image-hosting-64/6566game3.jpg
109  Programación / Programación Visual Basic / Re: Obtener/modificar propiedades de ventanas externas en: 28 Marzo 2011, 16:59 pm
ya esta todo completo gracias raul338.
110  Programación / Programación Visual Basic / Re: Obtener/modificar propiedades de ventanas externas en: 28 Marzo 2011, 16:40 pm
hola gracias, weno las propiedades mas comunes de las que kisiera obtener info son estas:

1-hwnd         obtener(enumchildwindows, enumwindows)                                                      *LISTO
2-visible          obtener : (falta),        asignar-cambiar : (showwindow) ventanas padre, hijas
3-top               obtener: (getwindowrect) ventana padre,hija,      asigar-cambiar : (falta)
4-left               obtener: (getwindowrect) ventana padre,hija,      asignar-cambiar : (falta)
5-height           obtener:  (getwindowrect) ventana padre,hija,     asignar-cambiar : (falta)
6-width            obtener: (getwindowrect) ventana padre,hija,      asignar-cambiar : (falta)
7-caption-text  obtener: (getwindowtext),      asignar-cambiar: (setwindowtext) solo ventana padre

8-enable   obtener: (falta),                    asignar-cambiar: (enablewindow) ventana padre, hijas


Las apis para obtener/modificar caption solo se puede aplicar a ventanas padres, si saben de una api para obtener/modificar caption de ventanas hijas (command, label) ponganla.


-algo mas... , como podria emular el motodo unload de vb6 para cerrar una ventana?, intente usar sendmessage con el mensaje SYS_COMMAND y SC_CLOSE y logre cerrar una ventana, pero algunas ventanas como la del block de notas muestran al intentar cerrar ese cuadro de dialogo: "¿desea guardar los cambios? si no?" , y eso impide que se cierre la ventana , habra alguna api que lo haga a la fuerza?


weno eso es todo lo que he conseguido me falta la mitad, les agradeceria si me pudieran ayudar con la mitad restante.
Páginas: 1 2 3 4 5 6 7 8 9 10 [11] 12 13 14
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines