Khiến cho máy tính nói chuyện

[sir_thanh.loveyou]

Có thể bạn chưa biết: Máy tính của bạn có thể nói chuyện với bạn? Chỉ cần làm theo vài bước đơn giản sau đây là bạn sẽ khiến cho máy tính nói chuyện với bạn.

1. Mở Notepad


2. Chép đoạn code dưới đây vào Notepad:

Code: Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

3. Lưu lại với bất cứ tên gì cũng được nhưng phải có đuôi là .vbs


4. Double-click để chạy file đó. Nó sẽ xuất hiện ra một cửa sổ và một khung nhập, bạn hãy gõ vào khung đó câu mà bạn muốn máy tính nói. Ví dụ mình muốn máy tính của mình nói "I Love VN-Zoom" thì mình gõ vào đó I Love Vnz và click OK.



5. Bạn sẽ nghe máy tính nói lại câu mà bạn vừa mới gõ. Ví dụ hồi nãy mình gõ "I Love VN-Zoom" thì máy tính sẽ nói "I Love VN-Zoom".

Chúc các bạn thành công!

 

[doimatbietcuoi2007]

 

[riu_hbt]

không copy nha bác, cái này mình đọc trên mạng, thấy hay nên share cho anh em thôi.

 

[tran_chanh_nghia]

bác hay share mấy cái vọc linh tinh trong windows nhỉ...

 

[leopuzz]

Ko copy nha bác, cái này mình đọc trên mạng, thấy hay nên share cho anh em thôi. Chứ mình có nói gì đâu chỉ là bổ sung thêm thôi mà

 

[xx_soul.smokyo0oquartz_xy]

Chứ mình có nói gì đâu chỉ là bổ sung thêm thôi mà chưa gì mà bác ấy căng quá đi..

 

[be_map1986]

cơ mà theo mình để tránh loãng box thì ta nên để mấy tut hay vào cùng 1 topic

 

[Cace]

chưa gì mà bác ấy căng quá đi.. không giật mình nha bác. Link nguồn đây:

You must be registered for see links

 

[lahai72]

Ko giật mình nha bác. Link nguồn đây:

You must be registered for see links

thì em cũng đâu có ý gì đâu bác...