معرفی VB Script: راهنمای مبتدیان: قسمت 2: کار با فایلها: 13 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

خوب ، در آخرین دستورالعمل VBScript من ، نحوه ساختن یک اسکریپت برای خاموش کردن اینترنت برای بازی Xbox360 را مرور کردم. امروز من مشکل متفاوتی دارم. کامپیوتر من در مواقع تصادفی خاموش شده است و می خواهم هر بار که کامپیوتر دوباره راه اندازی می شود وارد یک فایل شوم. من احساس می کنم مشکل از کارت گرافیک است اما می خواهم مطمئن شوم. من کامپیوتر را همیشه روشن می گذارم اما نمی توانم 24/7 آن را کنترل کنم ، بنابراین ساده ترین راه حل من این است که در هر بار راه اندازی مجدد یک مهر زمان بنویسم. از آنجا که هر بار به من BSOD می دهد ، ورود به سیستم هنگام خاموش شدن سخت خواهد بود ، بنابراین مجبورم هنگام روشن شدن مجدد آن را دریافت کنم. این قسمت آسانی است. به دلیل این واقعیت که این حالت موقتی است تا زمانی که متوجه نشوم مشکل کامپیوتر چیست ، من قصد ندارم به رجیستری بنویسم یا آن را به یک سرویس تبدیل کنم تا در زمان راه اندازی راه اندازی شود. و برای راه اندازی مجدد هر بار که خاموش می شود ، باید بایوس را ویرایش کنم.

مرحله 1: ویرایش Bios برای راه اندازی مجدد آن در حالت Power Fail

من مطمئن نیستم که مشکل من از خرابی منبع تغذیه است یا از کارت گرافیکم یا اینکه چیست. اما من می دانم که کامپیوتر هر چند وقت یکبار راه اندازی مجدد می شود. بنابراین برای اطمینان از راه اندازی مجدد پس از قطع برق (IE: منبع تغذیه قهوه ای می شود) می خواهم بایوس را ویرایش کنم. به دلیل این واقعیت که تعداد زیادی سازنده بایوس مختلف وجود دارد ، فهرست کردن روشهای مختلف انجام این کار در صفحه های مختلف بایوس بسیار دشوار است ، بنابراین من فقط اصول اولیه را به شما ارائه می دهم و به شما اجازه می دهم که بفهمید مشخصات را به تنهایی انجام دهید. اساساً برای ورود به بایوس خود باید دکمه ای را در بوت فشار دهید. معمولاً چیزی مانند "برای وارد کردن تنظیمات به Del ضربه بزنید" یا "F2" می گوید. تولیدکنندگان مختلف روش های متفاوتی را به شما ارائه می دهند اما معمولاً کلید "F2" یا "Del" است. در هر صورت مراقب آن باشید و کلیدی را که به شما می گوید ضربه بزنید. حالا به صفحه ای می رسید که معمولاً خاکستری یا آبی است ، اما باز هم بستگی به نوع بیوس شما دارد. شما به دنبال گزینه تنظیمات قدرت هستید. این برنامه یا مانند پنجره AMIBIOS (که از راهنمای سخت افزار toms وام گرفته شده است) روی پنجره ای قرار دارد یا در برخی از آنها ممکن است در پنجره ویژگیهای bios پیشرفته باشد. به هر حال شما به دنبال تنظیم "بازیابی جریان برق/افت برق" هستید. ممکن است نام دیگری داشته باشد اما نزدیک به آن خواهد بود. فقط دنبالش بگرد معمولاً سه گزینه دارد (آخرین حالت ، روشن بعد از قطع برق ، خاموش بعد از قطع برق). بعد از قطع برق می خواهید آن را روشن کنید. مطمئن شوید که تنظیمات خود را ذخیره کرده و از بایوس خارج شوید. حالا وقتی برق شما قطع می شود یا دستگاه خود را از برق جدا می کنید ، به محض وصل شدن دوباره راه اندازی می شود. آرهههههههههههههههههههههههههههههههههههههههههههههههههه

مرحله 2: نوشتن فیلمنامه قسمت 1: تهیه برنامه

اولین کاری که می خواهیم انجام دهیم ایجاد یک طرح است. دقیقاً ما می خواهیم اسکریپت چه کاری انجام دهد. الف) هنگامی که برق قطع شود یا BSOD ظاهر شود ، می خواهیم آن را راه اندازی مجدد کنیم. (در مرحله 1 ویرایش BiosB مورد توجه قرار گرفته است.) به محض راه اندازی مجدد ، می خواهیم تاریخ و زمان دقیق راه اندازی مجدد را در یک فایل بنویسیم. ج) ما می خواهیم بتوانیم آن پرونده را اصلاح کنیم. اگر بیش از یک بار راه اندازی مجدد شود ما هرگز نمی دانیم. D.) ما می خواهیم آن را تصحیح خطا کند ، بنابراین خراب نمی شود و ما مطمئن می شویم که همه راه اندازی مجدد خود را بدون از دست دادن هیچ کدوم بدلیل کد نادرست دریافت می کنیم. E.) ما آن را می خواهیم برای باز کردن یک پیام که می گوید راه اندازی مجدد شده است.

مرحله 3: نوشتن اسکریپت قسمت 2: ایجاد اسکریپت خود و تخصیص متغیرها

خوب ، ابتدا یک سند متنی ایجاد کنید و نام آن را به any_name.vbs تغییر دهید. من از shutdown_catcher.vbs استفاده کردم اما شما می توانید از هر چیزی استفاده کنید. اکنون فقط روی فایل vbs راست کلیک کرده و ویرایش را فشار دهید. اگر از notepad ++ استفاده می کنید ، زمان مناسبی برای باز کردن آن خواهد بود ، اگر قصد ندارید هر مقدار کدگذاری را انجام دهید باید به دنبال دریافت آن باشید. خوب ، اولین کاری که می خواهیم انجام دهیم ایجاد متغیرها است. متغیرها اساساً فقط یک مکان هستند ، بنابراین مجبور نیستیم دسته ای از مطالب را چندین بار بنویسیم. مثال: ما یک جمله داریم که می گوید "روباه قهوه ای سریع از سگ های تنبل به عقب می پرد". اما 20 بار در کد ما قرار دارد. ما می توانیم کل جمله را 20 بار تایپ کنیم یا یک متغیر ایجاد کنیم و جمله را به آن متغیر اختصاص دهیم. بنابراین در این مثال ما متغیر strSentence را ایجاد می کنیم و سپس "روباه قهوه ای سریع روی سگ های تنبل می پرد" را به آن متغیر اختصاص می دهیم. اکنون تنها کاری که باید انجام دهیم این است که هر بار که به جمله احتیاج داریم ، عبارت strSentence را تایپ کنیم و آن را تایپ کند "روباه قهوه ای سریع روی سگ های تنبل می پرد" چگونه باید این کار را انجام دهیم: اگر چندین متغیر از یک نوع داریم ، می توانیم آنها را در یک خط قرار دهید و متغیرها را با کاما از هم جدا کنید. برای ایجاد یک متغیر باید کاری را انجام دهیم که به آن اندازه گیری متغیر می گویند. برای انجام این کار ما قبل از متغیر Dim را تایپ می کنیم سپس یک پیشوند روی متغیر قرار می دهیم تا بدانیم متغیر نشان دهنده چه چیزی است. مثالها عبارتند از str برای یک متغیر رشته ای obj برای یک متغیر شیئی const برای یک ثابت…. لیست همچنان ادامه دارد. اینها مواردی هستند که ما در این اسکریپت استفاده خواهیم کرد ، بنابراین من آنها را کمی توضیح خواهم داد. یک رشته معمولاً متنی مانند یک جمله است. یک شیء معمولاً چیزی فیزیکی مانند یک فایل یا یک برنامه است. و ثابت چیزی است که همیشه در طول فیلمنامه یک معنا خواهد داشت. توجه: هر زمان که یک خط یک خط داشته باشد ، قبل از آن خط توسط نویسنده نادیده گرفته می شود. آنها یادداشت هایی نامیده می شوند و معمولاً توسط برنامه نویس در آن قرار می گیرند آنها می توانند به یاد داشته باشند که در هنگام بازبینی کد ، چه چیزی را دیرتر انجام دادند. من از آنها برای اظهارنظر درباره کد استفاده خواهم کرد تا بتوانید ببینید چرا من به طریقی اشتباه کردم. و آنها از خطی که در مورد آن اظهار نظر می کنند ، فراتر خواهند رفت. کاربرد واقعی: این خط شما را مجبور می کند تا همه متغیرها را تعریف کنید. بدون آن ، هر متغیر تعریف نشده به عنوان یک شیء مورد استفاده قرار می گیرد برای ایجاد متغیرهای رشته ای برای دایرکتوری ، نام فایل و فایلDim strDir، strFile، strFileName اکنون مقادیری را به متغیرها اختصاص دهید در strDir دایرکتوری ما است ، پوشه مورد نظر را در strDir = "C: / Catcher" می خواهیم. سند متنی و نام آن استstrFile = "\ Shutdown_catcher.txt" 'نام strfile به این دلیل است که ما نام فایل را برای استفاده در پنجره های بازشو داریم. ما سه گزینه داریم " آبجکت است تا بعداً در صورت نیاز به آن فراخوانی کنیم تنظیم objFiS yOb = CreateObject ("Scripting. FileSystemObject")

مرحله 4: توضیحات بین

اکنون که ما متغیرهای خود را در ابعاد قرار داده ایم ، تنها کاری که باید انجام دهیم این است که هر بار آن متغیر خاص را به یاد بیاوریم. این نه تنها میزان تایپ ما را کاهش می دهد بلکه به دلیل غلط املایی اشتباهات کمتری ایجاد می کند. در حال حاضر از نظر فنی تنها کاری که باید انجام دهیم این است که کد زیر را تایپ کنیم و ما به پایان رسیدیم "فایل را برای appendSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile، ForAppending، True) 'خط جدید را در fileobjTextFile. WriteLine بنویسید ("رایانه شما خاموش می شود" & date & "at" & time)' fileobjTextFile. Close را باز کنید WWscript. Echo ("Your کامپیوتر خاموش شود "& date &" at "& time) 'فایل را در IESet باز کنید objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") مشکل این است که هیچ خطایی تصحیح نمی شود و هرگونه خطای ساده مانند فایل موجود یا متغیری که قبلاً تعیین شده است ، اسکریپت را خراب می کند.

مرحله 5: نوشتن اسکریپت قسمت 3: اگر بعداً اظهارات به عنوان تصحیح خطا

ساده ترین راه برای تصحیح خطا استفاده از عبارات if/then است. در اصل دستور if اگر می گوید اگر اتفاقی رخ داد ، این کار را انجام دهید در غیر این صورت این کار را انجام دهید. با قرار دادن دستور if/then می توانید رشته ای از چیزهایی را که باید اتفاق بیفتد ایجاد کنید. اگر a و b و c اتفاق می افتد ، این کار را انجام دهید. مثال: ما می خواهیم مطمئن شویم که پرونده ای که می خواهیم برای آن بنویسیم وجود دارد اگر آن را پیدا کردیم می خواهیم کاری انجام ندهیم اگر آن را پیدا نکردیم ، می خواهیم آن را ایجاد کنیم یا ما می خواهید بررسی کنید که آیا پوشه موجود است و اگر آن را ایجاد نکرده اید و سپس بررسی کنید که آیا فایل موجود است پس از پیدا کردن پوشه و اگر آن را ایجاد نکردید اولین مورد نمونه ای از دستور if است و سپس دومی اگر در آن صورت تو در تو است. ما آن را انجام می دهیم: چهار قسمت در if اگر if/سپس elseend وجود دارد اگر اساسا این درست است ، این کار را انجام دهید در غیر این صورت آن عبارت را به درستی کدگذاری کنید اگر عبارت آن باشد: اگر چیزی = چیزی سپس انجام دهید آنچه شما نیاز دارید انجام دهید یا کار دیگری انجام دهید و اگر شما می توانید از هر استدلالی استفاده کنید تا زمانی که درست باشد ، قسمت بعد را دنبال می کند و قسمت دیگر را نادیده می گیرد ، اما اگر نادرست باشد ، آن قسمت را رد کرده و به قسمت دیگری می رود سپس وقتی دستور if را به پایان می بریم ما "پایان اگر" را قرار می دهیم ، اما اگر دستورات تودرتو داشته باشیم ، باید هر گزاره if را خاتمه دهیم. این کار آنها را از فرزند به والد خاتمه می دهد ، بنابراین اولین "پایان اگر" عبارت if را در داخل والد خاتمه می دهد ، در حالی که دومی عبارت اصلی (والد) if را به پایان می رساند. برای ایجاد یک پنجره ، ما فقط Wscript را تایپ می کنیم. Echo ("هرچه ما می خواهیم در پیام ") بگوییم که مقدار متغیرها را به آن اضافه کنیم ، آن را در خارج یا بین دو نقل قول با استفاده از علامت ampersand (&) به عنوان محدود کننده قرار می دهیم تا اسکریپت بداند که یک متغیر است و نه یک متن. مانند این: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah bla" blah blah blah. Actual Usage: 'if the folder C؛ / exist If objFiSyOb. FolderExists (strDir) then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' در غیر این صورت Else'freed the folder c؛ / catcher Set objSysFold = objFi CreateFolder (strDir) 'و بررسی کنید که آیا فایل و پوشه وجود دارد آیا objFiSyOb. FileExists (strDir & strFile) سپس' jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text text shutdown_catcher.txt تنظیم objFile = objFiSyOb. CreateTextFile (strDir & strFile)' سپس پیامی را باز کنید تا بگویید هر دو پوشه Wscript. Echo را ایجاد کرده اید ("We have به نام "& strDir &" و فایلی به نام "& strFilename &" و آن را در فهرست "& strDir & strFile &". ") 'در انتهای if statement قرار داد و پایان If'end اصل if و پایان If'now در اولین if ما قبلاً پوشه را بررسی کرده ایم و آن را پیدا کرده ایم ، بنابراین اکنون فایل fileIf را بررسی می کنیم objFiSyOb. FileExists (strDir & strFile) then'if found get get Set CreateTextFile (strDir & strFile) 'یک پنجره باز کنید که می گوید ما سند متنی Wscript. Echo را ایجاد کرده ایم ("ما یک فایل با نام" & strFileName & "در پوشه" & strDir & "" ایجاد کرده ایم.)) پایان اگر

مرحله 6: توضیحات بین

اگر به کد مرحله قبل دقت کنید ، یک عبارت تو در تو و بدون تو در تو را مشاهده خواهید کرد. اولین مورد عبارت تو در تو است. پوشه و فایل را بررسی می کند و اگر آنها را پیدا نکرد هر دو را ایجاد می کند. مورد دوم فقط به دنبال یک فایل است و اگر آن را پیدا نکرد فقط فایل را ایجاد می کند. ممکن است یکی بگوید چرا هر دو. خوب اگر فایل حذف شود اما پوشه حذف نشود چه اتفاقی می افتد. اولین دستور if هنگام ایجاد فایل ، از روی پوشه عبور می کند و هرگز قسمت دیگری از دستور را فعال نمی کند. بنابراین وقتی برای نوشتن به پرونده می روید خطا می افتد زیرا فایل از بین می رود. بنابراین با داشتن مورد دوم این مشکل را حل می کند. از لحاظ فنی شما می توانید دستور تو در تو را بیرون بیاورید زیرا تقریباً شبیه به عبارت دوم است ، اما در آن صورت فقط یک پنجره باز می شود و به این صورت قابل شخصی سازی نخواهد بود بعلاوه به من این فرصت را داد تا در مقابل تودرتو به شما نشان دهم علامت های nested

مرحله 7: تصحیح خطای بیشتر

اکنون که اکثر تصحیح خطا را تکمیل کرده ایم ، می خواهیم در پرونده بنویسیم و پنجره های بازشو را نشان دهیم. مشکل این است که اگر مرجع شی قبلی ذخیره شده در متغیر را منتشر نکنیم ، خطاهای مجوز دریافت می کنیم. بنابراین ما می خواهیم قطعه کوچکی از کد را وارد کنیم که می گوید متغیرها را روی هیچ چیز تنظیم کنید. به این شکل است: objFile = nothingset objSysFold = asgjë خارج): Option ExplicitDim objFiSyOb، objSysFold، objShell، objFile، objTextFileDim strDir، strFile، strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNat = "Shutdown = 2، = ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) سپس objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold.obyStryFio.obirdy (objFiSyFold.ob) تنظیم objSysFold = objFiSyOb. GetFolder (strDir) دیگر تنظیم objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("ما یک پوشه به نام" & strDir & "و یک فایل به نام" & strFilename & "ایجاد کرده و در آن قرار داده ایم فهرست "& strDir & strFile &". ") پایان I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) سپس objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo را به نام & " "& strDir &" پوشه فایل. ") پایان Ifset objFile = nothingset objSysFold = هیچ

مرحله 8: نوشتن اسکریپت قسمت 4: تنظیم ویژگی ها

اکنون باید ویژگی های پرونده را تنظیم کنیم تا بتوانیم آن را اصلاح کنیم. قبلاً ما سه متغیر ثابت را تنظیم کردیم: forReading = 1forWriting = 2 forAppend = 8 اگر آن را روی forReading تنظیم کرده باشید ، می توانید آن را بخوانید اما برای آن ننویسید. به اگر آن را روی forAppend تنظیم کنید ، هر بار که اسکریپت به سند اجرا می شود ، یک خط جدید اضافه می کنید. از آنجا که می خواهیم هر بار که سیستم راه اندازی مجدد می شود ، یک گزارش ثبت شود ، می خواهیم آن را ضمیمه کرده و بیش از آن نوشته نشود ، بنابراین از forAppend استفاده می کنیم.: باید شیئی را که می خواهید ویژگی ها را برای آن تنظیم کنید نامگذاری کنید. از آنجا که ما در حال حاضر بیشتر کارها را در مراحل قبلی انجام داده ایم ، فقط باید متغیرها را در این مرحله به خاطر بیاوریم. سپس فقط آن را روی true تنظیم کنید. Actual Usage: 'object to set = filesystemobject.action (فهرست+نام فایل ، ویژگی ، درست یا غلط) تنظیم objTextFile = objFiSyOb. OpenTextFile (strDir & strFile، ForAppending، True)

مرحله 9: نوشتن اسکریپت قسمت 5: نوشتن به پرونده

نوشتن روی یک فایل بسیار شبیه نوشتن یک پاپ آپ است. شما فقط قرار می دهید: objTextFile. WriteLine ("هر چه می خواهید بگویید" و متغیر برای کشیدن خط نوشتن) تنها تفاوت در قسمت اول است. در یک پنجره باز شده ، قرار می دهید: Wscript.echoin خط نوشتاری که قرار داده اید: objTextFile. WriteLineAnd در خط نوشتن باید خط نوشتن را ببندید تا بداند که نوشتن متوقف می شود و برای این منظور از آن استفاده می کنید:.close حالا یک پنجره را اضافه کنید تا بگویید شما به فایل نوشتید تا شخص بداند که این اتفاق افتاده است و باید آن را ببندد تا پرونده باز شود و viewWscript. Echo ("رایانه شما خاموش است" & date & "at" & زمان)

مرحله 10: نوشتن اسکریپت قسمت 5: باز کردن فایل برای مشاهده

در این مرحله اسکریپت متوقف می شود تا زمانی که شخصی روی پنجره باز شده کلیک کند. هنگامی که از پنجره بازشده عبور می کنید ، می توانید خطی را باز کنید که فایل را باز می کند. استفاده از برخی از اصلاحات خطا در آن به اجرای خوب برنامه کمک می کند. هنگامی که خطایی در vbscript ایجاد می کنید ، یک مقدار به متغیر "err.number" اضافه می کند که یک متغیر از پیش تعریف شده در vbscript است. لازم نیست آن را تعریف کنید و می توانید از آن مانند هر متغیر دیگری استفاده کنید تا زمانی که قوانین آن را نقض نکنید. مقدار اختصاص داده شده به متغیر err.number ، کد خطای رخ داده است. اکنون می توانید هر کد خطایی که در پایگاه داده vbscript شناخته شده است را بررسی کنید و مطمئن شوید که رخ نداده است. یا ساده تر ، فقط بررسی این نکته است که آیا متغیر err.number خالی است یا خیر. اگر خالی باشد خطایی رخ نداده است برای انجام این کار ، ما فقط بررسی می کنیم که آیا متغیر برابر vbEmpty است یا خیر. بنابراین در اسکریپت ما می خواهیم از عبارت if then دیگر استفاده کنیم. و بررسی کنید که آیا خطایی رخ داده است و آیا فایل را برای مشاهده باز نکرده است یا خیر ، یا خیر ، پیامی با شماره خطا در آن ظاهر می شود تا بتوانیم اشکال زدایی کنیم. سپس وقتی همه ما با اسکریپت خود تمام شدیم Wscript را تایپ کنید. این به اسکریپت می گوید که خود را خاتمه دهد. این به جلوگیری از نشت حافظه و اجرای فرآیندهای ناخواسته کمک می کند. نحوه استفاده از آن: اگر تعداد خطا برابر vb errorIf err.number = vbEmpty then'if هیچ یک پوسته ایجاد نمی کند تنظیم objShell = CreateObject ("WScript. Shell") 'سپس فایل را از آن پوسته با استفاده از Explorer باز کنید. در واقع در IE باز می شود اگرچه objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'در غیر این صورت پیامی با شماره خطا باز کند پیوند WScript.echo "خطای VBScript:" & err.numberEnd اگر 'end scriptWscript.quit

مرحله 11: اجرای Script برای راه اندازی

در منوی start یک پوشه فایل به نام Startup وجود دارد. هر چیزی که در این پوشه قرار داده شود به محض راه اندازی رایانه راه اندازی می شود. با قرار دادن فایل اسکریپت در پوشه راه اندازی ، هر بار که کامپیوتر عمداً راه اندازی مجدد می شود ، عمدی است یا نه ، اجرا می شود. از آنجا که من فقط از این به عنوان یک ابزار تشخیصی استفاده می کنم ، لازم نیست که آن را برای شروع به سرویس تبدیل کنید و نیازی نیست آن را در رجیستری قرار دهم تا شروع شود ، بنابراین این خوب خواهد بود. هنگامی که کامپیوتر را تعمیر می کنم ، می توانم فایل را از پوشه راه اندازی حذف کنم و دیگر نیازی به پاکسازی نیست.

مرحله 12: اجرای برنامه

هنگامی که فایل vbscript را اجرا می کنید ، اکنون A.) اگر یک پوشه یا فایل یا هر دو را ایجاد کند ، پیامی ظاهر می شود که می گوید آنها را ایجاد کرده است (توجه: این کار را فقط در اولین اجرا انجام دهید ، پس از آن باید قبلاً وجود داشته باشد مگر اینکه حذف شده باشد ، بنابراین فقط باید یک بار آن پیام را ببینید) بهممکن است ایده خوبی باشد که یکبار این اسکریپت را با یک راه اندازی مجدد کنترل شده اجرا کنید تا بتوانید از این پنجره های بازشو عبور کنید یا ممکن است چیزی را در فایل ننویسید زیرا از پنجره باز شده ایجاد شده دور نمی زند.) D:) یک خط در سند متنی Shutdown_Catcher.txt که می گوید کامپیوتر در فلان تاریخ در فلان زمان خاموش می شود. E:) پیامی را باز کنید که می گوید راه اندازی مجدد شده است:) فایل را برای مشاهده باز کنید. اگر در مرحله بعد نگاه کردید شما کد را به صورت نوشته شده مشاهده خواهید کرد. اکنون تنها کاری که باید انجام دهم این است که بنشینم و منتظر بمانم. هر بار که رایانه راه اندازی مجدد می شود ، من یک پرونده از آن خواهم داشت. سپس می توانم پرونده را مرور کنم و ببینم آیا سازگاری با آن وجود دارد یا خیر. مثال ممکن است این باشد که هر نیم ساعت راه اندازی مجدد شود یا هر زمان که یک افزایش یا 45 در ساعت وجود دارد ، راه اندازی مجدد شود. این به هیچ وجه تنها راهی نیست که من کامپیوتر را چک می کنم ، فقط برای اینکه بدانید. من همچنین یک برنامه معیار برای بررسی دما دارم ، بنابراین می دانم وقتی خاموش می شود چقدر گرم است ، ولتاژ ، بنابراین می دانم که آیا منبع تغذیه خراب است و چند مورد مفید دیگر. خوب امیدوارم این مطلب مفید بوده باشد. می دانم که از آن لذت می برم بنابراین شاید دیگران نیز لذت ببرند. اگه سوالی داری با خیال راحت بپرس. ممکن است بلافاصله با آنها تماس نگیرم اما کمی به آنها پاسخ خواهم داد. بستگی به وضعیت روز/هفته من دارد.

مرحله 13: کد

این کد همانطور است که بدون همه نکات و تذکرات نوشته شده است. Const forReading = 1 ، forWriting = 2 ، ForAppend = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") اگر objFiSyOb. FolderExists (strDir) سپس objSysFold = objFiSyOb. GetFolder (strDjjFSFO) Object (strDjirFold) Object (strDjirFold) Object (strDjirFold) Object (strDjirFold) Object (strDjirFold) Object (strDjirFold) Object (strDjirFolder) (strDjirFolder) (strDjirFolder) objFiSyOb. FileExists (strDir & strFile) سپس objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("و یک پوشه به نام" & "ایجاد کرده ایم "& strFilename &" و آن را در فهرست "& strDir & strFile &". ") قرار دهید IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) سپس objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOy (strDir & strFile) Wscript. Echo ("ما داریم یک فایل با نام "& strFileName &" در پوشه "& strDir &" ایجاد کرد.)) پایان Ifset objFile = nothingset objSysFold = asgjë تنظیم objTextFile = objFiSyOb. OpenTextFile (strDir & strFile، ForAppending، True) objTextFile. Y " "& date &" at "& time) را خاموش کنید objTextFile. CloseWscript. Echo (" رایانه شما خاموش می شود "& date &" at "& time) If err.number = vbEmpty سپس تنظیم objShell = CreateObject (" WScript Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") در غیر این صورت WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit