المرح مع Easy VBS !!!: 5 خطوات

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

دليل المبتدئين للمرح وسهل عمل النص الأساسي البصري. قد يبدو VSB صعبًا بالنسبة للبعض ، لكنه في الحقيقة سهل حقًا. يمكن لنظام التشغيل Windows تشغيله بدون مترجم! إذا كنت تعرف جافا سكريبت ، فمن المفترض أن تكون سهلة بالنسبة لك.

الخطوة 1: صناديق الرسائل الأساسية

حسنًا ، دعنا نذهب إلى الأساسيات. هل رأيت صندوق رسائل مثل المربع أدناه ، لديك probaly. تُستخدم هذه لتنبيه المستخدمين بكل ما تريد قوله. يمكنك إنشاء صندوق خاص بك باستخدام الوظيفة Msgbox ، لذا فإن الكود الخاص بمربع رسالة يقول مرحبًا سيبدو هكذا ، Msgbox ("hi") بالتناوب ، يمكنك إنشاء رسالة لا تقتل مربع الرسالة عن طريق إنشاء حلقة بسيطة باستخدام أوامر Do ، Loop. الآن بعد أن قمنا بتغطية مربعات الرسائل ، دعنا ننتقل إلى مربعات رسائل أكثر تقدمًا.

الخطوة 2: الألعاب والأشياء

إذا تساءلت يومًا كيف تصنع ألعابًا نصية ، فلا تبحث عن المزيد. قد أكون مخطئًا ، لكنني أعتقد أنهم استخدموا vbs. تستخدم الكثير من نصوص vb مترجمًا ، لكن Windows لا يحتاج إلى مترجم. ما عليك سوى كتابة cscript قبل مسار الملف ، والآن إذا كنت تعرف كيفية إنشاء ملفات bat ، فيمكنك أتمتة هذه العملية ، لكننا لن ندخل في ذلك في هذه التعليمات.. اكتب "Nice Day Isin't it؟" answer = Wscript. StdIn. ReadLine 'إذا كتبت نعم tIf answer = "yes" ثم Wscript.echo ("أتمنى أن يبقى على هذا النحو")' إذا كتبت noElseIf الإجابة = "لا" ThenWscript.echo ("أتمنى أن تتحسن") "أي شيء آخر" إيليس وسكريبت.إيكو ("يوم جيد لك") "endEnd Ifnow احفظ هذا بشكل أساسي باسم.vbs واستخدم الطريقة قبل تشغيلها.

الخطوة 3: نوع السيارات

هذا الرمز هو كتابة شيء مرارًا وتكرارًا. لا أعرف كيف يكون مفيدًا ، ولكن إذا قمت بتشغيله ، فسيتعين عليك إزالته في قائمة المهام shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

الخطوة 4: The Matirx Has You

هل تساءلت يومًا كيف تجعل الكمبيوتر الشخصي يتحدث إليك؟ حسنًا ، انسخ هذا

الخيار صريح على خطأ استئناف التالي 'إعلان المتغيرات ديمه wshell ، العنوان ، mystring ، الطول ، الموضع ، tmp ، loopA ، loopB ، linesToWrite ، الأعمدة ، objUser ، objSysInfo ، myName ، myNameLength ، col1 ، col2 ، col3 ، col4 ، col5 ، الحد الأقصى ، مجموعة العناصر wshell = wscript.createobject ("wscript.shell") title="المصفوفة" wshell. SendKeys "{ALT}" + "{ENTER}" 'الحصول على معلومات المستخدم ، وتستخدم للحصول على nameSet objSysInfo = CreateObject ("ADSystemInfo") تعيين objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- مجموعة waitfor (var)' الفرعية up window ، اضبط العنوان ، انتظر حتى يكتمل tmp = falsedo حتى tmpwscript.sleep 1000tmp = wshell.appactivate (var) loopend sub '---------------------- ----- المصفوفة الفرعية (العناصر) 'اطبع أرقامًا عشوائية لجعل مظهر "المصفوفة" يفترض أن العناصر قابلة للقسمة على 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = العناصر / الأعمدة للحلقة A = من 1 إلى lineToWritFor الحلقة B = 1 إلى الأعمدة حدد حلقة الحالة BASE 1 إذا كان col1 = صحيحًا ثم w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshell. SendKeys "{TAB}" الحالة 2If col2 = true ثم wshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshell. SendKeys" {TAB} "الحالة 3If col3 = true ثم wshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshell. SendKeys" {TAB} "الحالة 4If col4 = true ثم wshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshell. SendKeys "{TAB}" الحالة 5If col5 = true ثم wshell. SendKeys Int (Round (rnd ())) & "{TAB}" عدا ذلك ، wshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'هذه الأعمدة المتقلبة لعرض 20 بالمائة من الوقت ، بشكل مستقل عن بعضها البعض. الحد الأقصى = 0.20 إذا كان rnd () <الحد الأقصى ثم إذا col1 = صحيح ثم col1 = false Else col1 = trueEnd IfIf rnd () <الحد الأقصى ثم إذا كان col2 = صحيحًا ثم col2 = false Else col2 = trueEnd IfIf rnd () <max ThenIf col3 = true ثم col3 = false Else col3 = trueEnd IfIf rnd () <الحد الأقصى ثم إذا col4 = صحيح ثم col4 = خطأ آخر col4 = صواب النهاية IfIf rnd () <الحد الأقصى ثمإذا كان col5 = صحيح ثم col5 = خطأ آخر col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- المفتاح الفرعي (msg)' قم بعمل نسخ مطبوعة من "المصفوفة" الرسائل ، ومحو themwscript.sleep 1500length = len (msg) للموضع = 1 to lengthwshell. SendKeys mid (msg، position، 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshell. SendKeys "{BACKSPACE}" wscript. sleep 75 قم بتوسيع الجزء الفرعي '---------------------------' بدء التنفيذ "الرئيسي" هنا انتظار لـ (العنوان) الحلقة A = 1 إلى 4 حدد حلقة الحالةحالة 1mystring = "استيقظ ، نيو …" Case 2mystring = "المصفوفة تملكك …" Case 3mystring = "Follow the white rabbit …" Case 4mystring = "Knock knock…" End Select "اطبع الآن مفتاح السلسلة الصحيح (mystring) التالي ' _ _ _ _ _ _ _ _ _ _ wscript.quit () احفظه في C: / temp as matrix.vbs إنشاء ملفات الخفافيش @ echo offcolor 0atitle the matrixset / p matrix = | cscript / nologo (استبدل هذا بالمسار الخاص بك إلى ملف vbs) exitset / p matrix = Name that RabbitHole.bat. ثم قم بتشغيله !! هذا شيء رائع ، ولكنه متطور مع vbs لقد قمت بوضعه لأنه رائع

الخطوة 5: النهاية

ها أنت ذا

حدود السماء لما يمكنك القيام به