תכנת המחשב שלך להיכבות אוטומטית על ידי ייעוד באיזו שעה אתה רוצה שהוא יעשה זאת: 4 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

היי, זה עוד הוראה שנלקחה מחיי היומיום …

בפעם האחרונה הייתי צריך להוריד הרבה תוכנות למחשב האישי שלי והייתי צריך לתת לה להוריד לילה, לא רציתי להשאיר את המחשב דולק כל הלילה אחרי שסיימתי את ההורדות ובמקביל לא יכולתי להישאר ער לחכות לזה כדי לסיים את ההורדות ולכבות אותו! לכן עשיתי VBscript המאפשר למחשב להיכבות באופן אוטומטי באופן אינטראקטיבי!, אני מקצה את הדקות שהמחשב יופעל לפני כיבוי בהתאם לכמה זמן ההורדות ייקחו, אני נותן לו מעט זמן נוסף כבה לאחר הזמן הנדרש להורדה למקרה שתהיה ירידה כלשהי במהירות אבל לפחות אני לא אשאר ולא אשאיר את המחשב שלי מסובב כל הלילה בלי לעשות כלום! והמחשב במקרה זה יהיה אינטראקטיבי עם המשתמש מכיוון שהוספתי לו גם קצת קול וקריינות! לכן צפה בהוראות שלי! ואם אתה אוהב plz תן הערה! תודה

שלב 1: התחל בכתיבת התסריט …

פתח פנקס רשימות, וכתוב את הסקריפט הבא לתוך פנקס הרשימות: Dim xDim yset oShell = createobject ("wscript.shell") הגדר Sapi = Wscript. CreateObject ("SAPI. SpVoice") x = InputBox ("האם תרצה לכבות את המחשב לאחר פרק זמן? תשובה: כן/לא "," כיבוי המערכת האוטומטית! על ידי SCRIPTmaster ") אם x =" כן "אז y = InputBox (" הזן זמן שנותר עד שהכיבוי יתרחש באופן אוטומטי (זמן בדקות …): ", "AUTOMATIC SYSTEM SHUTDOWN!") Sapi.speak y + "נותרו דקות לכיבוי" oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "מערכת מוגדרת כעת אוטומטית כיבוי! אל תחכה עד שההורדות יסתיימו, אתה יכול ללכת לישון! לילה טוב! נתראה מחר! >>>> כדי לסיים את הכיבוי האוטומטי הזה פשוט הפעל מחדש את התסריט והקלד אין סוף "" "אם אם x =" לא "אז sapi.speak" אוקיי, כפי שאתה מאחל לך שלום, תסריט שנכתב על ידי איימן פרחאט, SCRIPTmaster "oShell.run" shutdown.exe -a "סוף אם

שלב 2: תיאור מפורט של הקוד בתסריט …

Dim x ו- Dim y /// מצהירים על המשתנים x ו- y האחראים לתשובה ולזמן בהתאמה. Set oShell = createobject ("wscript.shell") /// קוראת למעטפת מערכת ההפעלה ויוצרת את האובייקט wscript.shellSet Sapi = Wscript. CreateObject ("SAPI. SpVoice") /// קורא לחלונות SAPI ויוצר את האובייקט SAPI. SpVoice שאחראי על הנאום בתסריט זה כשהוא מספר למשתמש … x = InputBox ("האם תרצה לסגור המחשב שלך לאחר פרק זמן? ענה: כן/לא "," כיבוי מערכת אוטומטית! "/// קורא לקלט שבו המשתמש אומר אם הוא רוצה לכבות את המחשב שלו אם x =" כן "ואז /// הוא הצהרה מסתעפת = InputBox ("הזן זמן שנותר עד שהכיבוי יתבצע באופן אוטומטי (זמן בדקות …):", "כיבוי מערכת אוטומטית!") לכיבוי sapi.speak y + "נותרו דקות לכיבוי" /// החלונות SAPI קורא את הדקות שנותרו oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "System עכשיו מוגדר לכיבוי אוטומטי! אל תחכה לסיום ההורדות, אתה יכול ללכת לישון! לילה טוב! נתראה מחר! >>>> כדי לסיים את הכיבוי האוטומטי הזה פשוט הפעל מחדש את הסקריפט והקלד לא "" "/// זו הצהרת הכיבוי הקוראת להפעלת כיבוי המערכת להפעלה וסגירת המחשב לפי הזמן הנתון במקרה זה הוא משתנה y! end if // מסיים את משפט if הראשון שהוא במקרה זה כן אם x = "לא" אז //.אחרת הצהרה אחראית על אין התשובה sapi.speak "בסדר, כפי שאתה מאחל שלום, תסריט כתוב מאת Ayman Farhat, SCRIPTmaster "/// ה- SAPI מדבר אל המשתמש ואומר לו להתראות oShell.run" shutdown.exe -a " / /shutdown.exe נקרא במקרה זה ואומרים לו לא לבצע את הכיבוי על ידי הוספת -א! סוף אם // סוף ההצהרה אם! זה היה תיאור נרחב ועם זאת מפורט, דע לשלב הבא כדי לראות מה לעשות …

שלב 3: שמירת התסריט שלך

לאחר שהזנת את הסקריפט שלך לפנקס הרשימות עליך לשמור אותו, לחץ על שמור, ובמקום שבו אתה מקליד את שם הקובץ שים את שם הקובץ שלך ואחריו. vbs כפי שמוצג באיור …

שלב 4: הפעל את הסקריפט שלך …

לחץ פעמיים על התוכנית VB שזה עתה שמרת וראה את הקסם!

תתבקש תחילה שאלת קלט אם ברצונך לסגור או לא כפי שמוצג באיור. אם אינך בוחר לכבות על ידי הקלדה לא התוכנית תסתיים באופן אוטומטי … אם תבחר לכבות על ידי הקלדה כן תתבקש על ידי קלט נוסף לשאול את מספר הדקות שאתה רוצה שהמחשב שלך יישאר מופעל כפי שמוצג באיור לְהַלָן. ואז הספירה לאחור של הכיבוי תתחיל אם אתה רוצה לסיים את הכיבוי הזה מסיבה כלשהי פשוט הפעל מחדש את התוכנית בזמן שהכיבוי מתרחש והקלד לא והיא תסתיים באופן אוטונומי! אז זה היה פתרון לבעיה שהרבה משתמשי מחשב סובלים ממנה! מקווה שאהבת את ההנחיה שלי אם כן, אנא השאר הערה, אני כל כך אשמח לשמוע ממך. בהצלחה ולילה טוב!