Lịch sử cơ bản nhỏ (Visual)
Năm 1988, phiên bản đầu tiên của VBScript hoặc (Visual Basic Script Edition Edition) đã xuất hiện và vẫn là một phiên bản rất nguyên thủy của những gì chúng ta có ngày hôm nay. Trong những năm qua, sự cần thiết cho một ngôn ngữ kịch bản dễ sử dụng và nhẹ cho Microsoft tăng lên. Bởi vì điều này, công ty tiếp tục làm việc trên nó và cuối cùng phát hành nó cho công chúng vào năm 1996.
Nó là một kịch bản đơn giản sử dụng COM (Component Object Model) để tạo, đọc, cập nhật và xóa các tệp trong hệ điều hành Microsoft. Kể từ khi Windows 98 được phát hành, nó đã được cài đặt với mọi máy tính. Nó rất linh hoạt vì thực tế là môi trường máy chủ VBScript có thể được nhúng trong các chương trình bằng cách sử dụng Microsoft Script Control. Nó thường được sử dụng với dịch vụ thông tin Internet, Windows Script Host và Internet Explorer.
Nhưng, đó là đủ kỹ thuật jibber jabber. Hãy bắt đầu với nó và tìm hiểu cách làm cho máy tính của bạn nói chuyện!
VBScripts sử dụng một lần
Việc tạo tập lệnh cơ bản trực quan rất dễ dàng và không yêu cầu bất kỳ chương trình đặc biệt nào. Mặc dù có những chương trình bạn có thể sử dụng để viết nhiều kịch bản nâng cao hơn, hầu hết các lập trình viên và những người thích viết kịch bản chỉ sử dụng Notepad của Microsoft.
Hãy bắt đầu quá trình bằng cách mở Notepad. Sau khi bạn đã mở Notepad, tất cả những gì bạn cần làm là nhập mã sau đây hoặc chỉ cần sao chép và dán nó vào cửa sổ notepad. Để thay đổi những gì kịch bản của bạn làm cho máy tính nói, chỉ cần thay thế phần nói rằng "Các chuyên viên máy tính sẽ kế thừa trái đất" với bất cứ điều gì bạn muốn nghe.
dim speechobject set speechobject=createobject('sapi.spvoice') speechobject.speak 'The geeks shall inherit the earth'
Bây giờ, để có được hang của nó, cố gắng tạo thêm một vài kịch bản với bất kỳ văn bản bạn muốn nghe. Ngoài ra, bạn có thể nhấp chuột phải vào VBScript và chọn tùy chọn “Mở bằng…” sau đó chọn notepad để chỉnh sửa văn bản trong cùng một tệp.
Văn bản thành giọng nói
Bây giờ bạn biết cách viết một kịch bản sử dụng duy nhất và có thể đã chơi với nó một vài lần, bạn có thể cảm thấy hơi buồn chán. Đó là lý do tại sao chúng tôi sẽ đá nó lên một notch.
Điều tiếp theo chúng ta sẽ học là làm thế nào để tạo một kịch bản cao hơn một chút so với kịch bản sử dụng đơn lẻ. Điều này sẽ tạo ra một hộp thoại mà bạn có thể gõ văn bản vào và có nó đọc lại cho bạn bằng máy tính của bạn.
Bắt đầu bằng cách mở lại sổ tay của bạn và nhập tập lệnh này hoặc sao chép và dán nó vào cửa sổ notepad.
Dim message, sapi message=InputBox('What shall I say, your Geekness?','I speak for you.') Set sapi=CreateObject('sapi.spvoice') sapi.Speak message
Sau khi mã đã được nhập, chỉ cần lưu tệp dưới dạng "Văn bản thành Speech.vbs" như được hiển thị trước đó để hoàn tất tập lệnh. Một khi nó đã được lưu, điều hướng đến vị trí của nó, và nhấp đúp vào nó. Bạn sẽ nhận thấy cửa sổ đó được gọi là “Tôi nói cho bạn.” Và lời nhắc nhập văn bản được phát âm là “Tôi sẽ nói gì, Geekiness của bạn?” Bạn luôn có thể thay đổi những điều này để nói bất cứ điều gì bạn muốn.
Bây giờ, chúng ta hãy nhập "Các geeks sẽ kế thừa trái đất" sau đó nhấn nút "OK" để chạy kịch bản và nghe to văn bản của bạn.
Lời chào VBScript Script
Điều này khá thú vị, nhưng máy tính của bạn vẫn không tương tác với bạn nhiều. Bây giờ chúng ta sẽ thử một kịch bản đơn giản khác có tính đến thời gian trong ngày cũng như phản hồi thích hợp cho thời gian trong ngày. Kịch bản này sẽ đọc thời gian của máy tính của bạn và, dựa trên đó, nó sẽ chào đón bạn theo một cách nhất định.
Bắt đầu bằng cách mở notepad của bạn và chèn tập lệnh ngắn này. Bạn có thể thay thế phần có lời chào trong ngày với bất kỳ cụm từ nào bạn muốn nghe cũng như thay thế Geekmeister bằng tên của riêng bạn.
Set Sapi = Wscript.CreateObject('SAPI.SpVoice') dim str if hour(time) < 12 then Sapi.speak 'Good Morning Geekmeister ' else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak 'Good evening Geekmeister ' else Sapi.speak 'Good afternoon Geekmeister ' end if end if end if
Kịch bản nói với nó rằng nếu đồng hồ đọc bất cứ điều gì trước 12, nó là buổi sáng, và rằng bất cứ điều gì sau 12 là buổi chiều; tuy nhiên, nó cũng có một điều khoản cho biết ngay cả khi nó là sau 12, miễn là thời gian là quá khứ 16:00 (4 pm) nó trở thành buổi tối.
Thời gian trong ngày VBScript Script
Nếu bạn muốn nâng cao hơn một chút và nhận được thời gian, bạn có thể tạo một notepad mới và nhập tập lệnh này.
Kịch bản có thể trông phức tạp, nhưng về cơ bản nó nói cho máy tính của bạn những gì để nói và làm thế nào để nói nó dựa trên thời gian được hiển thị trên đồng hồ máy tính của bạn. Bạn luôn có thể thay thế “Thời gian hiện tại” bằng bất kỳ phần giới thiệu nào cho thời gian bạn muốn.
Set Sapi = Wscript.CreateObject('SAPI.SpVoice') Sapi.speak 'The current time is'
if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak '12' else Sapi.speak hour(time) end if end if
if minute(time) < 10 then Sapi.speak 'o' if minute(time) < 1 then Sapi.speak 'clock' else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if
if hour(time) > 12 then Sapi.speak 'P.M.' else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak 'Midnight' else Sapi.speak 'A.M.' end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak 'Noon' else Sapi.speak 'P.M.' end if else Sapi.speak 'A.M.' end if end if end if
Bây giờ bạn chỉ cần lưu tệp dưới dạng VBScript như bạn đã làm trong các bước trước và sau đó điều hướng đến thư mục đó. Nếu mọi thứ suôn sẻ, bạn sẽ có thể nhấp đúp vào nó và nghe máy tính cho bạn biết thời gian.
Lời chào khởi động
Bây giờ bạn biết làm thế nào để làm cho máy tính của bạn chào đón bạn và cho bạn biết thời gian, làm thế nào nó sẽ được mát mẻ nếu máy tính sẽ làm điều đó khi bạn bật máy tính. Nó thực sự là rất dễ dàng để làm nếu bạn chỉ cần kết hợp hai kịch bản và đặt chúng vào đúng nơi.
Bắt đầu bằng cách mở Microsoft notepad và sao chép mã này vào cửa sổ. Nó chỉ đơn giản là một bản sao của cả hai mã kết hợp cho bạn. Hãy nhớ rằng bạn có thể thay đổi lời chào thành “Những gì dude, Hello Master, Chúc mừng cao cả của bạn,” hoặc bất cứ điều gì bạn muốn máy tính của bạn để nói với bạn.
Set Sapi = Wscript.CreateObject('SAPI.SpVoice') dim str if hour(time) < 12 then Sapi.speak 'Good Morning Geekmeister ' else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak 'Good evening Geekmeister ' else Sapi.speak 'Good afternoon Geekmeister ' end if end if end if Sapi.speak 'The current time is'
if hour(time) > 12 then Sapi.speak hour(time)-12 else if hour(time) = 0 then Sapi.speak '12' else Sapi.speak hour(time) end if end if
if minute(time) < 10 then Sapi.speak 'o' if minute(time) < 1 then Sapi.speak 'clock' else Sapi.speak minute(time) end if else Sapi.speak minute(time) end if
if hour(time) > 12 then Sapi.speak 'P.M.' else if hour(time) = 0 then if minute(time) = 0 then Sapi.speak 'Midnight' else Sapi.speak 'A.M.' end if else if hour(time) = 12 then if minute(time) = 0 then Sapi.speak 'Noon' else Sapi.speak 'P.M.' end if else Sapi.speak 'A.M.' end if end if end if
Một khi bạn đã sao chép toàn bộ mã này chính xác như nó, vào notepad, hãy tiếp tục và lưu nó thành "Startup greeting.vbs". Nó cũng có thể được gọi là bất cứ điều gì bạn muốn, nhưng với mục đích của cuộc biểu tình này, nó sẽ dễ dàng hơn nếu chúng ta trên cùng một trang. Bây giờ nó đã được lưu lại, bạn có thể nhấp đúp vào tập tin VBScript để nghe nó chào hỏi bạn và cho bạn biết thời gian.
Nếu vì lý do nào đó, tính năng này không hoạt động với bạn, bạn cũng có thể điều hướng theo cách thủ công đến thư mục khởi động. Trước tiên bạn sẽ đi đến thư mục nơi "Startup greeting.vbs" của bạn được lưu và sao chép nó. Bước tiếp theo là nhập đường dẫn sau vào đầu bất kỳ cửa sổ Explorer nào và nhấn “Enter”. Bạn sẽ chỉ cần thay đổi USERNAME bằng tên bạn sử dụng cho tài khoản máy tính của mình.
C:UsersUSERNAMEAppDataRoamingMicrosoft WindowsStart MenuProgramsStartup
Một khi bạn đang ở trong thư mục khởi động, chỉ cần dán tập tin vbs và bạn tốt để đi. Bây giờ, lần sau khi bạn khởi động máy tính của bạn và đăng nhập, nó sẽ tự động chào đón bạn và thông báo cho bạn biết thời gian của nó là gì.
- Kiểm tra Geek
- Lời chào
- Lời chào khởi động
- Thời gian kể
- Văn bản thành lời nói
