Mensajes

Este no es un buen método, porque ademas de haber muchos diferentes antivirus, durante la instalación en modo avanzado te pregunta la ruta de instalación...

Se podría sacar la ruta del registro donde se encuentran las direcciones de instalación y leerlas una por una... pero es un metodo muy elaborado.

Bueno, pues buscas directamente con una funcion donde esta alojado el nod32.exe por ejemplo....Hay funciones pa buscar archivos en todo el disco.

Seamos realistas, poca gente cambia la ruta de instalacion, y mucho mucho menos el nombre de un ejecutable, en este caso un antivirus.

Porque no buscan directamente el ejecutable de cada antivirus con fileexists?

Por ejemplo en pseudocodigo:

Si existe(c:\archivosdeprograma\nod32.exe) hacer

:::: Aquí lo que se tenga de hacer ::::::

Fin_si

La ruta me la he inventao a modo de ejmplo.

Pero sereis brutos...

Haz una cosa, reinstalalo y luego intenta haber si te deja instalar. A malas a veces los instaladores dan la opción de reparar.

Otra cosa que pudiera ser que si es "pirata" le falten archivos.

Atencion, esta solucionadooooooooooooooooooooooooooooo lo que el anterior codigo hay un error, detecta la colision pero hacia la izquierda de la nave:

Cambiando lo siguiente ya funciona:

imagen3top = Image3.Top - radio
imagen3left = Image3.Left - radio2

Codigo correcto:

Código (vb) [Seleccionar] Expandir


Private Sub Timer3_Timer()

Dim radio, radio2, imagen3top, imagen3left As Integer
Dim colision As Boolean

For radio = 0 To 30
    For radio2 = 0 To 30
        imagen3top = Image3.Top - radio
        imagen3left = Image3.Left - radio2
           If (Image2.Top = imagen3top) And (Image2.Left = imagen3left) Then
             colision = True
            End If
    Next
Next

If colision = True Then
MsgBox "tocado"
Image2.Enabled = False
Image3.Enabled = False
End If
End Sub

E probado en pixeles y nada..hace lo mismo.

Hola, pues tenes que ver primero el procedimiento de el movimiento del proyectil...puede que lo estes moviendo de una forma en que nunca sea igual al top de la imagen del enemigo...o sea si lo moves de 120 en 120 puede ser ...pero si lo moves por ejemplo de 35 en 35 no te va a detectar nada...ahi esta la cuestion busca el numero exacto que funcione para todos...trabajando con los twips...no es dificil...y otra cosa ahi en tu codigo esta mal porque lo unico que tiene que comparar es el Top ...pero no el left...y aparte tenes que comparar si la imagen del proyectil es igual al Top de la iamgen enemiga menos la altura de esta misma...para que lo detecte cuando lo toque en la punta ..ahi lo esta haciendo pero cuando llega al final de la nave....yo hice de estas

Con esto qwue comentas creo que has dado en la clave y es aquí desde un principio que sospecho de mi error. Es lo que comento que los centros no se encuentran.

Lo que probare será de un image aumentarle el radio de colision, así almenos seguro que el centro del image del misil colisionara exitosamente con el image de la nave con un radio mayor que el propio centro .

He creado la siguiente rutina con la idea de que detecte la colision y la he puesto en un timer a 1mS.

Código (vb) [Seleccionar] Expandir

Private Sub Timer3_Timer()

Dim radio, radio2, imagen3top, imagen3left As Integer
Dim colision As Boolean

For radio = 0 To 30
    For radio2 = 0 To 30
        imagen3top = Image3.Top + radio
        imagen3left = Image3.Left + radio2
           If (Image2.Top = imagen3top) And (Image2.Left = imagen3left) Then
             colision = True
            End If
    Next
Next

If colision = True Then
MsgBox "tocado"
Image2.Enabled = False
Image3.Enabled = False
End If
End Sub

Pero no detecta nada...Al final esta en píxeles.

Buenas a todos, estoy programando un juego de marcianitos tipo space invaders en visual basic y tengo el siguiente problema.

Hay una nave en un image3 y el dibujo del disparo producido por mi nave(la que manejo) esta en un image2. Todo funciona bien, el disparo se acerca al image de la nave enemiga (image3) y aquí he creado una funcion para detectar la colision y la he puesto en un timer:

Private Sub Timer3_Timer()
'Rutina para detectar colisiones nave mala 1
If (Image2.Left = Image3.Left) And (Image2.Top = Image3.Top) Then
MsgBox "Tocado", vbInformation
End If
End Sub

Pero...no funciona, se cruza el disparo con la nave enemiga y no sale em msgbox. Nose porque me temo que quiza al ser dimensionado por twips el centro de las dos imágenes no llegan a tocar aunque aparentemente sea asi...No se, alguien tiene alguna solucion ?

PD: El timer he probado tiempos de 1 mS a un par de segundos y no capta nada..No creo que este sea el problema.

Estoy programando ni más ni menos que un....... Pong!!! jaja si, si, me refiero al juego más cutre y aburrido de la historia de los arcades xD Pero esta vez ya lo voy a hacer completo con su pantallita de selección de un player o dos

A mi me hicieron hacer un pong de 1 o 2 jugadores para elegir en la universidad pero programado en flash. La verdad esque esta divertido un pong.

Por cierto, sigo con mi juego de las guerras de las galaxias y va viento en popa. Las naves ya se mueven pero he tenido un pequeño problema con el sonido ya que al cerrar el juego se keda como el sonido pillado. Por lo demas perfecto.

Pues yo aprovechando los recursos gráficos de esa pagina y metiendo de los mios lo voy a hacer en visual basic. Y si me queda wapo lo haré en delhpi que seguro que lo hago muchisimo mejor.

PD: Al final no he usado los recursos de esa pagina. He pillao haciendo una chapuza las naves de las guerras de las galaxias.

Lucasarts tiembla !

Esta interesante, pero una recomendación:

La parte de arriba de los botones "escanear carpeta.." y esos esta muy bien, pero el fondo del programa ese oscuro con el listbox negro...personalmente no me gusta. Te quedaria wapo wapo si también fuera del color así blanco de la segunda imágen. Un saludo.

También si quieren un foro...porque no crean uno y se lo ponen de firma ? Es como cuando alguien crea su página y lo pone. Si mal no recuerdo, cuando salio la primera ezine de insecurity la llamaron"Ezine no oficial de el foro de elhacker.net" o algo así...

Es mas, no hace falta que pongan ni nombres ni nada, si lo tienen en la firma ya la gente que le interese entrará.