Imprimir Página - [AYUDA] Dibujar Punto en medio de la pantalla

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

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

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!!!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: sebah97 en 1 Octubre 2010, 20:10 pm