|
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: 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>
|
|
|
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: ' 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: 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 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?
|
|
|
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.
|
|
|
|
|
|
|