Ограничение передачи данных в WinSock

[Golod]

Собственно, тема.
Интересует, как можно ограничить проходящий через winsock поток данных, чтобы, к примеру, через него проходило не более 3-4 килобайт в секунду... Вот...

[moderator]

ИМХО, это невозможно.

[Trojan Lord]

возможно ! запросто !

[RayShade]

2 Trojan Lord

Да ты что! А как? Или лень просто нормальный постинг сделать?

Ведь в Дополнениях сказано что то по поводу невразумительных ответов

[Trojan Lord]

короче что-то типа:
dim hh() as string

sub form_load
timer1.interval = len(text1.text) / 10
ws.senddata (или sendata, непомню) "Ves " & len(text1.text)
for j=1 to 10
hh(j)=mid(text1.text, len(text1.text)/10,len(text1.text)/10*j)
next j
end sub

sub timer1_timer
static a%
ws.sendata (hh(a%))
a%=a%+1
if a%=10 then time1.enabled=false
end sub


вроде так........ и естественно пишем клиента..

[alibek]

Вопрос подразумевал не ограничение скорости передачи своих данных, а вообще, ограничение данных проходящих по WinSock.
А твой пример будет резать только тот трафик, который передает ТВОЯ программа, а не все остальные.
Это возможно (есть целая куча халявных шэйперов), но сомневаюсь, что на VB можно подобное реализовать.

И еще. Легко резать в процентном отношении, например 33% -- это следующий цикл: передача-простой-простой. Но резать в байтах намного сложнее, там двухэтажная формула, которую я на память не запомню при всем желании.