Ուրախանալու 5 ձև կամ VBS ծրագրեր
Նախ ինչ է VBS-ը?
Դա ծրագրավորման (ավելի ճիշտ սկրիպտագրման) լեզու է` մշակված է Microsoft-ի կողմից:Այն այնքան էլ չի տարբերվում Visual Basic ծրագրավորման լեզվից, սակայն իհարկե կան տարբերություններ:
Ես կցանկանայի կիսվել մի քանի հետաքրքիր եւ պարզ VBS կոդերով:
Պետք է կատարել նույն ԲԱՏ երի սկզբունքով, ուղղակի .Bat-ի փոխարեն .VBS
Բատերի մասին հոդվածը այստեղ` Բատ դաս 1
1. CD/DVD բացող! Արդեն ձեզ քաջ հայտնի 
Set oWMP = CreateObject(“WMPlayer.OCX.7″ ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next ‘ cdrom End If
2. Խոսացրեք համակարգչին
Dim msg, sapi msg=InputBox(“Aystex greq dzer text@”,”XOSACOX HAMAKARGICH”) Set sapi=CreateObject(“Sapi.spvoice”) sapi.speak msg
3. Ավտոմատ տպիչ
Set wshshell = wscript.createobject(“wscript.shell”) wshshell.run “notepad” wscript.sleep 500 wshshell.appactivate “notepad” wshshell.sendkeys “Bari Galust Hay Hacker & HayIt” wscript.sleep 100 Set wshshell = wscript.createobject(“wscript.shell”) wshshell.run “notepad” wscript.sleep 500 wshshell.appactivate “notepad” wshshell.sendkeys “Ba” wscript.sleep 100 wshshell.sendkeys “ri ” wscript.sleep 100 wshshell.sendkeys “Gal” wscript.sleep 100 wshshell.sendkeys “ust” wscript.sleep 100 wshshell.sendkeys “ Hay” wscript.sleep 100 wshshell.sendkeys “ Hacker ” wscript.sleep 100 wshshell.sendkeys “ & ” wscript.sleep 100 wshshell.sendkeys “HayIT” wscript.sleep 100
100 միլի վայրկյան ընդմիճումները կտան տպելու տեսք:
4. Անջատել
Set shell = WScript.CreateObject(“WScript.Shell”) shell.Run “%windir%system32shutdown.exe -s”
5. Բացել NotePad-ը
set wshshell = wscript.createobject(“wscript.shell”) wshshell.run “notepad”
Սկզբնաղբյուր: Հայ Հաքեր Բլոգ
Բաժին: Ծրագրավորման լեզուներ, Ծրագրավորում, Ուսումնական նյութեր
