سرگرم کننده با VBS آسان!: 5 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

راهنمای مبتدیان برای سرگرمی ، و آسان برای انجام اسکریپت پایه بصری. VSB ممکن است برای برخی سخت به نظر برسد ، اما در واقع واقعاً آسان است. ویندوز حتی می تواند آن را بدون کامپایلر اجرا کند! اگر جاوا اسکریپت را می شناسید ، باید برای شما بسیار آسان باشد.

مرحله 1: جعبه های پیام اصلی

خوب ، بیایید اصول را مرور کنیم. آیا تا به حال یک جعبه پیام مانند تصویر زیر مشاهده کرده اید ، احتمالاً آن را مشاهده کرده اید. اینها برای هشدار به کاربران در مورد هر چیزی که می خواهید بگویید استفاده می شود. شما می توانید با استفاده از Function Msgbox خود را ایجاد کنید. بنابراین کد یک جعبه پیام که می گوید سلام به این شکل است ، Msgbox ("سلام") به طور متناوب می توانید یک غیرقابل دسترسی جعبه پیام را با ایجاد یک حلقه ساده با استفاده از دستورات Do ، Loop انجام دهید. حالا که جعبه های پیام را پوشش دادیم ، اجازه دهید به جعبه های پیام پیشرفته تر برویم.

مرحله 2: بازی ها و موارد

اگر تا به حال به این فکر کرده اید که چگونه می توانید بازی های متنی بسازید ، دیگر به دنبال آن نباشید. ممکن است من اشتباه کنم ، اما معتقدم که آنها از vbs استفاده کردند. در حال حاضر بسیاری از اسکریپت های vb از کامپایلر استفاده می کنند ، اما ویندوز به آن نیاز ندارد. فقط کافی است cscript را قبل از مسیر فایل تایپ کنید ، در حال حاضر اگر می دانید چگونه فایل های bat ایجاد کنید ، می توانید این فرآیند را خودکار کنید ، اما ما در این دستورالعمل وارد آن نمی شویم. در اینجا یک بازی کوچک است که من انجام دادم. در صورت تایپ بله tIf answer = "yes" سپس "Wscript.echo (" امیدوارم اینطور بماند ")" اگر noElseIf را تایپ کنید =. "no" ThenWscript.echo ("امیدوارم بهتر شود") "هر چیز دیگری

مرحله 3: تایپ اتوماتیک

این را کد می کند تا چیزی را بارها و بارها تایپ کند. من نمی دانم چگونه مفید است ، اما اگر آن را اجرا کنید ، باید آن را در task lists حذف کنید shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

مرحله 4: Matirx شما را دارد

آیا تا به حال به این فکر کرده اید که چگونه کامپیوتر شما را مجبور به صحبت با شما کند؟ خوب این را کپی کنید

گزینه expplicOn Error Resume Next ' = wscript.createobject ("wscript.shell") title="ماتریس" wshshell. SendKeys "{ALT}"+"{ENTER}" 'اطلاعات کاربر را دریافت کنید ، برای بدست آوردن نامSet objSysInfo = CreateObject ("ADSystemInfo") مجموعه objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' مجموعه پنجره بالا ، عنوان را تنظیم کنید ، منتظر بمانید تا تکمیل شود = falsedo تا tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- زیر ماتریس (عناصر) "چاپ اعداد تصادفی برای ظاهر" ماتریس "فرض می کند که عناصر بر 5 بخش تقسیم می شوند = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = عناصر / ستون برای حلقه A = 1 به خطوط ToWritefor حلقه B = 1 به ستون حلقه مورد را انتخاب کنید Base 1 اگر col1 = true سپس w shshell. SendKeys Int (دور (rnd ())) & "{TAB}" دیگر wshshell. SendKeys "{TAB}" مورد 2 اگر col2 = true باشد wshshell. SendKeys Int (دور (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3Iger col3 = true سپس wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true سپس wshshell. SendKeys Int (دور (rnd ())) & "{TAB}" دیگر wshshell. SendKeys "{TAB}" مورد 5 اگر col5 = true باشد wshshell. SendKeys Int (دور (rnd ())) & "{TAB}" در غیر این صورت wshshell. SendKeys "{TAB}" پایان انتخاب = false Else col1 = trueEnd IfIf rnd () <maximum thenIf col2 = true سپس col2 = false Else col2 = trueEnd IfIf rnd () <حداکثر thenIf col3 = true سپس col3 = false Else col3 = trueEnd IfIf rnd () <حداکثر thenIf col4 = true سپس col4 = false دیگر col4 = trueEnd IfInd rnd () <maximum thenIf col5 = true سپس col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '------------------------------- sub key (msg)' انجام چاپ "ماتریس" پیام ها ، و themwscript.sleep 1500length = len (msg) for position = 1 to lengthwshshell. SendKeys mid (msg، position، 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. خواب 75 گسترش زیر '-------------------------------' اجرای "اصلی" را در اینجا اجرا کنید (عنوان) برای حلقه A = 1 تا 4 انتخاب حلقه مورد پرونده 1 مورد رشته = "بیدار شو ، نئو …" Case 2mystring = "ماتریس شما را دارد …" Case 3mystring = "خرگوش سفید را دنبال کنید …" Case 4mystring = "ضربه بزن … _ _ _ _ _ _ _ _ _ wscript.quit () آن را در C: / temp به عنوان matrix.vbs ذخیره کنید و فایل های bat را ایجاد کنید@echo offcolor 0atitle ماتریس matrixset /p = | cscript /nologo (این را با مسیر خود به فایل vbs جایگزین کنید) exitset /p matrix = نام RabbitHole.bat. سپس آن را اجرا کنید !! این یک کار جالب ، اما پیشرفته برای انجام دادن با vbs است ، من فقط آن را قرار دادم زیرا عالی است

مرحله 5: پایان

آنجا برو

آسمان محدود به آنچه شما می توانید انجام دهید