Giới thiệu về VB Script: Hướng dẫn dành cho người mới bắt đầu: 11 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:36

*** ((((CẢNH BÁO: Mặc dù có rất nhiều bước. Điều này thực sự khá dễ dàng. Tôi chỉ giải thích mọi thứ chi tiết cho người mới bắt đầu. Nếu bạn chỉ muốn mã chuyển đến bước cuối cùng và bạn sẽ tìm thấy đầy đủ code ở đó.)))) *** Tôi chơi rất nhiều Xbox trực tiếp và luôn phải tắt Internet trên máy tính của mình vì nó làm tốn băng thông. Chủ yếu là vì tôi luôn tải xuống hoặc tải lên mọi thứ. Vấn đề không phải là tắt nó đi mà nó đang bật lại mà tôi quên, khiến nó đến nơi mà tôi mất hết thời gian tải lên / tải xuống. Vì vậy, tôi quyết định tạo một chương trình để làm điều đó cho mình. Tôi đã định viết nó trong Vb.net nhưng gần đây tôi đã phải xóa và mở hệ điều hành trên máy tính của mình vì một cơn bão tồi tệ làm hỏng ổ cứng của tôi và chưa cài đặt lại VB.net nên tôi chỉ nghĩ rằng điều này sẽ cho tôi lý do để chơi với vbscript. Tôi cũng tạo một hình ảnh bằng sơn để hiển thị ở chế độ nền để tôi biết nó đang chạy.

Bước 1: Tìm ra những gì bạn muốn làm

Điều đầu tiên tôi luôn làm là lập kế hoạch. Tôi muốn chương trình làm gì? A) Tôi muốn có thể mở tập lệnh và nó sẽ tự động ngắt kết nối. B) Tôi muốn nó hiển thị một màn hình khổng lồ ở chế độ nền để không xảy ra lỗi khi Internet bị tắt, bằng cách này, tôi đừng quên bật lại nó. C) Tôi muốn nó cho tôi lựa chọn để bật nó bật lại và sau đó chờ phản hồi. D) Tôi muốn nó đảm bảo rằng tôi đã bật lại để không quên. E) Sau đó, một khi tôi thực sự nói có để bật lại, tập lệnh sẽ bật lại. và sau đó đóng nền. F) Thoát khỏi mọi thứ.

Bước 2: Những thứ tôi sử dụng nhưng không thực sự cần thiết

Tất cả những gì bạn thực sự cần là một trình soạn thảo văn bản như notepad. Mọi thứ khác là tùy chọn. Tôi sử dụng Notepad ++ khi tôi làm VB script vì nó xử lý nó giống như vb.net làm với màu sắc và biết ngôn ngữ. Nó giúp tránh những sai lầm. Nó cũng đánh số các dòng để bạn có thể chẩn đoán vấn đề là gì khi bạn nhận được mã lỗi.

Bước 3: Bắt đầu lập trình

Điều đầu tiên bạn muốn làm là tạo một tệp văn bản và lưu nó vào bất cứ thứ gì bạn muốn..vbsTôi thường làm điều này trên máy tính để bàn vì tôi mở nó khoảng một triệu lần trong khi đang làm việc. Bây giờ chỉ cần nhấp chuột phải vào tệp và nhấn chỉnh sửa hoặc chỉnh sửa bằng notepad ++

Bước 4: Bước 1: Mở cửa sổ Command Prompt

Vì vậy, tôi quyết định làm hầu hết công việc mà tôi sẽ chỉ sử dụng các chương trình đã được lưu trữ trên máy tính để làm những gì tôi muốn. Ít mã hóa hơn và không cần tải xuống… Woohoo. Điều dễ dàng nhất là dấu nhắc lệnh. Vì vậy chúng tôi muốn mở một cửa sổ nhắc lệnh để làm vì vậy chúng tôi muốn xây dựng một đối tượng để thực hiện vì vậy chúng tôi gõ: set shellobj = CreateObject ("WScript. Shell") Nó làm gì: Đặt một thể hiện của shellobj bằng để tạo đối tượng w script shell. Theo cách này, tất cả những gì chúng ta phải làm là gõ shellobj thay vì CreateObject ("WScript. Shell") mỗi khi chúng ta cần lệnh mới. shellobj.run "cmd" Công dụng: Điều này tương đương với việc gõ CMD vào hộp chạy trên menu bắt đầu. Nếu chúng ta không đặt biến shellobject, chúng ta sẽ phải gõ: CreateObject ("WScript. Shell"). Run "cmd"… xem bây giờ nó dễ dàng hơn bao nhiêu. Ít sai sót hơn. Nhấp vào tệp… sau đó Lưu… sau đó vào màn hình và nhấp đúp vào vbsfile mà bạn đã tạo nó sẽ chạy Nếu mọi thứ diễn ra đúng cách, bạn sẽ nhận được dấu nhắc lệnh của windows hiển thị…..yaaaaaa !!! nếu không kiểm tra mã của bạn, cho đến nay bạn nên có: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Bạn có thể thêm nhận xét vào tập lệnh của mình để nhớ những gì bạn đã làm sau này bằng cách đặt dấu phẩy trước dòng như this: 'đây là để mở một dấu nhắc lệnh Khi tôi viết mã rất nhiều lần, tôi sẽ làm điều này để tôi nhớ những gì tôi đã làm sau này khi tôi nhìn vào nó. Kịch bản chỉ cần bỏ qua dòng đó và tiếp tục. Nếu bạn thấy chúng, bạn cũng có thể làm như vậy.

Bước 5: Bước 2: Thiết lập bộ hẹn giờ

Được rồi, bây giờ chúng ta đã có một cửa sổ mới, chúng ta cần điền vào nó bằng các lệnh để chúng ta có thể làm cho nó làm những gì chúng ta muốn. bit để bắt đầu. nếu nó khởi động quá sớm, máy tính sẽ điền vào chỗ trống trước khi bạn mở cửa sổ và bạn sẽ nhận được một phần lệnh hoặc không có lệnh nào cả. Vì vậy, chúng ta cần thiết lập bộ đếm thời gian. Để thực hiện việc này, chúng ta gõ: wscript.sleep 200 Chức năng của nó: Nó yêu cầu tập lệnh đợi một khoảng thời gian X trước khi thực hiện lệnh tiếp theo. 1000 bằng một giây nên tôi đang đợi 1/5 giây. Bạn có thể thấy máy tính của mình cần đợi thêm hoặc ít thời gian hơn. Nếu bạn xem máy tính và nó không nhập các lệnh chính xác, hãy thay đổi số thành một số cao hơn như 2000 sẽ là 2 giây và có thể là rất nhiều thời gian. Lưu tệp bây giờ mã của bạn tại thời điểm này phải là: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Bước 6: Bước 3: Tạo ảnh

Tôi vừa mở paint và nhập "Internet Disconected" vào nó và làm cho nó có kích thước 800x600 và lưu nó dưới dạng id.bmp và lưu nó trong thư mục gốc của tôi, trong trường hợp của tôi là k: / nhưng của bạn có thể sẽ là c:

Bước 7: Bước 4: Gửi lệnh, mở ảnh

Ok, bây giờ chúng ta đã có một cửa sổ lệnh chờ lệnh, tất cả những gì chúng ta phải làm là gõ lệnh vào cửa sổ bằng lệnh sendkeys. Khi chúng ta sử dụng lệnh sendkeys nó giống như gõ nhưng nó sẽ gõ bất cứ thứ gì chúng ta muốn. Bất cứ thứ gì chúng ta có thể nhập, chúng ta có thể gửi bao gồm cả các phím enter cần thiết để thực thi các chương trình. Nếu chúng ta biết cách gửi các phím, hãy mở bức ảnh của chúng ta mà chúng ta vừa tạo, sau đó đặt vào một lời bạt hẹn giờ khác để cho bức ảnh có thời gian tải. Để thực hiện việc này, chúng ta gõ: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Thao tác thực hiện: Thao tác này giống như gõ k: / id.bmp vào hộp chạy. Nó sẽ mở ảnh của bạn trong trình xem ảnh mặc định cho bmp… trong trường hợp của tôi, đó là trình xem ảnh và fax của windows nhưng hầu hết mọi người đều cài đặt các chương trình sau thị trường cũng thực hiện điều này để ai biết được nội dung của bạn sẽ mở. Hãy lưu tệp của bạn và chạy nó. Bạn sẽ nhận được một dấu nhắc lệnh và một hình ảnh để bật lên. cho đến nay rất tốt !!! mã của bạn cho đến nay phải là: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. ngủ 200

Bước 8: Bước 5: Gửi lệnh, Tắt Internet

Tại thời điểm này, nếu bạn vẫn chưa làm như vậy, hãy tải xuống tệp pdf ở cuối để nếu bạn gặp khó khăn, bạn sẽ có một bản tải xuống Có hướng dẫn về cách khắc phục. Ok vì vậy chúng tôi sẽ sử dụng ipconfig để giải phóng địa chỉ IP của chúng tôi. Nếu không có địa chỉ IP, chúng tôi không thể nhận được bất kỳ lưu lượng truy cập internet nào vì bộ định tuyến không biết nơi gửi nó đến máy tính. Để thực hiện việc này, chúng tôi nhập: shellobj.sendkeys "ipconfig / release {enter}" Chức năng: Thao tác này hướng dẫn chương trình IPCONFIG giải phóng địa chỉ IP. {enter} cho máy tính biết rằng bạn nhấn phím enter. điều này giống như gõ ipconfig / release vào cửa sổ chạy và nhấn enter. Thông thường sau khi bạn thực hiện việc này, nếu bạn chạy ipconfig, nó sẽ cho bạn biết địa chỉ IP của bạn là 0.0.0.0 Đây là những gì chúng tôi muốn. Nếu không có địa chỉ IP, bộ định tuyến sẽ không biết chúng ta đang ở đây và không chương trình nào có thể "gọi ra" để nói chuyện. Bây giờ chúng ta có thể viết một dòng khác có nội dung: shellobj.sendkeys "exit {enter}" Nhưng sẽ dễ dàng hơn nếu bạn chỉ cần chỉnh sửa dòng trên và nối nó vào cuối để bạn có: shellobj.sendkeys "ipconfig / release {enter} thoát {enter} "Bây giờ hãy lưu nó nhưng không chạy nó vì bạn sẽ tắt kết nối internet của mình. Nếu bạn chạy nó và internet của bạn bị tắt, chỉ cần thay đổi công tắc từ ipconfig / release thành ipconfig / Renew và nó sẽ chạy lại và bật lại. Và nếu vẫn không khởi động lại được và bạn sẽ ổn. Mã của bạn cho đến nay phải là: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

Bước 9: Bước 6: Tạo Hộp thư và Chờ trả lời

Được rồi, bây giờ chúng ta đã tắt Internet thành công và đóng cửa sổ nhắc lệnh, chúng ta muốn một hộp thông báo bật lên hỏi chúng ta có muốn bật lại internet hay không. cho một có nhưng nếu chúng ta nhấp vào không, chúng ta không muốn nó biến mất vì vậy chúng ta sẽ sử dụng câu lệnh while để thực hiện việc này. Tôi biết điều đó nghe có vẻ khó hiểu nhưng thực sự không phải vậy. chúng tôi đã làm điều đó một lần với dòng: set shellobj = CreateObject ("WScript. Shell") cái này thậm chí còn dễ dàng hơn để thiết lập nó, chúng tôi chỉ cần nhập: Dim MyVar Điều đó làm: Bây giờ chúng tôi đã đo kích thước một biến có tên MyVar Khi bạn nhận được "có / no "hộp thông báo bật lên trên màn hình của bạn khi bạn nhấp vào các nút, nó sẽ gán giá trị cho mỗi nút, trong trường hợp này" có "là 1 và" không "là 2. Chúng tôi muốn biến bắt đầu bằng" không ". chúng ta gán nó là số 2 theo mặc định, theo cách này nó sẽ tạm dừng cho đến khi một nút được nhấp. Để thực hiện việc này, chúng ta gõ: myvar = 2What it does: now MyVar bằng 2, theo cách này trong dòng tiếp theo nó sẽ dừng lại và chờ đầu vào. Bây giờ chúng ta chỉ muốn nó ngồi ở đó và đợi cho đến khi chúng ta sẵn sàng bật lại internet. Để thực hiện việc này, chúng ta gõ: while myvar = 2 What it does: Bằng cách làm này, chúng ta đã nói với script rằng miễn là giá trị của myvar = 2 sau đó chỉ cần tiếp tục lặp lại hộp thư cho đến khi chúng tôi nhận được bất kỳ giá trị nào khác với 2, trong trường hợp này chỉ có thể là 1 Tiếp theo, chúng tôi thực sự muốn tạo một hộp thông báo bật lên với các nút có / không. Cái này chúng ta gõ: MyVar = MsgBox ("Bật kết nối internet", 65, "Bật kết nối Internet") Chức năng: Bây giờ biến MyVar sẽ được gán bất kỳ giá trị nào được gán cho nút được nhấp vào hộp thông báo. phần đầu tiên trong dấu ngoặc kép là những gì hộp thư thực sự sẽ nói. 65 chỉ định nó là hộp tin Có / Không. và phần cuối cùng trong dấu ngoặc kép là giá trị của hộp thư. để kiểm tra xem nó chỉ định giá trị nào khi bạn nhấp vào có hoặc không, bạn có thể thêm vào một dòng có nội dung msgbox (myVar) và nó sẽ in bất kỳ giá trị nào được gán cho myvar trong một hộp thông báo. biết rằng chúng ta có một hộp thông báo, chúng ta cần đóng câu lệnh while. Mọi thứ ở giữa mở và đóng của câu lệnh while sẽ chạy mỗi khi bạn nhấp vào không, bởi vì nếu bạn nhấp vào không, nó vẫn là giá trị của 2 và lặp lại phần đầu tiên. Để kết thúc loại câu lệnh while: wend does: Khi bạn kết thúc một câu lệnh while, nó sẽ hoạt động như một vòng lặp cho đến khi đối số không còn được đáp ứng nữa. Vì vậy, nếu bạn tiếp tục nhấn không, nó sẽ lặp lại nhưng một khi bạn nhấn có, nó sẽ thoát khỏi vòng lặp và tiếp tục với kịch bản. Lưu tệp nhưng đợi để chạy nó cho đến bước tiếp theo. Mã của bạn cho đến nay sẽ là: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" Bật kết nối internet ", 65," Bật kết nối Internet ") wend

Bước 10: Bước 7: Bật lại Internet

Bây giờ ai đó cuối cùng đã nhấp vào có và nó đã vượt qua câu lệnh while, chúng ta cần tìm kiếm trên internet. Tôi thường bật lên một xác nhận để người dùng cuối biết những gì đang xảy ra nhưng nó hoàn toàn là tùy chọn. Để bật lên một loại xác nhận: msgbox ("Bây giờ chúng tôi sẽ bật lại Kết nối Internet !!!") Chức năng của nó: nó sẽ gửi một hộp thông báo cho biết Bây giờ chúng tôi sẽ bật lại Kết nối Internet !!! và cung cấp cho bạn một nút ok để nhấp. Bây giờ tất cả những gì chúng ta phải làm là bật lại internet và đóng mọi thứ. type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / Rene {enter}" Chức năng: nó đảo ngược lệnh tắt từ trước và đổi mới địa chỉ IP của bạn. Sau khi bạn đã gia hạn địa chỉ IP của mình, bây giờ bạn có thể lấy lại kết nối Internet. Bây giờ tất cả những gì chúng ta phải làm là dọn dẹp các cửa sổ đang mở. Một lần nữa, chúng ta có thể sử dụng lệnh sendkeys nhưng tôi chỉ sẽ thêm dòng cuối cùng để giữ các bản dọn dẹp. Trong trường hợp này, tôi sẽ sử dụng chương trình taskkill để hủy chương trình hiển thị hình ảnh. Trong trường hợp này, đó là trình xem ảnh và fax của cửa sổ và hiển thị dưới dạng rundll32.exe trong tab quy trình của trình quản lý tác vụ, vì vậy đó là những gì chúng ta cần phải giết. Nếu ảnh của bạn mở ra bằng một chương trình khác, như irfanview hoặc acdsee, hãy tìm tên nó trong tab tiến trình và thay thế rundll32.exe bằng tên mà anh ta tìm thấy. Lệnh sẽ là: taskkill / F / IM rundll32.exe does: taskkill là tên của chương trình, công tắc / F yêu cầu nó buộc phải giết và công tắc / IM cho nó biết tên hình lệnh exit và một lệnh enter khác và có dạng như sau: shellobj.sendkeys "ipconfig / Rene {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Lưu tệp của bạn.

Bước 11: Thành phẩm

Nếu mọi thứ suôn sẻ, thành phẩm của bạn sẽ trông giống như sau: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("Bật kết nối internet", 65, "Bật kết nối Internet") wendmsgbox ("Bây giờ chúng ta sẽ Bật Internet Kết nối trở lại !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / Rene {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now rằng lập trình là xong, bạn có thể chạy chương trình. Điều gì sẽ xảy ra: 1.) Bạn sẽ thấy cửa sổ CMD bật lên trong một thời gian rất ngắn rồi đóng lại 2.) Internet của bạn sẽ không hoạt động nữa. nhưng bạn sẽ không thấy điều này3.) Hình ảnh của bạn sẽ mở ra.4.) Bạn sẽ nhận được một cửa sổ bật lên hỏi bạn có muốn bật lại internet hay không. nhưng bạn vẫn mở lại và hỏi xem bạn có muốn bật lại internet không. nên đóng lại. Bạn có nó. Một VBscript rất dễ dàng để bật và tắt Internet của bạn. Hy vọng bạn thích nó. Tôi thực sự đã tạo một tập lệnh khác gần giống với tập lệnh này để tắt các bộ điều hợp mạng bằng cách sử dụng một chương trình có tên là DevCon, giống như một trình quản lý thiết bị dòng lệnh. Hoạt động thực sự tốt. Tập lệnh giống hệt tập lệnh này ngoại trừ chỗ trong tập lệnh này có dấu phẩy cho ipconfig mà một tập lệnh có lệnh cho DevCon.