Script

• Citovať príspevok

Príspevok od používateľa Lojzo » 28 okt 2007, 15:42

 MsgBox "nieco"
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


Next
End If 

• Citovať príspevok

Príspevok od používateľa vivaSlovakia » 28 okt 2007, 15:43

• Citovať príspevok

Príspevok od používateľa chrono » 28 okt 2007, 15:57

C:\WINDOWS\RUNDLL32.EXE shell32,SHExitWindowsEx 2

• Citovať príspevok

Príspevok od používateľa Lojzo » 28 okt 2007, 16:13

Proste obyčajny Virtual Basic script na restartnutie compu alebo otvorenie nejakeho suboru...

• Citovať príspevok

Príspevok od používateľa Lojzo » 29 okt 2007, 16:12

lol už viem

• Citovať príspevok

Príspevok od používateľa chrono » 29 okt 2007, 23:34

Veď sa pochváľ (možno to bude potrebovať aj niekto iný).

• Citovať príspevok

Príspevok od používateľa Lojzo » 30 okt 2007, 10:55

OK

Kód: Vybrať všetko

 Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

intReturn = objShell.Popup("Text alebo otazka", _
    10, "nazov okna ", wshYesNoDialog + wshQuestionMark)

If intReturn = wshNo Then
    Wscript.Quit
End If

objFSO.DeleteFile("c:\a ceste k dakemu suboru ") 

To je na vymazanie dakeho suboru

a ked ten koniec zmenite na

Kód: Vybrať všetko

 objFSO.DeleteFolder("c:\a ceste k dakej zložke ")

(namiesto File date Folder tak vymaže zložku celu...

Kód: Vybrať všetko

 Pocet = nejake čislo

p = 1
Do While (p <= Pocet)
   MsgBox p
   p = p + 1
Loop

MsgBox "nejaky text na zaver" 

to je na počitanie,určiti bude muset klikat až kym nepride k tomu čislu čo je na začiatku (alebo to vypne v procesoch )

ešte vie niekto daka taketo jednoduche scripty ??