سلام ممنونم كه لطف كرده و كمكم مي كنيد
من يه سورس كد ساده رو كه در vb است رو براتون گذاشتم اين سورس كد رو استادم در دانشگاه نوشت و اجرا شد ولي در كامپيوتر من وقتي با يه تلفن ديگه به مودم زنگ مي زنم اصلا هيچ اتفاقي نمي افته با اينكه مودمم voice داره به نظر شما چرا مودم من قاطي كرده؟
Private Sub Form_Load()
vt.Open
End Sub
Private Sub vt_OnBusy(ByVal Source As Long)
vt.HangUp
End Sub
Private Sub vt_OnConnected()
vt.PlaybackText ("Welcome Welcome Welcome")
vt.WaitForIdle (-1)
vt.PlaybackFile ("d:\1.wav")
End Sub
Private Sub vt_OnDtmf(ByVal KeyCode As Long)
Text1.Text = Text1.Text + Chr(KeyCode) + " "
End Sub
Private Sub vt_OnRing(ByVal Number As Long)
vt.AnswerCall
End Sub