lennguyentanlen

New Member


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]
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:
 
Eo. Làm dc chứ sao ko

---------- Bài viết vừa được nhập tự động bởi hệ thống ----------

wwe705 sao không dc vậy cà lạ quá


ai làm dc chưa??? bạn xem lại code dùm mình
 

ntthuy151

New Member
cái này lúc trước mình có post rồi , và MOD nói bị trùng bài viết nên mình vừa xóa rồi .

Nó chỉ đọc được anh ngữ thôi
 
bạn ơi mình làm theo chỉ dẫn copy code vào notepad rồi đổi file thành .vbs nhưng khi mở file lên thì báo lỗi nó ghi là Microsoft VBscript compilation error là sao vậy bạn
 

greentea0118

New Member
cái nì dùng 1 soft học tiếng anh, không nhớ tên gì nữa, cũng có chức năng tương tự: gõ hay bôi đen 1 đoạn văn bản=>click phải chọn chức năng đọc, cũng đọc tiếng anh thôi, tiếng việt nó đọc vui lắm, tiếc là không nhớ tên soft, hìnhcoi nhưread-it thì phải..
 

tron_hoc

New Member
Mình cũng vậy nè


Khi làm tới bước Save as rồi chọn với all file. Khi mình save và mở lên thì không được, tức quá mình xóa lun rùi!!! CÓ ai biết làm ơn chỉ bọn mình với. Hic hic T_T
 
shanobi1988 bạn ơi mình làm theo chỉ dẫn copy code vào notepad rồi đổi file thành .vbs nhưng khi mở file lên thì báo lỗi nó ghi là Microsoft VBscript compilation error là sao vậy bạn tớ cũng bị như vậy nè,chủ pic chỉ giáo giùm nha,hjx...
 
Top