زور زور بة جوانى رونت كردؤتةوة

Dim msg, sapi
msg=InputBox("Tekaya nousi khot dakhil beka! E.S.Troth","Wota bej")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

دواتر ده‌چینه‌ سه‌ر منۆى File و ده‌چینه‌ سه‌ر به‌شى Save وفایله‌كه‌ به‌ پاشگرى VBS خه‌زن ده‌كه‌ین.بۆ نمونه‌ ناوى فایله‌كه‌تان به‌ شێوه‌یه‌ ده‌نووسن RABAR.VBS
ئێستا له‌سه‌ر دوگمه‌ى Save كلیك بكه‌ تاكوو فایله‌كه‌ له‌ شوێنى ده‌ستنیشان كراو خه‌زن بێت. دواتر بۆ شوێنى خه‌زنكراو و به‌ دوو جاركلیك فایله‌كه‌ ته‌نفیز ده‌بیت و تۆش نووسینه‌كه‌ت له‌ناو تیكست بۆكسه‌كه‌ بكه‌و دواتر دوگمه‌ى OK دابگره‌و ده‌بینى نووسینه‌كه‌ت ده‌خوێندرێته‌وه‌. ده‌بێت بڵێین كه‌ ئه‌م تایبه‌تمه‌ندیه‌ ته‌نیا بۆ نووسینه‌كانى ئینگلیزیه‌[/size]