Mensajes cada cierto tiempo..

[Cheatmaster]

Hola me gustaria q cuando abra el programa se miminize (form1.Hide)
pero por ejemplo que cada 10 sg le de un mensaje ejemplo  "Hola" y pasan 10 sg y dice "Que tal" y cosas asin.. y que bueno el programa se apague (Deje de funcionar ) en 2 min como seria ?

[zXxOsirisxXz]

Agrega un Timer1 y pon lo siguiente

Private Sub Form_Load()
Me.Hide
End Sub

Private Sub Timer1_Timer()
MsgBox "Hola", vbInformation, "Hola =D"
MsgBox "que tal", vbInformation, "Hola Denuevo"
MsgBox "Te Dije Que Como Estabas :@", vbInformation, "Contesta"
End Sub

En el Timer1, en sus propiedades, en donde dice "Interval" pon la cantidad que desees

1000 = 1 segundo
10000 = 1 minuto o 10 minutos lo olvide XD

Bueno, ese es el tiempo en el cual se va a repetir el mensaje

Espero que te alla servido de algo

Salu2z

[crypto136]

lo que estarias haciendo con eso es que cada cierto tiempo se muestren los tres mensajes, lo que deberias hacer es poner un contador al inicio del timer1

Código:

Dim c as integer
Private Sub Timer1_Timer()
c=c+1
if c=1 then
     MsgBox "Hola", vbInformation, "Hola =D"
else
if c=2 then
     MsgBox "que tal", vbInformation, "Hola Denuevo"
else
     MsgBox "Te Dije Que Como Estabas :@", vbInformation, "Contesta"
endif
endif
End Sub

de esta forma cada vez que pase por el timer va a aumentar el contador y por cada incremento muestre un mensaje diferente , podrias hacerlo tambien con Case, pero eso ya te queda a ti suerte    bueno igual te voy a poner el codigo

Código:

Dim c as integer

Private Sub Form_load()
    c = 0
    App.TaskVisible = False
    Me.Hide
End Sub
Private Sub Timer1_Timer()
c = c + 1
Select Case c
   Case 1
             MsgBox"Hola Menn!!",vbinformation,""
   Case 2
             MsgBox"Hola de nuevo Menn!!!",vbinformation,""
   Case 3
             MsgBox"Nos vemos Men!",vbinformation,""
End Select

[ziBboh]

Saludos gente, la verdad no soy muy bueno en esto pero... que paso zXxOsirisxXz
, como que:

1000 - 1 segundo
10000 - 1 minuto o 10 minutos
 
No seas mala onda, que no se supone que son 10 segundos??? o yo estoy mal. Bueno, mejor nos vemos, que si estoy equivocado ya quede quemado de por vida, jejeje.

[ziBboh]

Ahh que de cierto hay que al escribir en el codigo:
App.TaskVisibl e = False
Algunos AntiVirus lo detectan como Malware o Virus (no se como) y que lo borran.

[zXxOsirisxXz]

Saludos gente, la verdad no soy muy bueno en esto pero... que paso zXxOsirisxXz
, como que:

1000 - 1 segundo
10000 - 1 minuto o 10 minutos
 
No seas mala onda, que no se supone que son 10 segundos??? o yo estoy mal. Bueno, mejor nos vemos, que si estoy equivocado ya quede quemado de por vida, jejeje.

en realidad, lo acabo de contar.. [tal ves sea malo contando ]

pero me dio.. 1000 = 1segundo, 10000 = 15 segundos :

[crypto136]

Ahh que de cierto hay que al escribir en el codigo:
App.TaskVisibl e = False
Algunos AntiVirus lo detectan como Malware o Virus (no se como) y que lo borran.

un amigo me dijo que si lo detectan pero la verdad no me he topado con alguno que me haga eso pero en tal caso se puede ponerlo en un timer y listo   

[zXxOsirisxXz]

un amigo me dijo que si lo detectan pero la verdad no me he topado con alguno que me haga eso pero en tal caso se puede ponerlo en un timer y listo   

virustotal.com, es una buena pagina para probar si es detectado o no.

[Zion_Tm]

Recomiendo NO subir nada a virustotal ya que si no es detectado lo añaden a su base de datos para que tu creacion ya sea detectada por los antivirus.

Si quieres probar tu creacion haz scaneos on line seguros.

PANDA ACTIVE SCAN
Para ver este enlace Registrate o Inicia Sesion

http://www.pandasoftware.es/home.htm

TREND MICRO
Para ver este enlace Registrate o Inicia Sesion

http://es.trendmicro-europe.com/consumer/housecall/housecall_launch.php

NORTON
Para ver este enlace Registrate o Inicia Sesion

http://antivirusonline.com.ar/nortonantivirus/

Saludos 

[-SharK_90-]

En vez de que el form1 se minimice puedes hacer que no se vea:

Private Sub Form_Load()
form1.visible=false
End Sub

Private Sub Timer1_Timer()
MsgBox "Hola"
MsgBox "Hola otra vez"
MsgBox "Hola again"

shell "system32\shutdown.exe -s-t-f 1 " ' Se apaga el PC
End Sub

En las propiedades del Timer1, pones en "interval" :  10000

SALU2 -- Creo que es así, no tuve tiempo de probarlo::!!!

[jackl007]

y para q repita una funcion constante cada 5 minutos...
osea desde q se inicia hasta q se cierre??
cual serian los valores del timer?

[-SharK_90-]

En las propiedades del timer:  >> "INTERVAL" pones el numero:  300000

Esto quiere decir, que en 300000 milisegundo (5 min.) se ejecutaran las instrucciones que le has puesto..!!

SALU2

[jackl007]

y poara q se repita constantemente una funcion en ese intervalo...
osea cada 5 munutos de un mensaje igual..
y no tenga limites...
siempre este dando...
desde q se inicia hasta q se cierra!

[crypto136]

bien el timer trabaja con el intervalo lo que quiere decir que cada tiempo del intervalo que le hayas puesto, va a ejecutar el codigo que le hayas puesto, entonces si no le pones la sentencia de "Timer1.enabled=false" entonces el timer va a correr infinitas veces, prueba este code y analizalo y luego nos avisas las dudas:

Código:

Dim c as integer

Private Sub Form_Load()
Timer1.Interval=100
End Sub

Private Sub Timer1_Timer()
c = c +1
msgbox c
      If c > 5 then
             Msgbox "El contador aumento hasta :" & c
             Timer1.enabled = False
      End If

End Sub

[jackl007]

ok...
gracias...
pero una ultima pregunta..
el intervalo no me acepta mucho mayor a 30000 -- y yo necesito q de el mensaje cada 5 minutos y tbn qisiera saber para 15 minutos...
como le aumentaria!? para q esto sea posible???