BAT

NETOPÝR

Chtěl bych otevřít existující soubor .vbs...
Udělal jsem si v pc menší "blbost" (ale mě se to líbí): při spuštění pc mě pc pozdraví

StrText=("Welcome, Mr Olus")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
WScript.sleep 5000
StrText=("I'm ready for you")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText

Přesně tohle mi řekne...
Ale já nechci aby mě zdravil pořád stejně... :) Takže bych chtěl aby je náhodně otevíraly soubory.vbs které mě zdraví jinak. :)

OMG.. a proč si to teda nevyřešíš rovnou v tom VBSku?

Nemám takové zkušenosti s vbs jako bat (i s bat mám dost málo zkušeností)
Tak mě nenapadlo že to jde ;)

jde to, ale v tom VBS je to řádově elegantnější.

např. takto:

Dim kecy
kecy=array("Hello, master!", "What a nice day!", "Am I on the other side already?")
Dim max,min,nahoda
max=2
min=0
Randomize
nahoda=(Int((max-min+1)*Rnd+min))
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak kecy(nahoda)
WScript.sleep 500
ObjVoice.Speak ("I'm ready.")

edit: pokud si chceš přidat další hlášky, stačí je přidat na konec pole (stejným stylem) a povýšit adekvátně položku "max" (počítá se od nuly)

Jo díky moc