| |
 Mostrar Mensajes
|
|
Páginas: 1 2 [3] 4 5
|
|
22
|
Programación / Programación Visual Basic / Re: Es posible hacer esto?
|
en: 13 Julio 2014, 01:38 am
|
Hola, quiero saber si se puede hacer que cuando se detecte una serie de numeros uno abajo del otro se ejecute una accion. Por ejemplo: Que el programa comienze a hacer clicks y si se detecta esto: 15 51 32 deje de hacer clicks, para ser mas preciso, dejo un video de lo que quiero lograr: http://www.youtube.com/watch?v=clBmjPiyOd0, bueno el programa del video es una mentira ya que solo hace clicks sin parar. Lo que quiero saber es si es posible lograr detectar cuando se obtenienen los diferentes numeros con el programa y como. Gracias desde ya AJAJAJAJA Venis del AO  Yo igual aca hago cheats papa  Fijate lo de puso el otro. |
|
|
|
|
23
|
Programación / Programación Visual Basic / Re: Cambia Caption...
|
en: 14 Junio 2014, 22:47 pm
|
Te hable bien master, vos lo malinterpretaste.
Vos queres cambiar el nombre que aparece en el administrador de tareas de x programa por uno que vos quieras?
Masomenos entiendo pero no sos claro en lo que planteas y estoy en dudas.
Saludos.
No, yo quiero cambiar el caption. O si no lo reconoces lo que aparece arriba como nombre en la ventana. Ahora que decís si es posible cambiar el nombre de administrador de tareas seria genial. Pero principalmente lo de arriba. El nombre/caption. Saludos! |
|
|
|
|
24
|
Programación / Programación Visual Basic / Activar timer del form FUERA DEL FORM...
|
en: 14 Junio 2014, 03:59 am
|
Buenas habia echo un tema y creo que no voy a hacer mas por que casi termino esta busqueda. Lo que quiero lograr es que la "tarea" se active con un click ( Que eso ya lo logre ) pero fuera del form. Aca dejo el codigo del proyecto que tengo. Private Sub Command1_Click()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Command2_Click()
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Form_Load()
Command1.Caption = "Siempre visible"
Command2.Caption = "Ventana Normal"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
If Button = VBRUN.MouseButtonConstants.vbRightButton Then
Call Tarea 'Ejecutamos la Tarea
End If
End Sub
Private Sub Tarea()
SetCursorPos "720", "133"
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
SetCursorPos "634", "335"
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
SetCursorPos "620", "390"
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
SetCursorPos "283", "344"
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
End Sub Como ven no sabia como explicar la "tarea" pero ahi lo ven. Queria lograr, repito, como activarla con click derecho pero fuera del form. Logre que se active la "tarea" pero tiene que ser click derecho dentro del formulario. Como lo logro? Saludos! Suerte! Muchas Gracias! |
|
|
|
|
29
|
Programación / Programación Visual Basic / Activar timer con el mouse
|
en: 19 Mayo 2014, 03:34 am
|
|
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
If Button = VBRUN.MouseButtonConstants.vbRightButton Then
Call Tarea 'Ejecutamos la Tarea
End If
End Sub
Private Sub Tarea()
'Aquí iría la tarea, es decir todo lo que pusiste dentro del evento Timer
End Sub
Listo!!
|
|
|
|
|
30
|
Programación / Programación Visual Basic / Re: Ventana siempre visible
|
en: 17 Mayo 2014, 19:36 pm
|
Muchas Gracias! Este seria todo mi codigo del proyect asi para ver si funcionaba. Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '
Private Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal cX As Long, _
ByVal cY As Long, _
ByVal wFlags As Long) As Long
Private Sub Command1_Click()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Command2_Click()
'Hacemos lo mismo que en el evento anterior, pero pasandole la otra constante
'para que deje de estar siempre encima de las demás, estado normal
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Form_Load()
Command1.Caption = "Siempre visible"
Command2.Caption = "Ventana Normal"
End Sub
No se si es asi como quisiste decirmelo pero lo puse asi y funciono XD Gracias! Suerte! |
|
|
|
|
|
| |
|
