ወደ ቪቢ ስክሪፕት መግቢያ - የጀማሪዎች መመሪያ - ክፍል 2 - ከፋይሎች ጋር መሥራት - 13 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:34

ደህና ፣ በመጨረሻው ቪቢኤስክሪፕት አስተማሪዬ ፣ እኔ Xbox360 ን ለመጫወት በይነመረብዎን ለመዝጋት እንዴት ስክሪፕት እንደሚሰራ አሰብኩ። ዛሬ የተለየ ችግር አለብኝ። ኮምፒውተሬ በዘፈቀደ ጊዜያት ተዘግቶ ነበር እና ኮምፒዩተሩ ወደ ፋይል በሚነሳበት እያንዳንዱ ጊዜ መግባት እፈልጋለሁ። ችግሩ የቪዲዮ ካርድ ነው የሚል ስሜት አለኝ ግን ማረጋገጥ እፈልጋለሁ። ኮምፒውተሬን በማንኛውም ጊዜ እተወዋለሁ ነገር ግን 24/7 መከታተል አልችልም ፣ ስለዚህ በጣም ቀላሉ መፍትሔዬ ፋይል በሚነሳበት ጊዜ ሁሉ የጊዜ ማህተምን መፃፍ ነው። እሱ ሁል ጊዜ BSOD ስለሚሰጠኝ ፣ ሲዘጋ መግባት ከባድ ስለሆነ ተመልሶ ሲመጣ ማግኘት አለብኝ። ያ በጣም ቀላሉ ክፍል በኮምፒተርው ላይ ምን እንደ ሆነ እስክገነዘብ ድረስ ይህ ጊዜያዊ ብቻ ስለሆነ ወደ መዝገብ ቤቱ አልጽፍም ወይም አገልግሎት እስኪያደርግ ድረስ በመነሻ ጊዜ ይጀምራል። እና እሱ በተዘጋ ቁጥር እንደገና እንዲነሳ ለማድረግ የህይወት ታሪክን ማረም አለብኝ።

ደረጃ 1 በኃይል ውድቀት ላይ እንደገና እንዲነሳ ለማድረግ ባዮስን ማርትዕ።

ችግሬ በኃይል አቅርቦት አለመሳካት ወይም በቪዲዮ ካርዴ ወይም ምን እንደሆነ እርግጠኛ አይደለሁም። እኔ ግን ኮምፒውተሩ በተደጋጋሚ እንደሚነሳ አውቃለሁ። ስለዚህ የኃይል ውድቀት ከተከሰተ በኋላ እንደገና መነሳትዎን ለማረጋገጥ (IE: የኃይል አቅርቦቱ ይጨልማል) ባዮስን ማርትዕ እፈልጋለሁ። ብዙ የተለያዩ የባዮስ ሰሪዎች እዚያ በመኖራቸው ምክንያት ይህንን በተለያዩ የተለያዩ ባዮስ ማያ ገጾች ውስጥ ይህን ለማድረግ ሁሉንም የተለያዩ መንገዶች መዘርዘር በጣም ከባድ ስለሚሆን እኔ መሰረታዊ ነገሮችን እሰጥዎታለሁ እና እርስዎ እንዲረዱዎት በራስዎ ላይ የተወሰኑት። በመሠረቱ ወደ ባዮስዎ ውስጥ ለመግባት ቡት ላይ አንድ ቁልፍ መጫን ያስፈልግዎታል። ብዙውን ጊዜ እንደ “ቅንብር ለመግባት ዴል ይምቱ” ወይም “F2” ያለ ነገር ይናገራል። የተለያዩ አምራቾች የተለያዩ መንገዶችን ይሰጡዎታል ፣ ግን እሱ ብዙውን ጊዜ “F2” ወይም “ዴል” ቁልፍ ነው። ያም ሆነ ይህ እሱን ይከታተሉ እና እንዲመቱ የሚነግርዎትን ቁልፍ ይምቱ። አሁን ብዙውን ጊዜ ግራጫ ወይም ሰማያዊ ወደሆነ ማያ ገጽ ይመጣሉ ፣ ግን እንደገና በእርስዎ የሕይወት ታሪክ ላይ የተመሠረተ ነው። የኃይል ቅንጅቶችን አማራጭ እየፈለጉ ይሆናል። እሱ ልክ እንደ AMIBIOS ማያ ገጽ ቀረፃ (በቶም ሃርድዌር መመሪያ ተውሶ) ወይም በአንዳንድ ውስጥ በተራቀቀ የባዮስ ባህሪዎች መስኮት ውስጥ ሊሆን ይችላል። ለማንኛውም እርስዎ “በኤሲ/ኃይል ማጣት ላይ ወደነበረበት መመለስ” ቅንብር ይፈልጋሉ። እሱ ሌላ ነገር ተብሎ ሊጠራ ይችላል ግን ለዚያ ቅርብ ይሆናል። ብቻ ይፈልጉት። ብዙውን ጊዜ ሶስት አማራጮች (የመጨረሻው ሁኔታ ፣ ከኃይል መጥፋት በኋላ ፣ ከኃይል ማጣት በኋላ ጠፍቷል) ይኖረዋል። ከኃይል መጥፋት በኋላ እሱን ማብራት ይፈልጋሉ። ቅንብሮችዎን ማስቀመጥዎን እና ከባዮስ መውጣቱን ያረጋግጡ። አሁን ኃይልዎ ሲከሽፍ ወይም ማሽንዎን ሲንቀሉ ኃይል እንደመለሰ ወዲያውኑ እንደገና ይነሳል። እእእእእእ !!!!!!!!!!!!!!!!

ደረጃ 2 ስክሪፕቱን መጻፍ ክፍል 1 ዕቅድ ማውጣት

እኛ ማድረግ የምንፈልገው የመጀመሪያው ነገር እቅድ ማዘጋጀት ነው። ስክሪፕቱ በትክክል እንዲያደርግ የምንፈልገው A.) ኃይሉ ሲከሽፍ ወይም ቢኤስኦድ ሲነሳ እኛ እንደገና እንዲነሳ እንፈልጋለን። (ደረጃ 1 ን ይንከባከቡት ባዮስቢን።) እንደገና እንደጀመረ ወዲያውኑ እንደገና ፋይል ያደረገበትን ትክክለኛ ቀን እና ሰዓት ወደ ፋይል መፃፍ እንፈልጋለን። ሐ) ያንን ፋይል ማሻሻል መቻል እንፈልጋለን። እሱ ከአንድ ጊዜ በላይ እንደገና ከጀመረ እኛ ፈጽሞ አናውቅም። ዲ.) የስህተት እርማት እንዲኖረው እንፈልጋለን ስለዚህ እሱ እንዳይሰበር እና በመጥፎ ኮድ ምክንያት ምንም ሳንጠፋ ሁሉንም ዳግም ማስነሻዎቻችንን ማግኘታችንን እናረጋግጣለን። ኢ.) እኛ እንፈልጋለን እንደገና ተነስቷል የሚል መልእክት ብቅ እንዲል። ኤፍ.) በመልዕክቱ ላይ እሺን ጠቅ ስናደርግ የሁሉንም ዳግም ማስነሻዎች ዝርዝር ለማየት እንድንችል የጻፍነውን ፋይል እንዲከፍት እንፈልጋለን።

ደረጃ 3 ስክሪፕቱን መጻፍ ክፍል 2 - ስክሪፕትዎን መፍጠር ተለዋዋጮችን መመደብ።

እሺ መጀመሪያ ነገሮች መጀመሪያ ፣ የጽሑፍ ሰነድ ይፍጠሩ እና ወደ any_name.vbs እንደገና ይሰይሙት። እኔ shutdown_catcher.vbs ን እጠቀም ነበር ነገር ግን ማንኛውንም ነገር መጠቀም ይችላሉ። አሁን ልክ የ vbs ፋይልን ጠቅ ያድርጉ እና አርትዕን ይምቱ። ማስታወሻ ደብተር ++ ን የሚጠቀሙ ከሆነ እሱን ለመክፈት ጥሩ ጊዜ ይሆናል ፣ እርስዎ ካልሠሩዎት ግን ማንኛውንም የኮድ መጠን ለማድረግ ካሰቡ። ለማግኘት መፈለግ አለበት። አሁን ማድረግ የምንፈልገው የመጀመሪያው ነገር ተለዋዋጮችን መፍጠር ነው። ተለዋዋጮች በመሠረቱ ቦታ መያዣ ብቻ ናቸው ስለዚህ ብዙ ነገሮችን ብዙ ጊዜ መጻፍ የለብንም። ለምሳሌ “ፈጣን ቡናማ ቀበሮ ሰነፍ ውሾችን ይመለሳል” የሚል ዓረፍተ ነገር አለን። ግን በእኛ ኮድ ውስጥ 20 ጊዜ ነው። እኛ ሙሉውን ዓረፍተ ነገር 20 ጊዜ መተየብ ወይም ተለዋዋጭ መፍጠር እና ዓረፍተ ነገሩን ለዚያ ተለዋዋጭ መመደብ እንችላለን ስለዚህ በዚህ ምሳሌ ውስጥ እኛ ተለዋዋጭ strSentence እንፈጥራለን ከዚያም “ፈጣን ቡናማ ቀበሮ በሰነፍ ውሾች ላይ ይዘላል” የሚለውን ወደዚያ ተለዋዋጭ እንመድባለን። አሁን እኛ ማድረግ ያለብን ዓረፍተ ነገሩን በፈለግን ቁጥር “strSentence” ን መተየብ ነው እና “ፈጣን ቡናማ ቀበሮ በሰነፍ ውሾች ላይ ዘልሎ” የሚለውን መተየብ ያውቃል። በተመሳሳይ መስመር ላይ ያድርጓቸው እና ተለዋዋጮችን በኮማ ይለዩዋቸው። ተለዋዋጭ ለመፍጠር ተለዋዋጭውን መለካት የሚባለውን ማድረግ አለብን። ይህንን ለማድረግ ከተለዋዋጭው በፊት ዲምን እንጽፋለን ፣ ከዚያም ተለዋዋጭው ምን እንደሚወክል እናውቃለን። ምሳሌዎች ለአንድ ሕብረቁምፊ ተለዋዋጭ obj ለተለዋዋጭ ነገር const ለቋሚ…. ዝርዝሩ ይቀጥላል እና ይቀጥላል። በዚህ ስክሪፕት ውስጥ የምንጠቀማቸው እነዚህ ናቸው ስለዚህ ትንሽ እነግራቸዋለሁ። ሕብረቁምፊ ብዙውን ጊዜ እንደ ዓረፍተ ነገር ጽሑፍ ነው። አንድ ነገር ብዙውን ጊዜ እንደ ፋይል ወይም ፕሮግራም ያለ አካላዊ ነገር ነው። እና የማያቋርጥ ነገር በስክሪፕቱ ውስጥ ሁል ጊዜ አንድ ዓይነት ትርጉም ያለው ነገር ነው። ልብ ይበሉ - ማንኛውም መስመር አንድ መስመር ያለው ከመሆኑ በፊት መስመሩ በቅዱሳን ጽሑፎች ይስተዋላል። ማስታወሻዎች ተጠርተዋል እና በተለምዶ በፕሮግራሙ አስገባ። ኮዱን በሚገመግሙበት ጊዜ በኋላ ያደረጉትን ማስታወስ ይችላሉ። እኔ ያደረግሁበትን መንገድ ለምን እንደሠራሁ ለማየት እንዲችሉ ስለ ኮዱ አስተያየት ለመስጠት እጠቀምባቸዋለሁ። እነሱ እነሱ ከሚሰጡት መስመር በላይ ይሆናሉ። ትክክለኛው አጠቃቀም - ‹ይህ መስመር ሁሉንም ተለዋዋጮች እንዲገልጹ ያስገድደዎታል። ያለ እሱ ማንኛውም ያልተገለፀ ተለዋዋጭ እንደ ዕቃ ተደርጎ ይወሰዳል አማራጭ ግልፅ አሁን እኛ ለአቃፊዎች እና ለፋይሎች 5 ተለዋዋጮችን እንፈጥራለን እንፈልጋቸዋለን እንፈልጋቸዋለን ስሙ ግን ስብሰባው ቅድመ -ስም ዲም objFiSyOb ፣ objSysFold ፣ objShell ፣ objFile ፣ objTextFile’now ያስፈልገናል ለማውጫ ፣ ፋይል እና ፋይል ስም ሕብረቁምፊ ተለዋዋጮችን ለመፍጠር ዲም strDir ፣ strFile ፣ strFileName’now ለተለዋዋጮች እሴቶችን ይመድባል strDir የእኛ ማውጫ ነው እኛ በ strDir = “C: / Catcher” ውስጥ አቃፊውን የምንፈልገው strFile የምንፈልገው ነው። የጽሑፍ ሰነዱ እና ምን ተብሎ ይጠራልstrFile = "\ Shutdown_catcher.txt" 'የ strfile ስም ስለዚህ እኛ በፋይፕ upsstrFameName = "Shutdown_catcher.txt" ውስጥ ለመጠቀም የፋይሉ ስም እንዲኖረን ነው። ፋይል አለን። በሚያስፈልገን ጊዜ በኋላ ልንደውለው እንድንችል ተቃወምን objFiS ን ያዘጋጁ yOb = CreateObject ("Scripting. FileSystemObject")

ደረጃ 4: መካከል ማብራሪያዎች

አሁን የእኛ ተለዋዋጮች መጠነ -ልኬት ስላለን ማድረግ ያለብን እያንዳንዱን የተወሰነ ተለዋዋጭ በእያንዳንዱ ጊዜ ማስታወስ ነው። ይህ እኛ የምንሠራውን የትየባ መጠን መቀነስ ብቻ ሳይሆን በስህተት ፊደሎች ምክንያት ያነሱ ስህተቶችን ይፈጥራል። አሁን በቴክኒካዊ እኛ ማድረግ ያለብን የሚከተለውን ኮድ መተየብ ነው እና ጨርሰናል። & strFile ፣ ForAppending ፣ እውነት) አዲሱን መስመር ወደ ፋይልobjTextFile. WriteLine ይፃፉ (“ኮምፒተርዎ ዝጋ” & ቀን & “በ” እና ጊዜ)”ፋይልobjTTxtFile ን ይዝጉ ብቅ ብቅ ይበሉ Wscript. Echo (“የእርስዎ ኮምፒውተር በ "& date &" at "& time) ላይ ዝጋ" ፋይሉን በ IESet objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") ውስጥ ይክፈቱ ችግሩ ምንም የስህተት እርማት አይኖረውም ፣ እና ማንኛውም ቀላል ስህተት ያለ ፋይል ወይም አስቀድሞ የተመደበ ፋይል ስክሪፕቱን ያበላሸዋል።

ደረጃ 5 - ስክሪፕቱን መፃፍ ክፍል 3 - ከዚያ መግለጫዎች እንደ ስህተት እርማት ከሆነ።

የስህተት እርማት ለማድረግ ቀላሉ መንገድ/ከሆነ መግለጫዎችን መጠቀም ነው። በመሠረቱ አንድ ከሆነ መግለጫው አንድ ነገር ከተከሰተ ከዚያ ይህንን ያድርጉ አለበለዚያ ያድርጉት። /ከሆነ መግለጫዎች ጎጆ በማድረግ ፣ መከሰት ያለባቸውን የነገሮች ሕብረቁምፊ መፍጠር ይችላሉ። ሀ እና ለ እና ሐ ከተከሰቱ ከዚያ ሌላ ያንን ያድርጉ። ምሳሌ - እኛ ልንጽፍለት የምንፈልገው ፋይል እኛ ካገኘን ምንም ማድረግ ካልፈለግን እኛ ምንም ነገር ካላገኘን እሱን መፍጠር እንፈልጋለን ወይም እኛ እሱን መፍጠር እንፈልጋለን አቃፊው እዚያ ካለ እና ካልፈጠሩት ለመፈተሽ ይፈልጋሉ እና ከዚያ ፋይሉ አንዴ ካለ አቃፊውን ካገኘን እና ካልፈጠሩት የመጀመሪያው የ ‹ምሳሌ› ምሳሌ ከሆነ ከዚያ መግለጫ ሁለተኛው ከዚያ ጎጆ ነው። እንዴት እኛ እናደርጋለን -አንድ ከሆነ ከዚያ መግለጫ ከሆነ/ከዚያ ሌላ ከሆነ በመሠረቱ ይህ እውነት ከሆነ ይህንን ያድርጉ አለበለዚያ ይህንን ያድርጉ ከዚያ ያንን ያድርጉ መግለጫው በትክክል ኮድ ከሆነ ያ መግለጫው ያበቃል። ምን ማድረግ እንዳለብዎ ሌላ ነገር ያድርጉ እእእእእእእእእእእእእእእእእአአአዘዘ ጊዜ ድረስ ማንኛውንም ክርክር መጠቀም ከቻሉ የዚያን ክፍል ይከተልና ሌላውን ክፍል ይተዋሉ ፣ ነገር ግን ሐሰት ከሆነ ያንን ዘልሎ ወደ ሌላ ይሄዳል ከዚያም መግለጫውን ስናበቃው እኛ “ጨርስ” ን እናስቀምጣለን ፣ ግን እኛ መግለጫ ካደረግን እያንዳንዱን መግለጫ መግለፅ አለብን። እሱ ከልጅ ወደ ወላጅ ያበቃል ስለዚህ የመጀመሪያው “መጨረሻ ከሆነ” መግለጫው በወላጁ ውስጥ ያበቃል ፣ ሁለተኛው ደግሞ መግለጫውን (ወላጅ) የሚጨርስበትን። በመልዕክቱ ውስጥ ማለት እንፈልጋለን)) በእሱ ውስጥ ተለዋዋጮችን እሴት ለማከል የ “አምፔንድ” (&) ምልክትን እንደ ወሰን (ድንበር) በመጠቀም ከውጭ ወይም በሁለት ጥቅሶች መካከል እናስቀምጠው ስክሪፕቱ ተለዋዋጭ እና ጽሑፍ አለመሆኑን ያውቃል።: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah bla") blah blah blah ትክክለኛ አጠቃቀም ‹አቃፊው C ከሆነ / \ ካለ objFiSyOb. FolderExists (strDir) ከዚያ’አቃፊውን ያዋቅሩ objSysFold = objFiSyOb. GetFolder (strDir)’ አለበለዚያ አቃፊውን ይፍጠሩ c; / catcher Set objSysFold = objSysFold = objSysFold CreateFolder (strDir) 'እና ፋይሉ እና አቃፊው ካለ objFiSyOb. FileExists (strDir & strFile) ከዚያም'አቃፊውን ካገኘ / \ catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'አለበለዚያElse' የጽሑፍ ሰነድ ፍጠር shutdown_catcher.txt አዘጋጅ objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'ከዚያም ሁለታችንም አንድ ጽሑፍ ፈጥረናል ለማለት አንድ መልዕክት ብቅ ይላል Wscript. Echo (" “& strDir &” እና “& strFilename” የሚል ፋይል የተሰየመ እና በ “& strDir & strFile &” ማውጫ”ውስጥ አስቀምጦታል። አቃፊውን አስቀድመን ፈትሸን እና አገኘነው ስለዚህ አሁን ፋይልን እንፈትሻለን objFiSyOb. FileExists (strDir & strFile) ከዚያም ‹አቃፊ አግኝ objSysFold = objFiSyOb. GetFolder (strDir)’ አለበለዚያ ሌላ የጽሑፍ ሰነድ አዘጋጅ objFile = objFiSyO CreateTextFile (strDir & strFile) '' የጽሑፍ ሰነዱን ፈጠርን Wscript. Echo ('' እና strDir & '' ፋይል አቃፊ ውስጥ '' የሚባል ፋይል ፈጥረናል »የሚል ብቅ -ባይ ይፍጠሩ)

ደረጃ 6 - መካከል ያሉት ማብራሪያዎች

ከቀዳሚው ደረጃ ኮዱን በቅርበት ከተመለከቱ ያኔ መግለጫ ከሆነ ጎጆ እና ያልተጠለለ ያያሉ። የመጀመሪያው ጎጆ የተሰጠ መግለጫ ነው። አቃፊውን እና ፋይሉን ይፈትሻል እና ካላገኘ ሁለቱንም ይፈጥራል። ሁለተኛው ፋይል ብቻ ይፈልጋል እና ካላገኘ ፋይሉን ብቻ ይፈጥራል። አንዱ ለምን ሁለቱም ይሉ ይሆናል። ደህና ፣ ፋይሉ ቢሰረዝ ግን አቃፊው ካልሆነ። የመጀመሪያው ከሆነ መግለጫው በፋይሉ መፈጠር ላይ በትክክል ቢዘል አቃፊውን ስላገኘ እና ሌላውን የአረፍተ ነገሩን ክፍል በጭራሽ አይሠራም። ስለዚህ ወደ ፋይሉ ለመጻፍ በሄዱበት ጊዜ ፋይሉ ይጎድላል ምክንያቱም ይሳሳታል። ስለዚህ ሁለተኛውን እዚያ በመያዝ ይህንን ችግር ይፈታል። በቴክኒካዊ መልኩ የጎጆውን መግለጫ ማውጣት ይችላሉ ምክንያቱም ከዚያ መግለጫው ከሁለተኛው ጋር አንድ ነው ማለት ነው ፣ ግን ከዚያ እርስዎ አንድ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅ ብቅcehnntanyenም ላይሆን ይችላል። -መግለጫዎች ከሆነ ጎጆ።

ደረጃ 7 - ተጨማሪ የስህተት እርማት

አሁን አብዛኛዎቹን የስህተት እርማት አጠናቅቀን ወደ ፋይሉ መጻፍ እና ብቅ -ባዮችን ማሳየት እንፈልጋለን።በተለዋዋጭው ውስጥ የተከማቸውን ቀዳሚ ነገር ማጣቀሻ ካልለቀቅን ችግሩ የፈቃድ ስህተቶችን እናገኛለን። ስለዚህ ተለዋዋጮችን ወደ ምንም ነገር ያዘጋጁ የሚለውን የሚገልጽ ትንሽ የኮድ ቁርጥራጭ ልናስቀምጥ እንፈልጋለን። እንደዚህ ይመስላል - objFile = nothingset objSysFold = ምንም ነገር የለም ስለዚህ በቤትዎ ውስጥ ለሚከተሉት የእርስዎ ኮድ መሆን አለበት (አስተያየቱን ወስጄ ነበር) ውጭ): አማራጭ ExplicitDim objFiSyOb ፣ objSysFold ፣ objShell ፣ objFile ፣ objTextFileDim strDir ፣ strFile ፣ strFileNamestrDir = “C: / Catcher” strFile =”\ Shutdown_catcher.txt” strFileName ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") objFiSyOb. FolderExists (strDir) ከሆነ ከዚያ objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFiSir ObjSysFold = objFiSyOb. GetFolder (strDir) ሌላ አዘጋጅ objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("እኛ" & strDir "የሚል አቃፊ ፈጥረናል እና" & strFilename & "የሚል ፋይል የያዘ ፋይል ፈጥረናል። the & strDir & strFile & "directory.") መጨረሻ I fInd IfIf objFiSyOb. FileExists (strDir & strFile) ከዚያ Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile”የሚል ስያሜ ተሰጥቶታል።" "& strDir &" ፋይል አቃፊ። ") Ifset ጨርስ objFile = nothingset objSysFold = ምንም

ደረጃ 8 - ስክሪፕቱን መጻፍ ክፍል 4 - ባህሪያትን ማዘጋጀት

አሁን እኛ እንድናስተካክለው የፋይሉን ባህሪዎች ማዘጋጀት አለብን። ከዚህ በፊት ሶስት የማያቋርጥ ተለዋዋጮችን እናስቀምጣለን - forReading = 1forWriting = 2 forAppending = 8 ካዘጋጁት ለማንበብ እርስዎ ማንበብ ይችላሉ ፣ ግን አይጽፉለትም። እሱን ካዘጋጁት ለመፃፍ ፕሮግራሙን በሚያሄዱበት ጊዜ ሁሉ ነባሩን ፋይል ይተካሉ።. እሱን ለማቀናበር ካዋቀሩት ስክሪፕቱ በሰነዱ ላይ በፈጸመ ቁጥር አዲስ መስመር ያክላሉ። እሱ እንደገና በሚነሳበት ጊዜ ሁሉ ምዝግብ ስለፈለግን እንዲታከል እንፈልጋለን እና ከመፃፍ በላይ አይደለም ስለዚህ እኛ ለመጫን እንጠቀማለን። እንዴት እናደርጋለን: ባህሪያትን ሊያዘጋጁለት የሚፈልጉትን ነገር መሰየም አለብዎት። ቀደም ባሉት ደረጃዎች ውስጥ አብዛኛዎቹን ሥራዎች አስቀድመን ስለሠራን በዚህ ጊዜ ተለዋዋጮችን ማስታወስ ብቻ ያስፈልገናል። ከዚያ ልክ ወደ እውነት ያዘጋጁት።

ደረጃ 9 - ስክሪፕቱን መጻፍ ክፍል 5 - ወደ ፋይል መጻፍ

ወደ ፋይል መፃፍ ብቅ -ባይ እንደ መጻፍ ነው። እርስዎ ብቻ አስቀመጡ - objTextFile. WriteLine (“ለማለት የፈለጉትን ሁሉ” እና መስመር ለመፃፍ ተለዋዋጭ) ብቸኛው ልዩነት የመጀመሪያው ክፍል ነው WriteLine እና በጽሑፍ መስመር ውስጥ መጻፍ ለማቆም እና እርስዎ እንዲጠቀሙበት የፅሁፍ መስመሩን መዝጋት አለብዎት - objTextFile. CloseActual Usage:.እስከ አሁን ሰውዬው እንደተከሰተ እንዲያውቅ በፋይሉ ላይ ጽፈሃል ለማለት ብቅ ባይ ውስጥ አክል እና ፋይሉን ለመክፈት መዝጋት አለባቸው። እና ጊዜ)

ደረጃ 10 - ስክሪፕቱን መጻፍ ክፍል 5 - ፋይሉን ለመመልከት መክፈት።

አንድ ሰው ብቅ -ባይውን ጠቅ እስኪያደርግ ድረስ እስክሪፕቱ በዚህ ጊዜ ያቆማል። አንዴ ብቅ -ባይውን ካለፉ ፋይሉን የሚከፍትበትን መስመር ማስገባት ይችላሉ። በላዩ ላይ አንዳንድ የስህተት እርማትን መጠቀም ፕሮግራሙ በጥሩ ሁኔታ እንዲሠራ ይረዳል። በ vbscript ውስጥ ስህተት ሲፈጥሩ በ vbscript ውስጥ አስቀድሞ የተገለጸ ተለዋዋጭ ለ “err.number” ተለዋዋጭ እሴት ያክላል። እሱን መግለፅ የለብዎትም እና ደንቦቹን እስካልጣሱ ድረስ እንደማንኛውም ተለዋዋጭ ሊጠቀሙበት ይችላሉ። ለ err.number ተለዋዋጭ የተመደበው እሴት ለተከሰተው ስህተት ኮድ ነው። አሁን በ vbscript የውሂብ ጎታ ውስጥ የሚታወቁትን እያንዳንዱን የስህተት ኮድ መፈተሽ እና አለመከሰቱን ማረጋገጥ ይችላሉ። ወይም የበለጠ ቀላል ፣ የቁጥር ቁጥር ተለዋዋጭ ባዶ መሆኑን ያረጋግጡ። ባዶ ከሆነ ምንም ስህተቶች አልነበሩም። ይህንን ለማድረግ እኛ ተለዋዋጭው ከ vbEmpty ጋር እኩል መሆኑን ለማየት እንፈትሻለን። ስለዚህ በእኛ ስክሪፕት ውስጥ ከዚያ መግለጫ ከሆነ ሌላን መጠቀም እንፈልጋለን። እና ስህተት ተከስቷል እና ለማየት ፋይሉን ካልከፈተ ለማየት ይፈትሹ ፣ ነገር ግን እሱ ከነበረ ስህተቱ በውስጡ የያዘው መልእክት ብቅ ብቅ እንዲል ማረም እንችላለን። ከዚያ ሁላችንም በስክሪፕታችን ስንጨርስ እኛ ተይብ Wscript. Quit. ይህ እስክሪፕቱን እራሱን እንዲያቆም ይነግረዋል። ይህ የማስታወሻ ፍሳሾችን እና የማይፈለጉ ሂደቶችን ለማስኬድ ይረዳል። እንዴት ጥቅም ላይ እንደዋለ - ቁጥር ቁጥር ከ vbEmpty ጋር እኩል ከሆነ ከዚያ አንድ shellል ይፍጠሩ ከዚያም ፕሮግራሙን ከሸለቆው ያሂዱ ከዚያም አለበለዚያ ስህተት ካለ የሚገልጽ መልእክት ብቅ ይላል። errorIrr.number = vbEmpty then'if ማንም shellል ካልፈጠረ አዘጋጅ objShell = CreateObject ("WScript. Shell") '' ከዚያም አሳሽ በመጠቀም ፋይሉን ከዚያ ቅርፊት ይክፈቱ። እሱ በእውነቱ በ IE ውስጥ ይከፍታል objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") '' አለበለዚያ በስህተት ቁጥር መልዕክት ብቅ ይላል ኤልሴ WScript.echo "VBScript ስህተት:" & err.numberEnd If 'መጨረሻ ስክሪፕትስክሪፕት

ደረጃ 11: ስክሪፕቱ በጅምር ላይ እንዲሠራ ማድረግ።

በጅምር ምናሌው ውስጥ ጅምር የሚባል የፋይል አቃፊ አለ። በዚህ አቃፊ ውስጥ የተቀመጠ ማንኛውም ነገር ኮምፒዩተሩ እንደጀመረ ወዲያውኑ ይጀምራል። የስክሪፕት ፋይሉን በጅምር አቃፊ ውስጥ በማስቀመጥ ሆን ብሎም ባይሆንም ኮምፒዩተሩ በተነሳ ቁጥር ይፈጸማል። እኔ ይህንን እንደ የምርመራ መሣሪያ ብቻ ስለምጠቀም ፣ ለመጀመር በአገልግሎት ውስጥ መደረግ የለበትም ፣ እና እሱን ለመጀመር በመዝገቡ ውስጥ ማስገባት አያስፈልገኝም ፣ ስለዚህ ይህ ጥሩ ይሆናል። አንዴ ኮምፒተርውን ካስተካከልኩ በኋላ ፋይሉን ከጅምር አቃፊው መሰረዝ እችላለሁ እና ሌላ ማጽጃ አያስፈልግም።

ደረጃ 12 - ፕሮግራሙን ማስኬድ

የ vbscript ፋይልን ሲፈጽሙ እሱ አሁን ሀ) አቃፊው C: / Catcher ካለ እና ካልተፈጠረ ለማየት ይፈትሹ።) እሱ አንድ አቃፊ ወይም ፋይል ከፈጠረ ወይም ሁለቱንም እሱ ፈጠረ ብሎ መልእክት ብቅ ይላል (ማስታወሻ - ይህንን በመጀመሪያ አሂድ ላይ ብቻ ማድረግ አለበት ከዚያ በኋላ ካልተሰረዘ አስቀድሞ እዚያ ሊኖር ስለሚችል ያንን መልእክት አንድ ጊዜ ብቻ ማየት አለብዎት.እነዚህን ብቅ -ባዮች ማለፍ እንዲችሉ ይህንን ስክሪፕት በተቆጣጠረ ዳግም ማስነሳት አንድ ጊዜ ማካሄድ ጥሩ ሀሳብ ሊሆን ይችላል ወይም የተፈጠሩትን ብቅ -ባዮች ፋይል ስለማያልፍ ለፋይሉ ምንም ነገር ላይጽፉ ይችላሉ።) D:) መስመር ውስጥ ይፃፉ የጽሑፍ ሰነድ Shutdown_Catcher.txt እንዲህ እና እንዲህ ባለው ቀን ኮምፒዩተሩ መዘጋቱን እንዲህ እና እንደዚህ ባለው ጊዜ። ኢ:) ዳግም ማስነሳት አለ የሚል መልእክት ብቅ ይላል ኤፍ:) ለማየት ፋይሉን ይክፈቱ። በሚቀጥለው ደረጃ ላይ ከተመለከቱ እንደተፃፈው ኮዱን ያያሉ። አሁን ማድረግ ያለብኝ ቁጭ ብሎ መጠበቅ ብቻ ነው። ኮምፒዩተሩ እንደገና በሚነሳበት ጊዜ ሁሉ እኔ የምመዘግበው መዝገብ ይኖረኛል። ከዚያ መዝገቡን መገምገም እና ለእሱ ምንም ወጥነት ካለ ማየት እችላለሁ። ምሳሌ ምናልባት በየግማሽ ሰዓት እንደገና ይነሳል ወይም ጭማሪ ወይም በሰዓት 45 ላይ በማንኛውም ጊዜ እንደገና ይነሳል። እርስዎ እንዲያውቁ በኮምፒተር ላይ የምመረምርበት ብቸኛው መንገድ ይህ አይደለም። እኔ የሙቀት መጠኑን ለመፈተሽ የሚሮጥ የቤንችማርክ ፕሮግራም አለኝ ፣ ስለዚህ ሲዘጋ ምን ያህል እንደሚሞቅ አውቃለሁ ፣ voltage ልቴጅ ስለዚህ የኃይል አቅርቦቱ እየተበላሸ መሆኑን እና ሌሎች ጥቂት ጠቃሚ ነገሮችን አውቃለሁ። ደህና ፣ ይህ ጠቃሚ እንደነበረ ተስፋ አደርጋለሁ። እንደወደድኩት አውቃለሁ ፣ ምናልባት ሌሎች እንዲሁ ይደሰታሉ። ማናቸውም ጥያቄዎች ካሉዎት ለመጠየቅ ነፃነት ይሰማዎ። እኔ ወዲያውኑ አልደረስባቸውም ፣ ግን ትንሽ በመያዝ እና እመልስልዎታለሁ። የእኔ ቀን/ሳምንት እንዴት እንደሚሠራ ላይ የተመሠረተ ነው።

ደረጃ 13 - ኮዱ

ይህ ሁሉም ፍንጮች እና አስተያየቶች ሳይኖሩት እንደተፃፈው ኮዱ ነው። Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") ከሆነ objFiSyOb. FolderExists (strDir) ከዚያም objSysFold = objFiSyOb. GetFolder (strDirsereder objFiSyOb. FileExists (strDir & strFile) ከዚያ Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) WScript. Echo የሚል ስም ተሰጥቶናል "ፋይል ፈጥረናል እና" ፋይል አድርገናል እና "ፋይል አድርገናል እና" ፋይል አድርገናል እና "ፋይል አድርገናል እና" የሚል ስም ተሰጥቶናል። "& strFilename &" እና በ "& strDir & strFile &" ማውጫ ውስጥ አስቀምጠው።) IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) ከዚያም objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFFF strDir & strFile) Wscript. Echo ("እኛ አለን በ "& strDir &" ፋይል አቃፊ ውስጥ "& strFileName &" የሚባል ፋይል ፈጠረ።) Ifset end objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile ፣ ForAppending, True) objText በ "& date &" at "& time) objTextFile. CloseWscript. Echo (" የእርስዎ ኮምፒውተር ተዘጋ "& ቀን &" በ "& ሰዓት) err.number = vbEmpty ከሆነ ከዚያ objShell = CreateObject (" WScript. Llል ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") ሌላ WScript.echo" VBScript ስህተት "& err.numberEnd IfWScript. Quit