програми за писане (Scripts) в Notepad прозорци

С тази статия, вие ще научите как да програмирате и дори не пиша на програмата като такава, но тук ще намерите страхотни VBS скриптове и BAT файлове, които лесно се пишат по обичайния Windows бележника, ще бъде в състояние да подобрят дейността си, а след това да се похвали на приятелите си и семейството си. Може би това ще повдигне духа ви и ще прекарате много време.

Повечето подобни скриптове, написани за удобство и автоматизация на всяко действие на компютъра Windows. По-долу е малко скриптове са полезни (може би така си мисля), но те са идеални за въведение в "кодиране". Имате добро време, за изненада на двамата себе си и приятели манекени (не програмисти), плюс това е още една добра възможност, за да убие малко време пред компютъра.

разширения на данни (VBS, бухалка) файлове са създадени във всички Windows (Notepad), известен Notepad. За допълнително удобство на скриптове се препоръчва използването на усъвършенстван (така да се каже) преносим компютър - Notepad ++. Той е удобен оцветяване на синтаксиса за много езици за програмиране, ако го направите, това не е от голямо значение, а след това да го изтеглите и да го напиша - грешката в кода направи по-малко, или ще бъде по-лесно да се намери, отколкото в една и съща малка функционална Notepad на Windows.

За яснота примера (вляво - Notepad Windows, нали - Notepad ++):

Ако сте вече запознати с VBS скриптове и партида файл, то е вероятно, че следващите примери не се интересувате, но ако сте начинаещ, след като въведение - това, което трябва.

Научи компютър Поздравете

1. Отвори Notepad (или Notepad Plus Plus).
2. Копирайте кода за вмъкване:

Задайте САПИ = CreateObject ( "sapi.spvoice")
sapi.Speak "Hello!"

Задължително изискване: кавичките трябва да бъдат "такива", "рибена кост" няма да работи, сценарият няма да бъде обработена и възникването на грешка. Вместо думата "Здравейте" може да пише всичко, което искате, дори и на руски, в присъствието на българския глас двигателя.

След това изберете File - Save As - Тип на файла - Всички файлове - nazvanie.vbs

Обадете се на файла, както искате, но не забравяйте да се регистрирате в края на разширението - .vbs (пример - Privet.vbs).

Сега се опитайте да се провери вашия скрипт - стартирате файла чрез двукратно щракване на мишката.

Един протест: ако сте се регистрирали в цитираните думи на българските букви, а когато започнете да се произнесе ясно, че тогава просто не зададете на българския глас двигателя. Подробна инсталирането и конфигурирането на глас двигател е извън обхвата на тази статия, така че повече информация прочетете тук и да се върне отново тук.

Сега, направете следното: предпише сценария със стартирането, което означава, че при стартиране на компютъра ви ще бъде изречена дума е написана на програма (една дума), ако е както в примера, тя ще каже - "Hello" всеки път, когато компютърът е включен. Как да го направя?

Много просто, програмата (скрипт) за да добавите към стартиране може да бъде един и същ начин, а именно чрез VBS скрипт. Създаване на файлове отметки, копие / паста (Ctrl + C / Ctrl + V) следния код:

Дим vOrg, objArgs, корен, ключ, WshShell
корен = "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Run"
KeyHP = "Програма"
Задайте WshShell = WScript.CreateObject ( "WScript.Shell")
WshShell.RegWrite корен + keyHP, "C: \ Privet.vbs / автомобил"

Промяна на пътя към сценария "govorilki", че тази линия - C: \ Privet.vbs сам. Предписват където лежат и как този скрипт се нарича. Тогава спаси новосъздадената програма в мини бележника и план. Всичко, което сега компютърът ще бъде с вас, и т.н. поздрав всеки път.

1. Отвори бележника. Copy / Paste следния код:

Задайте = CreateObject ( "WMPlayer.OCX.7")
Задайте б = a.CdromCollection
Комплект с = b.Item (0)
Комплект г = c.Eject

Спести с разширение .vbs

Изпълнете скрипта и отваря отделението за дискове.

Има по-интересна модификация на този скрипт:

Задайте WMPlayer = CreateObject ( "WMPlayer.OCX.7")
правя
WMPlayer.CdRomCollection.Item (0) .Eject ()
контур

В този случай тя ще бъде по всяко време отворено-затворено CD / DVD-диск за лаптопи в този случай ще бъде открита след всяко затваряне.

Внимание! Вторият код (диск отваряне и затваряне), някои антивирусни програми възприемат като нежелана програма. Kaspersky Anti-Virus (включително Kaspersky безплатен) го вижда по този начин и да унищожи веднага. В първия случай (просто отваряне на диск) за антивирусен софтуер не е зловреден скрипт,.

За да спрете автоматичното отворено-затворено диск изисква:

1. Task Manager Start (горещи клавиши за Windows - Ctrl + Alt + Del).
2. Отидете на "Процеси" в раздела.
3. Намери wscript.exe процес - десен бутон на мишката - за да завършите процеса.

Интересна находка от интернет - игра VBS. Необходимо е да се отгатне число между 0 и 100. скрипта автоматично, когато броят на комплекта (се решава), която трябва да се отгатне и постави в специален прозорец, когато неправилен отговор се дава улики, като например по-малко или повече.

По-долу е един и същ код, който трябва да копирате и поставите в Notepad, а след това (разширение .vbs) спаси.

Можете също да промените съобщението на свой собствен начин, всичко, което е написано на кирилица редактирана без проблеми. Не се страхувайте да го прекъсне. Експериментирайте. Като в този случай отново копие работещ код тук.

Комплект у = CreateObject ( "Scripting.FileSystemObject")
Определете у = Нищо
правя
а = 0
U = 0
Случаен
Брой = Int ((RND * 99) + 1)
MsgBox "Аз простря число от 1 до 100, се опита да отгатне," 64 ", Guess"
правя
а = а + 1
с = InputBox ( "Май числото" vbCrLf vbCrLf "Опитвам се" а vbCrLf vbCrLf "За да видите резултатите, въведете номера!" vbCrLf vbCrLf "За да излезете, оставете полето празно" vbCrLf vbCrLf, "Познай")
Ако с = "!" Тогава CreateObject ( "WScript.Shell") Run "бележник C: \ Windows \ Result.dll"., 3, True. Exit Do
Ако в <> "" Тогава
Ако IsNumeric (C) = True Тогава
Ако CInt (с) Ако CInt (с)> Брой Тогава MsgBox "Не, това не е" в ". Аз простря редица по-малко от" 64 "Познай"
Ако CInt (с) = брой Тогава
Комплект у = CreateObject ( "Scripting.FileSystemObject")
MsgBox ( "Брой на повторните опити" а)
Ако MsgBox ( "Точно така, това е броят на" в . "Започнете zanogo?", 36 "Познай") = 6 Тогава Излезте ли Else WScript.Quit
Крайна сметка, ако
още
MsgBox "Това не е номер!", 16, "Познай"
а = а - 1
Крайна сметка, ако
още
а = а - 1
L = MsgBox ( "Не сте въвели нищо. Махай се от програмата?", 36 "Познай")
Ако L = 6 Тогава WScript.Quit
Крайна сметка, ако
контур
контур

Е, преди да преминат към команден файл (Прилеп) използват най-полезни на всички VBS скрипт, изброени в тази статия.

Wscript.exe капак скрипт

Задайте Taskkill = CreateObject ( "WScript.Shell")
TaskKill.Run "Taskkill / F / IM wscript.exe"

В действителност, той прави същото нещо като просто обяснено по-горе в диспечера на задачите като такъв не може просто да се вдигне и да затворите досадно скрипт отворено-затворено устройство, и изпълнението на скрипта ще бъдат затворени през цялото протичане. Това е като да се лекува с подобно.

Малката запознае с VBS скриптове и как да ги запишете в тетрадка, сега разгледаме някои примери за НДНТ файлове (по-нататък - на партидата файл).

Shutdown / Restart компютър

Много просто партида файл, състоящ се от само един ред.

1. Отвори Notepad.
2. Напишете следния код:

изключване -s -t 1-Г

Следваща File - Save As - nzvanie.bat

Обърнете внимание на разширението на файла, то вече не е VBS скрипт и файл партида на този в края на името предписва .bat (пример compoff.bat).

В момента тече новосъздадената партида файл чрез двукратно щракване на мишката и компютърът се изключва (изключване).

Има версия на кода:

изключване -r -t 1-Г

Всички предвижда също така, в Notepad, освен с .bat на разширяване, и след стартиране компютърът се рестартира (нормален рестартирате компютъра).

Тази партида файл ще бъде полезно в случай, че вече сте обновен до Windows 10. Каква е същността? Тази партида файл съдържа списък на командите за отстраняване на няколко актуализации, както подсказва името - новини телеметрията, или само една от системата за шпионин неща, след като сме говорили как да деактивирате функцията Windows 10. наблюдението в този случай, вие трябва само да създадете команден файл, за да копирате съдържанието на кода по-долу и да го стартирате, а след това ще бъде изтрита, изброени актуализации.

@echo
ехо
ехо Стъпка 1: Изтриване на актуализации за телеметрия
WUSA / деинсталиране / КБ: 3068708 / тихо / norestart
WUSA / деинсталиране / КБ: 3022345 / тихо / norestart
WUSA / деинсталиране / КБ: 3075249 / тихо / norestart
WUSA / деинсталиране / КБ: 3080149 / тихо / norestart

По този начин е възможно да се премахне напълно всяка актуализация, дори и дебнене KB971033, който проверява копие на Windows 7 по отношение на автентичността.

В интернет има много различни скриптове, уж безобидни, но бъдете внимателни, преди да се опитва, не е ясно какъв сценарий, някои от които може да навреди, например - да прави промени в системния регистър, както и в случай на грешки, системата ще изведе грешка в този случай или ще се възстанови Windows регистър или направи за възстановяване на системата.

Сега, всичко работи. Всички коледни елхи, за да заместят. " плюс кълне в 25-ия и 28-ия ред на таблото вместо на минус.

Определете у = CreateObject ( «Scripting.FileSystemObject»)
Определете у = Нищо
правя
а = 0
U = 0
Случаен
Брой = Int ((RND * 99) + 1)
MsgBox «Аз простря число от 1 до 100, се опита да отгатне" 64 "познае"
правя
а = а + 1
с = InputBox ( «Познай число" vbCrLf vbCrLf "Опитайте" а vbCrLf vbCrLf "За да видите резултатите, въведете номера!" vbCrLf vbCrLf "За да излезете, оставете полето празно" vbCrLf vbCrLf, "Познай")
Ако с = Тогава CreateObject ( «WScript.Shell») Run «бележник C: \ Windows \ Result.dll» «!»., 3, True:
Exit Do
Ако в «» Тогава
Ако IsNumeric (C) = True Тогава
Ако CInt (в) Брой Тогава MsgBox «Не, това не е" в ". Сложих роди редица по-малко от "64" Познай "
Ако CInt (с) = брой Тогава
Определете у = CreateObject ( «Scripting.FileSystemObject»)
MsgBox ( «Броят на опитите:" а)
Ако MsgBox ( "Точно така, това е броят на" в ". Zanogo започнем? ", 36" Познай ") = 6 Тогава Излезте ли Else WScript.Quit
Крайна сметка, ако
още
MsgBox «Това не е номер!" 16, "Познай"
А = а-1
Крайна сметка, ако
още
А = а-1
L = MsgBox ( «Не сте въвели нищо. Махай се от програмата?", 36 "Познай")
Ако L = 6 Тогава WScript.Quit
Крайна сметка, ако
контур
контур

>> всичко се заменя с "

И тъй като за малко трик правя нищо ponyala-, че е шега ще получите приятели? Още веднъж, благодаря ви.

=) Ами, по принцип сте инсталирали глас на двигателя (български) и това е достатъчно, както и настройката на окачването - хубаво нещо, обичам го повече Мене конфигурирани правилно и това е моят прочит на книгата))

Това е благодарение на вас, радвам се, мога да направя нещо, за да помогне, проверявайте често!

че е шега за diskovod..pri започнем да говорим за oshibke.mol depustimy подпише 1 линия 29 характер

Проверете къде може да е печатна грешка в текста, а системата имате?

По мое мнение, че е необходимо да се замени този символ, един кавички ( ") на друг (")

по-кратък, така че по някаква причина не пише (където буквата Е, на английски език, с изместване-ти ( "))

Седем и аз и всички, точно пише при откриването на всякакви VBS се появи грешка при компилиране Microsoft VBScript, невалиден знак код 800A0408

Проверете грешка синтаксис може по принцип кодът на грешката си, не работи добре. Интервал от време на грешното място комплекта, като цяло, всички като че ли, за да се направи, както е описано в поста, тя трябва да бъде добре да се изпълнява.

И една партида файл може да бъде интересно да се научи да говори прозорци ...
И ако не е трудно, тогава е възможно да се напише колона на всеки прилепи -commands и обясни с тях?

Ако ви разбирам правилно, вие искате някаква бухалка директория? т.е. екип и предназначението на същата партида файл, ако е така то може да later'll го направя.

Да, това е, което имах предвид.
Вие ще бъдете в състояние да направи това?

Хората какво да правят. Свалих архива и дръпна ципа. Vbs започват да отворите файла и нищо не се случва. (Antivirus разстояние, Windows 7 максимум)

Задайте WMPlayer = CreateObject ( «WMPlayer.OCX.7?)
правя
WMPlayer.CdRomCollection.Item (0) .Eject ()
контур

всички въведен правилно, всички те накара дори се опита да спаси в Unicode, но не помага! изкачва грешка

И какво излиза грешка?

Сценарият се проверява, (Win7 32bit), всичко работи отваря глоба диск. Имате какво система? само за Windows XP са грешки.

Имам прозорци 7/32 битов
Ако използвате скрипт за отваряне / затваряне диск изкачва тук такава грешка:

Сценарий: D: \ 1.vbs
линия 1
символ 29
Грешка: Невалиден знак
код 800A0408
Източник: Microsoft VBScript Грешка при компилация

Запазената ви скрипт работи. и това е, което аз пиша, не е ...
Вие не може да спести на скрипта, която сте създали в TXT формат? така че аз погледна какво ми грешка?

Да, можете просто да щракнете с десния бутон върху файла и изберете "промяна", където той ще се отвори в Notepad.

всички измисли със сценария, много ви благодаря!

Сега ще очакваме с нетърпение да появата на "директория"
на .bat команди