Autor
|
Tema: Ayuda con este codigo para Visual Basic 2010 Porfavor ;( (Leído 4,169 veces)
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
Bueno pues me puse a crear un autoclick y me salio pero no como yo queria Lo que me pasa es lo siguiente Al hora de hacer clik la flecha se queda blockeada en el sitio donde puse las coordenadas que de click Vi otros autocliks como el Caos que no se queda la flecha blockeada alguien me puede ayudar ? El codigo que llevo asta el momento es este : Public Class Form1
Dim encendido As Boolean = True Dim apagado As Boolean = False Function clickeo() As String 'hace que el mouse clickee mouse_event(mousclickdown, 0, 0, 0, 0) mouse_event(mousclickup, 0, 0, 0, 0) Return 0 End Function Private Declare Sub mouse_event Lib "user32" (ByVal dvflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dvextrainfo As Long) Private Const mousclickup = 4 Private Const mousclickdown = 2 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1: Timer1.Start() End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Button2: Timer1.Stop() End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Cursor = New Cursor(Cursor.Current.Handle) Cursor.Position = New Point(Label2.Text, Label1.Text) clickeo() End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label2.Text = MousePosition.X Label1.Text = MousePosition.Y
Timer2.Stop() End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If encendido = True Then Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F1) If hotkey = True Then Timer1.Start() apagado = True encendido = False
ElseIf apagado = True Then Dim hotkey1 As Boolean hotkey1 = GetAsyncKeyState(Keys.F1) If hotkey1 = True Then Timer1.Stop()
apagado = False encendido = True
End If End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F9) If hotkey = True Then Timer2.Start()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Application.Exit() End Sub End Class
|
|
|
En línea
|
|
|
|
Interacter
Desconectado
Mensajes: 8
|
tengo el mismo Problema :C si incuentras alguna respuesta en otro lado o algun code me conctatas xfa os agradeceria un Mundo: David-Js95@Hotmail.com
|
|
|
En línea
|
|
|
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
dais pena , por lo menos decir que no saveis , siemrep dejais a los nuevos k se quedean con sus dudas
|
|
|
En línea
|
|
|
|
Unbr0ken
Desconectado
Mensajes: 248
|
dais pena , por lo menos decir que no saveis , siemrep dejais a los nuevos k se quedean con sus dudas
Más que pedirte, te exijo respeto para con nosotros. No debes especular acerca del conocimiento de otros, de hecho tu error es de lo más básico, pero... como no te das el tiempo necesario para buscar sobre el mismo, leer un libro de programación o un tutorial sobre el manejo de APIs en .NET, no logras solucionarlo. Si tan sólo miraras éste artículo, te dieras cuenta de tu error. Una vez más te pido que no caigas en el despectivismo ni especulaciones acerca de la inteligencia de otros en este foro, que si no te han contestado antes por falta de tiempo o algún motivo válido, no por ignorancia y mucho menos te van a contestar ahora con tal grosería. Salud.
|
|
« Última modificación: 3 Diciembre 2011, 21:35 pm por Unbr0ken »
|
En línea
|
Discutir con desconocidos por internet es un ejercicio de imbéciles; todos acaban siendo quinceañeros arrogantes con cantidades infinitas de tiempo libre. NO resuelvo dudas vía MP, para algo está el foro.
|
|
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
vale vale -.-'' perdon , creia que no me haceis caso ami pero necesito urgentemente hacer eso y no encuetro solucion
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
xfa un codigo en visual basic 2010 para abrir base de datos
.NET (C#, VB.NET, ASP)
|
duckcrazy
|
2
|
4,481
|
28 Noviembre 2011, 20:45 pm
por duckcrazy
|
|
|
ayuda con este código para tomar asistencias
PHP
|
chury666
|
0
|
3,068
|
31 Enero 2013, 08:46 am
por chury666
|
|
|
[AYUDA] Como crear un LoadLibrary : Visual Basic 2010
.NET (C#, VB.NET, ASP)
|
MøMö
|
4
|
3,966
|
16 Junio 2013, 15:49 pm
por MøMö
|
|
|
Ayudenme con este codigo en C porfavor.!!debo entregar este deber hoy :(
Programación C/C++
|
Matahembras
|
0
|
1,449
|
15 Febrero 2015, 20:53 pm
por Matahembras
|
|
|
necesito ayuda para crear un login en visual basic 2010
Programación General
|
soynuevo
|
0
|
1,991
|
22 Mayo 2022, 01:31 am
por soynuevo
|
|