Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - YAcosta

Páginas: [1] 2 3 4 5 6 ... 20
1
Visual Basic 6 / Saber si existe conexion a internet
« en: Noviembre 18, 2018, 04:37:50 am »
Buenas, tenga esta inquietud. (publique la pregunta en el foro elhacker pq me urge hallar una respuesta, gracias)

Para poder detectar si tengo o no internet uso la libreria Sensapi.dll
Código: (vb) [Seleccionar]
Option Explicit
 
'Constantes para determinar que tipo de Red estamos conectados
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
 
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
 
Private Sub Timer1_Timer()
Dim Ret As Long
 
'Si la Api retorna 0 quiere decir que no hay ningun tipo de conexion de Red
If IsNetworkAlive(Ret) = 0 Then
   Label1 = "No hay"
Else
   Label1 = "Si hay"
End If
End Sub

Esto lo ejecuto desde una maquina virtual con conexión a internet, el timer esta con intervalo 2000 y realizo las siguientes pruebas las cuales describo paso a paso:

Ejecuto el programa y no lo detengo

Obtengo el mensaje "Si hay":  CORRECTO
Dentro de Windows deshabilito la red y el programa indica "No hay": CORRECTO
Lo vuelvo a habilitar y obtengo un "Si hay": CORRECTO



A la maquina virtual le quito la red y obtengo "No hay":  CORRECTO
Lo vuelvo a activar y obtengo "Si hay":  CORRECTO
En ese momento me voy al router y lo apago y el programa cambia a "No hay".  CORRECTO
Hasta aqui Bingo pero...

Con el router apagado voy al programa y lo detengo, lo vuelvo a ejecutar y obtengo un "Si hay" pero el router está apagado!!!

¿porque sucede esto estimados?

Quedo a la espera de sus comentarios, muchas gracias

2
Bases de Datos / Cuelgue de pagina al realizar Update
« en: Enero 11, 2018, 01:43:01 am »
Buenas amigos, por aquí a los tiempos, tengo un problemilla que no logro resolver y ojala alguien me pueda dar una pista de donde estoy cometiendo un error. El tratamiento lo hago desde PHP.

Esto es:

Situación
Una tabla mysql que tiene registros fijos y desde web se realizará siempre Updates con este php:
(tengo que pegar el codigo como imagen porque sino se cae el post)



Se conecta y la pagina muestra los registros correctamente.

Uso
El usuario carga la web previamente identificado en INVENT y modifica un solo registro en un solo campo con el query $modificar de arriba. Todo bien todo lindo.

Caso
Si dos usuarios entran a la misma web desde (digamos) dos tablets ninguno de ellos tocará el mismo registro porque no usaran el mismo usuario. Entonces los dos alteran la misma tabla pero diferentes registros SIEMPRE.

Problema.
Que a veces una o varias webs (o sea tablets) se cuelgan. Ejemplo.
Carlos abre la web (tablet 1)
Mario abre la web (tablet 2)

Carlos edita el registro 20 y graba OK
Mario edita el registro 80 y graba OK
Carlos edita el registro 12 y graba y se cuelga (ojo: no lo hace necesariamente "al mismo tiempo que Mario")... por unos 30 segundos, luego se "descuelga" y graba el registro modificado.

----------------
Dato adicional

Curiosamente este cuelgue no sucede NUNCA si abro las webs en una PC en diferentes browser o en el mismo browser con diferentes tabs. Esto solo sucede si abro la web en tablet o celular ya sea por wifi o con plan de datos. Agradecería me pudieran dar una luz de como corregir el tema. Por cierto la Bd es innodb.




Muchas gracias

3
Bases de Datos / ¿VB6 con MongoDB?
« en: Enero 03, 2018, 10:31:25 pm »
Eso ¿alguien ha tenido experiencia en usar VB6 con Mongo? entiendo que por ODBC se puede conectar pero me gustaria saber si alguien ha experimentando ello y que tal le fue (o le va)

Saludos

4
Visual Basic 6 / MOVIDO: Funcion Leer Serial CPU en VB6 para .NET
« en: Febrero 20, 2017, 11:58:30 pm »
El tema ha sido movido a Visual Basic .NET.

http://leandroascierto.com/foro/index.php?topic=3305.0

5
Visual Basic 6 / MOVIDO: ayuda con datatimepicker, quiero almacenar fechas especificas en mi BD de access
« en: Septiembre 11, 2016, 08:59:31 pm »
El tema ha sido movido a Visual Basic .NET.

http://leandroascierto.com/foro/index.php?topic=3239.0

6
Visual Basic 6 / Borrado selectivo de proyectos recientes
« en: Junio 06, 2016, 03:06:23 pm »
Situación
Cuando abrimos el IDE y vamos a Abrir Proyecto y luego a la lengüeta Recientes tenemos alli todos los proyectos que hemos abierto.

Sucede que a veces probamos proyectos que descargamos de la web y proyectos que los amigos publican aqui y nuestra lista de Recientes crece tanto que fastidia un poco scrollear para encontrar un proyecto especifico.

Solicitud
Deseo borrar algunos de los Recientes, a modo de limpieza - Si, ya vi ese proyecto, ya no lo voy a volver a ver -, entonces ¿Que hacer?

Solución Fallida
Entiendo que habría que ir al registro de Windows (Naturalmente el VB6 esta cerrado) y en esta parte:

HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles

Y seleccionar los que queramos borrar, en mi caso tenia mas de 40 y me borre como 30 dejando 10 lindos proyectos recientes a los cuales volveré peroooo....

Cuando abro el VB6 ahora me muestra UN solo proyecto reciente, el ultimo.

Re-Intento
Quizá me equivoqué, es probable, siempre me equivoco, para estar seguros hice esto:

- Cerré VB6
- Limpié todo la lista de recientes en el regedit, cerré regedit
- Abrí VB6 varios proyectos (mas de 8 proyectitos)
- Cerré VB6
- Abrí Regedit y borre UNO solo de los proyectos recientes, no los mas de 8, cerré regedit
- Abrí VB6 y ahora fue peor porque me quedo limpio la lista de recientes, ni un proyecto reciente.

Imploro:
¿Alguien sabe como puedo corregir eso? que pueda borrar de la lista de recientes solo algunos proyectos.

Gracias

7
General / Web no levanta en mi red local
« en: Junio 01, 2016, 06:20:24 pm »
Este es el caso. Adquirí el dominio cursobox.com (la web en adelante) en Namecheap y el host lo tengo en GoDaddy, alli alojo una simple web para ver que levante, esto es lo que me sucede:

1.- Primer día: Entro a la web y la pagina no carga. Espero que se propaguen los DNS
2.- Tercer día: Entro a la web y la pagina no carga.
3.- Verifico todo (DNS, archivos web) y todo bien y sigue sin cargar.
4.- Uso cualquier otro browser y no carga.
5.- Uso mi celular con conexión wifi y tampoco carga.
6.- Entro en modo incógnito con Chrome y no carga.
7.- Uso un PROXY para simular que estoy en cualquier otro pais y SI carga.
8.- Limpio cache, ejecuto desde el cmd ipconfig /flushdns, renew, etc etc y NADA.
9.- Apago el router, espero media hora para que cambie el IP, prendo el router y no carga.
10.- Repito 8 y reinicio PC y router y... nada (confirmo que la ip dinámica es otra)
11.- Con celular conectado al wifi no carga la web, apago el wifi del cel y aplico plan de datos y si carga la web en el celular.

12.- (esta es linda) Abro una maquina virtual y desde alli hago CualEsMiIp y me muestra que es la misma ip de mi ISP y SI CARGA LA pta pagina... pero si abro fuera de la maquina virtual la web NO ABRE!!!

Entonces... no es problema de ip, no es problema de PC, me queda solo sospechar del router.

Pregunta ¿donde puedo meterme en el router para hacer algo que me permita trabajar con la web? Salvo que sea otra cosa.

Gracias

8
Visual Basic 6 / Programar sobre Windows8.1
« en: Mayo 27, 2016, 11:44:41 am »
Hola amigos, una consulta.

Hasta el día de hoy siempre he programado en VB6 dentro de una maquina virtual con XP, siendo incluso que mi programa ya está corriendo sobre Windows 7 Profesional o Ultimate sin ningún problema pero por habito seguí en XP, aclaro que dentro del código tengo llamada a diversas apis.

La maquina host si es Windows Seven y pensé en dejar XP y programar ya en Seven ya que por allí estoy estable.

Pero siendo que tengo una virtual con Windows 8.1 Pro y que incluso tengo el VB6 instalado allí y que ya es mejor dar un par de pasos mas se me presentan dos preguntas y son:

1.- Si levanto mi código en un VB6 dentro de W8.1 ¿Tendré algún inconveniente o conflicto sobre todo por las Apis? no estoy muy profundizado en el tema de los Apis y mi temor es que una Api que se llamaba ABC en WinXP en 8.1 se llame ABS... o bastará con estar seguros de que esto no pasará si compruebo que mi exe funciona bien en 8.1 ?

y

2.- Si lo de arriba está resuelto y empiezo a programar en 8.1, al crear el exe ¿este correrá sin problemas en un S.O. anterior como Seven (XP no me interesa)?, claro esto lo podría probar pero quizá ya alguien experimento y me pueda ahorrar ese tiempo.


En el fondo mi temor entre uno y otro S.O. (código trabajado sobre XP que trabajaría en 8.1 pero el exe se usaría en Seven) es que las Apis (que creo que es lo único que me daría inconvenientes) tengan los nombres cambiados, la forma de invocarlos o el uso de sus parámetros sean diferentes, etc.... probablemente la respuesta es NO PASA NADA, o DEPENDE DEL API que uses...

Agradecería la orientación de los entendidos de estos temas, mil gracias.

9
Visual Basic 6 / Abrir ventana con ShellExecute pero a un mismo tamaño y posicion
« en: Mayo 01, 2016, 01:10:54 pm »
Una consulta amigos.

Fijense, con este código abro una web:
Código: (VB) [Seleccionar]
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_NORMAL = 1

Private Sub btnCommand1_Click()
Dim X
X = ShellExecute(Me.hWnd, "Open", "https://player.vimeo.com/video/97494784?portrait=0&color=999", &O0, &O0, SW_NORMAL)
End Sub


Y todo bien, pero la ventana se abre "recordando" el tamaño y posición de la ultima vez que se abrió. ¿sera posible abrirlo en un tamaño y posición especificado por mi? así sea que el usuario halla abierto esa ventana y modificado su tamaño quiero que al volverle a dar clic se abra en el tamaño y posición que le indique desde el exe.

Muchas gracias

10
General / Sobre youtube y cambio de video
« en: Abril 28, 2016, 04:32:26 pm »
La verdad no supe como poner el titulo.

El asunto es este:

Situación
Tengo un aplicativo miprograma.exe  (obvio con vb6), dentro de este aplicativo tengo "botones" que se portan como enlaces a videos de youtube y lo uso para brindar ayuda al usuario, así que el usuario si esta en un form X y tiene alguna duda le pueda dar al icono de cámara y se abrira una ventana web con el video alojado en youtube.

Problema
Sucede que muchas veces necesito modificar o extender la explicación que doy en el video, pero lamentablemente youtube no permite reemplazar el video y mantener el mismo enlace, entonces tengo que subir un nuevo video, se crea un nuevo enlace, modifico el exe y luego actualizar en clientes... un poco pesado.

Sueño
Modificar el video manteniendo el mismo enlace y no alterar el ejecutable ¿es posible?

La verdad que mientras escribía esto se me ocurrieron dos soluciones... asi de efectivo es este foro.
Tentativa de Solución 1
Embeber el video de youtube en una pagina web mia, de tal forma que solo mantendría la pagina.

Tentativa de Solución 2
Subir el video a mi propio hosting.


Salvo que halla otra idea.

Saludos

11
Visual Basic 6 / Geolocalizar con VB6
« en: Agosto 19, 2015, 03:37:07 pm »
 Quiero tener el nombre del pais en donde se ejecuta el aplicativo, esto con VB6.
La solución que me parece podría ser:
1.- Obtener la ip publica (aun no encuentro un método adecuado pero veo que seria usando una web de esas que sacan cualesmiIp, recorrerla y sacar el ip, ¿no habra una api? seguire buscando)
2.- Comparar con un diccionario la ip para saber a que pais corresponde, ese diccionario lo tendría en mi Bd.
3.- Mostrar el pais.

¿Sabrán de una mejor forma?

Gracias

12
General / Tipo de Licencia
« en: Agosto 17, 2015, 02:03:12 pm »
Hola amigos.

Tengo un soft que lo voy a dar gratis, no se si el termino adecuado es "liberar", creo que liberar se entiende a dar el aplicativo con su codigo fuente y eso es lo que NO hare, sino dar el exe para uso perpetuo de forma gratuita.... ¿cual es la licencia que se acomoda mejor a lo que quiero hacer? Creo que no es GPL, pero no me queda claro cual es.  Agradecería algún comentario.

Saludos

13
General / Desafío Algoritmico
« en: Junio 24, 2015, 11:05:06 pm »
Esto mensaje lo expuso un amigo y lo republico aqui a ver quien la hace, dice:


Les voy a proponer un desafío algoritmico no tan dificil, pero quizás tengan que pensar un poco.

Tenemos un número, por ejemplo 49 y además dos símbolos: A y B.
A significa "multiplica por uno" y B significa "multiplica por dos".

Si escribo una cadena de símbolos A y B, por el orden en que se escriban "el peso" va a ir aumentando como en los números binarios, es decir el primero va a valer 2^0 el segundo 2^1 el tercero 2^2 y así sucesivamente.

Para escribir el 49 debemos escribir:

A B A A B

Según los pesos, los números serían:

A B A A B
1  2 4 8 16 (sólo pesos)

Pero como B es el símbolo que siempre multiplica por 2, tenemos:

A B A A B
1  4 4  8 32

Donde  1+4+4+8+32 = 49 que es correcto.

El reto es crear un algoritmo que sirva para cualquier numero, encontrar su representación en símbolos A y B.

14
PHP / Include en PHP
« en: Junio 04, 2015, 05:31:41 pm »
Existe algo similar al Include de php para usar en HTML (sin php) y que no sea usar Frames??

15
General / Actualizar programa por internet.
« en: Mayo 26, 2015, 03:46:46 pm »
Amigos una pregunta... yo tengo mi respuesta y acabo de comprobar su funcionalidad. Supongan primero que a su programa le hacen actualizaciones continuamente, digamos una vez a la semana. Pero el cliente no quiere descargar la nueva y reemplazar porque X motivos asi que prefiere pagarte para que TU seas responsable de siempre actualizar su sistema... Dos detalles:
1.- El sistema trabaja en red.
2.- El local donde esta el servidor te queda lejos y consideras resolverlo por internet.

¿Como lo harian?

NOTA: Hablo solo de actualización del ejecutable, hay actualizaciones mas complejas que van mas allá de correr script en la base de datos por única vez y para esos casos conviene la presencia, pero para los casos genéricos pues no tanto. La idea que planteare creo que es hasta absurda pero muy funcional, nada es perfecto y quizá alguna restricción debamos considerar pero en general me funciona. No pretende ser "la mejor idea" en absoluto, solo es UNA IDEA MAS.
P.D: Garantizo que con esto... no lograremos ningún millón.

Páginas: [1] 2 3 4 5 6 ... 20