И снова Winsock, и снова модем!!!

[Ramzes]

Помогите, надо установить соединение между двумя компами по модему, что-то типа Hyper Terminal, установка соединения, передача файлов, чат и многое другое, но так чтоб не делать клиент сервер, а что одна программа выполняла две функции одновременно (захотел я позвонил, захотел ко мне позвонили).

[Dmitriy2003]

Ну так объедение их в одну " Клиент + сервер" по одному порту пиримай а по другому отсылай. а если захлебываться пакетами станет делай многопоточность. (2 in 1 не есть хорошо.)

[Ramzes]

Ну вообще идея понятна...но вопрос как сделать...например передачафайлов...и можно сказать главный вопрос ДОЗВоН (как звонить на VB?) Help please

[_NeoN_]

хммм, а что сложного в передаче файлов?

Код: Выделить всё

dim fil as integer
dim str as string
fil=freefile
open "c:\pagefile.sys" for binary as fil
   str=space$(lof(fil))
   get fil,,str
   wsk.senddata str
   doevents
close fil


только не надо отравлять ЭТОТ файлик =)
как звонить не знаю