PDA

View Full Version : تماس در ویژوال بیسیک؟



dastmal
یک شنبه 22 آذر 1388, 13:01 عصر
سلام

مي خواستم ببينم چطوري ميشه در ويژال بيسيك با استفاده از مودم با يك شماره تماس گرفت

البته به جز استفاده از dll TAPI32.DLL اين برنامه phone Dialer

يعني وقتي كه با يك شماره تماس ميگيره نمي خوام اين برنامه اجرا بشه.

و باقي چيز هايي كه از سمت چپ اجرا ميكنه.

اگه راهي داره لطفا سريع بگبد چون عجله دارم ممنون ميشم

Tasiyan
یک شنبه 22 آذر 1388, 14:10 عصر
راه هاي زيادي داره
پيشنهاد ميكنم از kdtele استفاده كنيد
:لبخند:

dastmal
یک شنبه 22 آذر 1388, 14:19 عصر
اگه میشه بیشتر توضیح بدین
اگه کدش رو دارین تمام کدش رو بنویسین
ممنون

Tasiyan
دوشنبه 23 آذر 1388, 09:36 صبح
در مورد KDtele كه بحث مفصلي داره وقتي نصبش كرديد با سمپل هاش كارتون راه ميوفته
در مورد كدي كه خواسته بودين ، اين كد با ام اس كام خود وي بي

Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
MSComm1.CommPort = 1
MSComm1.PortOpen = True
mesela = Text1.Text
DialString$ = "ATDT" + mesela + ";" + Chr$(13) + Chr$(10)
MSComm1.Settings = "300,N,8,1"
MSComm1.Output = DialString$
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
If MSComm1.PortOpen = True Then
MSComm1.Output = "ATH" + Chr$(13)
MSComm1.PortOpen = False
End If
End Sub
:لبخند: