lennguyentanlen
New Member
![](http://images.xhtt.vn/Images/Uploaded/Share/2009/11/2009111009082875/Computerspeak.jpg)
1) Mở Notepad. ở Start/Programs/Accessoires. 2 ) Chép những dòng sau và dán vào notepad mới vừa mở ra.
Dim userInput
userInput = InputBox(”Write a message for me to say”)
Set Sapi = Wscript.CreateObject(”SAPI.SpVoice”)
Sapi.speak userInput
3) Sau đó, bạn save as với all files, bằng một tên bất kỳ tuỳ thích nhưng buộc phải có đuôi .vbs
4) Giờ, bạn thử click đôi vào file vbs mới làm ra đấy để mở ra, bạn sẽ thấy một hộp thoại nhỏ giúp điền vào bất kỳ dòng chữ nào.[/B]
![](http://images.xhtt.vn/Images/Uploaded/Share/2009/11/2009111009082875/Computerspeak.jpg)
5) Khi bạn đánh thử một dòng chữ tiếng Anh nào đó và ấn tiếp OK .
6) Nó sẽ bắt đầu đọc ra những gì bạn vừa viết vào (chỉ tiếng Anh mà thôi, tiếng việt chưa được). Thật thú vị phải không các bạn. Nguồn:
You must be registered for see links