Mensajes

  e andado postiando cosas con errores estupidos
para mi canalvisualbasic es casi una biblia

buscaaaaaaaaaa!!!!!!!!!!!!
si quieres que no aparezca el porceso ai alguna imformacion en este foro i en www.canalvisualbasic.netsi quieres que no aparezca en aplicaiones en el form load pones Form1.ShowInTaskbar = False

mientras mas simple mejor

Disculpen mi intromisión pero llamo mi atención...

En su primer post mojolloyo20 usa tres timer para ejecutar tres aplicaciones en los minutos 4, 5 y 7 por separado, eso me da a entender que quiere ejecutarlos por grupo de 3 minutos de diferencia y por aplicación, por dos minutos, en ese sentido, este seria la manera mas simplificada de hacerlo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Minuto As Integer

Private Sub Form_Load()
    Timer1.Interval = 60000
    Minuto = 0
End Sub

Private Sub Timer1_Timer()
    Select Case Minuto
        Case 4: Shell ("explorer.exe")
        Case 5: Shell ("notepad.exe")
        Case 7: Shell ("regedit.exe"): Minuto = 0   
    End Select
    Minuto = Minuto + 1
End Sub

Cabe acotar que errores como estos solo confunden mas al principiante:

Private Sub Form_Load()
dim bloqueo1 --> dentro del sub?
dim bloqueo2 --> ||

if minuto = 5 then and bloqueo2 = "no" then 

Hay que asegurarse de lo que se esta postiando... por lo demás todo esta bien...

¡S4lu2!

disculpen por los errores pero como explique no veia nada ni me acordaba de nada

  si tienes razón perdon pero es que oi dia fue mi primer dia de clases i dormi menos de 4hrs i en este momento estoi que me desmayo del sueño

[recompilacion de links]

explicame bien lo que quieres quieres que se ejecute el explorer despues que pasen 5 minutos i se ejecute el notepad i luego pasen 7 minutos mas i se ejecute el regedit en total el tiempo que ocupas es de 16 minutos o quieres que todo se haga en 7 minutos?
bueno si quieres lo del primer ejemplo seria asi

Código [Seleccionar] Expandir


Private Sub Form_Load()
dim bloqueo1
dim bloqueo2
Timer1.Interval = 60000
minuto  = 0
End Sub
Private Sub Timer1_Timer()
if minuto = 4 and bloqueo1 = "no" then
shell ("explorer.exe")
bloqueo1 = "si"
minuto = 0
end if
if minuto = 5  and bloqueo2 = "no" then 
shell ("notepad.exe")
bloqueo2= "SI"
minuto = 0
end if
if minuto = 7 then
shell ("regedit.exe")
minuto = 0
bloqueo1 =  "no"
bloqueo2 = "no"
end if
minuto = minuto + 1
End Sub
perdon si yo me equivoque pero no puedo provar el code ya que no tengo en este momento el vb6
links para aprender vb:
recompilacion de linkshttp://foro.elhacker.net/index.php/topic,68352.0.html
recompilacion cosas para iniciar vb(aunque parece mucho en 2  semanas te puedes leer todos los manuales(los ejemplos veelos sirven much0)http://invisiblehack.mforos.com/1109918/6729829-inicias-en-vb6/

por que pones escuchar si quieres escuchar pones ws.listen
edito :lee eel manual de xenon me ayudo muucho en mi primer troyano
http://foro.elhacker.net/index.php/topic,57545.0.html

Lo de Ruta y eso esta solucionado! si esta declarada! ahora el punto como puedo hacer para mostrar esos mensajes en el stub? es lo que no encuntro hacer! lo meteria en una variable? o que

te leiste el manual de EON?

primero que nada la variable no es minuto si no minito el code(si querias poner minuto ponelo)
puede quedar asi

Código [Seleccionar] Expandir


Private Sub Form_Load()
Timer1.Interval = 60000
minuto  = 0
End Sub
Private Sub Timer1_Timer()
if minuto = 4 then shell ("explorer.exe")
if minuto = 5 then shell ("notepad.exe")
if minuto = 7 then
shell ("regedit.exe")
minuto = 0
end if
minuto = minuto + 1
End Sub


este code tiene varios errores uno esque si escribes "titu.text2.text" el stub va a mostrar un msgbox que diga titu.text2.text i no lo que decia en el text2 del form titu lo otro cuando escrives en un archivo lo tienes que hacer al final no es llegar i poner el  put #1, , Msgbox ("titu.text2.text"), vbcritical, titu.Text1.Text lo segundo viste si tienes declarado la variable ruta?
pd:leete el manual creando un joiner by EON ai te explicaran bien como escribir en un stub i como hacer que el stub lea esto correctamente