ເຕັກນິກເລັກໆ ນ້ອຍໆ ທີ່ສາມາດສັ່ງໃຫ້ computer ເວົ້າສິ່ງ ທີ່ ເຮົາ ຕ້ອງການ [windows]

ກ່ອນອື່ນໝົດ ເປີດ text editor [notepad, gedit...] ຂຶ້ນມາກ່ອນ
ແລ້ວສຳເນົາໂຄດລຸ່ມນີ້ໃສ່

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

ຂອບໃຈແຫຼ່ງທີ່ມາອັນລຶກລັບ (ໄດ້ຈາກເວບໃດຫນຶ່ງ ແຕ່ບໍ່ຈື່ລະ)

No comments:

Post a Comment