आसान वीबीएस के साथ मज़ा !!!: 5 कदम

2024 लेखक: John Day | [email protected]. अंतिम बार संशोधित: 2024-01-30 09:23

मज़ा के लिए एक शुरुआती गाइड, और विज़ुअल बेसिक स्क्रिप्ट करना आसान है। VSB कुछ लोगों को कठिन लग सकता है, लेकिन वास्तव में यह वास्तव में आसान है। विंडोज़ इसे बिना कंपाइलर के भी चला सकता है! यदि आप जावास्क्रिप्ट जानते हैं, तो यह आपके लिए वास्तव में आसान होना चाहिए।

चरण 1: मूल संदेश बॉक्स

ठीक है, तो बुनियादी बातों पर चलते हैं। क्या आपने कभी नीचे जैसा संदेश बॉक्स देखा है, शायद आपके पास है। आप जो कुछ भी कहना चाहते हैं, उसके बारे में उपयोगकर्ताओं को सचेत करने के लिए इनका उपयोग किया जाता है। आप फंक्शन Msgbox का उपयोग करके अपना खुद का बना सकते हैं तो एक संदेश बॉक्स का कोड जो कहता है कि हाय इस तरह दिखेगा, Msgbox ("हाय") वैकल्पिक रूप से आप एक अचूक बना सकते हैं Do, लूप कमांड का उपयोग करके एक साधारण लूप बनाकर संदेश बॉक्स। अब जब हमने संदेश बॉक्स को कवर कर लिया है, तो अधिक उन्नत संदेश बॉक्स पर चलते हैं।

चरण 2: खेल और सामग्री

यदि आपने कभी सोचा है कि टेक्स्ट गेम कैसे बनाया जाता है, तो आगे न देखें। मैं गलत हो सकता हूं, लेकिन मेरा मानना है कि उन्होंने वीबीएस का इस्तेमाल किया। अब बहुत सी वीबी स्क्रिप्ट एक कंपाइलर का उपयोग करती हैं, लेकिन विंडोज़ को इसकी आवश्यकता नहीं है। फ़ाइल पथ से पहले बस cscript टाइप करें, अब यदि आप जानते हैं कि बैट फाइलें कैसे बनाई जाती हैं, तो आप इस प्रक्रिया को स्वचालित कर सकते हैं, लेकिन हम इस निर्देश में इसमें शामिल नहीं होंगे। यहाँ एक छोटा सा गेम है जिसे मैंने बनाया हैOption ExplicitDim उत्तर 'प्रश्न टाइप करता हैWscript. StdOut.लिखें "अच्छा दिन है ना? "उत्तर = Wscript. StdIn. ReadLine 'यदि आप हाँ टाइप करते हैं तो उत्तर = "हाँ" फिर Wscript.echo ("मुझे आशा है कि यह इसी तरह रहेगा") 'यदि आप कोई नहीं टाइप करते हैं, तो उत्तर = "नहीं" फिर Wscript.echo ("मुझे आशा है कि यह बेहतर हो जाएगा")'और कुछ भीElseWscript. Echo ("गुडडे टू यू")'endEnd ifnow मूल रूप से इसे.vbs के रूप में सहेजें और इसे चलाने के लिए पहले विधि का उपयोग करें।

चरण 3: ऑटो टाइपर

यह इसे बार-बार कुछ टाइप करने के लिए कोड करता है। मुझे नहीं पता कि यह कैसे उपयोगी है, लेकिन यदि आप इसे चलाते हैं, तो आपको इसे कार्य सूची में मारना होगा shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

चरण 4: द मैटिरक्स हैज़ यू

क्या आपने कभी सोचा है कि आप पीसी से कैसे बात कर सकते हैं? अच्छी तरह से इसे कॉपी करें

विकल्प स्पष्ट पर त्रुटि फिर से शुरू करें' चर घोषित करेंमंद wshshell, शीर्षक, mystring, लंबाई, स्थिति, tmp, लूपए, लूपबी, लाइनटॉराइट, कॉलम, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, अधिकतम, एलिमेंटसेट wshshell = wscript.createobject("wscript.shell")title = "मैट्रिक्स"wshshell. SendKeys "{ALT}"+"{ENTER}"' उपयोगकर्ता जानकारी प्राप्त करें, जिसका उपयोग नाम प्राप्त करने के लिए किया जाता है। objSysInfo = CreateObject ("ADSystemInfo") सेट करें objUser = GetObject ("LDAP: //" और objSysInfo. UserName)' --------------------------- उप प्रतीक्षा के लिए (var)' सेट ऊपर विंडो, शीर्षक सेट करें, इसके पूरा होने तक प्रतीक्षा करेंtmp = falsedo तक tmpwscript.sleep 1000tmp = wshshell.appactive(var)loopend sub' ----------------------- ----- सब मैट्रिक्स (एलिमेंट्स) 'मैट्रिक्स' लुक बनाने के लिए रैंडम नंबर प्रिंट करें' मानता है कि एलिमेंट्स 5 कॉलम = 5col1 = ट्रूकॉल 2 = ट्रू कॉल 3 = ट्रूकॉल 4 = ट्रूकॉल 5 = ट्रूरैंडमाइज़ () लाइन्स टूराइट = एलिमेंट्स / कॉलम फॉर लूपए से विभाज्य हैं। 1 से पंक्तियों के लिए लूपबी = 1 के लिए कॉलम केस लूप का चयन करेंबीसीकेस 1यदि col1 = सत्य है तो w shshell. SendKeys Int(Round(rnd())) & "{TAB}" और wshshell. SendKeys "{TAB}"Case 2If col2 = true फिर wshshell. SendKeys Int(Round(rnd())) & "{TAB} " Else wshshell. SendKeys "{TAB}"Case 3If col3 = true फिर wshshell. SendKeys Int(Round(rnd())) & "{TAB}" और wshshell. SendKeys "{TAB}"Case 4If col4 = true फिर wshshell. SendKeys Int(Round(rnd())) & "{TAB}" और wshshell. SendKeys "{TAB}"Case 5If col5 = true फिर wshshell. SendKeys Int(Round(rnd())) & "{TAB}" अन्यथा wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' यह फ्लिप-फ्लॉप कॉलम एक दूसरे से स्वतंत्र रूप से 20 प्रतिशत समय प्रदर्शित करता है। अधिकतम = 0.20 यदि rnd () <अधिकतम तब यदि col1 = सत्य है तो col1 = असत्य अन्यथा col1 = trueEnd यदि rnd () <अधिकतम तब यदि col2 = सत्य है तो col2 = false अन्यथा col2 = trueEnd यदि rnd () <अधिकतम तब यदि col3 = सत्य है तो col3 = गलत अन्यथा col3 = trueEnd यदि rnd () <अधिकतम तब यदि col4 = सच तो col4 = असत्य अन्यथा col4 = trueEnd यदि rnd () <अधिकतम तब यदि col5 = सत्य है तो col5 = false अन्यथा col5 = trueEnd ifnextwscript. Echowscript. Echoend sub' --------------------------- उप कुंजी (msg)' "मैट्रिक्स" का प्रिंटआउट करें संदेश, और उन्हें मिटा देंwscript.sleep 1500length = len(msg) for position = 1 to lengthwshshell. SendKeys mid(msg, position, 1)wscript.sleep 250nextwscript.sleep 3000 for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}"wscript. स्लीप 75नेक्स्टएंड सब' ---------------------------- यहां "मुख्य" निष्पादन शुरू करेंप्रतीक्षा करें(शीर्षक)लूप के लिए = 1 से 4केस लूप का चयन करेंएकेस 1mystring = "वेक अप, नियो…"केस 2mystring = "मैट्रिक्स आपके पास है…"केस 3mystring = "व्हाइट खरगोश का अनुसरण करें…"केस 4mystring = "नॉक नॉक…"एंड सिलेक्ट' अब सही स्ट्रिंगकी (mystring) का प्रिंट आउट लें। _ _ _ _ _ _ _ _ _ _ wscript.quit() इसे C:\temp में मैट्रिक्स के रूप में सहेजें।vbs बैट फाइल बनाएं@echo offcolor 0atitle the matrixset /p matrix= | cscript /nologo (इसे अपने पथ के साथ vbs फ़ाइल में बदलें)exitset /p matrix= उस RabbitHole.bat को नाम दें। फिर इसे चलाएं !!

चरण 5: अंत

तुम वहाँ जाओ

आप जो कर सकते हैं उसकी सीमा आसमान छूती है