Programok írása (szkriptek) Jegyzettömb ablakok

Az ezt a cikket, akkor megtanulják, hogyan kell programozni, és még csak nem is a program, mint olyan, hanem fogja találni nagy VBS script és a BAT fájlokat, amelyek könnyen írni a szokásos Windows-notebook, képes lesz javítani az akkor dicsekedni a barátok és a család. Lehet, hogy majd szüntesse meg a szesz és akkor kiad egy nagy idő.

A legtöbb hasonló szkriptek a kényelem és automatizálása minden olyan intézkedés egy Windows számítógépre. Alább egy kis script hasznos (talán azt hiszem), de ezek ideális bevezetés a „kódoló”. Van egy jó ideje, meglepve mind saját maga és barátai bábuk (nem programozók), plusz ez egy jó lehetőség, hogy megöl egy ideig a számítógép előtt.

Adat kiterjesztések (VBS, denevér) fájlok jönnek létre minden Windows (Notepad) ismert Notepad. A nagyobb kényelem érdekében a script ajánlott használni egy fejlett (úgymond) notebook - Notepad ++. Ez kényelmes szintaxiskiemeléssel többféle programozási nyelvek, ha ez nem számít sokat, akkor töltse le és írd meg - a hiba a kódban, hogy kevesebbet is, vagy azok lesznek könnyebb megtalálni, mint az ugyanazon a kis funkcionális Notepad a Windows.

Az egyszerűség kedvéért a példában (balra - Notepad a Windows jobb - Notepad ++):

Ha már ismeri a VBS script és batch fájlt, akkor valószínű, hogy a következő példák nem érdekel, de ha egy kezdő, majd a bevezetést -, amire szüksége van.

Taníts számítógép köszönt

1. Nyitott Jegyzettömb (Notepad vagy Plus Plus).
2. Másolja a kódot beilleszteni:

Állítsa sapi = CreateObject ( "sapi.spvoice")
sapi.Speak "Hello!"

Kötelező követelmény: a jegyzések kell „ilyen”, „halszálkás” nem fog működni, a szkript nem kerül feldolgozásra, és hiba történik. Ahelyett, hogy a „Hello” írhat bármit, amit akar, még az orosz, a jelenléte a magyar hangja motort.

Ezután a Fájl - Mentés másként - File Type - All Files - nazvanie.vbs

Hívja a fájlt, amit akar, de ne felejtsük el, hogy regisztráljon a végén a kiterjesztés - .vbs (például - Privet.vbs).

Most megpróbálja ellenőrizni a script - futtatni a fájlt dupla kattintással az egérrel.

Egy figyelmeztetés: ha már regisztrált az idézett szavak a magyar betűk, és ha elkezd mondani világosan, hogy akkor csak nem állítja be a magyar hangja motort. Részletes telepítési és konfigurációs hang motor túlmutat ezt a cikket, így további részleteket itt olvashat és gyere vissza újra.

Most tegye a következőket: előírják a forgatókönyvet az induláskor, ami azt jelenti, hogy amikor a számítógép indításakor lesz kimondott szó van írva egy program (a szó), ha mint a példában, azt fogja mondani - „Hello” minden alkalommal a számítógép be van kapcsolva. Hogyan kell csinálni?

Egész egyszerűen a programot (script), hogy adjunk a startup lehet azonos módon, azaz egy VBS script. Hozzon létre egy fájlt a könyvjelzők, a másolás / beillesztés (Ctrl + C / Ctrl + V) az alábbi kódot:

Dim vOrg, objArgs, gyökér, kulcs, rendszerhej
root = "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Run"
KeyHP = "Program"
Állítsa WshHej = WScript.CreateObject ( "WScript.Shell")
WshShell.RegWrite gyökér + keyHP, "C: \ Privet.vbs / autorun"

Változás az utat a script „govorilki”, hogy ez a sor - C: \ Privet.vbs az övé. Felírni, ahol fekszenek, és hogy ez a forgatókönyv is nevezik. Ezután mentse az újonnan létrehozott programot a mini notebook és fuss. Minden, ami most a számítógép lesz veled, stb üdvözlő minden egyes alkalommal.

1. Nyílt notebook. Copy / Paste a következő kódot:

A = CreateObject ( "WMPlayer.OCX.7")
Állítsa b = a.CdromCollection
Set c = b.Item (0)
Set d = c.Eject

Mentés a .vbs kiterjesztést

Fuss a forgatókönyvet, és megnyitja a lemeztálca.

Vannak érdekes módosítása ezt a forgatókönyvet:

Állítsa wmplayer = CreateObject ( "WMPlayer.OCX.7")
csinál
WMPlayer.CdRomCollection.Item (0) .Eject ()
hurok

Ebben az esetben ez lesz minden idők nyitó-záró CD / DVD-meghajtó laptopok ebben az esetben nyílik minden egyes bekapcsolás után.

Figyelem! A második kód (meghajtó nyitás és zárás), a víruskereső programok látni, mint egy nem kívánt program. A Kaspersky Anti-Virus (beleértve a Kaspersky Free) látja így, és elpusztítani azonnal. Az első esetben (csak nyitó drive) az anti-vírus szoftver nem egy rosszindulatú szkript.

Leállításához automata nyitó-záró meghajtó szükséges:

1. Feladatkezelő indítása (Windows gyorsbillentyűk - Ctrl + Alt + Del).
2. Menj a „Folyamatok” fülre.
3. Keresse wscript.exe folyamat - jobb egérgomb - a folyamat befejezéséhez.

Egy érdekes megállapítás az internetről - játék VBS. Meg kell kitalálni egy számot 0 és 100 között A szkript automatikusan, amikor a készletek (megfejti) száma, amelyben meg kell kitalálni, és hozott egy külön ablakban, ha egy helytelen választ adott nyomokat, így kevesebb, vagy több.

Az alábbiakban ugyanazt a kódot kell másolni és beilleszteni a Jegyzettömb, majd mentse el (mellék .vbs).

Azt is megváltoztathatja az üzenetet maguk módján, minden meg van írva cirill szerkesztett gond nélkül. Ne félj, hogy megtörjük a kódot. Kísérletet. Ebben az esetben újra copy működő kódot.

Y = CreateObject ( "Scripting.FileSystemObject")
Y = Nincs
csinál
a = 0
u = 0
Véletlenszerű
Száma = Int ((RND * 99) + 1)
MsgBox „tettem oda egy számot 1 és 100 közötti, próbálja meg kitalálni,” 64 „Guess”
csinál
a = a + 1
c = InputBox ( "Találd száma" vbCrLf vbCrLf „Próbálok” egy vbCrLf vbCrLf „Az eredmények megtekintéséhez írja be a számot!” vbCrLf vbCrLf „Ahhoz, hogy kilépjen, hagyja üresen a mezőt” vbCrLf vbCrLf "Guess")
Ha c = "!" Ezután CreateObject ( "WScript.Shell") Run "jegyzettömb C: \ Windows \ Result.dll". 3, True. Exit Do
Ha c <> „” Akkor
Ha IsNumeric (c) = igaz, akkor
Ha CInt (c) Ha CInt (c)> Szám Then MsgBox "Nem, ez nem" c „Tettem oda-nél kisebb számú” 64 »kitalálni«
Ha CInt (c) = számot, majd
Y = CreateObject ( "Scripting.FileSystemObject")
MsgBox ( „próbálkozások száma” a)
Ha MsgBox ( „Ez így van, ez volt a száma” c . "Start zanogo?", 36 "Guess") = 6 Then Exit Do Else wscript.quit
End If
más
MsgBox "Ez nem egy szám!", 16 "Guess"
a = a - 1
End If
más
a = a - 1
l = MsgBox ( "Nem írt be semmit. Kifelé a program?", 36 "Guess")
Ha L = 6 Ezután wscript.quit
End If
hurok
hurok

Nos, mielőtt egy batch file (.bat) a használja a leghasznosabb az összes VBS script szerepel ebben a cikkben.

Wscript.exe script fedél

Állítsa taskkill = CreateObject ( "WScript.Shell")
TaskKill.Run "taskkill / f / im wscript.exe"

Tény, hogy nem ugyanaz a dolog, mint most, fentebb Feladatkezelő mint ilyen, nem csak felvenni és zárja be a bosszantó script nyitó-záró meghajtóba, és a szkript futtatása zárva lesz a futás. Ez olyan, mint gyógymód tetszik.

Kis ismerte VBS script és hogyan kell írni őket egy notebook, most meg néhány példát a BAT fájlokat (a továbbiakban - a batch fájl).

Shutdown / Számítógép újraindítása

Nagyon egyszerű batch file, amely csak egy sorban.

1. Nyílt Notepad.
2. Írja be az alábbi kódot:

leállítás -s -t 1-C -f

Következő File - Save As - nzvanie.bat

Ügyeljen arra, hogy a fájl kiterjesztését, már nem VBS script és batch fájlt ezen a végén a név ír .bat (Példa compoff.bat).

Futunk az újonnan létrehozott batch fájl dupla kattintással az egér és a számítógép kikapcsol (leállítás).

Van egy változata a kód:

shutdown -r -t 1-C -f

Minden azt is előírja, a Jegyzettömb, mentse kiterjesztésű .bat, és elindítása után a számítógép újraindul (normál indítsa újra a számítógépet).

Ez a batch fájl hasznos lehet abban az esetben, ha már frissített a Windows 10. Mi a lényege? Ez a batch fájl felsorolja a parancsokat, hogy távolítsa el néhány frissítéseket, mint a neve is mutatja - a telemetria frissítések, vagy csak az egyik kém cucc rendszer, ha már beszéltünk, hogyan kell letiltani a funkció a Windows 10 felügyeleti ebben az esetben egyszerűen hozzon létre egy batch fájlt másolni a tartalmát a alábbi kódot, és futtatni, majd törlődik felsorolt ​​frissítéseket.

@echo
visszhang
echo 1. lépés: Törölje frissítések telemetriai
WUSA / uninstall / kb: 3068708 / quiet / norestart
WUSA / uninstall / kb: 3022345 / quiet / norestart
WUSA / uninstall / kb: 3075249 / quiet / norestart
WUSA / uninstall / kb: 3080149 / quiet / norestart

Így lehetséges, hogy távolítsa el teljesen bármilyen változtatás, még vadászott KB971033 amely ellenőrzi egy példányát a Windows 7 a hitelességét.

Az interneten sok különböző szkriptek, állítólag ártalmatlan, de légy óvatos, mielőtt megpróbálja az nem világos, hogy milyen script, amelyek közül néhány árthat, például -, hogy módosítsa a rendszerleíró adatbázist, és abban az esetben a hibák a rendszer ki fog adni egy hiba ebben az esetben akkor sem vissza windows registry vagy csinál egy rendszer-visszaállítás.

Most minden működik. Minden karácsonyfa helyére. " plusz esküszik, a 25. és a 28. sorban a kötőjel helyett mínusz.

Y = CreateObject ( «Scripting.FileSystemObject»)
Y = Nincs
csinál
a = 0
u = 0
Véletlenszerű
Száma = Int ((RND * 99) + 1)
MsgBox «tettem oda egy számot 1 és 100 közötti, megpróbálja kitalálni a” 64 »találgatás«
csinál
a = a + 1
c = InputBox ( «Guess szám” vbCrLf vbCrLf „Try” egy vbCrLf vbCrLf „Az eredmények megtekintéséhez írja be a számot!” vbCrLf vbCrLf „Ahhoz, hogy kilépjen, hagyja üresen a mezőt” vbCrLf vbCrLf "Guess")
Ha c = Akkor CreateObject ( «WScript.Shell») Run «jegyzetfüzetbe C: \ Windows \ Result.dll» «!»., 3, True:
Exit Do
Ha c «» Akkor
Ha IsNumeric (c) = igaz, akkor
Ha CInt (c) A Then MsgBox «Nem, ez nem” c ”. Tettem oda-nél kisebb számú „64” kitalálni "
Ha CInt (c) = számot, majd
Y = CreateObject ( «Scripting.FileSystemObject»)
MsgBox ( «A próbálkozások száma:” a)
Ha MsgBox ( «Ez így van, ez volt a száma” c ”. Zanogo kezdeni? "36", Guess „) = 6 Then Exit Do Else wscript.quit
End If
más
MsgBox «Ez nem egy szám!” 16, »kitalálni«
a = a-1
End If
más
a = a-1
l = MsgBox ( «Nem írt be semmit. Kifelé a program?”, 36 "Guess")
Ha L = 6 Ezután wscript.quit
End If
hurok
hurok

>> mindent helyébe "

És mint a kis trükköt én semmit ponyala- hogy egy vicc kap barátai? Ismét köszönöm.

=) Nos, elvileg telepítve van egy hang a motor (magyar), és ez elég, és hangolt felfüggesztés - jó dolog, tetszik jobban mene rendesen beállítva és ez az én olvasata a könyv))

Ez köszönhető a te, örülök én is tenni valamit, hogy segítsen, látogass vissza gyakran!

ez egy vicc diskovod..pri Start által beszélt oshibke.mol depustimy jelentkezzen 1 sor 29 karakter

Ellenőrizze, hol lehet elírás a szövegben, és a rendszer van néhány?

Véleményem kell cserélni ezt a szimbólumot, egy idézőjel ( „) a másik (”)

rövidebb, mint hogy valamilyen okból nem írja (ahol a betű, az angol, a shift-edik ( „))

Hét és én, és minden pontosan írja a megnyitón minden VBS bukkan fordítási hiba Microsoft VBScript, érvénytelen jel kód 800A0408

Ellenőrizze a szintaktikai hiba is, elvileg a hibakódot nem működik jól. Szóköz egyszer rossz helyen készlet, általában minden, mintha annak érdekében, hogy ezt, ahogy az a poszt, meg kell rendben fut.

És egy batch fájlt is érdekes lehet tanulni beszélni ablakok ...
És ha nem nehéz, akkor lehetőség van arra, hogy írjon egy oszlopot minden denevér -commands és elmagyarázta nekik?

Ha jól értem, hogy helyesen, szeretne valami denevér könyvtár? azaz csapat és a kijelölés ugyanezen batch fájlt, ha igen akkor later'll csinálni.

Igen, ez az, amit gondoltam.
Ön képes lesz arra, hogy ezt?

Az emberek, hogy mit kell tennie. Letöltöttem az archívumot és kicsomagolni. VBS elkezdi megnyitni a fájlt, és nem történik semmi. (Antivirus ki, windows 7 maximum)

Állítsa wmplayer = CreateObject ( «WMPlayer.OCX.7?)
csinál
WMPlayer.CdRomCollection.Item (0) .Eject ()
hurok

minden helyesen szerepel, minden történt még megpróbálta megmenteni a Unicode, de nem segít! mászik hiba

És mi jön ki a hiba?

A script van jelölve, (Win7 32bit), minden rendben meghajtó jelenik meg. Van mit rendszer? Csak a Windows XP hibákat.

Nekem van Windows 7/32 bit
Ha egy script, ami a nyitó / záró meghajtó mászik itt ilyen hiba:

Forgatókönyv: D: \ 1.vbs
1-es vonal
szimbólum 29
Hiba: Érvénytelen jel
kód 800A0408
Forrás: Microsoft VBScript fordítási hiba

Az elmentett script működik. és ez az, amit írok nem ...
Nem lehetett menteni a script létrehozott txt formátumban? így néztem, mi a hiba?

Igen, akkor egyszerűen kattintson a jobb gombbal a fájlra, és válassza ki a „változás”, ahol megnyílik a Jegyzettömb.

mindent kitaláltam a forgatókönyvet, nagyon köszönöm!

Most pedig várom, hogy a megjelenése „könyvtár”
A .bat parancsok