enregistrement pragmatique

Même si vous êtes presque sûr que ce n'est pas le meilleur moyen, parfois ça semble plus facile de faire de la façon que l'on connait plutôt que de lutter avec une nouvelle méthode. Je suis presque sûr que c'est ce à quoi pensait l'auteur du code d'aujourd'hui. Il savait comment enregistrer une librairie OCX, cliquer sur le bouton démarrer, appuyer sur R(Run) puis taper la commande regsvr32 ...

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private 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)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Register(OCXName As String)
  SetCursorPos 32, Screen.Height / 15 - 10
  mouse_event MOUSEEVENTF_ABSOLUTE, 32, Screen.Height / 15 - 10, 1, 1
  mouse_event MOUSEEVENTF_LEFTDOWN, 32, Screen.Height / 15 - 10, 1, 1
  mouse_event MOUSEEVENTF_LEFTUP, 32, Screen.Height / 15 - 10, 1, 1
  SendKeys ("R")
  SendKeys ("regsvr32 " & OCXName)
  SendKeys (vbKeyReturn)
End Sub