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
CitarDim 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... ;)
:¬¬ 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:
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
Citaren lo q te entretienes (no te ofendas, es q keria usar los nuevos emoticonos )
:(
ahora cambio este:
CitarRuta = App.Path & "\" & app.exename
y el otro codigo lo pruebo como esta si no lo cambio...
muchas gracias...
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
CitarY ademas la ruta esta mal obtenida... tienes q usar:
CitarCó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
la verdad es q lo q decis... es como cierto pero lo probe y anda = jeje
Cita de: MazarD en 11 Abril 2007, 23:41 PM
CitarY ademas la ruta esta mal obtenida... tienes q usar:
CitarCó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"
estan matizonas .... jejeje
Cita de: YeIk0s en 12 Abril 2007, 02:40 AM
Cita de: MazarD en 11 Abril 2007, 23:41 PM
CitarY ademas la ruta esta mal obtenida... tienes q usar:
CitarCó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 :o )
Cita de: VirucKingX en 12 Abril 2007, 03:00 AM
Cita de: YeIk0s en 12 Abril 2007, 02:40 AM
Cita de: MazarD en 11 Abril 2007, 23:41 PM
CitarY ademas la ruta esta mal obtenida... tienes q usar:
CitarCó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 :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?
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
A mi me gusta más esta... ;D
Do While i = i: Beep: Loop
CitarJaja 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:
CitarFileCopy 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 @$%$
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...
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
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... :-\
CitarDigo 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.
Valla, no sabia que C:\ es lo mismo C:\\\\\\\\jeje.exe, ya mje ahorro algo de codigo. ;D