Msgbox/Inputbox

DIM tit$,txt$,code
tit$ = "Ceci est le titre"
txt$ = "Et ceci est le texte"
code = 51: ' (= 3 + 48 + 0 + 0: boutons Oui,Non,Annuler et icône warning)
Msgbox(tit$,txt$,code)
print clipboard_string_paste$: ' code retour: action de l'utilisateur
END
" ==============================================================================
SUB Msgbox(Tit$,Txt$,code)
' Affichage d'une msgbox de titre Tit$ et de texte Txt$
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' PARAMÈTRES (code) 4 valeurs combinables (additionables):
' boutons affichés:
'   0= bouton OK seul
'   1= boutons OK, Annuler
'   2= boutons Abandonner, Recommencer, Ignorer
'   3= boutons Oui, Non, Annuler
'   4= boutons Oui, Non
'   5= boutons Recommencer, Annuler
' icône du message:
'   16= icône message critique
'   32= icône point d'interrogation
'   48= icône message warning
'   64= icône message d'information
' bouton par défaut:
'   0=   1er bouton est le bouton par défaut
'   256= 2ème bouton est le bouton par défaut
'   512= 3ème bouton est le bouton par défaut
'   768= 4ème bouton est le bouton par défaut
' comportement:
'   0=    Bloque l'application courante en attente de réponse de l'utilisateur
'   4096= Bloque toutes les applications en attente de réponse
' CODE RETOUR:
'   1 OK cliqué
'   2 Annuler cliqué
'   3 Abandonner cliqué
'   4 Recommencer cliqué
'   5 Ignorer cliqué
'   6 Oui cliqué
'   7 Non cliqué
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
DIM_LOCAL fvb$,scr$,p$,q$: q$ = CHR$(34)
fvb$ = "C:\Temp\Msgb.vbs"
scr$ = "C:\Temp\Vbscript.vbs"
FILE_OPEN_WRITE 9,fvb$
    FILE_WRITELN 9,"x=msgbox("+q$+Txt$+q$+","+STR$(code)+","+q$+Tit$+q$+")"
    FILE_WRITELN 9,"WScript.Echo x"
FILE_CLOSE 9
p$ = "Cmd.exe /C Cscript.exe "+fvb$+" | clip"
FILE_OPEN_WRITE 9, scr$: ' ===== Création du script .vbs =====
    FILE_WRITELN 9, "CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+p$+q$+",0,True"
FILE_CLOSE 9
EXECUTE_WAIT "Wscript.exe "+scr$: ' ===== Exécution du script =====
FILE_DELETE scr$: FILE_DELETE fvb$
END_SUB
' ==============================================================================

 code = 51:  ( = 3 + 48: boutons Oui,Non,Annuler et icône warning)

 p$ = "Cmd.exe /C cscript.exe "+fvb$+" | clip"

 p$ = "Cmd.exe /C Wscript.exe "+fvb$+" | clip"

code = 51: '  (= 3 + 48: boutons Oui,Non,Annuler et icône warning)

p$ = "Cmd.exe /C cscript.exe "+fvb$+" | clip"

DIM Tit$,Txt$,Def$,x,y
Tit$="Demande d'âge"
Txt$="Quel est votre âge ?"
Def$ = "20": ' valeur par défaut
x = 300: y = 150
Inputbox(Tit$,Txt$,Def$,x,y)
PRINT CLIPBOARD_STRING_PASTE$
END
' ==============================
SUB Inputbox(Tit$,Txt$,Def$,x,y)
' Affichage d'une boîte de saisie de titre Tit$, texte Txt$, par défaut Def$
' Position de la boîte en x,y pixels, résultat dans le presse-papier
' Si on clique 'Annuler', la chaîne rendue est vide.
DIM_LOCAL fvb$,scr$,p$,a$,q$: q$ = CHR$(34)
fvb$ = "C:\Temp\Msgb.vbs"
scr$ = "C:\Temp\Vbscript.vbs"
FILE_OPEN_WRITE 9,fvb$
    a$ = q$+Txt$+q$+","+q$+Tit$+q$+","+q$+Def$+q$+","+STR$(x*15)+","+STR$(y*15)
    FILE_WRITELN 9,"x=inputbox("+a$+")"
    FILE_WRITELN 9,"WScript.Echo x"
FILE_CLOSE 9
p$ = "Cmd.exe /C Cscript.exe "+fvb$+" | clip"
FILE_OPEN_WRITE 9, scr$: ' ===== Création du script .vbs =====
    FILE_WRITELN 9, "CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+p$+q$+",0,True"
FILE_CLOSE 9
EXECUTE_WAIT "Wscript.exe "+scr$: ' ===== Exécution du script =====
FILE_DELETE scr$: FILE_DELETE fvb$
END_SUB

 print message_input$("Demande d'âge", "Quel est votre âge ?" , "20")

rem ============================================================================
'                  Message autorefermable
' Afficher un message d'information qui se ferme automatiquement après n secondes
'          Appel : message_Auto_Close(msg$, duree)
rem ============================================================================
message_Auto_Close("Cette fenêtre va se fermer toute seule !!!",5)
end
rem ============================================================================
' Script VBS pour afficher un message d'information qui se ferme automatiquement
' apès une durée de duree secondes si l'utilisateur ne ferme pas lui-même la
' fenêtre du message
SUB message_Auto_Close(msg$,duree)
    dim_local f$,g$,d$
    f$ = "c:\temp\Msg_Auto_Close.vbs" : ' Fichier temporaire contenant le script
    g$ = chr$(34) : ' guillemets
    d$ = str$(duree)
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999,"Set WshShell = WScript.CreateObject("+g$+"Wscript.Shell"+g$+")"
    file_writeln 9999,"ret = WshShell.popup("+g$+msg$+g$+" & vbcrlf &" +g$+"     Autofermeture dans : "+d$+" secondes"+g$+","+d$+","+g$+"Information"+g$+")"
    FILE_CLOSE 9999 : ' Fin de l'enregistrement
    EXECUTE_WAIT f$ : ' Exécution du script
    FILE_DELETE f$  : ' supprimer le fichier du script
END_SUB
rem ============================================================================

' ==============================
SUB Inputbox(Tit$,Txt$,Def$,x,y)
' Affichage d'une boîte de saisie de titre Tit$, texte Txt$, par défaut Def$
' Position de la boîte en x,y pixels, résultat dans le presse-papier
' Si on clique 'Annuler', la chaîne rendue est vide.
DIM_LOCAL scr$,a$,q$: q$ = CHR$(34)
scr$ = "C:\Temp\Vbscript.vbs"
FILE_OPEN_WRITE 9,scr$
    a$ = q$+Txt$+q$+","+q$+Tit$+q$+","+q$+Def$+q$+","+STR$(x*15)+","+STR$(y*15)
    FILE_WRITELN 9,"res=inputbox("+a$+")"
    FILE_WRITELN 9,"Set WshShell = WScript.CreateObject("+q$+"WScript.Shell"+q$+")"
    FILE_WRITELN 9,"WshShell.Run "+q$+"cmd.exe /c echo "+q$+" & res & "+q$+" | clip"+q$+", 0, TRUE"
FILE_CLOSE 9
EXECUTE_WAIT "Wscript.exe "+scr$: ' ===== Exécution du script =====
FILE_DELETE scr$
END_SUB
' ==============================================================================
SUB Msgbox(Tit$,Txt$,code)
' Affichage d'une msgbox de titre Tit$ et de texte Txt$
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' PARAMÈTRES (code) 4 valeurs combinables (additionables):
'   boutons affichés:
'       0= 'OK' seul
'       1= 'OK', 'Annuler'
'       2= 'Abandonner', 'Recommencer', 'Ignorer'
'       3= 'Oui', 'Non', 'Annuler'
'       4= 'Oui', 'Non'
'       5= 'Recommencer', 'Annuler'
'   icône du message:
'       16= message critique
'       32= point d'interrogation
'       48= message d'alerte
'       64= message d'information
'   bouton par défaut:
'       0=   1er bouton
'       256= 2ème bouton
'       512= 3ème bouton
'       768= 4ème bouton
'   comportement:
'       0=    Bloque l'application courante en attente de réponse de l'utilisateur
'       4096= Bloque toutes les applications en attente de réponse
' CODE RETOUR (bouton cliqué):
' -----------
'       1 'OK'
'       2 'Annuler'
'       3 'Abandonner'
'       4 'Recommencer'
'       5 'Ignorer'
'       6 'Oui'
'       7 'Non'
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
DIM_LOCAL scr$,q$: q$ = CHR$(34)
scr$ = "C:\Temp\Vbscript.vbs"
FILE_OPEN_WRITE 9,scr$
    FILE_WRITELN 9,"res=msgbox("+q$+Txt$+q$+","+STR$(code)+","+q$+Tit$+q$+")"
    FILE_WRITELN 9,"Set WshShell = WScript.CreateObject("+q$+"WScript.Shell"+q$+")"
    FILE_WRITELN 9,"WshShell.Run "+q$+"cmd.exe /c echo "+q$+" & res & "+q$+" | clip"+q$+", 0, TRUE"
FILE_CLOSE 9
EXECUTE_WAIT "Wscript.exe "+scr$: ' ===== Exécution du script =====
FILE_DELETE scr$
END_SUB
' ==============================================================================