Utilitaires en ligne de commande

rem ============================================================================
rem   StikyNot ou le Pense-bête de Windows
rem ============================================================================

' Le pense-bête de windows  pour prendre des notes
' une petite fenêtre jaune s'ouvre au coin haut-droit de l'écran
' Vous pouvez inscrire dessus des petites notes pour les consulter
' ultérieurement.
' Vous pouvez enrichir un peu votre texte comme suit:
' <CTRL> + I : texte en italic
' <CTRL> + B : texte en gras
' <CTRL> + U : texte souligné
' <CTRL> + T : texte barré
' cet utilitaire reconnait les URL et génère automatiquement un lien si on saisit
' un texte commençant par "http://" ou "www."
' Un clic-droit sur le pense-bête permet de modifier la couleur de la note
' La touche <F1> depuis n'importe quelle note affiche une page d'aide

' Une icône sur la barre de tâche permet de "icôniser" cette fenêtre
rem ============================================================================
execute "StikyNot"
terminate
rem ============================================================================

LABEL Exec
DIM nir$,f1$,f2$,fen1$,fen2$,t%,q$
q$ = CHR$(34)

nir$ = "C:\UTIL\NirCmd.exe"
f1$ = "C:\GRAPH\JPG\GOLDGATE.jpg"
fen1$ = "IMAGE 1"
f2$ = "C:\GRAPH\JPG\PNoel.jpg"
fen2$ = "IMAGE 2"

HEIGHT 0,60:BORDER_SMALL 0
SPIN 10: WIDTH 10,50
MAX 10,255: MIN 10,0: POSITION 10,255
ALPHA 11: TOP 11,TOP(10)+3: LEFT 11,LEFT(10)+50: CAPTION 11,"Transparence 1"
SPIN 12: LEFT 12,LEFT(10)+130: WIDTH 12,50
MAX 12,255: MIN 12,0: POSITION 12,255
ALPHA 13: TOP 13,TOP(12)+3: LEFT 13,LEFT(12)+50: CAPTION 13,"Transparence 2"
BUTTON 20: LEFT 20,LEFT(12)+150: CAPTION 20,"Exec": ON_CLICK 20,Exec

FORM 30: BORDER_SMALL 30: TOP 30,80: WIDTH 30,656: HEIGHT 30,514: CAPTION 30,fen1$
PICTURE 31: PARENT 31,30: FULL_SPACE 31
FILE_LOAD 31,f1$

FORM 40: BORDER_SMALL 40: TOP 40,TOP(30)+275: LEFT 40,234: WIDTH 40,54: HEIGHT 40,84
CAPTION 40,fen2$
border_hide 40
PICTURE 41: PARENT 41,40: FULL_SPACE 41: STRETCH_ON 41
FILE_LOAD 41,f2$
END

Exec:
t% = POSITION(10)
EXECUTE "CMD.exe /C "+nir$+" win trans ititle "+q$+fen1$+q$+" "+STR$(t%)
t% = POSITION(12)
EXECUTE "CMD.exe /C "+nir$+" win trans ititle "+q$+fen2$+q$+" "+STR$(t%)
RETURN