PROCEDURE IdleProc(peMaxMilliSecs=5000, pbRestart=False)

LASTINPUTINFO is structure
	cbSize is unsigned int
	dwTime is int
END

lii is LASTINPUTINFO

lii:cbSize=Dimension(lii)

LOOP
	
	IF NOT API("USER32","GetLastInputInfo", &lii) THEN
		Msg2(__err)
		RETURN
	END
	
	currTicks is int=API("KERNEL32","GetTickCount")

	lastInputTicks is int=lii:dwTime

	idleTicks is int= currTicks - lastInputTicks;
	
	Trace("Current Tick="+currTicks+" | Last Input Tick="+lastInputTicks+" | Difference="+idleTicks)
	
	IF idleTicks>=peMaxMilliSecs THEN
		Info("Yo I'm In IDLE Mode !")
		IF NOT pbRestart THEN
			BREAK
		END
	END
	
	API("KERNEL32","Sleep",1000)
	
END

Res est un entier
hwd est un entier = handle(SaisieTexte)
PosDepart est un entier = SaisieTexte..Curseur
Res = API("USER32","SendMessageA", hwd,214, PosDepart, 0)
trace("X = " + PoidsFaible(Res) + " - Y = " + PoidsFort(Res) )

//Code d'initialisation de la fenetre ou sera stocké la fonction que l'on veut appeler
Evénement("maprocedure","*.*",0x0400)   //0x0400 correspond a une constante windows, la liste des contantes se trouvant dans le fichier WINCONST.WL dans windev

//Code la procedure appelée
PROCEDURE arf(Mess,wParam, lParam) //wParam et lParam sont la si on veux passer des paramètres
FenEtat(MaFenetre,DessusTout)
info("OK")

HWND hWindow = 0;	
hWindow = FindWindow(NULL, "TITRE DE LA FENETRE A APPELLER");
PostMessage(hWindow,WM_USER,0,0);   //ici j'ai mis 0 et 0 car je ne passe pas de paramètre

HandTemp est un entier
HandTemp=AppelDLL32("USER32.DLL","FindWindowA",Null,"Sauvegarde des mails")
SendMessage(HandTemp,0x0400,1,2)

Evenement('Nom de la procédure','Nom de la table', 1529)

Procédure 'Nom de la procedure' (pMessage,wParam,lParam)
//wParam contient le numéro de la colonne cliquée
SI .wParam = <N° de la colonne de la table> ALORS
    // cette affectation permet de ne pas activer le tri par défaut 
    _eve.Retour = 0
    TableTri("_COL2"+TAB+"-_COL1")
FIN

ThreadExécute("MonThread",threadNormal,"RemplieTable")
ThreadAttend("MonThread")

PROCEDURE RemplieTable()
Sql est une Chaine = "SELECT ......."
Rs est une source de donnees

TableSupprimeTout(<MaTable>)
SI PAS HExecuteRequeteSql(Rs,HRequeteDefaut,Sql) Alors
  Retour
Fin
HLitPremier(Rs)
TANTQUE Pas HEndehors(Rs)
  TableAjoute(<MaTable>,HRécupèreEnregistrement(Rs)
  HLitSuivant(Rs)
FIN

// dans une boucle d'énuméraiton des sous champs :
MonSousChamp..plan = moimeme..Plan

info("hello ""word""")

info("hello "+caract(34)+"word"+caract(34))

// Retourne le nom d'une option de menu à partir de son N° ID
PROCEDURE MenuNom(sParent,nNumOption, nNiveau=0)
// L'appel est du type :
//	MenuNom(NomFenêtre,NumOption)
//		NomFenêtre	= Nom de la fenêtre contenant le menu à parcourir
//		NumOption	= Numéro de l'option recherchée
sRetour est une chaîne		// nom de l'option ayant pour ID nNumOption
// énumération des options de menu
sOption est une chaîne=EnumèreSousElément(sParent,enumPremier+enumMenuPrincipal)

// il ne faut pas mettre le nom du menu
SI nNiveau=0 ET sOption<>"" ALORS
	sRetour=MenuNom(sParent+"."+sOption,nNumOption,nNiveau+1)
FIN
TANTQUE sOption<>"" ET sRetour=""
	// nom complet de l'option de menu
	sNomComplet est une chaîne=sParent+"."+sOption
	SI {sNomComplet}..Valeur=nNumOption ALORS
		sRetour=sNomComplet
	SINON
		// remplit les options du niveau supérieur
		sRetour=MenuNom(sParent+"."+sOption,nNumOption,nNiveau+1)
	FIN
	// option suivante
	sOption=EnumèreSousElément(sParent)
FIN
RENVOYER sRetour

// copie la liste des options du menu dans le presse papier (pour excel)
i est un entier
ss,sm,sf sont des chaines
sf = FenEnExécution()
Sablier
POUR i=1 A 200
	Jauge(i,200)
	ss+=i+TAB+MenuNom(sf,i)+RC
FIN
Jauge
VersPressePapier(ss)

<InterrupteurNom>[NumeroOrdre]..libellé = <LaChaineQueVousSouhaitez>

eOptionsNombre est un entier = 0
eOptionsNombre = <InterrupteurNom>..Occurence

Procédure mCalculerCRC(_Chaine)

//Renvoie une chaine sur 2 octets.

eBit est un entier
eOctet est un entier

eCaract est un entier sans signe
eCRC est un entier sans signe

cChaine est une chaine = _Chaine

pour eOctet = 1 a taille(cChaine)

eCaract = asc(cChaine[[eOctet]])*0x100

eCRC = ouexbinaire(eCRC,eCaract)

pour eBit = 0 a 7

si etbinaire(eCRC,0x8000) <> 0 alors
eCRC = eCRC * 2
eCRC = ouexbinaire(eCRC,0x1021)
sinon
eCRC = eCRC * 2
FIN

fin

eCRC = etbinaire(eCrC,0xFFFF)

FIN

renvoyer caract(partieentiere(eCrC/256)) + caract(modulo(eCrc,256))

// MonIE est le nom du champs HTML
MonIE..Valeur = <chemin complet du fichier PDF>

EcranPremier(<champQuiDoitPrendreLeFocus>)

nligne est un entier
nCol est un entier
ResInfo est une chaîne
x est un entier
y est un entier
// sélection sur la table <NomDeVotreTable>
x = PoidsFaible(CurseurPos())
y = PoidsFort(CurseurPos())
nligne = TableInfoXY(<NomDeVotreTable>, tiNumLigne + tiOrigineEcran, x, y)
nCol = TableInfoXY(<NomDeVotreTable>, tiNumColonne + tiOrigineEcran, x, y)
TableSelectPlus(<NomDeVotreTable>,nligne)

MonCode est un variant =<Ma Valeur>
MaRequete est une chaine = <Nom de ma Requete>
MaTableFichier est une chaine = <Nom de ma Table fichier>
SI PAS HExecuteRequete(MaRequete,HRequeteDefaut,MonCode) ALORS
   ERREUR(HErreurInfo())
   RETOUR
FIN
{MaTableFichier}..FichierParcouru = MaRequete

AppelDLL32("user32", "UpdateWindow" , Handle("ChampActiveX"))

gcRepDonnées est une chaine=Monfichier..répertoire
...
hCreationSiInexistant('*')
...