.vbs in Visual Basic 2010

...komplette Frage anzeigen

1 Antwort

So:

    Dim t
    Dim SAPI

    t = "Hello. The ServerSystem is Up to Date! The System is running on Version 1.0.0.1 and is NOT in Debugg Mode!"
    MsgBox(t)
    SAPI = CreateObject("sapi.spvoice")
    SAPI.Speak(t)

Das kannst in den Button reinsetzen. Hier wird allerdings das ganze erst ausgesprochen, nachdem bei der Msgbox auf ok gedrückt wurd. Wenn du das umgehen willst machst ganz einfach noch ein Timer auf die Form schreibst in den Button

Timer1.Enabled = True

und eben in dem Timer1 dann das SAPI zeugs :)

Was möchtest Du wissen?