site logo
  • Կայքի մասին
  • Ծրագրավորում
  • Ժեշտ
  • Անվտանգություն
  • Հարց ու Պատասխան (ՀուՊ)
Փետրվար 17, 2013  |  By Neo In

Ուրախանալու 5 ձև կամ VBS ծրագրեր

Նախ ինչ է VBS-ը?

Դա  ծրագրավորման (ավելի ճիշտ սկրիպտագրման) լեզու է` մշակված է Microsoft-ի կողմից:Այն այնքան էլ չի տարբերվում Visual Basic ծրագրավորման լեզվից, սակայն իհարկե կան տարբերություններ:

 

Image representing Microsoft as depicted in Cr...

Ես կցանկանայի կիսվել մի քանի հետաքրքիր եւ պարզ 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”

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

 

 

Ուրախանալու 5 ձև կամ VBS ծրագրեր, 8.0 out of 10 based on 6 ratings
VBS Բեյզիկ զվարճալի ծրագրեր Ծրագրավորման լեզուներ Ծրագրավորում ծրագրեր Ուսումնական նյութեր սկրիպներ սկրիպտ Վիզուալ Բեյսիկ վիրուս
Previous StoryՑանցային Չատ Բատով!
Next StoryԻնչպե՞ս արագացնել Անդրոիդի աշխատանքը

Comments: no replies

Join in: leave your comment Cancel Reply

(will not be shared)

Որոնում

Նշագրեր

*Nix-եր (18) android (17) C++ (19) C և C++ (27) Excel (10) html (10) Network Administration (16) System Administration (28) Windows 7 (14) Ալգորիթմներ (15) Անվտանգություն (29) ԳՆՈՒ/Լինուքս (16) Թեյնիկներին (57) Ժեշտ (44) Լակոնիկ (21) Լինուքս/Յունիքս հրամաններ (29) Լուսանկարչություն և մշակում (15) Խելախոսներ (19) Ծրագրավորման լեզուներ (16) Ծրագրավորում (64) Ծրագրեր (48) Հայականացում (28) Հումոր (11) Ուսումնական նյութեր (34) Սոցցանցային Հմտություններ (19) Վեբ (25) Վերլուծություն (10) Վորդպրես (21) ՏՏ և փիլիսոփայություն (21) Տվյալների բազաներ (12) Օպերացիոն համակարգեր (27) Օֆիսային ծրագրեր (22) անդրոիդ (16) բաշ (10) ինտերնետ (11) խելախոսներ (13) համացանց (15) հայատառ (10) հայերեն (11) հայերեն ստեղնաշար (11) հայկական սոֆթ (11) ստեղնաշար (10) սքրիփթ (14) վինդոուս (12) տեսանյութ (23)
Copyright ©2017 ThemeFuse. All Rights Reserved