Проблема с Winsock при модемном соединении

[Pasha 111]

Что касается соединения через модем, то тот, кто сервер,
организует маленькую "локальную" (как если бы просто 2
компа соединили) сеть. В Вин9х ИП сервера: 192.168.55.1,
клиента - 192.168.55.2 В вин2000 можно настраивать это дело,
и у меня, например, ИП 1.1.1.1 Когда мне звонит друг
(как прову), то у него ИП 1.1.1.2

Как в VB юзать winsock: http://prs.narod.ru/programming/vb/arts/trojan.html

[GoGosha]

Что касается соединения через модем, то тот, кто сервер,
организует маленькую "локальную" (как если бы просто 2
компа соединили) сеть. В Вин9х ИП сервера: 192.168.55.1,
клиента - 192.168.55.2 В вин2000 можно настраивать это дело,
и у меня, например, ИП 1.1.1.1 Когда мне звонит друг
(как прову), то у него ИП 1.1.1.2

Как в VB юзать winsock: http://prs.narod.ru/programming/vb/arts/trojan.html

Там типа есть св-во: указать IP адреса явным образом
Туда ставишь чёнить и у тя будет самай первый адресс оттуда а того кто звонит при каждом коннекте на 1 больше

[Pasha 111]

GoGosha

Там типа есть св-во: указать IP адреса явным образом
Туда ставишь чёнить и у тя будет самай первый адресс оттуда а того кто звонит при каждом коннекте на 1 больше

Именно так

[Ramauf]

IP адрез однозначно есть у всех машин соединенных в любую сеть. И не надо с этим спорить. Я точно знаю. А чтобы определить его надо написать:
Комманда1.Caption = Winsock1.LocalIP
и все.
А порт должен быть одинаковый и у сервера, и у клиента. Но есть вопрос: как сделать несколько подключений к одному серверу???

[GoGosha]

Всё просто.
В параметрах Входящих подключений надо установить галку Служба TCP/IP
А чоб IP узнать надо залесть в св-ва->сведения и тама усё есть IP адресс сервера, IP адресс клиента

[Pasha 111]

Ramauf

Но есть вопрос: как сделать несколько подключений к одному серверу???

Просто. Создай Winsock1. Свойству Index присвой "0", а затем код:

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

Private Sub Form_Load()
For I = 1 To 100
    Load Winsock1(I)
Next I

For I = 0 To 100
    Winsock1(I).Listen
Next I
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1(Index).Accept requestID
End Sub


Будишь слушать сразу 100 сокетов на одном порту

[SergS]

Ваще через Winsock скорость приличная ,а то вот говорили "Всё тормозит" так ето неправда!!! Нормальная скорость для модема...

[Ramauf]

Pasha 111 а как сделать паузу (типа SLEEP в QUICK BASICe)

[Pasha 111]

Создай модуль и напиши:

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

'Все переменные необходимо объявлять заранее
Option Explicit

'API
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub Pause(ByVal M As Double)
Dim StartTime As Long
StartTime = GetTickCount

Do
    If GetTickCount - StartTime >= M Then Exit Do
    DoEvents
Loop
End Sub

Пишешь

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

Call Pause(1000)

Будет пауза на 1 секунду. Если напишешь

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

Call Sleep(1000)

то тоже будет пауза в 1 секунду, но программа "замрет".

[SergS]

Ну я с GoGoshей не только из под 98ого коннектился но из под ХР тоже...