Ovo je source cod od onog clana Luke nije moj ali nece da pozove broj to mi je problem da bi prepravio program.
Znaci imam 2 textbox-a , 2 command button-a , 1 mscomm i jedan timer , to je sve!
Code:
Private Sub Command1_Click()
On Error Resume Next
Dim BROJTELEFONA As String
BROJTELEFONA = InputBox("Enter Phone Number ", "Phone Number")
Form1.MSComm1.Output = "ATDT " & BROJTELEFONA & vbCr
End Sub
Private Sub Command2_Click()
If ioport = True Then
Command2.Caption = "Open Port"
MSComm1.Output = "ATH" + vbCr
MSComm1.PortOpen = False
ioport = Not ioport
Else
Command2.Caption = "Close Port"
MSComm1.PortOpen = True
ioport = Not ioport
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If ioport = True Then
Form1.MSComm1.Output = Text2.Text & Chr$(13) + Chr(10)
Text2.SetFocus
End If
Text2.Text = vbNullString
End If
End Sub
Private Sub Timer1_Timer()
If ioport = True Then
Text1.Text = Text1.Text & MSComm1.Input
End If
End Sub