 Autor
|
Tema: broma con vb (Leído 6,328 veces)
|
vivachapas
 Desconectado
Mensajes: 612
|
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... 
|
|
|
|
« Última modificación: 11 Abril 2007, 22:42 pm por vivachapas »
|
En línea
|
|
|
|
|
~~
|
 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: 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: Ruta = App.Path & "\" & app.exename 1S4ludo
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
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...
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
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
|
|
|
|
|
En línea
|
|
|
|
|
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: dim barra as string
if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename
|
|
|
|
|
En línea
|
-Learn as if you were to live forever, live as if you were to die tomorrow- http://www.mazard.infoirc://irc.freenode.org/elhacker.net |
|
|
vivachapas
Desconectado
Mensajes: 612
|
la verdad es q lo q decis... es como cierto pero lo probe y anda = jeje
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
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: dim barra as string
if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename FileCopy App.Path & "\" & App.ExeName, "C:\\\\\\\bin.exe"
|
|
|
|
|
En línea
|
|
|
|
satan69
Desconectado
Mensajes: 341
|
estan matizonas .... jejeje
|
|
|
|
|
En línea
|
|
|
|
VirucKingX
Desconectado
Mensajes: 541
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: dim barra as string
if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename FileCopy App.Path & "\" & App.ExeName, "C:\\\\\\\bin.exe" y que tiene que ver el file copy ??? xD Bye ( bien fome tu broma  )
|
|
|
|
|
En línea
|
 Bye |
|
|
yeikos
Desconectado
Mensajes: 1.424
|
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: dim barra as string
if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename 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?
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
broma bat!!!
« 1 2 ... 8 9 »
Hacking
|
von Newman
|
88
|
60,101
|
27 Diciembre 2010, 23:42 pm
por von Newman
|
|
|
[AUDIO] Broma --> Tragedia
Foro Libre
|
ignorantev1.1
|
8
|
3,923
|
4 Diciembre 2010, 21:03 pm
por simorg
|
|
|
|
Broma para gastarle a alguien que te cae muy mal
Foro Libre
|
crazykenny
|
1
|
2,314
|
19 Marzo 2012, 22:28 pm
por anonimo12121
|
|
|
|
Broma c++
Programación C/C++
|
daryo
|
7
|
5,167
|
24 Mayo 2013, 22:57 pm
por Stakewinner00
|
|
|
|
como crear link con broma (joke),estilo broma (ooskar)
Foro Libre
|
Mamba Negra2
|
0
|
5,007
|
19 Enero 2014, 11:24 am
por Mamba Negra2
|
 |
