| Вопрос: Дисконнект | Добавлено: 18.06.05 21:13 |
Автор вопроса:  ArtBase | ICQ: 55593017 |
|
Есть сервер чата.
Список всех подключенных к серверу находится в ListBox'е. Как принудительно обрубить (отключить) выделенный в списке ip-адрес от сервера? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 18.06.05 23:18 |
| Сервер твой? Создавал чем? Винсоком? если да, то там должно быть что-то вроде CloseConnection ... | ||
|
Номер ответа: 2 Автор ответа: magish Вопросов: 47 Ответов: 47 |
Профиль | | #2 | Добавлено: 18.06.05 23:25 |
|
1 - Способ, - Забанить...
В Generel Dim banIP(1000000) as string Dim banAll as long В DataArrival... Dim i as long
for i = 0 to banall if banIP(i) <> "" then if banIP = winsock(index).remotehostip then winsock(index).close exit for end if next i В ListBox.Click If List.ListIndex <> -1 Then
banall = banall + 1 banIP(banall) = List.List(List.ListIndex) End If И Второй Способ: Sub CloseIP(ip1 as string) on error resume next dim i as long for i = 1 to ubound(winsock) if winsock(i).remotehostip = ip1 then winsock(i).close exit for next i Оба варианта писал на скорую руку, - даже на VB не проверял... - так, что если, что не правильно, то люди меня поправят  ...
|
||
|
Номер ответа: 3 Автор ответа: ArtBaseICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #3 | Добавлено: 19.06.05 01:04 |
|
2 magish, ты в самом деле карявенько накатал...
Скока не парился, могу или тока сам себя вырубить )) или ваще никого, но тема остается открытой...
будем думать... |
||
|
Номер ответа: 4 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 19.06.05 01:13 |
| Да по IP нафиг никого не забанишь- переконектился к нету и все. а вот пнуть (даже под зад) запросто можно. | ||
|
Номер ответа: 5 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #5 | Добавлено: 19.06.05 08:16 |
| Тут надо комлексные меры предпринимать. | ||
|
Номер ответа: 6 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #6 | Добавлено: 19.06.05 09:00 |
| Запоминать ник, IP, скорость печатания, характер и любимый цвет чувака и, если все, кроме одного-двух совпадают, тут же kick'нуть | ||
|
Номер ответа: 7 Автор ответа: nicolaiICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #7 | Добавлено: 19.06.05 11:00 |
|
да вы о чем говорите он спрашивает Как принудительно обрубить а вы про бан уже загибаете.
у тебя в листе что пишется? я пишу чат дк у меня ник подключившегося извлекаемый из масива (name ,ip ,№)сканю масив на name который выделен в листе и выдираю № сокса и winsocs(№).close
|
||
|
Номер ответа: 8 Автор ответа: ArtBaseICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #8 | Добавлено: 19.06.05 22:38 |
| вот в этом и трабл, надо № сокса выковыривать...у меня код такой...уууу....уже сам путаюсь где что... | ||
|
Номер ответа: 9 Автор ответа: nicolaiICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #9 | Добавлено: 20.06.05 07:47 |
|
а ты его в одну базу с ником записывай и при необходимостьи выковыривай |
||
|
Номер ответа: 10 Автор ответа: ArtBaseICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #10 | Добавлено: 21.06.05 18:15 |
|
2nicolai, хм...а вот это тема!
Я так и сделал, работает. Пасиба
|
||
Страница: 1 |