S. O. S Több VBS utasítást be lehet rakni egy dokumentumba?

Set WshShell = WScript.CreateObject("WScript.Shell")

For i = 0 to 5

WshShell.SendKeys "{NUMLOCK}"

WScript.Sleep 60

WshShell.SendKeys "{CAPSLOCK}"

WScript.Sleep 60

WshShell.SendKeys "{SCROLLLOCK}"

If (i mod 2) Then WScript.Sleep 200

next

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

mechaniky.Item(I).Eject

mechaniky.Item(I).Eject

next

end if

Tessék. Az a lényeg, hogy az utasítások közé next-t kell tenni, illetve a végére úgyszint egy nextet, és alá egy end if-t

Mivel kárt nem nagyon tudsz vele okozni, csak bosszúságot:

[link]

[link]