У мне такая проблема меня попросили написать программу для обмена базами данных 1C через телефонную линию!
Вот начал искать инфу и нарыл следующие:
Набираю номер телефона:
- Код: Выделить всё
Private Sub Dial(Number As String, Port As String, Tone As Boolean)
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 Form_Load()
Com.CommPort = 'номер COM-порта, на котором висит модем
Com.PortOpen = True 'Открываем порт
End Sub
Private Sub Комманда1_Click() 'командная кнопка
Com.Output = "atz" '& Chr(13) & Chr(10) 'посылаем AT команду «снять трубку»
End Sub
Private Sub Timer1_Timer() 'таймер с периодом 0.1 сек
If Com.InBufferCount > 0 Then ' если буфер изменился то
Print Com.Input
End If
End Sub
Все правильно?
Если да то теперь как мне к примеру отослать String другой машине, и как ее забрать?
Плиз, помогите, срочно нужно после школы ее уже отнести!
- Код: Выделить всё