[AYUDA] Dibujar Punto en medio de la pantalla

[sebah97]

Hola, bueno como dice el título.. Algien me podria ayudar??

Lo que quiero hacer es crear una mira para el Counter Strike (Seguramente lo Conocen),y al dibujar el punto que no moleste en NADA, osea como si fuera una manchita en el monitor (a lo que me refiero es que puedas cliquear x la zona donde está el punto).

Espero que me puedan ayudar.... Gracias de antemano

sebah97

[79137913]

HOLA!!!

Mira. Segun lo que tengo entendido el counter te mantiene el puntero en el centro de la pantalla lo que puede ser un problema pero este codigo que te paso es un inicio aunquesea.

Lo unico que tenes que hacer es poner en las propiedades del form:
Moveable=false
BorderStyle=0-None

Y te queda copiar el codigo.

Código (vb) [Seleccionar] Expandir


Option Explicit
'Constantes para pasarle a la función Api SetWindowPos
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '

' Función Api SetWindowPos
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

'En el primer parámetro se le pasa el Hwnd de la ventana
'El segundo es la constante que permite hacer el OnTop
'Los parámetros que están en 0 son las coordenadas, o sea la _
pocición, obviamente opcionales
'El último parámetro es para que al establecer el OnTop la ventana _
no se mueva de lugar y no se redimensione

Private Sub Form_Load()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
    Me.Width = 30
    Me.Height = 30
    Me.BackColor = vbBlack
   
End Sub

P.D: Lo unico que te quedaria hacer es que cuando el mouse clickee el form mande un click a el counter.

GRACIAS POR LEER!!!

[Psyke1]

"Relaccionado" con el tema :

Mira esto:
NRC 1

Es un poco cutre poqrue lo hice hace tieeeeeempo , estamos trabajando gente en la segunda version... 

DoEvents!