DLL

dim r1,r2,vk_snaphot,keyevent_keyup
dll_on "user32.dll"
keyevent_keyup=2
vk_snaphot=44
r1=dll_call4("keybd_event",vk_snaphot,0,0,0)
r2= dll_call4("keybd_event",vk_snaphot,0,keyevent_keyup,0)
dll_off

dll_on "user32.dll"

hide 0: top 0,screen_y/2:left 0,screen_x/2:width 0,100:height 0,100:show 0

' souris :
dim dwFlags, dx, dy, dwData, dwExtraInfo
dim MOUSEEVENTF_MOVE,MOUSEEVENTF_ABSOLUTE
MOUSEEVENTF_MOVE = 1
MOUSEEVENTF_ABSOLUTE = 32768
dwData = 0 : dwExtraInfo=0

' clavier :
dim KEYEVENT_KEYUP
dim memStat(4),virtual_code(4),Stat(4)
data 144,"NumLock",20,"CapsLock",145,"ScrollLock"
KEYEVENT_KEYUP = 2

' divers
dim a$,i,r


' on positionne la souris au centre de l'écran, sur les checkbox
dwFlags=BIN_OR(MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_MOVE) : ' mouvement en coordonnées absolues
dx = (screen_x/2 )+20 : dx= int((dx / screen_x)*65535)
dy = (screen_y/2 )+40 : dy= int((dy / screen_y)*65535)
r = dll_call5("mouse_event",dwFlags,dx,dy,dwData,dwExtraInfo)

' memorise l'état initial du clavier
for i=1 to 3
  read virtual_code(i)
  read a$
  memStat(i)=dll_call1("GetKeyState",virtual_code(i))
  ' si led allumée, on l'éteint
  if memStat(i)<>0
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)
    r = dll_call4("keybd_event",virtual_code(i),0,KEYEVENT_KEYUP,0)
  end_if
  check i:caption i,a$:top i,((i-1)*20)+5:left i,10
  Stat(i)=0
next i


' chenillard
for i = 1 to 100
  if bin_and(i,3)<>0
    r = dll_call4("keybd_event",virtual_code(bin_and(i,3)),0,0,0)
    r = dll_call4("keybd_event",virtual_code(bin_and(i,3)),0,KEYEVENT_KEYUP,0)
    r = bin_and(i,3)
    Stat(r)=bin_xor(Stat(r),1)
    if Stat(r) = 1
      mark_on r
    else
      mark_off r
    end_if
    wait 100
    ' mouvement de la souris en relatif
    dwFlags = MOUSEEVENTF_MOVE : ' on passe en coordonnées relatives
    dy = 20 : ' +20px pour aller sur le checkbox suivant
    if r=3 then dy = 40*(-1) :' -40px pour revenir sur le 1er
    r = dll_call5("mouse_event",dwFlags,0,dy,0,0)
  end_if
next i

' on restitue l'état initial du clavier
for i=1 to 3
  r=dll_call1("GetKeyState",virtual_code(i))
  if memStat(i)<>r
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)
    r = dll_call4("keybd_event",virtual_code(i),0,keyevent_keyup,0)
  end_if
next i
dll_off
terminate

dll_on "user32.dll"

dim TitleHeight,BorderWidth

hide 0: top 0,screen_y/2:left 0,screen_x/2:width 0,200:height 0,150
picture 1:full_space 1:TitleHeight=150-height(1):BorderWidth = (200-width(1))/2:delete 1
caption 0,str$(TitleHeight)+" "+str$(BorderWidth)+"  "
show 0

' déclarations pour la souris :
dim MOUSEEVENTF_MOVE :    MOUSEEVENTF_MOVE    = 1
dim MOUSEEVENTF_ABSOLUTE : MOUSEEVENTF_ABSOLUTE = 32768
dim MOUSEEVENTF_LEFTUP :  MOUSEEVENTF_LEFTUP  = 4
dim MOUSEEVENTF_LEFTDOWN : MOUSEEVENTF_LEFTDOWN = 2

dim dwFlags
dim dx, dy
dim dwData :      dwData      = 0
dim dwExtraInfo : dwExtraInfo = 0

dim mouse_cY : mouse_cY = 65535 / screen_y : ' la largeur de l'écran va de 0 à 65535
dim mouse_cX : mouse_cX = 65535 / screen_x : ' idem pour la hauteur

' déclarations pour le clavier :
dim KEYEVENT_KEYUP : KEYEVENT_KEYUP = 2
dim memStat(4),virtual_code(4)
data 144,"NumLock",20,"CapsLock",145,"ScrollLock"

' divers
dim NomTouche$,i,r
dim indice

' *****************************************************************
' Mémo de l'état initial des touches NUMLOCK,CAPSLOCK et SCROLLLOCK
' *****************************************************************
for i=1 to 3 : ' 3 touches + 3 objets

  ' 1- lecture du code de la touche correspondante ainsi que sa désignation
  read virtual_code(i) : read NomTouche$

  ' 2- Appel à la fct GetKeyState de la DLL : on récupère si la touche est active
  memStat(i)=dll_call1("GetKeyState",virtual_code(i))

  ' 3- si c'est le cas (la led est allumée),
  '    on l'éteint en simulant un appui sur la touche en question
  if memStat(i)<>0
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)  : ' nécessaire pour faire un front montant (?)
    r = dll_call4("keybd_event",virtual_code(i),0,KEYEVENT_KEYUP,0)
  end_if

  ' 4- On déclare des checkbox espacés de 30px verticalement
  check i:caption i,NomTouche$:top i,((i-1)*30):left i,10
next i

' **************************************************************
' on positionne la souris au centre de l'écran, sur les checkbox
' **************************************************************

' 1- on indique le type d'évènement que l'on va envoyer à Windows
'    dans ce cas un déplacement(move) avec des coordonnées en absolu (0 à 65535)
dwFlags = BIN_OR(MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_MOVE) : ' mouvement en coordonnées absolues

' 2- Calcul des coordonnées de la souris :
' Axe des X : la moitié de l'écran + bordure du form 0 + left(checkbox) + moitié de la case à cocher.
dx = (screen_x/2 )+BorderWidth+left(1)+8 : dx = int(dx * mouse_cX)

' Axe des Y : la moitié de l'écran + la hauteur de la barre de titre
dy = (screen_y/2 )+TitleHeight+8  : dy = int(dy * mouse_cY)

' 3- Appel à la DLL : on indique que c'est un évènement de déplacement de la souris
'    -> fonction mouse_event , paramètres: move,dx,dy
r = dll_call5("mouse_event",dwFlags,dx,dy,dwData,dwExtraInfo)

wait 5000


' ***************************************************************
' Chenillard (désolé pour ceux qui n'ont pas de clavier avec led)
' ***************************************************************
for i = 1 to 30

  ' l'instruction bin_and me permet de calculer un indice pour le tableau virtual_code.
  ' on garde seulement les 2 bits de poids faibles de la variable i
  ' le résultat de cette instruction va me renvoyer une valeur comprise entre 0 et 3. (voir codage binaire)
  indice = bin_and(i,3)

  if (indice <> 0) : ' on ignore l'indice 0 qui n'est pas utilisé dans cet exemple.

    ' on simule le relachement (KEYEVENT_KEYUP) d'une touche du clavier (alternativement NUMLOCK, CAPSLOCK et SCROLLLOCK)
    r = dll_call4("keybd_event",virtual_code(indice),0,0,0)
    r = dll_call4("keybd_event",virtual_code(indice),0,KEYEVENT_KEYUP,0)

    ' puis on bouge le pointeur de la souris sur le checkbox correspondant à la touche :
    dwFlags = BIN_OR(MOUSEEVENTF_ABSOLUTE,MOUSEEVENTF_MOVE) : ' coordonnées absolues
    dy = (screen_y/2 )+TitleHeight+8+(30*(indice-1))  : dy = int(dy * mouse_cY) : ' pour dx voir calcul plus haut
    r = dll_call5("mouse_event",dwFlags,dx,dy,0,0)

    ' enfin on déclenche un clic gauche de la souris pour activer/désactivé le checkbox
    ' l'appui :
    dwFlags= bin_or(MOUSEEVENTF_ABSOLUTE, MOUSEEVENTF_LEFTDOWN) : r = dll_call5("mouse_event",dwFlags,0,0,0,0)
    ' le relachement du bouton :
    dwFlags= bin_or(MOUSEEVENTF_ABSOLUTE, MOUSEEVENTF_LEFTUP)  : r = dll_call5("mouse_event",dwFlags,0,0,0,0)

    wait 300

  end_if
next i

' ***************************************************************
' on restitue l'état initial du clavier
' sinon j'en connais qui vont hurler que j'ai foutu un merdier
' dans leur config de départ..  :)
' ***************************************************************
for i=1 to 3
  ' 1- Appel à la fct GetKeyState de la DLL : on récupère si la touche est active
  r=dll_call1("GetKeyState",virtual_code(i))
  ' si l'état n'est pas le même qu'au départ, on simule l'appui sur cette touche
  if memStat(i)<>r
    r = dll_call4("keybd_event",virtual_code(i),0,0,0)
    r = dll_call4("keybd_event",virtual_code(i),0,KEYEVENT_KEYUP,0)
  end_if
next i
dll_off
terminate