Sunday, March 22, 2009

Beje qe PC te flet! (Provo interesante!)

Ky është një skedar i visual basic që ju shfaq një dritae dialoguese në momentin kur ju e ekzekutoni dhe keni një vend për të shkruar smg....Kur ju shkruani dhe shtypni OK, kompjuteri juaj do t'ju lexojë seçfarë ju shkruajtët.
Hape Notepad dhe shkruaje kodin e më poshtëm:

Dim userInput
userInput = InputBox("JetMir - H u m a n W i t h o u t B r a i n .. Shkruaje tekstin në kornizën më poshtë")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput

Sigurohu që ta rruash si skedar *.VBS

No comments:

Post a Comment