Visual Basic Foro

Tengo un tema que se me escapa de las manos y después de leerme todo lo relacionado con un post de visual 4 android y muchas mas cosas por otros sitios pongo este post en espera de encontrar una luz para orientarme.

Mi fuerte es AS2 con Flash 8 y hace unos 3 meses retome una aplicación de sonido que tenia en AS2 y al ver como funciona todo lo relacionado con Google Play, mi intención es que esta aplicación de sonido la quiero trasladar a Google Play ya que puede difundirse a gran velocidad.

Pasarlo todo a VB6 seria relativamente fácil. Puedo hacerlo.

Esta aplicación de sonido ahora mismo funciona con VB6 y Flash8.
VB6 lo utilizo para cargar archivos de sonido Wav y reproducir los sonidos.

En OnLine Flash lo puede hacer todo menos los Wav, que se tendrían que meter primero en SWFs y entonces si que los puede cargar al igual que los MP3.
El problema es que son mas de 15.000 archivos wav y es una locura pasarlos a swf.

Se que Adobe tiene algún programa que carga los Wav pero no se cual es.
Flash CS5 también puede programar con AS3 para Android pero me niego rotundamente a aprender AS3 porque eso supone demorar este programa por lo menos 1 año o mas.
No se trata de aprender algo básico, es mucho código en AS2 y complejo sino se tiene muchas experiencia y puede grabar y reproducir todo lo que se hace en el programa, tanto sonidos como todos los movimientos de las 32 pistas que tiene.

Alguna idea de por donde seguir ??.

Muchas gracias.

Hola a todos
Se trata de hacer click en el item de un combo con SendMessage

Con esta función selecciono el item que es el (ByVal 2&).
No importa que tenga el ByVal o que lo quitemos
---------Call SendMessage(hWnd, CB_SETCURSEL, ByVal 2&, ByVal 0&)
Aparece el texto en el recuadro y esta seleccionado el item.

Quiero que se haga el click y se ejecute la función asociada a ese item.
Con esto lo que hace es desplegar la lista del combo.
Call SendMessage(hWnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&)

Alguna idea???.

Gracias

Hola.
He podido comprobar que desde win7-8-10 no deja conectarse a Internet y da error.
Lo curioso es que desde el programa de editar el .fla si que deja y ese detalle se me escapo.
Lo he puesto OnLine y no salta el error.
Entra aquí: http://www.rednovaplus.es/reg/Registro.swf
Me imagino que si lo hacemos en VB6 no daría ese error. No lo se.

Flash guarda un registro en la carpeta del user y en ese registro puedo guardar todo lo que quiera.
Este registro lo guardan también Windows, Skype y otros programas de la misma forma que Flash.
Con VB6 lo podemos hacer de la misma forma o como queramos.

La cuestión es ponerlo complicado de manera que no sea tan solo copiar la carpeta del programa.
Cuanto mas complicado, esta claro que mas frenos pondrá a los poco avanzados, pero siempre lo pueden copiar y es por eso que entiendo que el secreto tiene que estar relacionado con un registro en nuestro servidor.
Fíjate que Adobe quiere eliminar sus programas en local y que todo este en la nube.

Este detalle del error me ha dado de primeras, alguna idea para hacer mas seguro que no lo copien.

He leído todo lo que dicen en http://leandroascierto.com/foro/index.php?topic=2936.msg16450
Veo que hay cosas interesantes y como bien dice Albertomi:
El truco es hacerle la vida lo más compleja posible a quien(es) quiera(n) hackear o crakear tu aplicación.

Que estamos perdiendo el tiempo en este tema, casi seguro y es por eso que la aplicación que estoy haciendo la quiero dar gratis y que los ingresos lleguen con servicios y buena voluntad de la gente (lo del café) y que por experiencia te puedo decir que hay gente para todos los gustos y colores.

Haces unos años una persona de Barcelona leyó un articulo mio en una revista y se puso en contacto con la revista para pedir mis datos.
Me contacto y me ingreso 300€ para que siguiera con el proyecto relacionado con la revista.

Dicen que todo el mundo es bueno mientras no se demuestre lo contrario y quiero seguir creyendo que hay buena fe en el mundo y tal vez la forma de conseguir buenos resultados sea empezar por dar ejemplo.

De todas formas yo seguiré con el tema del registro para tener un control de cuanta gente lo utiliza y ver si vale la pena seguir adelante.

Bueno, estamos en contacto, salu2

Este tema es casi imposible de solucionar, aunque Windows lo tiene bastante resuelto, pero no es perfecto de momento.

Con el .exe me refiero al programa que vendemos, es el mismo para todos.
Que en otro PC sea el mismo User puede ocurrir pero reduce las posibilidades.

Con el tema del mail, me aplico (de momento lo de la foto) aunque se me ocurre algo para utilizarlo y que sea un dato mas a tener en cuenta.
Windows al instalar Win8 y 10 te pide una cuenta de Hotmail aunque te la puedes saltar.

Podemos reemplazar lo del mail por su sistema operativo y de esa forma ya tenemos 2 datos que identifiquen ese PC.
Yo he cambiado de Pc y disco duro en varias ocasiones y siempre he mantenido mi XP Profesional.
El ultimo portátil que compre venia con Win7 y lo reemplace por XP en cuanto llegue a casa.
En general a la gente le venden el nuevo y maravilloso Win xxxx y se lo comen encantados.
Menos con Vista que llegaron a hacer una versión especial de XP solo para los usuarios de Vista que quisieran reemplazarlo y GRATIS.

La cuestión es ponerlo mas difícil y tener algún dato/s que sean únicos para ese PC.

Cuando hago algún proyecto para mi uso, suelo empezarlo y voy resolviendo las cosas sobre la marcha según se presentan los problemas.
No soy de los que lo planifican, pienso en la idea pero no en el código

Se te ocurre algún dato mas que ponemos utilizar, aparte de números de serie, etc. ??
Este FinDe me pongo en ello y hago las pruebas online.

Ayer entre en Cotiza tus programas con otro tema totalmente diferente a lo que nos a conectado, pero me lié en esto de la piratería y se me fue el santo al cielo.
Lo que quería preguntar es como hago que un programa corra por la red de forma rápida, MUY RÁPIDA.
El tema de redes sociales es algo que me repele y mucho, aunque no dejo de darle su valor para los que hacen negocio.

El programa es GRATIS
Es una idea que empece hace como 10 años y siempre ha ido terminando en el cajón de los olvidos al no poder resolver los problemas que se presentaban.
En todo ese tiempo, lo he retomado varias veces y mejorado cada vez mas. Unas 6 versiones.

Hace unos 14 meses se me encendió la bombilla y lo retome con mas fuerza que nunca, pero lo he tenido que aparcar en varias ocasiones por no encontrar soluciones al explorer de carpetas y archivos que para mi es esencial, aunque tal como lo tengo hoy, puede pasar muy bien la prueba.

Google hace unos 3 años pago 4 millones US por un programa que esta en la linea del mio, pero por razones que desconozco, se dejo de lado.
Necesito que corra como la pólvora ya que hay varios programas tipo al mio que se lanzarían a copiar la idea rápido y necesito estar por delante o se me comen.
No estoy haciendo una versión nueva de algo que ya existe, seria perder el tiempo.
Utilizo lo que ya existe dándole un enfoque diferente y añadiendo cosas de mi cosecha.

Gratis dicen que no hay nada y es bastante cierto, entonces, si lo doy gratis donde esta el truco ??
En el caso de mi programa es cierto que es gratis y puedo tener negocio de varias formas.
El mejor negocio seria que tenga un gran volumen de usuarios y Google estaría interesado de todas a todas.

Cuando retome hace 14 meses la idea de nuevo, fue por algo que vi de Google y vi claro que es el comprador Nº 1
Pero mientras "llega Google" tengo el goteo de todos los generosos que me inviten a un café y otro publico al que le haría personalizaciones del programa.


Saludos y gracias por tu comentario en el tema del XML.

Hola.
Para que te sea realmente útil mi ayuda, necesito que me pongas dos lineas exactas de lo que tienes que presentar en ese txt.
Ejemplo:
aaaaaaaa + bbbbbbb + ccccccc etc.
aaaaaaaa= 1111  +  bbbbbbb= 222222 etc.
Seguro salud = 042

Y dime si todas las lineas son iguales o tienen diferente cantidad de datos
Por la foto que acompañas deduzco que todas las lineas serán similares.



De todas formas te digo como hacerlo de la forma mas simple.

'1. Tenemos que utilizar una variable o un listbox o un TexBox para recoger toda la info.
'Inserta un TextBox con nombre: TextPrinter con la propiedad de multilinea.
'Lo puedes dejar en visible false para que no se vea.

'2. Todos los labels y textbox tienen que estar indexados para que sea cómodo.
'LabelA(0)
'TextA(0)
'etc.
'Si copias un label y luego le das a pegar, te sale una ventana que te pregunta si quieres hacerlo con una matriz.
'A eso me refiero con lo de que tienen que estar indexados.

'3. Creamos el txt
Dim i As Integer ' Esto es para el bucle del For Nex
On Error Resume Next    ' Error Esto no es necesario, pero te lo pongo para evitarte molestias en principio si no lo haces bien
TextPrinter= "" 'Dejamos el contenedor de texto vació.
For i = 0 To 20       'Aquí ponemos la cantidad de labels y que sera la misma de textbox, también lo podemos poner que sea de forma automática.
    TextPrinter = TextPrinter & LabelA(i) & ":= " & TextA(i) & vbCrLf       ' vbCrLf es el salto de linea
Next i

'4. Guardamos el txt. Puedes darle el nombre que quieras y terminado en .txt
Open App.Path & "\Datos.txt"For Output As #1
Print #1, TextPrinter
Close #1

' Ya tienes guardado el txt con todo lo que quieres imprimir

Suerte

Hola Leandro.
De verdad que te agradezco mucho tu ayuda pero no hay manera de que me funcione.

Quiero pedirte el favor de que me pases un Formulario en un ZIP o RAR con algo tal simple como esto:
Option Explicit
Dim WithEvents LocalBrowser As ShellFolderView

Private Sub Form_Load()
WebBrowser1.Navigate App.Path
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     WebBrowser1.CurrentViewMode = 4
     WebBrowser1.Document.SortColumns = "prop:System.DateModified" 'ORDENA POR FECHA DE MODIFICACION ASENDENTE
End Sub

No necesito que pongas nada mas, solo que funcione.

GRACIAS

Gracias 7913.
Lo malo es que esta en .net y C* y solo conozco vb6.
Aquí dejo la url del proyecto y funciona bien: http://www.codeproject.com/Articles/2783/How-to-programmatically-use-the-Recycle-Bin

Estuve meditando lo que dice Albertomi de guardar una lista de lo que se elimina y creo que esa formula puede servir.
Lo quiero probar un rato de estos.

De todas formas, muchas gracias.

Hola Albertomi.
La opción de abrir la papelera ya la tengo puesta pero no me convence.
Necesito saber como lo hace Windows.

Gracias.