مقدمة عن البرنامج النصي VB: دليل المبتدئين: 11 خطوة

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:42

*** ((((تنبيه: على الرغم من وجود الكثير من الخطوات. هذا في الواقع سهل للغاية. أنا فقط أشرح كل شيء بالتفصيل للمبتدئين. إذا كنت تريد فقط الانتقال إلى الخطوة الأخيرة وستجد كامل الكود هناك.)))) *** ألعب كثيرًا من Xbox Live وعليه دائمًا تعطيل الإنترنت على جهاز الكمبيوتر الخاص بي لأنه يستهلك النطاق الترددي. في الأساس لأنني أقوم بتنزيل الأشياء أو تحميلها طوال الوقت. لا تكمن المشكلة في إيقاف تشغيله ، ولكنها تعيد تشغيله مرة أخرى لدرجة أنسى ، مما يجعلني أفقد كل وقت التحميل / التنزيل. لذلك قررت إنشاء برنامج للقيام بذلك من أجلي. كنت سأكتبها في Vb.net لكنني اضطررت مؤخرًا إلى تشغيل نظام التشغيل الخاص بي وتمهيده على جهاز الكمبيوتر الخاص بي بسبب عاصفة سيئة تقلى محرك الأقراص الثابتة ، ولم أعد تثبيت VB.net حتى الآن ، لذا فقد اكتشفت أن هذا أعطني سببًا للعب مع vbscript ، كما قمت بعمل صورة بالطلاء لعرضها في الخلفية حتى أعلم أنها تعمل.

الخطوة 1: اكتشف ما تريد القيام به

أول شيء أفعله دائمًا هو وضع خطة. ماذا أريد أن يفعل البرنامج؟ أ) أريد أن أكون قادرًا على فتح البرنامج النصي وسيغلق الاتصال تلقائيًا. ب) أريده أن يعرض شاشة عملاقة في الخلفية حتى لا يكون هناك خطأ في إيقاف تشغيل الإنترنت ، وبهذه الطريقة لا أنسى إعادة تشغيله. ج) أريد أن يمنحني خيارًا لتشغيله أعد التشغيل ثم انتظر الرد. د) أريده للتأكد من تشغيله مرة أخرى حتى لا أنسى. هـ) ثم بمجرد أن أقول نعم لإعادة تشغيله مرة أخرى ، يقوم البرنامج النصي بإعادة تشغيله ثم يغلق الخلفية. و) اخرج من كل شيء.

الخطوة 2: أشياء أستخدمها ولكني لست بحاجة إليها حقًا

كل ما تحتاجه حقًا هو محرر نصوص مثل المفكرة. كل شيء آخر اختياري ، أستخدم Notepad ++ عندما أفعل برنامج VB النصي لأنه يعامله مثل vb.net مع الألوان ويعرف اللغة. يساعد على تجنب الأخطاء. يقوم أيضًا بترقيم الخطوط حتى تتمكن من تشخيص المشكلة عندما تحصل على رمز خطأ. يمكن الحصول عليه من هنا notepad ++

الخطوة 3: ابدأ البرمجة

حسنًا ، أول شيء تريد القيام به هو إنشاء ملف نصي وحفظه في كل ما تريد تسميته بامتداد الملف. vbs مثال: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbs عادةً ما أفعل ذلك على سطح المكتب لأنني أفتحه حوالي المليار مرة أثناء عملي ، والآن فقط انقر بزر الماوس الأيمن فوق الملف واضغط على تحرير أو تحرير باستخدام برنامج notepad ++

الخطوة 4: الخطوة 1: فتح نافذة موجه الأوامر

لذلك قررت أن أقوم بمعظم العمل الذي سأستخدمه فقط البرامج المخزنة بالفعل على الكمبيوتر للقيام بما أريده. ترميز أقل وعدم تنزيلات … Woohoo. الأسهل هو موجه الأوامر. لذلك نريد فتح نافذة موجه الأوامر للقيام بذلك ، فنحن نريد إنشاء كائن للقيام بذلك نكتب: set shellobj = CreateObject ("WScript. Shell") ماذا يفعل: عيّن مثيل shellobj ليكون مساويًا لإنشاء كائن w script shell. بهذه الطريقة كل ما يتعين علينا القيام به هو كتابة shellobj بدلاً من CreateObject ("WScript. Shell") في كل مرة نحتاج فيها إلى أمر جديد ، والآن بعد أن أنشأنا كائنًا ، فإننا نوجه الكائن لفتح نافذة موجه الأوامر. shellobj.run "cmd" ماذا يفعل: سيكون هذا مكافئًا لكتابة CMD في مربع التشغيل في قائمة البداية. لو لم نقم بتعيين كائن shellobject المتغير ، لكان علينا أن نكتب: CreateObject ("WScript. Shell"). قم بتشغيل "cmd" … انظر كم هو أسهل الآن. مساحة أقل للأخطاء. انقر فوق ملف … ثم حفظ … ثم انتقل إلى سطح المكتب وانقر نقرًا مزدوجًا فوق ملف vbsfile الذي قمت بتشغيله إذا سارت الأمور بشكل صحيح ، يجب أن تحصل على موجه أوامر windows لتظهر … الترميز الخاص بك ، حتى الآن يجب أن يكون لديك: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" يمكنك إضافة تعليقات إلى البرنامج النصي الخاص بك حتى تتذكر ما فعلته لاحقًا بوضع فاصلة أمام السطر مثل هذا: 'هذا لفتح موجه الأوامر ، عندما أقوم بالترميز مرات عديدة ، سأفعل ذلك ، لذا أتذكر ما فعلته لاحقًا عندما أبحث عنه. يتجاهل النص هذا السطر ويمضي قدمًا. إذا كنت تراهم يمكنك أن تفعل الشيء نفسه.

الخطوة 5: الخطوة 2: إعداد الموقتات

حسنًا ، بعد أن أصبح لدينا نافذة جديدة أنيقة ، نحتاج إلى ملئها بالأوامر حتى نتمكن من جعلها تفعل ما نريد ، والمشكلة هي أن بعض أجهزة الكمبيوتر تستغرق وقتًا أطول من غيرها لفتح النوافذ ، لذلك نريد جعل النص ينتظر قليلاً قليلا للبدء. إذا تم البدء في وقت مبكر جدًا ، فسيقوم الكمبيوتر بملء الفراغ قبل فتح النافذة وستحصل إما على أمر جزئي أو لا شيء على الإطلاق. لذلك نحن بحاجة إلى إعداد مؤقت. للقيام بذلك ، نكتب: wscript.sleep 200 ماذا يفعل: يخبر البرنامج النصي أن ينتظر X مقدار الوقت قبل تنفيذ الأمر التالي. 1000 يساوي ثانية واحدة ، لذا أنتظر خُمس الثانية. قد تجد أن جهاز الكمبيوتر الخاص بك يحتاج إلى الانتظار لوقت أطول أو أقل. إذا شاهدت الكمبيوتر ولم يقم بكتابة الأوامر بشكل صحيح ، فقم بتغيير الرقم إلى رقم أعلى مثل 2000 سيكون ثانيتين وربما الكثير من الوقت. احفظ الملف الآن يجب أن تكون التعليمات البرمجية الخاصة بك في هذه المرحلة هي: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

الخطوة 6: الخطوة 3: اصنع صورة

لقد فتحت للتو "الرسام" وكتبت فيه "Internet Disconected" وجعلته 800x600 وحفظته كـ id.bmp وحفظته في الدليل الجذر الخاص بي ، في حالتي k: / ولكن من المحتمل أن يكون c:

الخطوة 7: الخطوة 4: إرسال الأوامر وفتح الصورة

حسنًا ، بعد أن أصبح لدينا الآن نافذة أوامر تنتظر الأوامر ، كل ما يتعين علينا القيام به هو كتابة الأوامر في النافذة باستخدام الأمر sendkeys. عندما نستخدم الأمر sendkeys فإن الأمر يشبه الكتابة ولكنه سيكتب ما نريده أن يكتبه. أي شيء يمكننا كتابته يمكننا إرساله بما في ذلك مفاتيح الإدخال اللازمة لتنفيذ البرامج. الآن ، بعد أن نعرف كيف نرسل المفاتيح ، نفتح الصورة التي أنشأناها للتو ، ثم نضع مؤقتًا آخر بعد الكلمات بحيث يمنح الصورة وقتًا للتحميل. للقيام بذلك ، نكتب: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 ما يفعله: هذا هو نفس كتابة k: / id.bmp في مربع التشغيل. يجب أن تفتح صورتك في عارض الصور الافتراضي لـ bmp … في حالتي هي صورة Windows وعارض الفاكس ولكن معظم الأشخاص يقومون بتثبيت برامج ما بعد السوق التي تقوم بذلك أيضًا ، فمن يعرف ما الذي سيفتحه. الآن احفظ ملفك و قم بتشغيله. يجب أن تحصل على موجه أوامر وصورة منبثقة. جيد حتى الآن !!! يجب أن تكون شفرتك حتى الآن: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. ينام 200

الخطوة 8: الخطوة 5: إرسال الأوامر ، قم بإغلاق الإنترنت

في هذه المرحلة ، إذا لم تكن قد قمت بذلك بعد ، فقم بتنزيل ملف pdf في النهاية ، لذا إذا فشلت ، فسيكون لديك برنامج Instructable تم تنزيله حول كيفية إصلاحه ، والآن هذا هو المكان الذي تبدأ فيه المتعة. حسنًا ، سنستخدم ipconfig لإصدار عنوان IP الخاص بنا. بدون عنوان IP ، لا يمكننا الحصول على أي حركة مرور على الإنترنت لأن جهاز التوجيه لا يعرف إلى أين يتم إرسالها إلى الكمبيوتر. للقيام بذلك ، نكتب: shellobj.sendkeys "ipconfig / release {enter}" ماذا يفعل: هذا يوجه البرنامج IPCONFIG لتحرير عنوان IP. يخبر {enter} الكمبيوتر أنك تضغط على مفتاح الإدخال. سيكون هذا مثل كتابة ipconfig / release في نافذة التشغيل والضغط على enter. عادةً بعد القيام بذلك ، إذا قمت بتشغيل ipconfig ، فسيخبرك أن عنوان IP الخاص بك هو 0.0.0.0 وهذا ما نريده. بدون عنوان IP ، لا يعرف جهاز التوجيه أننا هنا ولا يمكن لأي برنامج "الاتصال" إذا جاز التعبير. الآن بعد أن انتهينا بنجاح من إيقاف تشغيل IP ، نريد إغلاق النافذة. يمكننا الآن كتابة سطر آخر يقول: shellobj.sendkeys "exit {enter}" ولكن سيكون من الأسهل فقط تحرير السطر أعلاه وإلحاقه بالنهاية بحيث يكون لديك: shellobj.sendkeys "ipconfig / release {enter} exit {enter} "احفظه الآن ولكن لا تشغله لأنك ستغلق اتصالك بالإنترنت. إذا قمت بتشغيله ، وتم إيقاف تشغيل الإنترنت ، فقم فقط بتغيير المفتاح من ipconfig / release إلى ipconfig / تجديد وقم بتشغيله مرة أخرى ويجب أن يعيد تشغيله مرة أخرى. وإذا فشل كل شيء آخر في إعادة التشغيل ويجب أن تكون على ما يرام. يجب أن تكون الكود الخاص بك حتى الآن: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { أدخل} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

الخطوة 9: الخطوة 6: إنشاء مربع الرسائل وانتظار الرد

حسنًا ، الآن بعد أن نجحنا في إيقاف تشغيل الإنترنت وإغلاق نافذة موجه الأوامر ، نريد أن يظهر مربع رسالة يسأل عما إذا كنا نريد إعادة تشغيل الإنترنت ، ولكن هنا يصبح الأمر صعبًا ، نريده أن ينتظر للحصول على نعم ، ولكن إذا نقرنا على "لا" ، فإننا لا نريد أن يختفي ، لذا سنستخدم تعليمة while للقيام بذلك. نحتاج أولاً إلى تحديد أبعاد متغير لـ messgebox حتى نتمكن من تعيين متغيرات رقم له. أعلم أن الأمر يبدو محيرًا ولكنه في الحقيقة ليس كذلك. لقد فعلنا ذلك بالفعل مرة واحدة مع السطر: set shellobj = CreateObject ("WScript. Shell") هذا واحد سهل حتى لإعداده ، نكتب فقط: Dim MyVar ماذا يفعل: الآن قمنا بتحديد أبعاد متغير باسم MyVar عندما تحصل على "نعم يظهر مربع رسالة / no "على شاشتك ، ثم تنقر على الأزرار التي تعين قيمة لكل زر ، في هذه الحالة تكون" نعم "هي 1 و" لا "هي 2. نريد أن يبدأ المتغير بـ" لا ". نقوم بتعيينه الرقم 2 افتراضيًا ، وبهذه الطريقة يتوقف مؤقتًا حتى يتم النقر فوق الزر ، للقيام بذلك نكتب: myvar = 2 ما يفعله: الآن MyVar يساوي 2 ، وبهذه الطريقة في السطر التالي سيتوقف وينتظر الإدخال. الآن نريده فقط أن يجلس هناك وينتظر حتى نكون مستعدين لإعادة تشغيل الإنترنت. للقيام بذلك نكتب: while myvar = 2 ماذا يفعل: من خلال القيام بذلك ، أخبرنا البرنامج النصي أنه طالما أن قيمة myvar = 2 ثم استمر في تكرار صندوق الرسائل حتى نحصل على أي قيمة أخرى غير 2 ، والتي في هذه الحالة يمكن أن تكون فقط 1Next نريد فعلاً إنشاء مربع رسالة منبثق بأزرار نعم / لا. نكتب هذا: MyVar = MsgBox ("Turn on Internet connection"، 65، "Turn On Internet Connection") ماذا يفعل: الآن سيتم تعيين متغير MyVar مهما كانت القيمة المعينة للزر الذي تم النقر عليه في مربع الرسالة. الجزء الأول من الاقتباسات هو ما سيقوله صندوق الرسائل في الواقع. يقوم 65 بتعيينه كصندوق رسائل نعم / لا. والجزء الأخير من علامات الاقتباس هو lable of the messagebox. للتحقق لمعرفة القيمة التي تعينها عند النقر فوق نعم أو لا ، يمكنك إضافة سطر يقول msgbox (myVar) وسيطبع أي قيمة تم تعيينها لـ myvar في مربع رسالة. الآن لدينا مربع رسالة نحتاج إلى إغلاق بيان while. كل شيء يقع بين فتح وإغلاق العبارة while سيتم تشغيله في كل مرة تنقر فيها على "لا" ، لأنه إذا نقرت على "لا" فستظل القيمة 2 وتعود إلى الجزء الأول. لإنهاء العبارة while اكتب: wendWhat it يفعل: بمجرد أن تضع حدًا لتعليمة while ، فإنها ستعمل كحلقة حتى لا يتم استيفاء الوسيطة. لذلك إذا واصلت ضرب لا ، فستتكرر ولكن بمجرد أن تضغط على نعم ، ستتحرر من الحلقة وتستمر مع البرنامج النصي. احفظ الملف ولكن انتظر لتشغيله حتى الخطوة التالية. يجب أن تكون الكود الخاص بك حتى الآن: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { أدخل} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter} "Dim MyVarmyvar = 2 بينما myvar = 2MyVar = MsgBox (" تشغيل اتصال الإنترنت "، 65 ،" تشغيل اتصال الإنترنت ") wend

الخطوة 10: الخطوة 7: إعادة تشغيل الإنترنت

الآن بعد أن نقر شخص ما أخيرًا على "نعم" وتمرير العبارة while ، نحتاج إلى استخدام الإنترنت. عادةً ما أقوم بتأكيد رسالة تأكيد حتى يعرف المستخدم النهائي ما يجري ولكنه اختياري بحت. لإظهار نوع التأكيد المنبثق: msgbox ("سنقوم الآن بإعادة تشغيل اتصال الإنترنت !!!") ماذا يفعل: إنه يرسل مربع رسالة يقول سنقوم الآن بإعادة تشغيل اتصال الإنترنت !!! ويمنحك زر موافق للنقر ، والآن كل ما يتعين علينا فعله هو إعادة تشغيل الإنترنت وإغلاق كل شيء. type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / تجديد {إدخال}" ما يفعله: يعكس أمر إيقاف التشغيل من قبل ويجدد عنوان IP الخاص بك. بمجرد تجديد عنوان IP الخاص بك ، يمكنك الآن الحصول على اتصالات الإنترنت مرة أخرى. الآن كل ما يتعين علينا القيام به هو تنظيف النوافذ المفتوحة. مرة أخرى ، يمكننا استخدام أمر sendkeys ، لكنني سألحق السطر الأخير لإجراء عمليات التنظيف أيضًا. في هذه الحالة ، سأستخدم برنامج Taskkill لقتل البرنامج الذي يعرض الصورة. في هذه الحالة ، يكون عارض الصور والفاكس في Windows ويظهر كـ rundll32.exe في علامة تبويب العمليات في مدير المهام ، وهذا ما نحتاج إلى قتله. إذا تم فتح صورتك باستخدام برنامج آخر ، مثل irfanview أو acdsee ، فابحث عن الاسم الذي تستخدمه في علامة تبويب العمليات وقم باستبدال rundll32.exe بالاسم الذي تجده. سيكون الأمر: taskkill / F / IM rundll32.exe يفعل: Taskkill هو اسم البرنامج ، ويخبره مفتاح التبديل / F أن يفرض القتل ويخبره المفتاح / IM باسم الصورة ، لذلك نقوم الآن بإلحاق ذلك بالسطر الأخير ، أضف إدخالاً لتنفيذ الأمر ثم الأمر exit وإدخال آخر وهو يبدو كالتالي: shellobj.sendkeys "ipconfig / تجديد {enter} taskkill / F / IM rundll32.exe {enter} exit {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 في حين أن myvar = 2MyVar = MsgBox ("تشغيل اتصال الإنترنت" ، 65 ، "تشغيل اتصال الإنترنت") wendmsgbox ("سنقوم الآن بتشغيل الإنترنت إعادة الاتصال قيد التشغيل !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / تجديد {enter} taskkill / F / IM rundll32.exe {enter} خروج {enter} "_ نهاية script_Now أن البرمجة هي انتهيت ، يمكنك تشغيل البرنامج. ما الذي يجب أن يحدث: 1.) يجب أن تظهر نافذة CMD المنبثقة لفترة قصيرة جدًا ثم تغلق 2.) يجب ألا يعمل الإنترنت الخاص بك. لكنك لن ترى هذا 3.) يجب أن تفتح صورتك 4.) يجب أن تظهر لك نافذة منبثقة تسألك عما إذا كنت تريد إعادة تشغيل الإنترنت 5.) بغض النظر عن عدد المرات التي تنقر فيها على مربع الرسالة ، لا يجب النقر عليه 6) بمجرد النقر فوق نعم ، يجب أن يختفي مربع الرسالة ويجب أن تظهر نافذة CMD احتياطيًا.) بمجرد تجديد عنوان IP ، تظهر نافذة CMD والصورة يجب أن تغلق هناك لديك. برنامج VBscript سهل للغاية لتشغيل الإنترنت وإيقاف تشغيله. أتمني أن تعجبك. لقد قمت بالفعل بعمل برنامج نصي آخر مطابق تقريبًا لهذا البرنامج الذي يقوم بإيقاف تشغيل محولات الشبكة باستخدام برنامج يسمى DevCon ، والذي يشبه مدير جهاز سطر الأوامر. يعمل بشكل جيد ل. البرنامج النصي متطابق مع هذا إلا إذا كان يحتوي في هذا البرنامج على أوامر لـ ipconfig أن المرء لديه أوامر لـ DevCon.