обмен файлами по телефону

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Wic_
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 23.01.2008 (Ср) 22:14

обмен файлами по телефону

Сообщение Wic_ » 08.05.2008 (Чт) 18:38

Где-то видел пример как использовать модем для соединения двух компьютеров для отправки файла. Сейчас найти не могу. Может кто ссылкой поделится или примером.

Wic_
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 23.01.2008 (Ср) 22:14

Сообщение Wic_ » 13.05.2008 (Вт) 17:56

Подскажите хоть в каком направлении поиск вести - функции, термины...

ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Сообщение ACiD » 13.05.2008 (Вт) 19:35

Вот и я не помню откуда я её достал, и кто её написал, здесь пример с использованием DirectX
Вложения
Lan.zip
(11.58 Кб) Скачиваний: 56

Wic_
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 23.01.2008 (Ср) 22:14

Сообщение Wic_ » 14.05.2008 (Ср) 20:22

ACiDXX спасибо, теперь осталось узнать как набрать телефонный номер модемом и осуществить соединение с другим компьютером через тел. линию, т.к. пример для сети. Просьба не молчать тем, кто знает!

Wic_
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 23.01.2008 (Ср) 22:14

Сообщение Wic_ » 15.05.2008 (Чт) 16:52

Ага, нашел пример для набора телефонного номера программно
Код: Выделить всё
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub

теперь надо бы узнать как установить соединение...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 58

    TopList