विषयसूची:

एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है: 4 कदम
एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है: 4 कदम

वीडियो: एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है: 4 कदम

वीडियो: एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है: 4 कदम
वीडियो: करें ये टोटका जाने पेशाब से वशीकरण कैसे किया जाता हैं/Tivra Vashikaran Totke 2024, नवंबर
Anonim
एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है
एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है
एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है
एक कष्टप्रद कार्यक्रम बनाएं जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है

यह मेरा पहला निर्देश है इसलिए कृपया मुझे बताएं कि मैं कैसे सुधार कर सकता हूं।

यह निर्देश आपको बताता है कि एक कष्टप्रद प्रोग्राम कैसे बनाया जाए जो आपके सभी सीडी ड्राइव को खोलता और बंद करता है। आपको आवश्यकता होगी: विंडोज़ चलाने वाला एक कंप्यूटर

चरण 1: नोटपैड खोलें

नोटपैड खोलें
नोटपैड खोलें

सबसे पहले, नोटपैड खोलें

इस तरह से करने के 2 तरीके हैं: स्टार्ट बटन पर क्लिक करें, प्रोग्राम्स या सभी प्रोग्राम्स पर जाएं, एक्सेसरीज पर जाएं नोटपैड वे पर क्लिक करें 2: विंडोज़ की को दबाए रखें फिर आर दबाएं और फिर विंडोज़ की को छोड़ दें, एक बॉक्स पॉप अप होगा, उस बॉक्स में नोटपैड टाइप करें

चरण 2: स्क्रिप्ट टाइप करें

स्क्रिप्ट टाइप करें
स्क्रिप्ट टाइप करें

नोटपैड विंडो अब ओपनकॉपी होनी चाहिए और नीचे दिए गए टेक्स्ट को NotepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'स्क्रिप्टिंग के रूप में पेस्ट करें। FileSystemObjectConst CDROM = 4 त्रुटि फिर से शुरू करें NextSet fs = CreateObject ("Scripting. FileSystemObject") strDriveLetter = "" intDriveLetter = Asc ("A के लिए) ") Asc("Z")Err. ClearIf fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM के लिए, फिर Err. Number = 0 फिर strDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject ("WMPlayer. OCX. 7") colCDROMs = oWMP.cdromCollectionFor d = 0 को colCDROMs पर सेट करें। काउंट - 1colCDROMs. Item(d)।EjectNext 'nullFor d = 0 को colCDROMs। काउंट - 1colCDROMs।आइटम (d)।EjectNext 'nullset owmp = कुछ भी सेट colCDROMs = नथलूप

चरण 3: सहेजें और परीक्षण करें

फ़ाइल को अपने डेस्कटॉप पर cd.vbs के रूप में सहेजें और चलाने के लिए इसे डबल क्लिक करें

चरण 4: इसे रोकें

प्रेस ctrl+alt+डिलीट ओपन टास्क मैनेजर क्लिक प्रोसेस क्लिक करें wscript.exe प्रेस एंड प्रोसेस

सिफारिश की: