Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire clic del mouse

Se riuscite ad aiutarmi siete dei grandi. Ho bisogno di un codice che,
premendo un pulsante o roba simile, faccia come se si clicchi con il
pulsante sinistro del mouse, ovunque sia il puntatore.
Per farvi un esempio mettiamo che il pulsante del mouse da premere sia il
destro e non il sinistro:
Apro il programmino
Punto il mouse su una zona del desktop
Premo il pulsante del programma che mi esegue il click destro e quindi vedo
aprirsi il menù la dove c'è il puntatore.
Semplice no?
Vi prego aiutatemi!

 pulsante sinistro del mouse, ovunque sia il puntatore.
Evvai , ti posso aiutare perche' come al solito ho scassato parecchio sul NG
per questa e altre cosette :
Modulo.bas
======================
'***************************************************************
' Name: A mouse module, FINALLY!!! Move,click, +more
' Description:This module has the following functions (pretty sel
'     f explanitory): GetX, GetY, LeftClick, LeftDown, LeftUp, RightCli
'     ck, RightUp, RightDown, MiddleClick, MiddleDown, MiddleUp, MoveMo
'     use, SetMousePos
' By: Arthur Chaparyan
'***************************************************************
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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y
As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MOVE = &H1
Public Type POINTAPI
    x As Long
    y As Long
End Type
Public Function GetX() As Long
    Dim n As POINTAPI
    GetCursorPos n
    GetX = n.x
End Function
Public Function GetY() As Long
    Dim n As POINTAPI
    GetCursorPos n
    GetY = n.y
End Function
Public Sub LeftClick()
    LeftDown
    LeftUp
End Sub
Public Sub LeftDown()
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub
Public Sub LeftUp()
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Public Sub MiddleClick()
    MiddleDown
    MiddleUp
End Sub
Public Sub MiddleDown()
    mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End Sub
Public Sub MiddleUp()
    mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End Sub
Public Sub MoveMouse(xMove As Long, yMove As Long)
    mouse_event MOUSEEVENTF_MOVE, xMove, yMove, 0, 0
End Sub
Public Sub RightClick()
    RightDown
    RightUp
End Sub
Public Sub RightDown()
    mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub
Public Sub RightUp()
    mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub
Public Sub SetMousePos(ByVal xPos As Long, ByVal yPos As Long)
    SetCursorPos xPos, yPos
End Sub
======================
sul Prg metti :
====
 ' il tasto destro viene premuto per 5 secondi
  SetMousePos Int(GetX), Int(GetY)
  RightDown
  Sleep(5000)
  RightUp
===
semplice no ? poi lo configuri con un po di pazienza tipo : registri il
punto e poi col mouse clikky sul bottone che ti fa clikkare sul punto
precedentemente memorizzato ecc...
--
=> Gigio2K <=
http://go.to/ithn
 ( Sito ufficiale del Gruppo di discussione Nokia )
http://www.gamesnet.it
 ( il miglior Portale italiano per i Giochi On Line )
baronef...@yahoo.com
 - File reality.sys corrupted, Reboot Universe? Y/N -

 aprirsi il menů la dove c'č il puntatore.
Cerca nel sito comune "menu" oppure in 
www.allapi.net
Sono certo che c'č una funzione (gruppo Menu) che consente di aprire un
PopUp-Menu al volo.