ແລ້ວສຳເນົາໂຄດລຸ່ມນີ້ໃສ່
Dim message, sapiແລ້ວບັນທຶກເປັນນາມສະກຸນ .VBS (ບ່ອນໃດກໍ່ໄດ້ທີ່ຕ້ອງການ)
message=InputBox("just type what you want me to speak!!!","nilavath ::: latouy@live.com")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
ເມື່ອຕ້ອງການຈະໃຫ້ຄອມເວົ້າກໍ່ double click ໃສ່ໄຟລ໌ທີ່ເຮົາບັນທຶກເອົາໄວ້ກ່ອນໜ້ານີ້
ພິມຄຳເວົ້າທີ່ຢາກໃຫ້ຄອມເວົ້າ ແລ້ວກົດ enter
ປລ. ຢ່າລືມເປີດລຳໂພງເດີ້ ດຽວບໍ່ໄດ້ຍິນ ອິອິອິ
ຂອບໃຈແຫຼ່ງທີ່ມາອັນລຶກລັບ (ໄດ້ຈາກເວບໃດຫນຶ່ງ ແຕ່ບໍ່ຈື່ລະ)
No comments:
Post a Comment