PureBasic

Code : Tout sélectionner

; this function simulates a keypress with optional control, alt, and shift
ProcedureDLL SimulateKeyPress(vk, Delay, control, alt, shift)
  If control
    keybd_event_(#VK_CONTROL, 0, 0,0)
  EndIf
  If alt
    keybd_event_(#VK_MENU, 0,0,0)
  EndIf
  If shift
    keybd_event_(#VK_SHIFT, 0,0,0)
  EndIf
  keybd_event_(vk, 0,0,0)
  Delay(Delay)
  keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0)
  If control
    keybd_event_(#VK_CONTROL, 0, #KEYEVENTF_KEYUP,0)
  EndIf
  If alt
    keybd_event_(#VK_MENU, 0,#KEYEVENTF_KEYUP,0)
  EndIf
  If shift
    keybd_event_(#VK_SHIFT, 0,#KEYEVENTF_KEYUP,0)
  EndIf
EndProcedure