Tick_Count pour recherche de ralentissement

' Déterminer le nombre de millisecondes écoulées depuis le démarrage du système.
dim tick%
dll_on "kernel32.dll"
tick% = dll_call0("GetTickCount")
message "Il s'est écoulé : " + str$(tick%) + " ms depuis le démarrage du PC"

' Déterminer le temps en millisecondes pour effectuer un traitement quelconque.
dim t1%,t2%,i,n
dll_on "kernel32.dll"
t1% = dll_call0("GetTickCount")
' Comme exemple : on va déterminer le temps mis pour faire une boucle
for i = 1 to 10000
    n = n + 1
next i
t2% = dll_call0("GetTickCount")
message "Le traitement de la boucle a nécessité un temps de : " + str$(t2%-t1%) + " ms"

' utilisation_USER32_par_KGF.bas

dim KGF$            : KGF$          = "KGF.dll"
dim USER32$        : USER32$      = "C:\Windows\System32\USER32.dll"
dim Kernel32$      : Kernel32$    = "C:\Windows\System32\Kernel32.dll"
dim GetTickCount$  : GetTickCount$ = "GetTickCount"

dim res%, tickcount%, hnd_user32%, hnd_kernel32%

dll_on "KGF.dll"

' on charge USER32.dll
hnd_user32% = dll_call1("LoadDLL",adr(USER32$))

' on cible la fonction GetTickCount dans USER32.dll (elle n'y est pas !)
res% = dll_call2("TargetDLL",hnd_user32%,adr(GetTickCount$))
if res%=0 then message "Fonction "+GetTickCount$+" est inaccessible dans USER32.dll"
' on décharge la DLL
res% = dll_call1("UnLoadDLL",hnd_user32%)

' on charge Kernel32.dll
hnd_kernel32% = dll_call1("LoadDLL",adr(Kernel32$))

' on cible la fonction GetTickCount dans Kernel32.dll (elle y est !)
res% = dll_call2("TargetDLL",hnd_kernel32%,adr(GetTickCount$))
if res%=0
  message "Fonction "+GetTickCount$+" est inaccessible dans Kernel32.dll"
  ' on décharge la DLL
else

  ' on appelle la fonction (elle n'a pas de paramètres)
  tickcount% = dll_call0("CallDLL0")

  message "tickcount = "+str$(tickcount%)
 
end_if

' on décharge la DLL
res% = dll_call1("UnLoadDLL",hnd_kernel32%)

end

dim KGF$            : KGF$          = "C:\Langages\Panoramic\DLL\KGF\KGF.dll"
dim USER32$        : USER32$        = "C:\Windows\System32\USER32.dll"
dim Kernel32$      : Kernel32$      = "C:\Windows\System32\Kernel32.dll"
dim GetTickCount$  : GetTickCount$  = "GetTickCount"  : ' KERNEL32.DLL
dim GetSystemMenu$  : GetSystemMenu$ = "GetSystemMenu" : ' USER32.DLL
dim DeleteMenu$    : DeleteMenu$    = "DeleteMenu"    : ' USER32.DLL

' Quelques constantes
dim TITRE$ : TITRE$="Exemple d'appel de DLL à l'aide de KGF"
dim SC_CLOSE%: SC_CLOSE% = 6
dim MF_BYPOSITION% : MF_BYPOSITION% = HEX("400")
CAPTION 0,TITRE$

DIM hmenu%
dim buffer$:buffer$=STRING$(30," ")

dim res%, tickcount%, hnd_user32%, hnd_kernel32%

dll_on KGF$
hnd_user32% = dll_call1("LoadDLL",adr(USER32$)) : ' on charge USER32.dll
hnd_kernel32% = dll_call1("LoadDLL",adr(Kernel32$)) : ' on charge Kernel32.dll

' Un appel à une fonction native de KGF
res% = DLL_call1("KGFdllVersion", adr(buffer$) )
APPLICATION_TITLE "KGF: KGFdllVersion "
message "Version : "+buffer$

' on test existence de la fonction GetSystemMenu dans USER32
res%=DLL_CALL2("TargetDLL",hnd_user32%,adr(GetSystemMenu$))
if res%=0
  message "Fonction "+GetSystemMenu$+" est inaccessible dans user32.dll"
else
  APPLICATION_TITLE "USER32: GetSystemMenu+DeleteMenu "
  MESSAGE "on va désactiver le bouton de fermeture de la fenêtre"
  ' on appelle la fct definie dansTargetDLL (USER32:GetSystemMenu)
  hmenu% = DLL_CALL2("CallDLL2",HANDLE_FORM(TITRE$),0)
  ' puis appel à la fct USER32:DeleteMenu
  res% = DLL_CALL2("TargetDLL",hnd_user32%,adr(DeleteMenu$))
  res% = DLL_CALL3("CallDLL3",hmenu%,SC_CLOSE%,MF_BYPOSITION%)
  MESSAGE "Le bouton de fermeture est desactivé.                "
 
end_if

APPLICATION_TITLE "KERNEL32: GetTickCount"
' on cible la fonction GetTickCount dans Kernel32.dll (elle y est !)
res% = dll_call2("TargetDLL",hnd_kernel32%,adr(GetTickCount$))
if res%=0
  message "Fonction "+GetTickCount$+" est inaccessible dans Kernel32.dll"
else
  ' on appelle la fonction (elle n'a pas de paramètres)
  tickcount% = dll_call0("CallDLL0")
  message "KERNEL32: GetTickCount = "+str$(tickcount%)+"                    "
end_if

' on décharge les DLL
res% = dll_call1("UnLoadDLL",hnd_kernel32%)
res% = dll_call1("UnLoadDLL",hnd_user32%)
DLL_OFF
' un petit terminate pour ne pas vous entendre gueuler... ;-)
' Vous avez eu peur, hein ?
TERMINATE
end