broma con vb

[vivachapas]

hola... estuve haciendo un programa... muy simple para mandarle a mis amigos...
es muy sencillo... pero tengo un problema
yo quiero q cada vez q le den click a la cruz se ejecute otro en vez de cerrarse...
les dejo lo q tengo:

un solo form:
yo puse una label con un msg medio guarango jeje pero le puden poner imagenes o lo q se les ocurra

Dim Ruta As String

Private Sub Form_Load()
App.TaskVisible = False
Ruta = App.Path & "\" & App.EXEName
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "NO SE CIERRA puñetero QUE ENTENDES!", vbCritical, "BOLUDO!"
Shell Ruta
Cancel = 1
End Sub

bueno si alguien me puede decir q hago mal... o q me falta... ya probe con varios codigos de internet pero no lo logro!


modificado: gracias a EON ahora anda...

[~~]

  en lo q te entretienes  (no te ofendas, es q keria usar los nuevos emoticonos  )

Mira, para hacer algo antes de cerrar tienes q hacerlo asi:

Código [Seleccionar] Expandir

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = 0 Then 'Significa que se ha cerrado con la X:
    MsgBox "NO SE CIERRA puñetero QUE ENTENDES!", vbCritical, "BOLUDO!"
    Shell Ruta
    Cancel = 1
End If

End Sub


Y ademas la ruta esta mal obtenida... tienes q usar:

Código [Seleccionar] Expandir

Ruta = App.Path & "\" & app.exename

1S4ludo

[vivachapas]

en lo q te entretienes    (no te ofendas, es q keria usar los nuevos emoticonos  )

ahora cambio este:

Ruta = App.Path & "\" & app.exename

y el otro codigo lo pruebo como esta si no lo cambio...

muchas gracias...

[vivachapas]

bueno aca les dejo otro codigo... en realidad a este lo habia puesto en mi troyano... q nunca se termino jeje y bueno se los dejo aca para q lo vean
lo q haces es mover como rebotando el mouse...

form:
timer1

'arriba de todo
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Dim a As Long, b As Long, c As Long, d As Long

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
a = a + c * 10
b = b + d * 10
x = SetCursorPos(a, b)
If a >= 800 Then
c = -1
End If
If a <= 0 Then
c = 1
End If
If b >= 600 Then
d = -1
End If
If b <= 0 Then
d = 1
End If
End Sub

[MazarD]

Y ademas la ruta esta mal obtenida... tienes q usar:

Código:

Ruta = App.Path & "\" & app.exename

Sigue estando mal obtenida, si el exe está en c: la barra sobrará por lo tanto sería:

Código [Seleccionar] Expandir


dim barra as string

if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename

[vivachapas]

la verdad es q lo q decis... es como cierto pero lo probe y anda = jeje

[yeikos]

Y ademas la ruta esta mal obtenida... tienes q usar:

Código:

Ruta = App.Path & "\" & app.exename

Sigue estando mal obtenida, si el exe está en c: la barra sobrará por lo tanto sería:

Código [Seleccionar] Expandir


dim barra as string

if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.ExeName, "C:\\\\\\\bin.exe"

[satan69]

estan matizonas .... jejeje

[VirucKingX]

Y ademas la ruta esta mal obtenida... tienes q usar:

Código:

Ruta = App.Path & "\" & app.exename

Sigue estando mal obtenida, si el exe está en c: la barra sobrará por lo tanto sería:

Código [Seleccionar] Expandir


dim barra as string

if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.ExeName, "C:\\\\\\\bin.exe"

y que tiene que ver el file copy ???

xD


Bye ( bien fome tu broma  )

[yeikos]

Y ademas la ruta esta mal obtenida... tienes q usar:

Código:

Ruta = App.Path & "\" & app.exename

Sigue estando mal obtenida, si el exe está en c: la barra sobrará por lo tanto sería:

Código [Seleccionar] Expandir


dim barra as string

if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.ExeName, "C:\\\\\\\bin.exe"

y que tiene que ver el file copy ???

xD


Bye ( bien fome tu broma  )

Antes de reirte analiza esa línea de código un poco más...

He utilizado FileCopy igual que podría haber utilizar Kill, en definitiva... comandos que interactuan con archivos, ahora contestame tú, VirucKingX... ¿qué pretendo demostrar?