GRACIAS..., problema resuelto.
salu2
salu2
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#101
Programación Visual Basic / Re: ¿algunas apis para obtener/modificar le fecha y hora de archivos? VB6
3 Abril 2011, 05:41 AM #102
Programación Visual Basic / ¿algunas apis para obtener/modificar le fecha y hora de archivos? VB6
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.
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 Visual Basic / Re: Codigo de formulario Ayuda !!!!
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 Visual Basic / Re: Codigo de formulario Ayuda !!!!
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:
-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 [Seleccionar]
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 Visual Basic / Re: [DUDA] sobre apis Findnextfile en vb6
31 Marzo 2011, 16:18 PM
pense que el dir era más veloz 
, y si es más facil hacerlo de esa manera.
, y si es más facil hacerlo de esa manera.
#106
Programación Visual Basic / [DUDA] sobre apis Findnextfile en vb6
30 Marzo 2011, 18:10 PM
hola vi las apis para listar archivos, hice este codigo:
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:
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?
Código (vb) [Seleccionar]
' 1 command1 + 1 text1
Option Explicit
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
'Estructura WIN32_FIND_DATA para info de archivos
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 300
cAlternate As String * 14
End Type
Private Declare Function FindFirstFile _
Lib "kernel32" _
Alias "FindFirstFileA" ( _
ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long
'Api FindNextFile (busca el siguiente)
Private Declare Function FindNextFile _
Lib "kernel32" _
Alias "FindNextFileA" ( _
ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long
'Api GetFileAttributes (para recuperar los atributos de los archivos)
Private Declare Function FindClose _
Lib "kernel32" ( _
ByVal hFindFile As Long) As Long
Private Sub Command1_Click()
Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long
hFind = FindFirstFile("d:\*.*", WFD)
tmP = "hFind: " & hFind & vbCrLf
RNext = FindNextFile(hFind, WFD)
While RNext <> 0
Total = Total + 1
tmP = tmP & "rNext: " & RNext & vbCrLf
Archivo = WFD.cFileName
Archivo = Replace(Archivo, Chr(0), "") 'borra los nulos
tmP = tmP & Archivo & vbCrLf
RNext = FindNextFile(hFind, WFD)
Wend
FindClose hFind
Text1.Text = "Total archivos: " & Total & vbCrLf & tmP
End Sub
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 (vb) [Seleccionar]
Private Sub Command1_Click()
Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long
hFind = FindFirstFile("d:\*.*", WFD)
tmP = "hFind: " & hFind & vbCrLf
RNext = FindNextFile(hFind, WFD)
While RNext <> 0
Total = Total + 1
tmP = tmP & "rNext: " & RNext & vbCrLf
Archivo = WFD.cFileName
P = InStr(1, Archivo, Chr(0))
If P > 0 Then Archivo = Left(Archivo, P - 1)
tmP = tmP & Archivo & vbCrLf
RNext = FindNextFile(hFind, WFD)
Wend
FindClose hFind
Text1.Text = "Total archivos: " & Total & vbCrLf & tmP
End Subel 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 Visual Basic / Re: Como obtener hwnd de ventanas hijas de juegos?
30 Marzo 2011, 17:13 PM
ok, no sabia eso, gracias.
#108
Programación Visual Basic / Como obtener hwnd de ventanas hijas de juegos?
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
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 Visual Basic / Re: Obtener/modificar propiedades de ventanas externas
28 Marzo 2011, 16:59 PM
ya esta todo completo gracias raul338.
#110
Programación Visual Basic / Re: Obtener/modificar propiedades de ventanas externas
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.
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.