Skip to main content

Posts

Showing posts with the label createobjects

Code to check your PC name

Set VObj = CreateObject("SAPI.SpVoice") with VObj Set .voice = .getvoices.item(0) .Volume = 100 .Rate = 1 end with Set VObj = CreateObject("SAPI.SpVoice") For Each Voice In VObj.getvoices I = I + 1 msgbox "I am " & Voice.GetDescription & " and ;)" Next For count=0 to 3 vobj.Speak"Cygig Lol, at least try to do it in a less obvious way" Next