Опять простой вопрос с бородой (Winsock).

[MOV]

Есть комп. Постоянно висит в инете на ADSLe, то есть известен его IP (правда не знаю одной вещи это IP, который ему выдал пров, а в инете этот комп под таким же адресом видно или он уже будет другой ?).
Интересно сделать прогу, которая бы могла отправлять на него текстовые сообщения то есть на этот IP. Естественно должна быть прога типа сервер (которая бы их принимала) с возможностью отправки ответа.
Какой-нибудь Winsock это может? Где взять реальную инфу по winsoку?

[PaulTheDog]

Загляни сюда:
http://forum.ten.net.ru/viewtopic.php?t=10

[MOV]

Толково. Просто, ясно, доступно (для понимания ) пойду позырю. Если будут воросы - вернусь .

[MOV]

Что-то матерится он страшно на этот винсок . И на TCP и на UDP.
(на юдп, сначала подвисает, потом выдает 'ошибка 10014 неправильный аргумент'). Попробую с самого начала все сделать как написано (без извращений) .

[Zer]

А ты сучаем не NetBust пишешь???

[MOV]

А ты сучаем не NetBust пишешь???

Нет. вот черновой вариант замутки. (UDP) Это сервак.

Private Sub Command2_Click()
If Text2 = "" Then
MsgBox "Что сказать то?"
Exit Sub
End If
Text1 = Text1 + Chr(10) + Left(Str(Time), 5) + Text2
Winsock1.SendData Text2
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "Client"
.RemotePort = 1001
'.Bind = 1002 эту строку он вообще не воспримает - ругается
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim StrData As String
Winsock1.GetData StrData
Text1 = Text1 + Chr(10) + Left(Str(Time), 5) + StrData
End Sub

Это клиент то же самое, но с другим именем хоста

Private Sub Command2_Click()
If Text2 = "" Then
MsgBox "Что сказать то?"
Exit Sub
End If
Text1 = Text1 + Chr(10) + Left(Str(Time), 5) + Text2
Winsock1.SendData Text2
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "Server"
.RemotePort = 1001
'.Bind = 1002
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim StrData As String
Winsock1.GetData StrData
Text1 = Text1 + Chr(10) + Left(Str(Time), 5) + StrData
End Sub

Пока испытваю на одной машине. Не пашет.

[MOV]

Тупо взял пример отсюда. http://www.hiprog.com/access/article.asp?id=7
Тоже ругается. TCP стоит. Имя смотрю в свойставх сети\идентификация может еще надо рабочую группу как-то приплетать? (она у меня есть). Х.з. Ругается что не поддерживаемое семейство имен что ли.
Смотрю коннекшн стэйт клиента (когда через TCP пытаюсь) он, когда кликаешь 'соединиться с сервером' меняется с начала на 6 потом стабильно 9. Пытаешься отправить сообщение: пишет, что неправильный протокол или состояние соединения.
И самое интересное.
С этого надо было начать, наверно . Стоит NortonInternetSecurity (ну файрволл типа). Значит когда его отключаешь - он выдает ошибку, что типа адрес недоступен с локальной машины. так что ли? (Address is not availabel from the local machine). Имена разные пробовал и новеловские (машина в сети под новелом) имена и имя идентификации, которое в свойствах сети.
Ладно, продолжаю копошиться.

[Keen]

Есть комп. Постоянно висит в инете на ADSLe, то есть известен его IP (правда не знаю одной вещи это IP, который ему выдал пров, а в инете этот комп под таким же адресом видно или он уже будет другой ?).
Интересно сделать прогу, которая бы могла отправлять на него текстовые сообщения то есть на этот IP. Естественно должна быть прога типа сервер (которая бы их принимала) с возможностью отправки ответа.
Какой-нибудь Winsock это может? Где взять реальную инфу по winsoку?

К ADSL'у, кажется, не выдают постояенный IP

[Ramzes]

Нафига тебе текстовые сообщения????
Если ты знаеш его IP тогда:

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

shell "net send [IP] [message]"


[MOV]

Нафига тебе текстовые сообщения????
Если ты знаеш его IP тогда:
shell "net send [IP] [message]"

Мысль хорошая, учту на будущее. Но на нем еще файрволл стоит, думаю он не пропустит. Поэтому лучше сделать прогу, которая будет ловить эти сообшения, а настроить файрволл на то чтобы он разрешал юзать сеть проге легче и надежнеее по моему из соображений безопасности, чем то же самое сделать для shell. Или я неправ?

[Ramzes]

Это - же простые сетевые сообщения, просто ты их будешь посилать через инте, так что не бойся и пускай, все пройдет гладко! А прогу за тебя написали мелкомагкие.
Можно даже без бейсика, ПУСК => виполнить

[MOV]

Это - же простые сетевые сообщения.

Это я обязательно попробую. НО прогой все-таки прикльнее, а если еще и голосовой движок подцепить (где-то тут топик завел на эту тему) - ну чтобы типа сообщения сами озвучивались (голос ниоткуда )

[Ramzes]

А вот насчет голосового движка:

[Шурик]

Есть комп. Постоянно висит в инете на ADSLe, то есть известен его IP (правда не знаю одной вещи это IP, который ему выдал пров, а в инете этот комп под таким же адресом видно или он уже будет другой ?).
Интересно сделать прогу, которая бы могла отправлять на него текстовые сообщения то есть на этот IP. Естественно должна быть прога типа сервер (которая бы их принимала) с возможностью отправки ответа.
Какой-нибудь Winsock это может? Где взять реальную инфу по winsoку?

К ADSL'у, кажется, не выдают постояенный IP

Да нет ты ошибся, там всегда постоянный IP

[MOV]

К ADSL'у, кажется, не выдают постояенный IP

Во-первых я такого не говорил . Знаю, что он постоянный. Но постоянный он между провом и пользователем канала, как понимаю, а в самом инете другие пользователи видят этот комп под тем же IP или нет?
Ну да это легко проверяется на практике. Вот только руки дойдут.