Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: vivachapas en 11 Abril 2007, 02:11 am



Título: broma con vb
Publicado por: vivachapas en 11 Abril 2007, 02:11 am
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

Citar
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! :huh:


modificado: gracias a EON ahora anda... ;)


Título: Re: broma con vb
Publicado por: ~~ en 11 Abril 2007, 16:43 pm
 :¬¬ en lo q te entretienes  :xD :xD (no te ofendas, es q keria usar los nuevos emoticonos  ;D)

Mira, para hacer algo antes de cerrar tienes q hacerlo asi:
Código:
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:
Ruta = App.Path & "\" & app.exename

1S4ludo


Título: Re: broma con vb
Publicado por: vivachapas en 11 Abril 2007, 20:21 pm
Citar
  en lo q te entretienes    (no te ofendas, es q keria usar los nuevos emoticonos  )
   :(

ahora cambio este:
Citar
Ruta = App.Path & "\" & app.exename

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

muchas gracias...


Título: Re: broma con vb
Publicado por: vivachapas en 11 Abril 2007, 22:49 pm
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

Citar
'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


Título: Re: broma con vb
Publicado por: MazarD en 11 Abril 2007, 23:41 pm
Citar
Y ademas la ruta esta mal obtenida... tienes q usar:
Citar
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:
dim barra as string

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



Título: Re: broma con vb
Publicado por: vivachapas en 12 Abril 2007, 00:34 am
la verdad es q lo q decis... es como cierto pero lo probe y anda = jeje


Título: Re: broma con vb
Publicado por: yeikos en 12 Abril 2007, 02:40 am
Citar
Y ademas la ruta esta mal obtenida... tienes q usar:
Citar
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:
dim barra as string

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



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


Título: Re: broma con vb
Publicado por: satan69 en 12 Abril 2007, 02:45 am
estan matizonas .... jejeje


Título: Re: broma con vb
Publicado por: VirucKingX en 12 Abril 2007, 03:00 am
Citar
Y ademas la ruta esta mal obtenida... tienes q usar:
Citar
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:
dim barra as string

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



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

y que tiene que ver el file copy ???

xD


Bye ( bien fome tu broma  :o )


Título: Re: broma con vb
Publicado por: yeikos en 12 Abril 2007, 13:46 pm
Citar
Y ademas la ruta esta mal obtenida... tienes q usar:
Citar
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:
dim barra as string

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



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

y que tiene que ver el file copy ???

xD


Bye ( bien fome tu broma  :o )

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?


Título: Re: broma con vb
Publicado por: ~~ en 12 Abril 2007, 17:51 pm
Jaja mola la broma  ;D. Deberias hallar antes de nada la resolucion de la pantalla, por q en la mia por ejemplo rebota en mitad de la pantalla


Título: Re: broma con vb
Publicado por: yeikos en 12 Abril 2007, 18:05 pm
A mi me gusta más esta...  ;D

Código:
Do While i = i: Beep: Loop 


Título: Re: broma con vb
Publicado por: vivachapas en 12 Abril 2007, 21:16 pm
Citar
Jaja mola la broma  . Deberias hallar antes de nada la resolucion de la pantalla, por q en la mia por ejemplo rebota en mitad de la pantalla

jaja si... me paso con un amigo  :-X
pero no se como hacerlo.. y como tenia otras cosas mejores en la cabeza a esa la deje asi

con respecto a:

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

no entiendo para q es... pero con el tema de si esta en C:\ repito... q yo lo probe y se ejecuta igual!
no se si a utds no... pero prueben xq estan discutiendo al @$%$


Título: Re: broma con vb
Publicado por: yeikos en 12 Abril 2007, 22:41 pm
Digo que eso de hacer la comprovación para saber si estamos en la raíz del disco es una tonteria, porque es lo mismo C:\dir que C:\\\dir...


Título: Re: broma con vb
Publicado por: Hans el Topo en 12 Abril 2007, 22:56 pm
lo bonito es lanzarle una combinación de teclas que le de la vuelta a la pantalla o le cambie al modo letras claras sobre fondo oscuro


Título: Re: broma con vb
Publicado por: vivachapas en 13 Abril 2007, 03:36 am
si pero ya seria mas complicado... y mis conocimientos son escasos jeje... pense varias cosas q se pueden hacer... pero yo busco las mas simples...
el primero de este tipo q hice fue uno q te mostraba un monotn de MsgBox uno despues de otro... y cada vez q aceptabas uno te abria y cerraba la lectora de CD... y eran muchisimos... jeje

tb queria hacer uno q oculte el mouse pero solo me salio para q no lo muestre en el form, no en toda la pantalla... :-\


Título: Re: broma con vb
Publicado por: MazarD en 14 Abril 2007, 16:59 pm
Citar
Digo que eso de hacer la comprovación para saber si estamos en la raíz del disco es una tonteria, porque es lo mismo C:\dir que C:\\\dir...

Y a lo tuyo se le llama chapuza :)

Que microsoft en esa funcion haya tenido en cuenta tu error no hace que el modo de calcular la ruta sea el correcto. Un dia utilizarás un modulo, un ocx o una función que no lo tiene en cuenta y te preguntarás porque falla el programa. Las rutas tienen una estructura definida, porque salirnos de ella? prueba a poner "c:\\dir" en el explorer a ver que pasa. Y si usamos la ruta con un sendmessage ahí por poner un ejemplo?

Es solo un detalle pero ya puestos solo cuesta una linia de código programar bien y con un mínimo de estilo.


Título: Re: broma con vb
Publicado por: Ch3ck en 20 Abril 2007, 23:54 pm
Valla, no sabia que C:\ es lo mismo C:\\\\\\\\jeje.exe, ya mje ahorro algo de codigo.  ;D