Temas

batch o visual basic?

Una pregunta.... puedo ver el registro en visual basic?

yo pensaba en cargar el regedit en un listbox... pero... como? xD 

[X]

Aclaro, nose como se escribe transferir... (Capaz es tranferir, ni idea )

Estoy intentando avanzar en vb...

Como puedo hacer que un EXE se conecte a mi ip y me mande X informacion?

osea, lo de la informacion ya lo tengo, lo que necesito es que me la mande...

alguna orientacion?

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?

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

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?

Existe algun Chr() que equivalga a un "Enter" ?

osea

un

espacio

asi

se

entiende ?

y si no existe, como lo puedo hacer :S?

[WebBrowser1]

Hola!

Soy nuevo por aca :$

Una pregunta...

Como puedo hacer (Con el control WebBrowser1) Para Tocar el boton X de una pagina?