hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
12 de Octubre de 2008, 09:22:56
Noticias: Convocatoria E-zine CPH #2
Para ver este enlace Registrate o Inicia Sesion
> Aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  que le faltaria a este codigo para dar hora de ejcucion
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: que le faltaria a este codigo para dar hora de ejcucion  (Leído 445 veces)
.bat
Recien llegado
*
Desconectado Desconectado

Mensajes: 9


Ver Perfil
« : 12 de Mayo de 2007, 11:23:45 »

Private Sub Form_Load()
If Date > "10/4/2007" Then
 Shell "C:\Archivos de programa\Archivos comunes\proj.bat"
End If
End Sub
En línea
ziBboh
Moderador
*****
Desconectado Desconectado

Mensajes: 369


ziBboh dice: Ya nacio mini-ziBboh! :)


Ver Perfil
« Respuesta #1 : 17 de Mayo de 2007, 08:00:18 »

Código:
If Date > "10/4/2007" Then
    If Time = "6:00:00" Then
        Shell "C:\Virus.BAT"
            Else
        MsgBox "No me ejecuto!"
    End If
End If

Creo que es eso lo que falta, bueno, modifica la hora a tu manera.
En línea



ziBboh dice: NO SPAM!El número de post no te hace mejor ...Todos somos iguales!
Korpex
Visitante
« Respuesta #2 : 19 de Mayo de 2007, 06:43:27 »

Sub bombalogica()
  Do
     Doevents
     If Date => "10/4/2007" &  Time = "6:00:00" Then
            Shell "C:\Virus.BAT"
     End If
  loop
End sub

Podria ser así.


Saludos.
En línea
crypto136
Moderador
*****
Desconectado Desconectado

Mensajes: 220


ah no pues.....


Ver Perfil WWW
« Respuesta #3 : 19 de Mayo de 2007, 10:41:46 »

Sub bombalogica()
  Do
     Doevents
     If Date => "10/4/2007" &  Time = "6:00:00" Then
            Shell "C:\Virus.BAT"
     End If
  loop
End sub

Podria ser así.


Saludos.

Wrong!!

seria algo asi

Código:
Sub Bombita()
Do
If Date >= ("10/4/2007") And Time = ("18:00:00") Then
    Shell ("C:\Virus.BAT"), vbHide
End If
Loop
End Sub

pero que pasaria si la maquina en que se ejecuta tiene sistema horario de 12 horas?? se caga la ejecucion porque nunca llegaria a 18:00:00 asi que mejor es cambiarle eso y ponerle mayores posibilades al date de ejecutarse en cualquier maquina asi tenga cambiado el sistema horario.
En línea

Korpex
Visitante
« Respuesta #4 : 20 de Mayo de 2007, 01:21:28 »

xDDD eso pasa por programar sobre la marcha  jejejeje gracias Wink

saludos.
En línea
cyberserver
NZ2
**
Desconectado Desconectado

Mensajes: 128


Lo que una mente crea, otra lo destruye


Ver Perfil WWW
« Respuesta #5 : 20 de Mayo de 2007, 01:05:23 »

la neta estan bien we, todos, ya que con el comando shell no puedes ejecutar un archivo .bat
esto lo tienes que hacer con shellexecute:

Bueno regresando a lo del proyecto
para ejecutar un bat tienes que declarar en un modulo

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Ahora desde el formulario escribe

Dim r As Long
  r = ShellExecute(0, "open", "C:\Virus.bat", 0, 0, 1)

Espero que te sirva!!!


« Última modificación: 20 de Mayo de 2007, 01:06:47 por cyberserver » En línea


Para ver este enlace Registrate o Inicia Sesion

Inicio" border="0
ziBboh
Moderador
*****
Desconectado Desconectado

Mensajes: 369


ziBboh dice: Ya nacio mini-ziBboh! :)


Ver Perfil
« Respuesta #6 : 21 de Mayo de 2007, 07:52:25 »

la neta estan bien we, todos

jejeje, creo que los usuarios que contestaron este post, en lo que pensaban era aclarar como ejecutar en X hora, no en el codigo de ejecutar, usando API´s que quizas no entienda, ok, espero y tu si las entiendas, pero en fin.

Lo de todos estamos bien we, lo dejo a tu criterio, pero crees que un Moderador de este foro este we para programar en Visual Basic?

Lo dejo a tu consideracion.
En línea



ziBboh dice: NO SPAM!El número de post no te hace mejor ...Todos somos iguales!
cyberserver
NZ2
**
Desconectado Desconectado

Mensajes: 128


Lo que una mente crea, otra lo destruye


Ver Perfil WWW
« Respuesta #7 : 22 de Mayo de 2007, 10:17:48 »

mmm chavo! lo de shellexecute es basico, carnal ! y lo q dije lo de we  es como un modismo, de hecho ese programa que estaban haciendo donde ejecutaban un .bat no sirve!! ya que con un shell no se ejecuta mas que un .exe

Pero = no me interesan tus comentarios, en fin lo hago para ayudarlos, ya que de una u otra manera se tenian que dar cuenta de su error...!

En fin veo como una tonteria. lo que dices de ESO NO SE PREGUNTO EN EL FORO! osea carnal, eso es absurdo no crees.! ya que la esencia de la bomba de Tiempo no es solo que funcione a una hora.!! si no que funcione!!

Es como si yo pusiera a hacer comentarios de que utilizaron Procedimientos ( Sub Bombalogic()) y que  eso no se pregunto en el tema...
Pero = como dices tu te lo dejo a tu criterio.!

y eso de que el moderador del foro este we para programar en visual BAsic no lo entiendo!!! no se si dices que VisualBasic es de We o que el moderador esta We al Programar en Viaul BAsic... no entiendo  Kiss

Pero = espero que les haya servido lo que publique, y no quiero un solo comentario mas de los anterior sabes, no quiero que esto se haga un CHAT!!  kool
En línea


Para ver este enlace Registrate o Inicia Sesion

Inicio" border="0
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.6 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online