Компьютериңизди каалаган убакта белгилөө менен автоматтык түрдө өчүрүүнү программалаңыз: 4 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

эй, бул менин күнүмдүк жашоомдон алынган дагы бир көрсөтмө …

Акыркы жолу мен компьютериме көптөгөн программаларды жүктөп алышым керек болчу жана мен аны түн ичинде жүктөөгө уруксат беришим керек болчу, мен жүктөөнү аяктагандан кийин түнү бою компьютеримди күйгүзгүм келбеди жана ошол эле учурда мен аны күтүп сергек боло албадым. жүктөөлөрдү бүтүрүү жана аны өчүрүү үчүн! ошондуктан мен компьютерди интерактивдүү түрдө автоматтык түрдө өчүрүүгө мүмкүндүк бере турган VBscript жасадым! Жүктөө үчүн керектүү убакыттан кийин өчүрүңүз, эгер ылдамдык төмөндөшү мүмкүн, бирок жок дегенде мен сергек турбайм жана түнү бою компьютеримди эч нерсе кылбай кармап турам! жана бул учурда ЖК колдонуучу менен интерактивдүү болот, анткени мен ага үн жана баянды коштум! ошондуктан менин көрсөтмөмдү караңыз! жана сизге жакса, комментарийге жазыңыз! рахмат

1 -кадам: Сценарийди жазуудан баштаңыз …

блокнотту ачып, төмөнкү скриптти блокнотко жазыңыз: Dim xDim yset oShell = createobject ("wscript.shell") Sapi = Wscript. CreateObject ("SAPI. SpVoice") x = InputBox ("Компьютериңизди өчүргүңүз келеби? убакыттын мурунбу? жооп: ооба/жок "," АВТОМАТТЫК СИСТЕМА ӨЧҮРҮЛГӨН! SCRIPTmaster тарабынан ") эгерде x =" ооба "болсо, анда y = InputBox (" Өчүрүү автоматтык түрдө орун алышы үчүн калган убакытты киргизиңиз (убакыт мүнөттө…): ", "AUTOMATIC SYSTEM SHUTDOWN!") Sapi.speak y + "өчүрүү үчүн мүнөт калды" oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "Система эми автоматтык түрдө орнотулду өчүрүү! жүктөөлөрдүн бүтүшүн күтпөңүз, уктап кетиңиз! ТҮНҮҢҮЗ КАЙЫР! түндү караңыз u 2morow! >>>> бул Автоматтык түрдө өчүрүүнү токтотуу үчүн жөн гана скриптти кайра иштетиңиз жана эгер x = "no" болсо "end" деп териңиз "анда sapi.speak" макул, коштошууну каалаганыңыздай, сценарий Айман Фархат тарабынан жазылган "oShell.run" shutdown.exe -a "аягында SCRIPTmaster

2 -кадам: коддун деталдуу сүрөттөлүшү скриптте…

Dim x жана Dim y /// x жана y өзгөрмөлөрүн жооп жана убакыт үчүн жооптуу деп жарыялашат. OShell = createobject ("wscript.shell") /// OS кабыгын чакырып, wscript.shellSet Sapi = объектин жаратат. Wscript. CreateObject ("SAPI. SpVoice") /// SAPI терезелерин чакырат жана SAPI. SpVoice объектин жаратат, бул колдонуучуга айтып бергендей бул скрипттеги сүйлөө үчүн жооп берет … x = InputBox ("Сиз өчүргүңүз келеби? Сиздин компьютериңиз белгилүү бир убакыттан кийин? жооп: ооба/жок "," АВТОМАТТЫК СИСТЕМА ӨЧҮРҮЛДҮ! "/// колдонуучу эгер x =" ооба "болсо /// тармактуу билдирүү = InputBox ("Автоматтык түрдө өчүрүү үчүн калган убакытты киргизиңиз (убакыт мүнөттө…):", "АВТОМАТТЫК СИСТЕМА ӨЧҮРҮЛӨТ!") // эгер колдонуучу ооба деп тандаса, анда калган убакытты белгилөө үчүн ага башка маалымат берилет. өчүрүү үчүн sapi.speak y + "өчүрүүгө мүнөт калды" /// Windows SAPI калган мүнөттөрдү окуйт oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "Системасы Азыр автоматтык өчүрүү үчүн коюлган! жүктөөлөрдүн бүтүшүн күтпөңүз, уктай аласыз! ТҮНҮҢӨР БЕЙПИЛ БОЛСУН! эртең көрүшөбүз! >>>> Бул Автоматтык өчүрүүнү токтотуу үчүн жөн гана сценарийди кайталап, "" "/// териңиз, бул системаны өчүрүүнү аткарууга чакырат жана компьютерди берилген убакытка ылайык өчүрөт. y! end if // if if the first if if that which is yes in if this if yes if x = "no" then //.another is no answer for жооп жок sapi.speak "макул, сен каалагандай коштош, скрипт жазылган by Айман Фархат SCRIPTmaster "/// SAPI колдонуучу менен сүйлөшөт жана коштошуусун айтат oShell.run" shutdown.exe -a " / /shutdown.exe бул учурда чакырылат жана өчүрүүнү аткарбоо керектиги айтылат -a! end кошуу // if сөзүнүн аягы! бул кыска, бирок деталдуу сүрөттөмө, билиңиз, кийинки кадамга өтүңүз, эмне кылуу керектигин …

3 -кадам: Скриптиңизди сактоо

блокнотко скриптиңизди киргизгенден кийин, аны сактап калышыңыз керек, сактоо баскычын чыкылдатыңыз жана файлыңыздын атын жазган жерге, сүрөттө көрсөтүлгөндөй.vbs файлыңыздын атын коюңуз …

4 -кадам: Скриптиңизди иштетиңиз …

жаңы сакталган VB программасын эки жолу чыкылдатып, сыйкырды көрүңүз!

Сизге суротто корсотулбогондой же жабылгысы келген жерде биринчи жолу киргизилген суроо берилет. эгер сиз жок деп терүү менен жабууну чечпесеңиз, программа автоматтык түрдө бүтөт … эгер сиз ооба деп терүү менен өчүрүүнү тандасаңыз, сизге компьютериңиздин күйгүзүлүшүн каалаган мүнөттөрдүн санын суретте көрсөтүлгөндөй сурашат. төмөндө. анан кандайдыр бир себептер менен өчүрүүнү токтоткуңуз келсе, программаны кайра иштетип, жок деп жазыңыз жана ал өз алдынча токтотулат! Ошентип, бул көптөгөн компьютер колдонуучулары жабыркаган көйгөйдүн чечими болду! Менин көрсөтмөм сизге жакты деп үмүттөнөм, эгер сиз кааласаңыз, комментарий калтырыңыз, мен сизден угуудан абдан кубанычтамын. ИЙГИЛИК жана КАЙРАТТУУ ТҮН!