sir_thanh.loveyou
New Member
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!
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!
