Ուրախանալու 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”

Սկզբնաղբյուր: Հայ Հաքեր Բլոգ

Նշագրեր: VBS, Բեյզիկ, զվարճալի ծրագրեր, ծրագրեր, սկրիպներ, սկրիպտ, Վիզուալ Բեյսիկ, վիրուս

Բաժին: Ծրագրավորման լեզուներ, Ծրագրավորում, Ուսումնական նյութեր