Créer un message
Pingouin
-
pingouin -
pingouin -
Bonjour, si quelqu'un pourrait m'aider ce serait top :p
J'aimerai qu'à l'allumage de mon ordinateur une fenêtre s'ouvre avec un texte sympa, une fois que le bureau se soit affiché. Sous XP, j'avais réussi en utilisant le bloc note et en enregistrant mon document dans démarrage...
Me voila passé à windows 7 et je me suis dit, pourquoi pas innover et en apprendre un peu plus sur les message box.
Quel "logiciel" utilisé pour faire cela:
Ouvrir une boite de message à l'ouverture du bureau demandant qui est l'utilisateur, si la réponse est "Moi" alors un petit texte sympa s'affiche, sinon un autre texte s'affiche.
Je saurais programmer cela en turbo pascal (et oui je débute avec de vieux logiciels), mais il n'existe plus sous windows 7 et il est bon de se mettre à jour.
De plus j'aimerai savoir s'il est possible, avec le bloc note par exemple de faire cela et de programmer une "minuterie" qui permettrait de fermer cette fenêtre automatiquement au bout de quelques minutes et de l'ouvrir instantannément à l'ouverture de certains logiciels.
C'est pas tout simple, et je ne pense pas y arriver dès les premiers essais mais mieux vaut placer la barre haut pour progresser rapidement ^-^
J'aimerai qu'à l'allumage de mon ordinateur une fenêtre s'ouvre avec un texte sympa, une fois que le bureau se soit affiché. Sous XP, j'avais réussi en utilisant le bloc note et en enregistrant mon document dans démarrage...
Me voila passé à windows 7 et je me suis dit, pourquoi pas innover et en apprendre un peu plus sur les message box.
Quel "logiciel" utilisé pour faire cela:
Ouvrir une boite de message à l'ouverture du bureau demandant qui est l'utilisateur, si la réponse est "Moi" alors un petit texte sympa s'affiche, sinon un autre texte s'affiche.
Je saurais programmer cela en turbo pascal (et oui je débute avec de vieux logiciels), mais il n'existe plus sous windows 7 et il est bon de se mettre à jour.
De plus j'aimerai savoir s'il est possible, avec le bloc note par exemple de faire cela et de programmer une "minuterie" qui permettrait de fermer cette fenêtre automatiquement au bout de quelques minutes et de l'ouvrir instantannément à l'ouverture de certains logiciels.
C'est pas tout simple, et je ne pense pas y arriver dès les premiers essais mais mieux vaut placer la barre haut pour progresser rapidement ^-^
6 réponses
-
yop
ru peut creer un simple .vbs au demarage avec le blocnote
par exemple je vien de le faire pour toi comme exemple
msgbox"Bienvenue session vindows",vbinformation
reponse=inputbox("ces koi ton nom??")
if reponse = "moi" then
msgbox"salut ces l histoire de paf le chien qui traversse la rue et paf le chien :) ",vbinformation
else
msgbox"Ca fait rien il n'est jamais ca fait rien je t aime comme meme" ,vbcritical
end if
copie ca dans bloc note et enregistre le sous test.vbs ensuite clic dessus
il te marquera Bienvenue session vindows une fois appuyer sur oké il te demandera ces koi ton nom ? si tu marke mwa il te racontera paf le chien sui tu marke quelleque choses d otre il te markera quil t aime comme meme :)
ou alord tu peut creer un fichier .vbs qui lance un logiciel ou autre qui le nom et le bon ou pas
Set WshShell = WScript.CreateObject("WScript.Shell")
msgbox"Bienvenue session vindows",vbinformation
reponse=inputbox("ces koi ton nom??")
if reponse = "moi" then WshShell.Run "notepad.exe"
if reponse = "" Then WshShell.Run "mspaint.exe"
donc dans mon exemple le script ce lance et te marke Bienvenue session vindows
la il te demande ton nom si tu marque moi il te lance notepad si tu repond autre choses ou que tu repond rien ou que tu ferme le vbs il te lance paint bien sur tu peut le configurer autre pour que kan ces toi il te lance firefox ou autre et que kan il reponde mal ca redemare le pc :) voila -
Merci ^-^
Je me suis lancé à fond dans la programmation depuis hier, et je me rends compte que j'ai encore pas mal de questions quant à mon petit programme au démarrage...
Elles viendront par la suite quand je le rendrai très sympa :p
Comment faire par exemple pour aller à la ligne si ma message BOX a un long message à fire passer... -
Tu peux aussi créer des fichiers *.hta avec du html.
-
Voila ce que j'ai essayé de faire... à partir de l'exemple mais sans pourtant donné lieu à une réussite...
Quelles sont les erreurs ?
msgbox"Bienvenue sur ce superbe ordinnateur que je m'efforce de faire briller",vbinformation
reponse=inputbox("utilisateur,tu es prié de me donner ton nom ")
if reponse = "pingouin" then
msgbox"Salut patron, c'est l'histoire de paf le chien qui traverse la rue et paf le chien :) ! Une autre blague chef ? "
if reponse = "oui" then
msgbox"Désolé patron, il faut que je recharge mon stock.", vbinformation
else
msgbox"Attention à toi, utilisateur, je suis là et je te surveille... Un café ?"
if reponse = "oui" then
msgbox "Désolé un ordinateur c'est pas une cafetière !"
else
msgbox"Bonne utilisation à toi !",vbcritical
end if -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
voila alors ces "elseif " :) et tu avais oublier , vbinformation partous :)
msgbox"Bienvenue sur ce superbe ordinnateur que je m'efforce de faire briller",vbinformation
reponse=inputbox("utilisateur,tu es prié de me donner ton nom ")
if reponse = "pingouin" then
msgbox"Salut patron, c'est l'histoire de paf le chien qui traverse la rue et paf le chien :) ! Une autre blague chef ? " , vbinformation
elseif reponse = "oui" then
msgbox"Désolé patron, il faut que je recharge mon stock." , vbinformation
elseif reponse = "" then
msgbox"Attention à toi, utilisateur, je suis là et je te surveille... Un café ?" , vbinformation
end if
msgbox"Bonne utilisation à toi !",vbcritical -
J'ai réussi les premières étapes, et me voila maintenant en train de tenter (tant bien que mal) d'enchainer les conditions...
Merci beaucoup de votre aide
msgbox"Bienvenue sur ce superbe ordinnateur que je m'efforce de faire briller",vbinformation
reponse=inputbox("utilisateur,tu es prié de me donner ton nom ")
if reponse = "pingoui " then
reponse=inputbox("Salut patron, c'est l'histoire de paf le chien qui traverse la rue et paf le chien :) ! Une autre blague chef ? ")
if reponse = "oui" then
msgbox"Désolé patron, il faut que je recharge mon stock.",vbinformation
else
reponse=inputbox("Un café alors ?")
if reponse="oui" then
msgbox"je vous le prépare",vbinformation
else
msgbox"patron, n'hésitez pas si vous avez besoin de quoi que ce soit",vbinformation
end if
end if
else
reponse=inputbox("Attention à toi, je suis là et je te surveille... Un café ?")
if reponse="oui" then
msgbox"Désolé un ordinateur c'est pas une cafetière !",vbcritical
else
msgbox"Tu te prends pour qui là ! A la moindre entourloupe je t'attrappe", vbcritical
end if
end if
D'après mes conclusions, je peux écrire en language pascal à condition de mettre l'extension .pas
Si je reste en .vbs alors le langage est différent, plus besoin de commencer avec begin, mais je dois respecter les end.
Par contre est-ce que c'est possible de créer plusieurs variables (ici différentes blagues) et j'utilise un "randomize" comme en langage pascal pour en choisir une au hasard (cela permet de varier un peu ce que dit mon ordinnateur)
