[Duda] Visual Basic 6.

[BriamCid]

Hola amigos de Mapping Zone les queria pedir un video de como aser para que en el Visual Basic puedas aser Clik por donde va el Mouse y para qe aga clik en una pciocion (x - y) pero que a la ves valla a donde estava la pocioion edl mouse y aga clik. Si no me entendieron les doy un ejemplo, Auto lanzado de echisos (para argentum online) y lo del clik seria parecido a un Auto lanzar flechas )Argentu Online) bueno si me entendieron y me pueden ayudar plis.

[S34Qu4K3]

Eh, explicate mejor

Quieres un cheat para el Argentum?

[BriamCid]

Eh, explicate mejor

Quieres un cheat para el Argentum?

 

Exactamente si, lo unico que me faltan son esas 2 cosas.

 

[S34Qu4K3]

Eh, explicate mejor

.

[BriamCid]

.

 

Que si, quiero crear mi Cheat para Argentum, pero solo me falta esas 2 cosas y listo.

[S34Qu4K3]

QUE EXPLIQUES LO QUE NECESITAS

no entendi nada del post principal

[BriamCid]

Mira lo que qiero aser es esto.

Yo tengo las cordenadas X-Y y quiero que el mouse valla a esas cordenadas, que aga 1 clik en esas cordenadas y que vuelva por donde iva el Mouse. Aca te dejo una Imagen para que veas lo que estoy queriendo aser

 

Bueno en el lugar de "Auto Tirar Echisos" ay quiero aserlo.

[S34Qu4K3]

http://www.psicofxp.com/forums/programacion.313/243869-mover-mouse-y-hacer-clic.html

[BriamCid]

http://www.psicofxp.com/forums/programacion.313/243869-mover-mouse-y-hacer-clic.html

Mira de esto:

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (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

 

y ahora llamas, por ejemplo :

mouse_event MOUSEEVENTF_LEFTDOWN,100,100,0,0

 

harias click en la posicion 100,100 con el boton izq.

 

Lo unico que entendi es que tengo qe poner "mouse_event MOUSEEVENTF_LEFTDOWN,100,100,0,0" pero enves de 100,100 pongo mis cordenadas, pero nose que es "API" y nose que mas ay que acer despues para que vuelva donde estava el Mouse. Si me podrias explicar un poco mas.

 

Comentario Nuevo 23:50:10 Comentario Viejo 23:47:39

 

Yo igual encontre esto:

 

Acer click

 

Option Explicit

 

' función SendMessage

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _

ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

lParam As Any) As Long

 

' constantes para SendMessage

Private Const BM_SETSTATE = &HF3

Private Const WM_LBUTTONDOWN = &H201 ' botón izquierdo abajo

Private Const WM_LBUTTONUP = &H202 ' izquierdo arriba

Private Const WM_LBUTTONDBLCLK As Long = &H203 ' izquierdo doble click

 

' enviar pulsación de mouse al Hwnd indicado

''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Enviar_Pulsacion(Handle As Long)

 

Call SendMessage(Handle, BM_SETSTATE, 0, ByVal 0&)

 

Call SendMessage(Handle, WM_LBUTTONDOWN, 0, ByVal 0&)

Call SendMessage(Handle, WM_LBUTTONUP, 0, ByVal 0&)

 

Call SendMessage(Handle, BM_SETSTATE, 1, ByVal 0&)

 

End Sub

 

 

Private Sub Command2_Click()

Call Enviar_Pulsacion(Command1.hwnd)

End Sub

 

y esto:

 

Mover Mouse a pocicion X-Y

 

Public 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)

Public Const MOUSEEVENTF_LEFTDOWN = &H2

Public Const MOUSEEVENTF_LEFTUP = &H4

Public posX As Long, posY As Long

 

 

 

 

despues

 

Call mouse_event(MOUSEEVENTF_LEFTDOWN, posX, posY, 0, 0): Call mouse_event(MOUSEEVENTF_LEFTUP, posX, posY, 0, 0)

 

 

 

Pero no entendi nada XD! si me podes ayudar con un videito o algo porfa

[S34Qu4K3]

Solo he trabajado con VB.Net, no con 6.0

PD: Videos = mierda

[BriamCid]

yo queria aprenderlo D:

[Apps1709396423]

yo solo se hacer una calculadora con vb6

[BriamCid]

Lo que yo quiero aprender cuesta mucho mas :juhm:

[Apps1709396423]

jaj, yo solo sirvo para mapper:(nerdicon):

[tada-s]

Hola amigos de Mapping Zone les queria pedir un video de como aser para que en el Visual Basic puedas aser Clik por donde va el Mouse y para qe aga clik en una pciocion (x - y) pero que a la ves valla a donde estava la pocioion edl mouse y aga clik. Si no m...

Trata de escribir bien, no te pido que escribas con acento y todo, pero por lo menos, hay muchos que tienen errores ortográficos que me incomodaron...

aser es "Hacer", aga es "Haga", qe es "Que", pocicion es "Posición", valla es "vaya", estava es "estaba"

No quiero que la tomes mal, pero te sugiero que escribas bien porque una persona puede llegar a parecer un poco estupido cuando escribes con faltas. Simplemente por no escribir bien te pueden llegar a ignorarte. A mi me costaba leer lo que estaba ahí.

 

A ver... te estas metiendo una cosita un poquito complicado, yo no sé mucho sobre Visual Basic pero tal vez te pueda ayudar...

Primeramente, quieres hacer un programa que haga click automáticamente, verdad? cuando haga click en un botón, el cursor se mueva automáticamente y haga su tarea, no es así?

Nota: yo no te podría explicarte bien el API, pero es una lista donde están muchos códigos con nombre más sencillo, como por ejemplo "MOUSEEVENTF_LEFTDOWN". Es algo para facilitarte.

[topline]

tenes que ir a inicio/apagar equipo y se te hace!

[Hardcook]

tenes que ir a inicio/apagar equipo y se te hace!

 

Es necesario "trollear al pibe"? si no aportas al tema no comentes chicle :S

 

Fijate si esto te ayuda.