Giới thiệu VB Script: Hướng dẫn dành cho người mới bắt đầu: Phần 2: Làm việc với tệp: 13 bước

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

Trong phần hướng dẫn VBScript cuối cùng của tôi, tôi đã xem qua cách tạo tập lệnh để tắt Internet của bạn để chơi Xbox360. Hôm nay tôi có một vấn đề khác. Máy tính của tôi đã bị tắt vào những thời điểm ngẫu nhiên và tôi muốn ghi lại mỗi lần máy tính khởi động lại thành một tệp. Tôi có cảm giác rằng vấn đề là card màn hình nhưng tôi muốn chắc chắn hơn. Tôi để máy tính luôn bật nhưng không thể giám sát nó 24/7, vì vậy giải pháp đơn giản nhất của tôi là ghi dấu thời gian vào một tệp mỗi khi nó khởi động lại. Bởi vì nó cung cấp cho tôi BSOD mỗi lần, nên việc ghi nhật ký khi nó tắt sẽ rất khó khăn vì vậy tôi phải lấy nó khi nó hoạt động trở lại. Đó là một phần dễ dàng, vì thực tế đây chỉ là tạm thời cho đến khi tôi tìm ra vấn đề với máy tính, tôi sẽ không ghi vào sổ đăng ký hoặc biến nó thành một dịch vụ để nó sẽ khởi động lúc khởi động. Và để làm cho nó khởi động lại mỗi khi nó tắt, tôi sẽ phải chỉnh sửa bios.

Bước 1: Chỉnh sửa Bios để Khởi động lại khi Mất nguồn

Tôi không chắc vấn đề của mình là do nguồn điện bị hỏng hay do card màn hình của tôi hay nó là gì. Nhưng tôi biết rằng máy tính khởi động lại thường xuyên. Vì vậy, để đảm bảo nó khởi động lại sau khi mất điện (IE: nguồn điện chuyển sang màu nâu), tôi muốn chỉnh sửa bios. Vì thực tế là có rất nhiều nhà sản xuất bios khác nhau, sẽ quá khó để liệt kê tất cả các cách khác nhau để làm điều này trong tất cả các màn hình bios khác nhau, vì vậy tôi sẽ cung cấp cho bạn những điều cơ bản và để bạn tìm hiểu các chi tiết cụ thể của riêng bạn. Về cơ bản để vào bios của bạn, bạn sẽ cần phải nhấn một nút khi khởi động. Thông thường nó sẽ nói một cái gì đó như "nhấn Del để vào thiết lập" hoặc "F2". Các nhà sản xuất khác nhau cung cấp cho bạn những cách khác nhau nhưng nó thường là phím "F2" hoặc "Del". Dù bằng cách nào, hãy quan sát nó và nhấn phím nó yêu cầu bạn đánh. Bây giờ bạn sẽ đến một màn hình thường có màu xám hoặc xanh lam, nhưng một lần nữa, nó phụ thuộc vào sản xuất bios của bạn. Bạn sẽ tìm kiếm một tùy chọn cài đặt nguồn. Nó sẽ nằm trên một cửa sổ hoàn toàn giống như trong ảnh chụp màn hình AMIBIOS (mượn từ hướng dẫn phần cứng toms) hoặc trong một số trường hợp, nó có thể nằm trong cửa sổ các tính năng bios nâng cao. Dù sao bạn đang tìm kiếm một cài đặt "khôi phục khi mất ac / mất điện". Nó có thể được đặt tên một cái gì đó khác nhưng nó sẽ gần với cái đó. Chỉ cần tìm nó. Nó thường sẽ có ba tùy chọn (trạng thái cuối cùng, bật sau khi mất điện, tắt sau khi mất điện). Bạn muốn bật nó lên sau khi mất điện. Đảm bảo rằng bạn lưu cài đặt của mình và thoát khỏi bios. Bây giờ khi nguồn của bạn bị lỗi hoặc bạn rút phích cắm máy của bạn, nó sẽ khởi động lại ngay sau khi có nguồn trở lại. Yeahhhhhh !!!!!!!!!!!!!!!!

Bước 2: Viết kịch bản Phần 1: Lập kế hoạch

Điều đầu tiên chúng tôi muốn làm là lập một kế hoạch. Chính xác thì chúng ta muốn script làm gì. A) Khi mất điện hoặc BSOD xuất hiện, chúng ta muốn nó khởi động lại. (Đã thực hiện ở bước 1 Chỉnh sửa BiosB.) Ngay sau khi nó khởi động lại, chúng tôi muốn ghi vào tệp ngày và thời gian chính xác mà nó khởi động lại. C.) Chúng tôi muốn có thể sửa đổi tệp đó. Nếu nó khởi động lại nhiều lần thì chúng tôi sẽ không bao giờ biết được. để bật lên một thông báo cho biết nó đã khởi động lại. F.) Chúng tôi muốn nó mở tệp mà chúng tôi đã viết để chúng tôi có thể xem danh sách tất cả các lần khởi động lại khi chúng tôi nhấp vào ok trên thông báo bật lên.

Bước 3: Viết kịch bản Phần 2: Tạo tập lệnh của bạn và gán các biến

Ok, điều đầu tiên, hãy tạo một tài liệu văn bản và đổi tên nó thành any_name.vbs. Tôi đã sử dụng shutdown_catcher.vbs nhưng bạn có thể sử dụng bất cứ thứ gì. Bây giờ chỉ cần nhấp chuột phải vào tệp vbs và nhấn chỉnh sửa. Bây giờ điều đầu tiên chúng ta muốn làm là tạo các biến. Các biến về cơ bản chỉ là một nơi giữ chỗ, vì vậy chúng ta không cần phải viết một loạt các nội dung nhiều lần. ví dụ: chúng ta có một câu nói rằng "con cáo nâu nhanh chóng nhảy qua những con chó lười biếng trở lại". nhưng nó nằm trong mã của chúng tôi 20 lần. chúng ta có thể gõ toàn bộ câu 20 lần hoặc tạo một biến và gán câu cho biến đó Vì vậy, trong ví dụ này, chúng ta tạo biến strSentence sau đó gán "con cáo nâu nhanh nhẹn nhảy qua lũ chó lười quay lại" cho biến đó. Bây giờ, tất cả những gì chúng ta phải làm là gõ strSentence mỗi khi chúng ta cần câu và nó biết phải gõ "the quick brown fox jumps over the lazy dog back". Làm thế nào để làm điều đó: Nếu chúng ta có nhiều biến cùng loại, chúng ta có thể đặt chúng trên cùng một dòng và phân tách các biến bằng dấu phẩy. Để tạo một biến, chúng ta cần thực hiện những gì được gọi là xác định kích thước cho biến. Để làm điều này, chúng ta gõ Dim trước biến, sau đó chúng ta đặt một tiền tố vào biến để chúng ta biết biến đại diện cho cái gì. Ví dụ là str cho một biến chuỗi obj cho một biến đối tượng const cho một hằng số…. Danh sách cứ lặp đi lặp lại. đây là những cái chúng ta sẽ sử dụng trong script này nên tôi sẽ giải thích chúng một chút. một chuỗi thường là văn bản giống như một câu. Một đối tượng thường là một cái gì đó vật lý như một tệp hoặc một chương trình. và một hằng số là một cái gì đó sẽ luôn có cùng ý nghĩa trong toàn bộ tập lệnh. LƯU Ý: BẤT CỨ LÚC NÀO MỘT DÒNG CÓ MỘT DÒNG 'TRƯỚC KHI NÓ, DÒNG SẼ BỊ LỪA ĐẢO BỞI SCRIPT. ĐỀU ĐƯỢC GỌI LÀ NHẬN XÉT VÀ THƯỜNG ĐƯỢC NHÀ LẬP TRÌNH ĐẶT VÀO HỌ CÓ THỂ NHỚ NHỮNG GÌ HỌ ĐÃ LÀM SAU KHI XEM LẠI MÃ. TÔI SẼ SỬ DỤNG CHÚNG ĐỂ THỰC HIỆN NHẬN XÉT VỀ MÃ VÌ MÀ BẠN CÓ THỂ XEM TẠI SAO TÔI KHÔNG LÀM THEO CÁCH TÔI ĐÃ LÀM. VÀ HỌ SẼ Ở TRÊN DÒNG HỌ ĐANG BÌNH LUẬN VỀ. Cách sử dụng thực tế: 'dòng này buộc bạn phải xác định tất cả các biến. Nếu không có nó, bất kỳ biến không xác định nào sẽ được coi là objectOption Explicit. Bây giờ chúng ta tạo 5 biến cho các thư mục và tệp, chúng ta sẽ cần đặt tên chúng theo cách bạn muốn nhưng quy ước là preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now chúng ta cần để tạo các biến chuỗi cho thư mục, tệp và tên tệpDim strDir, strFile, strFileName'now gán giá trị cho các biến. strDir là thư mục của chúng tôi, chúng tôi muốn thư mục trong strDir = "C: / Catcher" 'strFile là nơi chúng tôi muốn tài liệu văn bản và tên của nó là gì. tệp chúng tôi có ba tùy chọn 'chúng tôi sẽ chỉ sử dụng phần nối thêm trong mã này nhưng thật tuyệt khi biết tất cả chúng. để chúng ta có thể gọi nó sau này khi cần. yOb = CreateObject ("Scripting. FileSystemObject")

Bước 4: Giải thích ở giữa

Bây giờ chúng ta đã có thứ nguyên cho các biến, tất cả những gì chúng ta phải làm là nhớ lại biến cụ thể đó mỗi lần. Điều này không chỉ cắt giảm số lượng nhập liệu mà chúng tôi còn tạo ra ít lỗi chính tả hơn. & strFile, ForAppending, True) 'ghi dòng mới vào fileobjTextFile. WriteLine ("Máy tính của bạn Tắt vào ngày" & ngày & "lúc" & giờ)' đóng tệpobjTextFile. Close 'tạo một cửa sổ bật lênWscript. Echo ("Của bạn tắt máy tính vào "& date &" at "& time) 'mở tệp trong IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Vấn đề là nó sẽ không có sửa lỗi và bất kỳ lỗi đơn giản nào như tệp không tồn tại hoặc biến đã được gán sẽ làm hỏng tập lệnh.

Bước 5: Viết kịch bản Phần 3: Nếu thì phát biểu là sửa lỗi

Cách dễ nhất để sửa lỗi là sử dụng câu lệnh if / then, về cơ bản câu lệnh if then nói nếu có điều gì đó xảy ra thì hãy làm điều này, nếu không thì hãy làm điều đó. Bằng cách lồng các câu lệnh if / then, bạn có thể tạo ra một chuỗi những điều phải xảy ra. Nếu a, b và c xảy ra thì hãy làm điều này. Ví dụ: chúng tôi muốn đảm bảo rằng tệp chúng tôi muốn ghi vào ở đó nếu chúng tôi tìm thấy nó, chúng tôi không muốn làm gì nếu chúng tôi không tìm thấy nó, chúng tôi muốn tạo nó hoặc chúng tôi muốn kiểm tra xem thư mục có ở đó không và nếu không tạo nó và sau đó kiểm tra xem tệp có ở đó hay không sau khi chúng tôi tìm thấy thư mục và nếu không tạo nó thì câu đầu tiên là ví dụ về câu lệnh if then, câu thứ hai là if then lồng nhau. chúng tôi làm điều đó: có bốn phần cho một câu lệnh if then if / then elseend nếu về cơ bản nếu điều này là đúng thì hãy làm điều này nếu không thì hãy làm điều đó sau đó kết thúc câu lệnh một câu lệnh if then được mã hóa đúng cách sẽ là: If something = something Sau đó làm Những gì bạn cần làm xong Hãy làm điều gì đó khác Và Nếu Bạn có thể sử dụng bất kỳ đối số nào miễn là nó đúng, nó sẽ theo sau phần then và bỏ qua phần khác nhưng nếu nó sai, nó sẽ bỏ qua then và chuyển sang phần khác Sau đó khi chúng ta kết thúc câu lệnh if chúng ta đặt "end if", nhưng nếu chúng ta đã lồng nhau các câu lệnh if thì chúng ta phải kết thúc mọi câu lệnh if. Nó sẽ kết thúc chúng từ con đến cha vì vậy "end if" đầu tiên kết thúc câu lệnh if bên trong cha, trong đó câu thứ hai kết thúc câu lệnh if (cha) ban đầu. chúng tôi muốn nói trong thông báo ") để thêm giá trị biến vào nó, chúng tôi đặt nó bên ngoài hoặc ở giữa dấu ngoặc kép bằng cách sử dụng dấu và (&) làm dấu phân cách để tập lệnh biết đó là một biến chứ không phải văn bản. như thế này: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Đầu ra sẽ là một cửa sổ bật lên có nội dung Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. CreateFolder (strDir) 'và kiểm tra xem tệp và thư mục có tồn tại không Nếu objFiSyOb. FileExists (strDir & strFile) Sau đó, nếu nó có nhận được thư mục c: / catcher Đặt ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text document shutdown_catcher.txt Đặt objFile = objFiSyOb. CreateTextFile (strDir & strFile)' sau đó bật lên thông báo cho biết bạn đã tạo cả hai Wscript. Echo ("Chúng tôi đã tạo một thư mục có tên "& strDir &" và một tệp có tên "& strFilename &" và được đặt trong thư mục "& strDir & strFile &". ") 'end lồng nhau câu lệnh ifEnd If'end gốc if statementEnd If'now trong câu lệnh if đầu tiên chúng tôi đã kiểm tra thư mục và tìm thấy nó, vì vậy bây giờ chúng tôi kiểm tra fileIf objFiSyOb. FileExists (strDir & strFile) Sau đó, nếu tìm thấy hãy lấy thư mục Đặt objSysFold = objFiSyOb. GetFolder (strDir) 'nếu không thì Tạo văn bản doc Đặt objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'tạo một cửa sổ bật lên cho biết chúng tôi đã tạo tài liệu văn bản Wscript. Echo ("Chúng tôi đã tạo một tệp có tên" & strFileName & "trong thư mục tệp" & strDir & ".") Kết thúc Nếu

Bước 6: Giải thích ở giữa

Nếu bạn nhìn kỹ mã từ bước trước đó, bạn sẽ thấy cả câu lệnh if then lồng và không lồng nhau. Câu đầu tiên là một câu lệnh lồng nhau. Nó kiểm tra thư mục và tệp và nếu không tìm thấy chúng sẽ tạo ra cả hai. Thứ hai chỉ tìm một tệp và nếu không tìm thấy nó sẽ chỉ tạo tệp. Người ta có thể nói tại sao cả hai. Điều gì sẽ xảy ra nếu tệp bị xóa nhưng thư mục thì không. Câu lệnh if đầu tiên sẽ bỏ qua ngay quá trình tạo tệp vì nó đã tìm thấy thư mục và sẽ không bao giờ thực hiện phần khác của câu lệnh. Vì vậy, khi bạn ghi vào tệp, nó sẽ báo lỗi vì tệp sẽ bị thiếu. Vì vậy, bằng cách có cái thứ hai ở đó nó giải quyết vấn đề này. Về mặt kỹ thuật, bạn có thể lấy câu lệnh lồng nhau ra ngoài vì nó gần giống với câu lệnh if then thứ hai nhưng sau đó bạn sẽ chỉ có một cửa sổ bật lên và nó sẽ không giống như cá nhân. câu lệnh if -nested.

Bước 7: Sửa lỗi khác

Bây giờ chúng ta đã hoàn thành phần lớn việc sửa lỗi mà chúng ta muốn ghi vào tệp và hiển thị cửa sổ bật lên. Vấn đề là chúng ta sẽ gặp lỗi quyền nếu chúng ta không giải phóng tham chiếu của đối tượng trước đó được lưu trữ trong biến. Vì vậy, chúng tôi muốn đưa vào một đoạn mã nhỏ có nội dung là đặt các biến thành không có gì. Giao diện như sau: set objFile = nothingset objSysFold = nothingVì vậy, đối với những người bạn đang theo dõi tại nhà, mã của bạn đến thời điểm này sẽ là như vậy (Tôi đã nhận xét out): Tùy chọn ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher.eadingxt" ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSreateFold. Fold = objFiSyOb. CExists Đặt objSysFold = objFiSyOb. GetFolder (strDir) Khác Đặt objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Chúng tôi đã tạo một thư mục có tên" & strDir & "và một tệp có tên" & strFilename & "và đặt nó vào thư mục "& strDir & strFile &". ") Kết thúc I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Chúng tôi đã tạo một tệp có tên" "& strDir &" thư mục tệp. ") Kết thúc Ifset objFile = nothingset objSysFold = nothing

Bước 8: Viết kịch bản Phần 4: Thiết lập các thuộc tính

Bây giờ chúng ta cần thiết lập các thuộc tính cho tệp để chúng ta có thể sửa đổi nó. Trước đây, chúng tôi đã đặt ba biến không đổi: forReading = 1forWriting = 2 forAppending = 8 nếu bạn đặt nó thành forReading, bạn sẽ có thể đọc nó nhưng không ghi vào nó. Nếu bạn đặt nó thành forWriting, bạn sẽ ghi đè lên tệp hiện có mỗi khi bạn chạy chương trình. Nếu bạn đặt nó thành forAppending, bạn sẽ thêm một dòng mới mỗi khi script thực thi vào tài liệu.: bạn phải đặt tên cho đối tượng mà bạn muốn đặt thuộc tính. Vì chúng ta đã thực hiện hầu hết các công việc trong các bước trước đó, chúng ta chỉ cần gọi lại các biến tại thời điểm này. Sau đó, chỉ cần đặt nó thành true.

Bước 9: Viết kịch bản Phần 5: Ghi vào tệp

Việc ghi vào một tệp cũng giống như viết một cửa sổ bật lên. Bạn chỉ cần đặt: objTextFile. WriteLine ("Bất cứ điều gì bạn muốn nói" & Biến để kéo vào để viết dòng) Sự khác biệt duy nhất là phần đầu tiên. Trong một cửa sổ bật lên bạn đặt: Wscript.echoin một dòng viết bạn đặt: objTextFile. WriteLineVà trong một dòng viết, bạn phải đóng dòng ghi để nó biết là ngừng viết và bạn sử dụng: objTextFile. CloseActual Cách sử dụng: objTextFile. WriteLine ("Máy tính của bạn tắt vào ngày" & ngày & "lúc" & giờ) objTextFile.close'now thêm vào cửa sổ bật lên để nói rằng bạn đã ghi vào tệp để người đó biết điều đó đã xảy ra'và họ phải đóng tệp để mở tệp và xemWscript. Echo ("Máy tính của bạn Tắt vào" & ngày & "lúc" & thời gian)

Bước 10: Viết kịch bản Phần 5: Mở tệp để xem

Tại thời điểm này, tập lệnh sẽ dừng lại cho đến khi ai đó nhấp vào cửa sổ bật lên. Khi bạn vượt qua cửa sổ bật lên, bạn có thể đặt một dòng để mở tệp. Khi bạn tạo lỗi trong vbscript, nó sẽ thêm một giá trị vào biến "err.number", một biến được xác định trước trong vbscript. Bạn không phải xác định nó và có thể sử dụng nó giống như bất kỳ biến nào khác miễn là bạn không vi phạm các quy tắc của nó. Giá trị được gán cho biến err.number là mã cho lỗi đã xảy ra. Bây giờ bạn có thể kiểm tra mọi mã lỗi đã biết trong cơ sở dữ liệu vbscript và đảm bảo rằng nó không xảy ra. Hoặc dễ dàng hơn, chỉ cần kiểm tra xem đảm bảo rằng biến err.number trống. nếu nó trống không có lỗi xảy ra. Để làm điều đó, chúng ta chỉ cần kiểm tra xem biến có bằng vbEmpty hay không. Vì vậy, trong tập lệnh của chúng tôi, chúng tôi muốn sử dụng một câu lệnh if then khác. Và kiểm tra xem có xảy ra lỗi không và nếu nó không mở tệp để xem, nhưng nếu có thì sẽ bật lên một thông báo với số lỗi trong đó để chúng tôi có thể gỡ lỗi. gõ Wscript. Quit. Điều này yêu cầu tập lệnh tự kết thúc. Điều này giúp hạn chế tình trạng rò rỉ bộ nhớ và các quá trình không mong muốn đang chạy. errorIf err.number = vbEmpty then'nếu không có tạo shell Đặt objShell = CreateObject ("WScript. Shell") ', sau đó mở tệp từ shell đó bằng explorer. nó sẽ thực sự mở trong IE mặc dù objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'nếu không sẽ bật lên thông báo với số lỗiElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Bước 11: Bắt Script chạy khi khởi động

Có một thư mục tệp trong menu bắt đầu được gọi là Khởi động. Bất cứ thứ gì được đặt vào thư mục này sẽ khởi động ngay sau khi máy tính được khởi động. Bằng cách đặt tệp script vào thư mục khởi động, nó sẽ thực thi mỗi khi máy tính được khởi động lại dù có chủ ý hay không. Vì tôi chỉ sử dụng công cụ này như một công cụ chẩn đoán, nó không cần phải được tạo thành một dịch vụ để bắt đầu và tôi không cần đưa nó vào sổ đăng ký để khởi động nó, vì vậy điều này sẽ ổn. Sau khi sửa máy tính, tôi có thể xóa tệp khỏi thư mục khởi động và không yêu cầu dọn dẹp nào khác.

Bước 12: Chạy chương trình

Khi bạn thực thi tệp vbscript, nó sẽ bây giờ A.) Kiểm tra xem thư mục C: / Catcher có tồn tại hay không và nếu không tạo nó. B:) Kiểm tra xem tệp Shutdown_catcher.txt có tồn tại hay không.) Nếu nó đã tạo một thư mục hoặc tệp hoặc cả hai, nó sẽ bật lên một thông báo cho biết nó đã tạo chúng (Lưu ý: nó chỉ nên thực hiện việc này trong lần chạy đầu tiên sau đó nó sẽ ở đó trừ khi bị xóa vì vậy bạn chỉ nên thấy thông báo đó một lần. Bạn nên chạy tập lệnh này một lần khi khởi động lại có kiểm soát để bạn có thể bỏ qua các cửa sổ bật lên này hoặc bạn có thể không ghi bất kỳ thứ gì vào tệp vì nó sẽ không bỏ qua tệp cửa sổ bật lên đã tạo.) D:) Viết một dòng trong text document Shutdown_Catcher.txt nói rằng máy tính tắt vào ngày như vậy và ngày như vậy và thời điểm như vậy. E:) Bật lên thông báo cho biết đã có khởi động lạiF:) Mở tệp để xem. bạn sẽ thấy mã như được viết. Bây giờ tất cả những gì tôi phải làm là ngồi lại và chờ đợi. Mỗi khi máy tính khởi động lại, tôi sẽ có một bản ghi về nó. Sau đó, tôi có thể xem lại hồ sơ và xem liệu có bất kỳ sự nhất quán nào với nó hay không. Ví dụ có thể là nó khởi động lại sau mỗi nửa giờ hoặc nó khởi động lại bất kỳ lúc nào có mức tăng hoặc 45 trên đồng hồ. Đây không phải là cách duy nhất tôi kiểm tra máy tính, mong bạn biết. Tôi cũng có một chương trình đo điểm chuẩn đang chạy để kiểm tra nhiệt độ để tôi biết nó nóng như thế nào khi nó tắt, điện áp để tôi biết nguồn điện có bị hỏng hay không và một vài điều hữu ích khác. Tôi hy vọng điều này là hữu ích. Tôi biết tôi thích nó nên có lẽ những người khác cũng sẽ như vậy. Nếu bạn có bất kỳ câu hỏi nào hãy hỏi. Tôi có thể không liên lạc với họ ngay lập tức nhưng sẽ cố gắng một chút và tôi sẽ trả lời bạn. Phụ thuộc vào ngày / tuần của tôi như thế nào.

Bước 13: Mã

Đây là mã được viết mà không có tất cả các gợi ý và chú thích Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Nếu objFiSyOb. FolderExists (strDir) Sau đó Đặt objSysFold = objFiSyOb. objFiSolder (strDir) If Else Set objFiSolder objFiSyOb. FileExists (strDir & strFile) Sau đó Đặt objSysFold = objFiSyOb. GetFolder (strDir) Khác Đặt objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Chúng tôi đã tạo một thư mục có tên là" & một tệp có tên là strDir & " "& strFilename &" và đặt nó trong thư mục "& strDir & strFile &". ") Kết thúc IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Sau đó đặt objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. Create strDir & strFile) Wscript. Echo ("Chúng tôi có đã tạo một tệp có tên "& strFileName &" trong thư mục tệp "& strDir &". ") Kết thúc Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Máy tính của bạn Tắt vào "& ngày &" lúc "& giờ) objTextFile. CloseWscript. Echo (" Máy tính của bạn Tắt vào "& ngày &" lúc "& giờ) Nếu err.number = vbEmpty thì Đặt objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Khác WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit