bilgisayardan Telefonu çaldırma

Projeye eklemeniz gerekenler
1 adet Textbox ' numara yazılacak ör:05011234567 yani arayacagınız numarayı yazacaksınız prgyi çalıştırınca
2 command buton 'Captionları Numarayı Ara ve Aramayı sonlandır Name kısımlarıyla oynamayın
1 MSComm1 'MSCOMM32.OCX ctrl+T yaparak ekleyin microsoft comm control 6.0 ismi
ve aşagıda kırmızı olarak yazdıgım yerde port oraya modemin portunu yazıyoruz mesela ben samsung ceptelefonumu usb ye takınca portu 3 oluyor sizin modeminizin portuna da modem ara yüzüne girip bakabilirsiniz veya port açabilirsiniz. en kolay deneme yolu modemli cep telefonu. kodda bazı şeyleri editliyorum


Private Sub Command1_Click()
MSComm1.Output = "atdt" + Text1.Text + vbCr
Command2.Enabled = True
Exit Sub
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Enabled = False
Command2.Enabled = False
MSComm1.CommPort = 3 ' bakın şimdi 3 yerine açtıgınız yada var olan portu yazıyorsunuz
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Exit Sub
End Sub
Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Categories: Visual Basic