Utilisation de KGF.dll pour manipuler une fenêtre

' fenetre_auto_cassante.bas

label start1, start2

dim lig%, col%, masque%(8,6), cnt%, res%, n% , reg1%, reg2%

width 0,800 : height 0,600
color 0,255,255,0

button 1 : caption 1,"Start 1" : on_click 1,start1
button 2 : caption 2,"Start 2" : on_click 2,start2 : top 2,25

end

start1:
  dll_on "KGF.dll"
  n% = dll_call1("RandomValue",0-1)
  reg1% = 0
  repeat
    repeat
      n% = dll_call1("RandomValue",48)
      lig% = int((n%-1)/8)
      col% = n% - lig%*8
      lig% = lig% + 1
    until masque%(col%,lig%)=0
    res% = dll_call5("WindowAddRectangleRegion",adr(reg1%),(col%-1)*100,(lig%-1)*100,100,100)
    reg2% = DLL_call3("WindowRegionHole",handle(0),1,adr(reg1%))
    masque%(col%,lig%) = 1
    cnt% = cnt% + 1
    pause 100
  until cnt% = 48
  res% = dll_call1("KillProcessByHandle",handle(0))
  return

start2:
  dll_on "KGF.dll"
  reg1% = 0
  for cnt%=1 to 12
    res% = dll_call5("WindowAddEllipticRegion",adr(reg1%),400-40*cnt%,300-40*cnt%,cnt%*80,cnt%*80)
    reg2% = DLL_call3("WindowRegionHole",handle(0),1,adr(reg1%))
    pause 500
  next cnt%
  res% = dll_call1("KillProcessByHandle",handle(0))
  return

rem ============================================================================
label click
dim x%,y%,res%,reg1%,reg2%

form 10 : width 10,600 : height 10,500  : on_click 10,click
picture 20 : full_space 20
file_load 20,"c:\users\acer\desktop\fleur.jpg" : ' Adapter le chemin
dll_on "KGF.dll"

end
click:
   x% = mouse_x_left_down(10) : y% = mouse_y_left_down(10)
   res% = dll_call5("WindowAddRectangleRegion",adr(reg1%),x%,y%,50,50)
   reg2% = DLL_call3("WindowRegionHole",handle(10),1,adr(reg1%))
return
rem ============================================================================