[VB6] Autoclick

[Exego]

Iniciado por zxs23

Si no puedes ver el origen de un error entonces estas re-perdido,ademas no tienes nada de codigo, leete un tutorial de vb6.0 ó contrata a alguien(yo) para que te haga el programa autoclicker

[Ironía]Por amor al arte, ¿No? [/Ironía]
A ver, los códigos que necesito son 4:
- Uno para cuando clicas Archivo>Salir se salga.
- El autoclick del botón izquierdo.
- El autoclick del botón derecho (que supongo que será igual que el izquierdo pero cambiando LEFT por RIGHT)
- Cuando aprete X botón se deje de 'autoclickear'.

Edit!:
"Mis" códigos son:

#include <iostream>
#include <windows.h>
using namespace std;

main(){
cout<<"Auto click derecho by Exego"<<endl;
cout<<"empieza en 20 segundos"<<endl<< "minimizar!"<<endl;
Sleep(10000);
while(1){
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
Sleep(6000);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
Sleep(6000);
}
}

Ese no sé ni si sirve para VB..
Y..

Sub LeftClickM(xP As Long, yP As Long)
Dim junk As Long

junk = SetCursorPos(xP, yP)

Pause 0.2

mouse_event MOUSEEVENTF_LEFTDOWN, xP, yP, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, xP, yP, 0, 0

End Sub

Este necesita coordenadas o algo así.. este último lo saqué de un ejemplo de autoclicker que no entendí nada de nada.