Hol találok VBScript-eket?

Az asztalon csinálj egy új szöveges dokumentumot, és írd bele ezt: msgbox "x",c,"y"

(Ezeket a betűket csak példának írtam bele)

Az x, és az y helyére írj valamit úgy, hogy ne töröld ki a macskakörmöket.

A c helyére írj 43, 32, ....stb (itt szintén ne töröld ki a macskakörmöt), attól fügően, hogy milyen jelet akarsz az ablakba (felkiáltó,kérdő,vagy felszólító)

ha végeztél írd át a fájltípusát *.vbs -re.

Ha nem engedi átiratni a fájltípust akkor a sajátgépben a fenti menüben az eszközök fülnél a mappa beállításainál a nézet-ben tudod beállítani (ismert fájltípusok kiterjesztésének elrelytését ne pipáld ki)

Am itt egy példa:

msgbox "Amit máshol nemmernél, itt megkérdezheted",32,"gyakorikerdesek.hu"

Ha valamit érthetetlenül írtam nyugottan rákérdezhetsz :)

(előző válaszíró) Csináltam neked 2 ilyesmit:

CD meghajtó kinyitása:

Set ovladani = CreateObject("WMPlayer.OCX.7" )

Set mechaniky = ovladani.cdromCollection

mechaniky.Item(i).Eject

Cd meghajtó becsukása:

Set ovladani = CreateObject("WMPlayer.OCX.7" )

Set mechaniky = ovladani.cdromCollection

If mechaniky.Count Then

For z = 0 To 1

mechaniky.Item(i).eject

next

end if

ja, amugy ugyanazzal a kodal ki is lehet nyitni....

probáld ki ezt: kinyit,becsuk

Set ovladani = CreateObject("WMPlayer.OCX.7" )

Set mechaniky = ovladani.cdromCollection

If mechaniky.Count Then

For i = 0 To mechaniky.Count - 1

mechaniky.Item(i).Eject

mechaniky.Item(i).Eject

Next

End If

set shell=createobject("wscript.shell")

for a = 1 to 10

shell.sendkeys "{capslock}"

wscript.sleep 500

next

Ezzel 5-ször fog felkapcsolni és 5-ször lekapcsolni a billentyűzeteden a középső LED.