اليوم أتينا بشرح في غاية الطرافة حيت تكتشف جنس حاسوبك وذلك بصوته حيت أنك تفتح المذكرة :bloc-notes
وتكتب النص التالي:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
وحفطه ب: voicpc.vbs
من بعد حفطه إفتح عملنا لتظهر لك نافدة إكتب ما تشاء والجهاز سيردد
0 commentaires:
Enregistrer un commentaire