Con el bartPE HAGO CD LIVE, pero yo ya lo tengo...

Lo que quiero hacer es en un disco duro externo poner varias imagenes de distintos live (No los tengo que haccer, ya los tengo ^^)

Por ejemplo el live pilitos, + ubuntu 9.04 live, + otro live, + etc...

Un mod desvirutando? XD

Volviendo al tema... Estoy buscando y encontre como ponerle UN LIVE a mi disco duro externo , pero DE LINUX.

No tengo idea de que hacer lalala

Holª!

Tengo Un disco duro externo de 232GB (En la caja decia 250, que hijos de p**a), y tengo pensado ponerle varios live cd (Pilitos y alguno de ubuntu)

Y para eso CREO que necesito un "Menu"... alguien sabe algo del tema?

I love you <3

Hola!

Tengo esta parte de codigo :

   DetectorHumano = DetectorHumano + 1
 
   If DetectorHumano > 60 Then

y anda bien, osea , lo q hace es q cuando pasen  60 segundos "Haga lo q yo quiera."

pero si le pongo asi :

   DetectorHumano = DetectorHumano + 1
 
   If DetectorHumano > Text3.Text Then

No anda!, nose porq pero a los 3 segundos (No exactos ¬¬) empieza a actuar el codigo!

osea, el el text3  pongo "20", pongo "Play", y antes de llegar a 20 actua el codigo restante... :S

Nadiee Sabe :$ ?

Modifique el tema, capaz entienden mejor xD!

Porq a la respuesta de Raul no la entendi

Hola foreros!

Tengo este codigo :

Option Explicit
 
Private Declare Function GetQueueStatus Lib "user32" (ByVal fuFlags As Long) As Long
 
Private Const QS_KEY = &H1
Private Const QS_MOUSEMOVE = &H2
Private Const QS_MOUSEBUTTON = &H4
Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)
 
Public bCancel As Boolean
 
Public Sub Inactividad(ByVal TimeOut_InSec As Long)
 Dim t As Long
 t = Timer
 Do While bCancel = False
 If GetQueueStatus(QS_INPUT) Then
 t = Timer
 DoEvents
 End If
 If Timer - t >= TimeOut_InSec Then Exit Do
 Loop
 If bCancel = False Then Shell ("notepad.exe")
 
 End Sub
 
Private Sub Command1_Click()
On Error GoTo asd
Label2.Caption = "Tiempo de inactividad" & " " & Text1.Text & " " & "Segundos."
 Call Inactividad(Text1.Text)
Exit Sub
asd:
 
Label2.Caption = "Error, Pone Los Segundos ^^"
 
MsgBox "No pusiste la cantidad de segundos ;)"
 
End Sub
 
Private Sub Command2_Click()
MsgBox "En La V2 ^^"
MsgBox "Creado Por Nicolas Petrocco"
End Sub
 
Private Sub Command3_Click()
Form2.Show
End Sub
 
Private Sub Form_Load()
 Me.Show
 
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 bCancel = True
End Sub
 

Lo q hace es abrir el notepad a los 2 segundos de inactividad.

El problema: Es considerado inactivo cuando NO SE PASA EL MAUS SOBRE EL FORM!

pero osea, si yo estoy navegando y lo configuro para q alos 2 segundos se abra el notepad, tengo q pasar el maus constantemente sobre el form... yo considero "Inactiva la pc" cuando EL MAUS ESTA COMPLETAMENTE QUIETO! (No cuando no lo paso sobre el form)


Como lo puedo solucionar?

no entendi e.e

para hacer un click, podes usar este codigo MIO

Private Sub Timer1_Timer()
'Post + Previsualizar
 
On Error Resume Next
Timer1.Enabled = False
 
 Dim HTML
 
 Dim HTMLI
 
 Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
 
 
If HTMLI.Value = "Previsualizar" Then 'previsualizar es el nombre del boton
 
 
 
       HTMLI.Click
 
       Exit Sub
 
 
End If
 
   Next
 
End Sub