Mensajes

ya joe si esque la 9800 GT

va mejor con una intel gma integrada como la mia hombre


jojojojo xD

vista owned? xD

gracias jeje ea justo lo que buscaba

Veran estoy haciendo mi formulario si ninguna barra, para cerrar y demas, pero necesito poder mover el formulario y al no tener barra no se como

como puedo hacer para poder mover el formulario apretando en una posicion determinada?

Pongo el mio renovado

La papelera siempre vacia, todo ordenado, sus correspondientes backups del s.o de las webs, los blogs datos.....etc vamos una miniempresa xD

jaja no te lo recomendaria 

yo necesito el timer ya que mi fin es poder invitar a todos mis amigos de tuenti en menos de 1 segundo sin dar clicks jeje y ya lo consegui, ahora aqui os dejo el code, lo pondre como programa, lo arreglare un poquito y demas jj

Código (vb) [Seleccionar] Expandir

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Const WM_NCLBUTTONDOWN = &HA1

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Text1_change()
If Not IsNumeric(Text1.Text) Then MsgBox "solo numeros", vbCritical, "error"
End Sub


Private Sub Timer1_Timer()

Call mouse_event(MOUSEEVENTF_LEFTDOWN, 100, 100, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 100, 100, 0, 0)

End Sub

Private Sub Timer2_Timer()
On Error Resume Next
Dim keystate As Long
Dim keystate2 As Long

keystate = Getasynckeystate(vbKeyF6)
keystate2 = Getasynckeystate(vbKeyF7)

If (keystate And &H1) = &H1 Then
Timer1.Interval = Text1.Text
Exit Sub
End If

If (keystate2 And &H1) = &H1 Then
Timer1.Interval = 0
Exit Sub
End If


End Sub


Como solo pulsando no hacia la accion, tenia que pulsar y soltar asi que lo agregue en el timer, luego en el mismo programa puedo especificar cada cuanto tiempo quiero hacer el bucle de clicks

por cierto, como se haria para que en vez de estar minimizado pasase a la barra de tareas que es mas comodo?

gracias

okey thanks, me pondre con esa api 

eso seria una parte del codigo pero aun estoy por la pulsacion del mouse:

he cojido este codigo de recursos vb:

Código (vb) [Seleccionar] Expandir


' Constantes para las teclas y otros

Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1


'Declaración del Api keybd_event para la presión de tecla

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)



Sub Pulsar_Tecla(Tecla As Long)

    Call keybd_event(Tecla, 0, 0, 0)

    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)

End Sub

' Presiona la tecla Tab
Private Sub Timer1_Timer()
Call Pulsar_Tecla([b]vbKeyTab[/b])
End Sub

el vbkeytab lo cambio por chr(1) o vbkeylbutton y no me funciona me da este error:

con chr(1): type mysmatch

con vbkeylbutton: no ace nada


ayuda plis

Código (vb) [Seleccionar] Expandir


Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)



Sub Pulsar_Tecla(vbKeyLButton As Long)

     Call keybd_event(vbKeyLButton, 0, 0, 0)

     Call keybd_event(vbKeyLButton, 0, KEYEVENTF_KEYUP, 0)

End Sub


Private Sub Timer1_Timer()
Call Pulsar_Tecla
End Sub


Por ahora he hecho eso, pero me da error en el timer cuando llamo a la funcion pulsar tecla