دروس VBS - الأساسيات: 5 خطوات

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

حسنًا ، لقد سألني بعض الأشخاص من أين تعلمت vbs الخاص بي.. لقد تعلمت من مواقع الويب المختلفة ، مثل w3schools ، حتى أعلم أنه من أجل البرمجة النصية على الويب ، لا يزال بإمكانك استخدامها من مواقع الويب العادية. سوف نتعلمها مني = DSo لنبدأ … ما هو vbs؟ VBScript هي إحدى لغات البرمجة النصية من Microsoft. -_- لكونهم Microsoft يذهبون ويجعلونه يعمل فقط على IE. ولكن بالإضافة إلى كونه برنامج نصي على الويب ، فإنه يستخدم لجميع أنواع الأشياء … على سبيل المثال في صورة 2) (هذه هي الصورة الثانية) مأخوذ من مجلد System 32. يمكن أيضًا استخدام Vbs لإنشاء برامج.. ولكن هذا هو VB. NET.. يستخدم معظم نفس الترميز على الرغم من ذلك. يرجى الاستمتاع بالبرنامج التعليمي.. ويرجى التعليق والتقييم. تعليمي.. لكني لم أتمكن من العثور على واحد. بخلاف cammel8 الذي يبدو جيدًا حقًا مع البرمجة النصية vbs = P.. لكنني سأقوم بعمل البرنامج التعليمي.

الخطوة 1: أساسيات Vbs

حسنًا ، ها هي الأساسيات.. أشياء يجب أن تعرفها بالفعل … تقوم بحفظ الملفات باسم: something.vbs إنه ليس مثل ملف دفعي لا يحتوي على شاشة تخبرك بالمعلومات. يشبه إلى حد كبير جافا سكريبت. ولكن في نفس الوقت لا شيء مثله. لجعل var تستخدمه dime.g.. dim iRulenow سيكون لديك استدعاء متغير iRulenow يمكنك البدء في إضافة أشياء إلى vars.. مثل: iRule = msgbox ("hello") سيؤدي هذا إلى ظهور مربع رسالة يقول مرحبًا. (صورة 1) إلى جانب ذلك ، يمكنك إضافة أزرار مختلفة إلى مربع الرسائل.. هنا كل شيء عن مربعات الرسائل: هنا العديد من البرامج التعليمية التي لن أزعجني حتى الدخول فيها. مصفوفة: dim iRule (3) ولكن هذا سيتحول إلى مثل هذا: (لأنه تم تضمين 0) iRule (0) = "var1" iRule (1) = "var2" iRule (2) = "var3" iRule (3) = "var4" باستخدام vars في البرنامج النصي.. يمكنك استخدام vars بسهولة.. يمكن أن يكون لديك: (صورة 2)

dim iRuledim instructablesiRule = "التعليمات" تعليمات = msgbox ("hello" & iRule) بسبب & تقول "hello التعليمي" لأن قيمة iRule هي عبارة عن تعليمات. القيمة المرجعة.

الخطوة 2: ليست أساسيات Vbs

سأبدأ هذه الخطوة بالدوال … لأنني دائمًا أجدها مزعجة.. على الرغم من أنها سهلة للغاية = الوظائف في vbs سهلة.. ish.. يمكن أن تصبح مربكة.. فلنبدأ بوظيفة سهلة: (صورة 1)

أوقات الدوال (س ، ص) مرات = س * y نهاية دالة نتيجة = فار 1 = مرات (10 ، 10) فار 1 = msgbox (نتيجة) هذا من شأنه أن يعطيك 100 أشرح … قلتها مضروبة في 10 × 10.. النتيجة = الوقت (10 ، 10) ذهب هذا إلى الدالة timesx هي الآن 10 و y هي الآن 10 ، لذا: x * y إرجاع القيمة بالإجابة. var = 0 to 5 msgbox (var) nextmsgbox ("Finish") سيؤدي ذلك إلى ظهور مربع رسالة منبثق يبلغ 0 ، 1 ، 2 ، 3 ، 4 ، 5 ثم سيقول "Finish" REMEMBER في vbs 0 دائمًا ما يكون مهمًا! سيكرر هذا الرمز أمرًا 6 مرات على سبيل المثال: لـ var = 0 إلى 5 msgbox ("hello") nextmsgbox ("Finish") ستظهر الرسالة "hello" 6 مرات. في المرة السابعة سيقول "إنهاء". إذا أضفت: خطوة … إلى نهاية لـ var = 0 إلى 5 ، على سبيل المثال لـ var = 0 إلى 5 الخطوة 5 ، فهذا سيجعلها تقفز 5 في كل مرة.. في هذه الحالة ستظهر الرسالة فقط اعرض مرتين لأن الرقم 5 هو الحد الأقصى. يمكنك أيضًا التنحي أيضًا.. على سبيل المثال الخطوة -5 ستعد تنازليًا 5 في كل مرة. هل ، Loopthe do loop تستخدم لتكرار جزء من الكود مرارًا وتكرارًا وما إلى ذلك. تستخدم بشكل أساسي للفيروسات = P ولكن يمكنك استخدامها لمساعدتك.. قل ما إذا كنت تريد الاستمرار في قول رسالة حتى يتم اختيار خيار معين. يمكنك دائمًا إضافة "حتى على" أو على جزء الحلقة. egdo حتى var = 5 لكن في الكود يجب أن تجعله يضيف 1 أو أكثر إلى var.. أو سيستمر في التكرار. يمكنك أيضًا استخدام do من شيء مثل: do while var = 10this سوف ينفذ الأوامر فقط إذا كان var يساوي 10! هذا كل ما يتعلق بـ Not So Basics لـ vbs.

الخطوة 3: If's and Then's

من السهل جدًا الحصول على هذه الرسائل ، لكنني قررت أنهم بحاجة إلى صفحة في حالة عدم معرفة شخص ما بما فعلوه. لكنها في الحقيقة سهلة للغاية: على سبيل المثال ، تعليمات = TheBest ثم msgbox ("نعم هو كذلك!") ولكن هذا هو ليس صعبًا كما نعلم جميعًا أن التعليمات هي الأفضل. = P … الآن من أجل ifs و thens متعددة الأسطر … (موسيقى مخيفة) ولكن ليس هناك مخيف يمكنك فقط إضافة نهاية إذا كان في نهاية عبارة is. على سبيل المثال ، تعليمات = TheBest thenmsgbox ("yes it is!") msgbox ("really it is!") end ifthis ستظهر مع رسالتين واحدة تلو الأخرى ، "yes it is!" و "حقًا هو!" النهاية إذا أغلقها البيان.

the else and elseif هذه ليست صعبة أيضًا.. أما الآخر فهو فقط عندما تريد خيارًا واحدًا لشيء وآخر للباقي.. على سبيل المثال var = 1 thenmsgbox ("var is 1") else msgbox ("var ليست 1 ") تنتهي ifso إذا لم تكن var = 1 ستقول دائمًا 'var ليس 1'theif أيضًا مشابه جدًا … على سبيل المثال var = 1 thenmsgbox (" var is 1 ") elseif var = 2 thenmsgbox ("var is 2") وإلا msgbox ("var ليس 1 أو 2") ، فإن النهاية إذا كان هذا سيجعله كذلك إذا كان var 1 أو 2 ، فسيقول var هو 1/2… ولكن إذا لم يكن كذلك ، فسيقول var هو لا 1 أو 2.

الخطوة 4: الحالة

الحالات بسيطة ويمكن أن تجعل حياتك أسهل بكثير.. على سبيل المثال ، حالة بسيطة:

Dim FavCol FavCol = "red" حدد Case FavCol Case "Black" msgbox ("لونك المفضل هو أسود") حالة "أحمر" msgbox ("لونك المفضل هو أحمر") حالة "أصفر" msgbox ("لونك المفضل أصفر ") Case Elsemsgbox (" الآن مربكًا فقط ") End Select هذا البرنامج النصي البسيط سيحدد خيارات من قائمة في هذه الحالة سيخبرك أن اللون المفضل لديك باللون الأحمر.: Dim var، var = "iRule" var يمكن أن يبطل أي شيء ، ثم تطلب من vbs البحث في قائمة للعثور على var الخاص بك … إذا لم تتمكن من العثور عليها ، فستنتقل إلى: Case Else التي تشبه الأمر if ، else تمامًا. إذا وجد var الخاص بك ، فسيتم تنفيذه

الخطوة 5: تمرير فارز

إذا نظرت حولك على الإنترنت ستجد أن الكثير من الأشخاص يريدون معرفة كيفية تمرير المتغيرات بين الدُفعة إلى vbs و vbs للدُفعة … سأوضح لك أفضل طريقة وجدت: نظرًا لأن هذا برنامج تعليمي vbs أنا ' سأوضح لك كيفية نقل vars من vbs إلى الدفعة أولاً … VBS TO BATCH هذا هو vbs:

dim aa = InputBox ("اكتب شيئًا:"، "Var") خافت WshShellset WshShell = Wscript. Createobject ("Wscript.shell") wshell.run "test.bat" & a هذا سيطلب منك كتابة var ثم سيستدعي test.bat تمرير var الذي كتبته. vbs: wshell.run "test.bat" & a & b & var3 إلخ.. تذكر أن تعين لهم قيمة الدفعة: صدى٪ 1٪ 2٪ 3 إلخ.. دفعة إلى VB الدفعة:echo offset var = hellowscript test. vbs٪ var٪ هذا سيرسل 'hello' إلى test.vbsthe vbs: dim ArgObj، aSet fso = CreateObject ("Scripting. FileSystemObject") تعيين ArgObj = WScript. Arguments a = ArgObj (0) msgbox (a) سيعرض هذا ' مرحبًا في مربع الرسالة. بالنسبة إلى المتغيرات المتعددة للدفعة إلى vbs ، أضف بسهولة متغيرًا آخر ، مثل الدفعة: wscript test.vbs٪ var٪٪ var2٪ the vbs: dim ArgObj، a، bSet fso = CreateObject ("Scripting. FileSystemObject) ") تعيين ArgObj = WScript. Arguments a = ArgObj (0) b = ArgObj (1) msgb ox (a) msgbox (b) تذكر 0 حسابًا إذا كان لديك أي مشاكل مع هذه ، برجاء مساءً أو التعليق.