Mensajes

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 :

Código (vb) [Seleccionar] Expandir

   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 :

Código (vb) [Seleccionar] Expandir

   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 :

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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