מבוא לסקריפט VB: מדריך למתחילים: 11 שלבים

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

*** ((((התראה: למרות שיש הרבה שלבים. זה בעצם די קל. אני רק מסביר הכל בפירוט למתחילים. אם אתה רק רוצה שהקוד תקפוץ לשלב האחרון ותמצא את המלאה קוד שם). בעיקר כי אני מוריד או מעלה דברים כל הזמן. הבעיה היא לא לכבות את זה אבל זה להפעיל אותו מחדש ששכחתי, להגיע למקום שבו אני מפסיד את כל זמן ההעלאה/ההורדה אז החלטתי ליצור תוכנית שתעשה זאת בשבילי. התכוונתי לכתוב את זה ב- Vb.net אבל רק לאחרונה נאלצתי לערער ולסלול את מערכת ההפעלה שלי על המחשב שלי בגלל סערה רעה שמטגנת את הכונן הקשיח, ועדיין לא התקנתי מחדש את VB.net אז חשבתי שזה יקרה תן לי סיבה לשחק עם vbscript. עשיתי גם תמונה בצבע להצגה ברקע, כך שידעתי שזה פועל.

שלב 1: בדוק מה אתה רוצה לעשות

הדבר הראשון שאני תמיד עושה הוא לתכנן תוכנית. מה אני רוצה שהתוכנית תעשה? א) אני רוצה להיות מסוגל לפתוח את הסקריפט וזה יכבה אוטומטית את החיבור. ב) אני רוצה שהוא יציג תצוגה ענקית ברקע כך שאין טעות שהאינטרנט כבוי, כך אני לא שוכח להפעיל אותו שוב. ג) אני רוצה שהוא ייתן לי אפשרות להפעיל אותו הפעל מחדש ולאחר מכן המתן לתגובה. ד) אני רוצה שזה יוודא שאני מפעיל אותו שוב כדי שלא אשכח. E) ואז ברגע שאני כן אומר כן כדי להפעיל אותו מחדש, התסריט מדליק אותו מחדש. ואז סוגר את הרקע. ו) צא מהכל.

שלב 2: דברים בהם אני משתמש אך לא באמת נחוץ

כל מה שאתה באמת צריך הוא עורך טקסט כמו פנקס רשימות. כל השאר הוא אופציונלי. אני משתמש בפנקס רשימות ++ כשאני עושה סקריפט VB כי זה מתייחס לזה כמו vb.net עם צבעים ויודע את השפה. זה עוזר להימנע מטעויות. הוא גם מספר את השורות כך שתוכל לאבחן מה הבעיה כאשר אתה מקבל קוד שגיאה. ניתן להשיג מכאן פנקס רשימות ++

שלב 3: התחל לתכנת

ובכן, הדבר הראשון שאתה רוצה לעשות הוא ליצור קובץ טקסט ולשמור אותו בכל מה שתרצה שייקרא בשמו עם סיומת הקובץ.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbsAll מה שחשוב הוא שאתה שם אותו עם הסיומת בדרך כלל אני עושה את זה בשולחן העבודה כי אני פותח אותו בערך מיליוני פעמים בזמן שאני עובד עליו. עכשיו פשוט לחץ לחיצה ימנית על הקובץ ולחץ על ערוך או ערוך עם פנקס רשימות ++

שלב 4: שלב 1: פתיחת חלון שורת הפקודה

אז החלטתי לעשות את רוב העבודה. פשוט אשתמש בתוכניות שכבר מאוחסנות במחשב כדי לעשות מה שאני רוצה. פחות קידוד וללא הורדות … Woohoo. Easiest היא שורת הפקודה. לכן אנו רוצים לפתוח חלון שורת פקודה לשם כך אנו רוצים לבנות אובייקט לשם כך אנו מקלידים: set shellobj = CreateObject ("WScript. Shell") מה זה עושה: הגדר מופע של shellobj להיות שווה ליצירת אובייקט w script shell. בדרך זו כל שעלינו לעשות הוא להקליד shellobj במקום CreateObject ("WScript. Shell") בכל פעם שאנו זקוקים לפקודה חדשה. כעת, לאחר שיצרנו אובייקט אנו מנחים את האובייקט לפתוח חלון שורת פקודה. לשם כך אנו מקלידים: shellobj.run "cmd" מה זה עושה: זה יהיה המקבילה של הקלדת CMD בתיבת ההפעלה בתפריט ההתחלה. אם לא היינו מגדירים את משתנה shellobject היינו צריכים להקליד: CreateObject ("WScript. Shell"). הפעל "cmd" … ראה כמה קל יותר עכשיו. פחות מקום לטעויות. לחץ על הקובץ … ואז שמור … עבור לשולחן העבודה ולחץ פעמיים על קובץ ה- vbs שהכנת אותו אמור לפעול אם הכל מסתדר עליך לקבל שורת פקודה של Windows שתופיע ….. יאאאאאאא !!! אם לא בדוק הקידוד שלך, עד כה היית צריך: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" תוכל להוסיף הערות לסקריפט שלך כדי שתזכור מה עשית מאוחר יותר על ידי הצבת פסיק מול השורה כמו זה: 'זה לפתוח שורת פקודה כשאני מקודד הרבה פעמים אני אעשה את זה אז אני זוכר מה עשיתי מאוחר יותר כשאני מסתכל על זה. התסריט פשוט מתעלם מהשורה הזו וממשיך הלאה. אם אתה רואה אותם אתה יכול לעשות את אותו הדבר.

שלב 5: שלב 2: הגדרת טיימרים

אוקי עכשיו כשיש לנו חלון חדש, עלינו לאכלס אותו בפקודות כדי שנוכל לגרום לו לעשות מה שאנחנו רוצים. הבעיה היא שלחלק מהמחשבים לוקח יותר זמן מאחרים לפתוח חלונות ולכן אנחנו רוצים שהסקריפט יחכה קצת. קצת להתחיל. אם זה מתחיל מוקדם מדי המחשב ימלא את החלל הריק לפני שתפתח את החלון ותקבל פקודה חלקית או בכלל לא. אז עלינו להגדיר טיימר. לשם כך אנו מקלידים: wscript.sleep 200 מה זה עושה: הוא אומר לתסריט לחכות כמות X לפני ביצוע הפקודה הבאה. 1000 שווה לשנייה אז שלי מחכה חמישית לשנייה. ייתכן שתמצא שהמחשב שלך צריך לחכות יותר זמן או פחות. אם אתה צופה במחשב והוא אינו מקליד את הפקודות כהלכה, שנה את המספר למספר גבוה יותר כמו 2000 יהיה 2 שניות וכנראה שהרבה זמן. שמור את הקובץ כעת הקוד שלך בשלב זה צריך להיות: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

שלב 6: שלב 3: צור תמונה

רק פתחתי צבע והקלדתי בו "אינטרנט חסום" ועשיתי אותו 800x600 ושמרתי אותו כ- id.bmp ושמרתי אותו בספריית השורש שלי, במקרה שלי k: / אבל שלך כנראה יהיה c:

שלב 7: שלב 4: שליחת פקודות, פתיחת התמונה

אוקי עכשיו שיש לנו חלון פקודות שמחכה לפקודות כל שעלינו לעשות הוא להקליד את הפקודות לתוך החלון באמצעות הפקודה sendkeys. כשאנחנו משתמשים בפקודה sendkeys זה כמו להקליד אבל הוא יקליד כל מה שאנחנו רוצים שהוא יקליד. כל דבר שאנו יכולים להקליד אנו יכולים לשלוח כולל את מקשי הכניסה הדרושים לביצוע תוכניות. כעת כי אנו יודעים לשלוח מפתחות מאפשר לפתוח את התמונה שהרגע יצרנו, ולאחר מכן להכניס אחר מילון אחר של טיימר כך שהוא נותן לתמונה זמן לטעון. לשם כך אנו מקלידים: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 מה זה עושה: זהה להקלדת k: / id.bmp בתיבת ההפעלה. זה אמור לפתוח את התמונה שלך במציג התמונות המוגדר כברירת מחדל עבור bmp … במקרה שלי מדובר ב- Windows picture and fax view אך רוב האנשים מתקינים תוכניות לאחר השוק שעושות זאת גם כן, אז מי יודע מה שלך יפתח. עכשיו שמור את הקובץ שלך הפעל אותו. אתה אמור לקבל שורת פקודה ותמונה שתופיע. עד כה טוב !!! הקוד שלך עד כה צריך להיות: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. לישון 200

שלב 8: שלב 5: שליחת פקודות, כיבוי אינטרנט

בשלב זה אם עדיין לא עשית זאת, הורד את קובץ ה- PDF בסוף, כך שאם אתה מבלבל הורדת הוראה כיצד לתקן את זה. עכשיו כאן מתחיל הכיף. אוקי אז נשתמש ב- ipconfig לשחרר את כתובת ה- IP שלנו. ללא כתובת IP לא נוכל להשיג כל תעבורת אינטרנט מכיוון שהנתב לא יודע לאן לשלוח אותו למחשב. לשם כך אנו מקלידים: shellobj.sendkeys "ipconfig /release {enter}" מה היא עושה: פעולה זו מורה לתוכנית IPCONFIG לשחרר את כתובת ה- IP. ה- {enter} אומר למחשב שאתה לוחץ על מקש enter. זה יהיה כמו להקליד ipconfig /release לחלון ההפעלה וללחוץ על enter. בדרך כלל לאחר שתעשה זאת, אם תפעיל ipconfig הוא יגיד לך שכתובת ה- IP שלך היא 0.0.0.0 זה מה שאנחנו רוצים. ללא כתובת IP הנתב לא יודע שאנו כאן ואין תוכניות שיכולות "להתקשר" כביכול. כעת לאחר שסיימנו בהצלחה את כיבוי ה- IP אנו רוצים לסגור את החלון. עכשיו נוכל לכתוב שורה נוספת שאומרת: shellobj.sendkeys "exit {enter}" אבל יהיה קל יותר לערוך את השורה למעלה ולצרף אותה עד הסוף כך שיהיה לך: shellobj.sendkeys "ipconfig /release {enter} יציאה {enter} "עכשיו שמור אותו אך אל תפעיל אותו מכיוון שתכבה את חיבור האינטרנט שלך. אם אתה מפעיל אותו והאינטרנט שלך נכבה, פשוט שנה את המעבר מ- ipconfig /release ל- ipconfig /renew והוא יפעיל אותו שוב והוא אמור להפעיל אותו מחדש. ואם כל השאר נכשל לאתחול ואתה אמור להיות בסדר. הקוד שלך עד כה צריך להיות: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} יציאה {enter}"

שלב 9: שלב 6: יצירת תיבת הודעות ומחכה לתשובה

אוקיי, עכשיו לאחר שסגרנו את האינטרנט בהצלחה וסגרנו את חלון שורת הפקודה, אנו רוצים שתיבת הודעות תופיע ותשאל אם ברצוננו להפעיל מחדש את האינטרנט. אבל כאן זה נהיה מסובך, אנחנו רוצים שזה יחכה עבור כן, אבל אם נלחץ לא, איננו רוצים שהוא ייעלם, לכן נשתמש במשפט זמן כדי לעשות זאת. ראשית עלינו למדוד משתנה עבור תיבת המסרים כדי שנוכל להקצות לו משתני מספר. אני יודע שזה נשמע מבלבל אבל זה ממש לא. כבר עשינו את זה פעם אחת עם השורה: set shellobj = CreateObject ("WScript. Shell") זה אפילו קל יותר להגדיר אותו אנחנו פשוט מקלידים: Dim MyVar מה זה עושה: עכשיו יש לנו ממד משתנה בשם MyVar כאשר אתה מקבל "כן" /לא "תיבת הודעה צצה על המסך שלך ולחיצה על הכפתורים היא מקצה ערך לכל כפתור, במקרה זה" כן "הוא 1 ו"לא" הוא 2. אנו רוצים שהמשתנה יתחיל ב"לא "אז אנו מקצים לו את המספר 2 כברירת מחדל, בדרך זו הוא עוצר עד ללחיצה על כפתור לשם כך אנו מקלידים: myvar = 2 מה הוא עושה: כעת MyVar שווה ל -2, כך בשורה הבאה הוא יעצור ויחכה לקלט. עכשיו אנחנו רק רוצים שזה ישב שם ויחכה עד שתהיה מוכנה להפעיל מחדש את האינטרנט. לשם כך אנו מקלידים: while myvar = 2 מה זה עושה: על ידי כך אמרנו לתסריט שכל עוד הערך של myvar = 2 אז פשוט המשך בלופ את תיבת ההודעות עד שנקבל ערך אחר מ -2, שבמקרה זה יכול להיות רק 1 הבא בעצם נרצה לגרום לתיבת הודעות לצוץ עם כפתורי כן/לא. את זה אנו מקלידים: MyVar = MsgBox ("הפעל חיבור לאינטרנט", 65, "הפעל חיבור לאינטרנט") מה זה עושה: כעת המיקום של MyVar יוקצה לכל ערך שהוא יוקצה ללחצן שנלחץ על תיבת ההודעות. החלק הראשון בציטוטים הוא מה תיבת ההודעות תגיד בפועל. ה- 65 מציין זאת כתיבת הודעות כן/לא. והחלק האחרון במרכאות הוא האות של תיבת ההודעות. כדי לבדוק איזה ערך הוא מקצה כאשר תלחץ על כן או לא תוכל להוסיף בשורה שאומרת msgbox (myVar) והיא תדפיס כל ערך שהוקצה ל- myvar ב תיבת הודעות. עכשיו שיש לנו תיבת הודעות אנחנו צריכים לסגור את הצהרת while. כל מה שנמצא בין הפתיחה לסגירה של הצהרת ה- while יפעל בכל פעם שתלחץ על לא, כי אם תלחץ לא הוא עדיין ערך 2 וחוזר לחלק הראשון. לסיום סוג הצהרת ה- while: wendWhat it עושה: ברגע שתשים סוף למשפט זמן זה יפעל כאלולאה עד שהויכוח כבר לא יתקיים. אז אם אתה ממשיך להכות לא זה יסתובב בלולאה אבל ברגע שתלחץ על כן, זה ישתחרר מהלולאה וימשיך הלאה עם התסריט. שמור את הקובץ אך המתן להריצו עד לשלב הבא. הקוד שלך עד כה צריך להיות: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} יציאה {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" הפעל חיבור לאינטרנט ", 65," הפעל חיבור לאינטרנט ") wend

שלב 10: שלב 7: הפעלה מחדש של האינטרנט

עכשיו, כשמישהו סוף סוף לחץ כן וזה עבר את הצהרת ה- while, עלינו לדלג באינטרנט. בדרך כלל אני מעלה אישור כדי שמשתמש הקצה יידע מה קורה אבל זה אופציונלי גרידא. כדי להעלות סוג אישור: msgbox ("כעת נפעיל שוב את חיבור האינטרנט !!!") מה זה עושה: הוא שולח תיבת הודעות שאומרת שעכשיו נפעיל שוב את חיבור האינטרנט !!! ונותן לך לחצן אישור ללחיצה. עכשיו כל שעלינו לעשות הוא להפעיל את האינטרנט מחדש ולסגור הכל. כדי להפעיל מחדש את האינטרנט אנו פשוט פותחים שורת פקודה הגדר את הטיימר ואז השתמש שוב ב- ipcionfig. כדי לעשות זאת type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /renew {enter}" מה שהוא עושה: הוא הופך את פקודת הכיבוי מלפני ומחדש את כתובת ה- IP שלך. לאחר שחידשת את כתובת ה- IP שלך כעת תוכל לקבל שוב חיבורי אינטרנט. כל שעלינו לעשות הוא לנקות את החלונות הפתוחים. שוב נוכל להשתמש בפקודה sendkeys keys, אבל אני רק מצרף את השורה האחרונה כדי להחזיק גם את הניקיונות. במקרה זה אני הולך להשתמש בתוכנית taskkill כדי להרוג את התוכנית המציגה את התמונה. במקרה זה הוא מציג תמונות ווינדוס ופקס ומופיע כ- rundll32.exe בכרטיסיית התהליכים של מנהל המשימות כך שזה מה שאנחנו צריכים להרוג. אם התמונה שלך נפתחת באמצעות תוכנית אחרת, כמו irfanview או acdsee, מצא את השם שהוא עובר בכרטיסייה תהליכים והחלף את ה- rundll32.exe עם השם שאתה מוצא. הפקודה תהיה: taskkill /F /IM rundll32.exe מה זה עושה: הטאקקיל הוא שם התוכנית המתג /F אומר לה לכפות הרג והמתג /IM אומר לו את שם התמונה אז כעת אנו מצרפים זאת לשורה האחרונה, מוסיפים enter לביצוע הפקודה ולאחר מכן פקודת exit ועוד enter וזה נראה כך: shellobj.sendkeys "ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} יציאה {enter}" שמור את הקובץ שלך.

שלב 11: מוצר מוגמר

אם הכל הלך כמו שצריך המוצר המוגמר שלך ייראה בערך כך: 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 ("הפעל חיבור לאינטרנט", 65, "הפעל חיבור לאינטרנט") wendmsgbox ("כעת נפעיל את האינטרנט החיבור חוזר !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} יציאה {enter} "_ סוף התסריט_Now שהתכנות הוא מה שאתה צריך לעשות: אתה יכול להפעיל חלון CMD לזמן קצר מאוד ואז לסגור 2.) האינטרנט שלך כבר לא אמור לעבוד. אבל אתה לא תראה את זה 3.) התמונה שלך אמורה להיפתח.4. אתה אמור לקבל קופץ ששואל אותך אם אתה רוצה להפעיל את האינטרנט מחדש.) לא משנה כמה פעמים אתה לוחץ על תיבת ההודעות לא צריכה לדפוק אתה אך נפתח שוב ושואל אם ברצונך להפעיל מחדש את האינטרנט.6.) לאחר לחיצה על כן תיבת ההודעות אמורה להיעלם וחלון CMD יופיע מחדש 7.) לאחר חידוש כתובת ה- IP חלון ה- CMD והתמונה צריך לסגור. יש לך את זה. VBscript קל מאוד להדליק ולכבות את האינטרנט שלך. מקווה שאתה אוהב את זה. למעשה הכנתי עוד סקריפט שהוא כמעט זהה לזה שמכבה את מתאמי הרשת באמצעות תוכנית בשם DevCon, שהיא כמו מנהל התקני שורת פקודה. עובד ממש טוב ל. הסקריפט זהה לזה למעט המקום שבו יש לו פקודות עבור ipconfig שיש לו פקודות עבור DevCon.