https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49780&view=findpost&p=327868 Tue, 30 Mar 2004 16:10:32 +0000 https://forum.sources.ru/index.php?showtopic=49780&view=findpost&p=327868
Open Port & ":" For Output As #1

Select Case Tone

Case True

Print #1, "ATDT" & Number & vbCrLf

Case False

Print #1, "ATDP" & Number & vbCrLf

End Select

Close
End Sub

Private Sub HangUp(Port As String)
Open Port & ":" For Output As #1
Print #1, "CLOSE" & vbCrLf
Close
End Sub

Private Sub Command1_Click()
HangUp "COM1"
End Sub

Private Sub Command2_Click()
Dial "02", "COM1", False
End Sub]]> Dufa Работа с аппаратурой